10  REM  ; Wait Transfer
 20  REM  ; Written on 09/20/88 by -DC-
 30  REM 
 40 D$ =  CHR$ (4):F1$ = "/SIDER/DATA/WAIT.DATA"
 41 DI$ = "6219312"
 50  PRINT D$"PR#4": PRINT D$"IN#4"
 60  PRINT "ATZ": FOR A = 1 TO 1500: NEXT 
 65  PRINT "ATQ1": FOR A = 1 TO 500: NEXT 
 66  PRINT "ATE0": FOR A = 1 TO 500: NEXT 
 67  PRINT "AT&C1": FOR A = 1 TO 500: NEXT 
 70  PRINT "ATDT"DI$
 80  FOR Z = 1 TO 4000
 85  IF  PEEK (49353) = 20 THEN Z = 50000: NEXT : GOTO 110
 90  NEXT : GOTO 1000
 110  FOR A = 1 TO 9900: NEXT A
 120  PRINT "NET#0"
 130  FOR A = 1 TO 5000: NEXT 
 140  PRINT D$"OPEN"F1$",L150": PRINT D$"READ"F1$",R0"
 150  INPUT X: PRINT D$"CLOSE"
 160  FOR Z = 1 TO X: PRINT D$"OPEN"F1$",L150": PRINT D$"READ"F1$",R"Z
 170  INPUT SB$,A$,SY$,DT$: PRINT D$"CLOSE"
 180  GET A$
 190  IF A$ <  > ">" THEN 1000
 200  PRINT SB$","A$","SY$","DT$
 210  FOR A = 1 TO 5000: NEXT A
 220  PRINT D$"OPEN/SIDER/DATA/WAIT"Z
 230  PRINT D$"READ/SIDER/DATA/WAIT"Z
 240  GET A$: IF A$ = "`" THEN 260
 250  PRINT A$;: GOTO 240
 260  PRINT D$"CLOSE": PRINT D$"DELETE/SIDER/DATA/WAIT"Z
 270  PRINT : PRINT ".S"
 280  FOR A = 1 TO 5000: NEXT A
 290  NEXT Z
 300  PRINT D$"DELETE"F1$
 310  PRINT "SN:DONE"
 320  FOR A = 1 TO 5000: NEXT 
 1000  PRINT "ATZ"
 1010  POKE 36864,99: PR# 7