home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"[147]":FORI=1TO5:PRINT:NEXTI
- 2 PRINT" AUTODIAL.IMG PROLOGUE"
- 3 PRINT" BY JOHN FORKOSH -- 08/25/84"
- 4 PRINT
- 5 B1=56577:B2=56579:POKEB2,32:POKEB1,0
- 6 :
- 10 PRINT" 1) SET AUTOMODEM SWITCHES,"
- 11 PRINT" 2) PRESS ..."
- 12 PRINT" ... (O) ORIGINATE"
- 13 PRINT" ... (A) ANSWER"
- 14 PRINT" ... (X) LOAD FILE"
- 15 :
- 20 GETA$:IFA$=""THEN20
- 21 IFA$="A"THENPRINT:GOTO30
- 22 IFA$="O"THENPRINT:GOTO40
- 23 IFA$="X"THENPRINT:GOTO90
- 24 PRINT:GOTO11
- 25 :
- 30 PRINT" WAITING FOR RING ..."
- 31 B=PEEK(B1):B=BAND8:IFB<>0THEN31
- 32 PRINT" ... RING DETECTED"
- 33 GOTO90
- 34 :
- 40 INPUT" ENTER PHONE# ";A$
- 41 PRINT" DIALING ";
- 42 POKEB1,32:FORB=1TO1000:NEXTB
- 43 A=LEN(A$)
- 44 FORI=1TOA:I$=MID$(A$,I,1):PRINTI$;
- 45 N=VAL(I$):IFN=0THENN=10
- 46 GOSUB50:NEXTI:PRINT" COMPLETED"
- 47 GOTO90
- 48 :
- 50 FORI1=1TON:POKEB1,0:T=7
- 51 T=T-1:IFT>0THEN51
- 52 POKEB1,32:T=4
- 53 T=T-1:IFT>0THEN53
- 54 NEXTI1:T=70
- 55 T=T-1:IFT>0THEN55
- 56 RETURN
- 57 :
- 90 PRINT
- 91 PRINT" 3) ENTER NAME OF FILE"
- 92 PRINT" TO LOAD. (DON'T PRESS"
- 93 PRINT" RETURN UNTIL CARRIER"
- 94 INPUT" IS DETECTED.) ";F$
- 95 :
- 110 PRINT"[147]LOAD";CHR$(34);F$;CHR$(34);",8"
- 120 A$=CHR$(13)+"RUN"+CHR$(13)
- 130 FORI=1TOLEN(A$)
- 140 POKE630+I,ASC(MID$(A$,I)):NEXTI
- 150 POKE198,I-1
- 160 NEW
-