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