OPEN "COM1:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB100,RB100" FOR RANDOM AS #1
CLS
PRINT "PRO2052 Scanner Program - Press any key to abort"
PRINT #1, "MD" ' get mode from scanner
FOR x = 1 TO 20000: NEXT x ' insert some delay. This for a 233 Mhz
WHILE LOC(1) = 0: WEND  'WAIT FOR DATA
r$ = INPUT$(LOC(1), #1) 'READ DATA
IF MID$(r$, 1, 4) = "MD00" THEN PRINT "Scanning" ELSE PRINT "Manual": END

DO
  WHILE LOC(1) = 0
    KB$ = INKEY$ ' STROBE KEYBOARD FOR KEYPRESS
    IF KB$ <> "" THEN CLOSE : PRINT "CLOSED": END
  WEND  'WAIT FOR DATA
       
  r$ = INPUT$(LOC(1), #1) 'READ DATA
  IF r$ = "+" THEN
    PRINT "RECEIVING"
    FOR x = 1 TO 10000: NEXT x
    PRINT #1, "MA" 'GET CURRENT CHANNEL STATUS
    FOR x = 1 TO 10000: NEXT x
  ELSEIF r$ = "-" THEN
    PRINT "Scanning"
  ELSE
    IF LEN(r$) > 1 THEN PRINT "CHAN "; MID$(r$, 3, 3); " Freq "; MID$(r$, 8, 4); "."; MID$(r$, 12, 4)
  END IF
LOOP