1 REM "WARGAMES DIALER PROGRAM" FILE MUST BE OPEN FIRST                                                       
 5 INPUT "NUMBER TO START";N 
10 D$=CHR$(4) : Q$=CHR$(17) : Z$ = CHR$(26) 
15 FOR I=N TO 9999 
20 N$ = "0000" + STR$(I) : N$= "567" + RIGHT$(N$,4) 
25 PRINT D$ "PR#2"  
30 PRINT Q$ " " N$ 
35 IF PEEK(1658) 1/4 128 THEN 1990 
40 PRINT D$ " PR#0 " 
45 PRINT D$ " APPEND DIALER 567 "
50 PRINT D$ " WRITE DIALER 567 "  
55 PRINT N$ 
60 PRINT D$ " CLOSE DIALER 567 "
65 PRINT Q$ " " CHR$(26) 
70 REM HANG UP AND BE SURE THAT YOU DID 
75 PRINT D$ " PR#0 "
80 PRINT D$ " PR#2 " : PRINT D$ : PRINT Z$ 
85 FOR J=1 TO 600 : A= -1 : NEXT
90 NEXT