Помогите с простенькой программой на QB 4.5

[Егорыч]

Собственно, я нифига не программист Вот такая тема:
Есть исходник программки:

10 close #1:A$="40"
20 open "COM1:" AS #1
30 print #1,A$
40 close #1:for I=J to 2000:next
50 open "com1:" AS #1
60 For I=1 to 100
70 If loc(1)>=4 Goto 100
80 next
90 close #1:print "time out error":end
100 B$=input$(loc(1),#1)
110 print B$
120 end

Суть такова, прога говорит в ком-порт цифру 40 и получает ответ,
нужно сделать так, чтобы можно было писать самому, что сказать в порт и получать ответ. Вот и все! Все это будет словами в ASCI, типа START, STOP и т.д. Ответы тоже словами. Есть идеи?