{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}} {\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 open "com3:9600,n,8,1" for random as #commHandle\par Com = 256\par x = 0\par do while x = 0\par numBytes = lof(#commHandle)\par print numbytes\par if numbytes <> 0 then\par dataRead$ = input$(#commHandle, numBytes)\par end if\par rem call pause 500\par input "Press a key to continue . . ." ; mvar$\par if mvar$ = "x" then\par x = 1\par end if\par loop\par close #commHandle\par print "Program terminated"\par end\par \par sub Pause mil\par t=time$("milliseconds")\par while time$("milliseconds")