var Count

ComPort = Com1
ComInitPort(2400,8,'N',1)
Blanktime = 0

repeat
   Count = Count + 1
   Writeln
   Writeln 'Call Number: ' Count
   Writeln
   ComWrite 'ATZ' CR
   WaitFor 'OK'
   ComWriteln 'ATTM0'
   WaitFor 'OK'
   Writeln

   Writeln '==> Calling the Bastard'

;   ComWriteln 'ATDR 82,1-713-784-7844,,'
   ComWriteln 'ATDR 9,1-800-246-6850,,,,,,'
;   ComWriteln 'ATDR 9,866-1222'
   WaitFor 'NO CARRIER'
until false


Procedure CharLoop
   if KbdReady then exitmenu
   if ComCharReady
      Write ComReadChar
   endif
EndProc


Procedure WaitFor (St)
   ComLastLine = ''
   while ComLastLine <> St
      CharLoop
   endwhile
   Wait 20
EndProc