home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / dial-a-word (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  972b  |  50 lines
  1. 5 REM DIAL-A-WORD/64
  2. 10 DIM A(7)
  3. 20 A$="ABCDEFGHIJKLMNOPQRSTUVWXY"
  4. 30 FOR I=1TO7
  5. 40 A(I)=0
  6. 50 NEXT I
  7. 60 NP=0
  8. 70 FL=0
  9. 79 REM-- GET TELEPHONE NUMBER--
  10. 80 PRINTCHR$(147);TAB(15);"DIAL-A-WORD"
  11. 90 PRINT
  12. 100 PRINT"PLEASE TYPE IN A 7 DIGIT PHONE NUMBER"
  13. 110 PRINT"(IN THIS FORM: 5558888);"
  14. 120 PRINT"THEN PRESS <RETURN>."
  15. 130 PRINT
  16. 140 INPUT "NUMBER";N$
  17. 149 REM --CHECK FOR ERRORS IN INPUT--
  18. 150 IF LEN(N$)<>7 THEN 80
  19. 160 FORI=1TO7
  20. 170 IF MID$(N$,I,1)<"0"ORMID$(N$,I,1)>"9"THENFL=1
  21. 180 NEXTI
  22. 190 IFFL<>0THEN70
  23. 200 PRINTCHR$(147);
  24. 209 REM --PRINT CURRENT COMBINATION OF LETTERS--
  25. 210 FORI=1TO7
  26. 220 IFMID$(N$,I,1)<"2"THEN PRINT MID$(N$,I,1);:GOTO240
  27. 230 PRINTMID$(A$,VAL(MID$(N$,I,1))*3-5+A(I),1);
  28. 240 NEXTI
  29. 250 PRINT"";
  30. 260 NP=NP+1
  31. 270 IFNP<110 THEN350
  32. 279 REM--IF SCREEN FULL, PRINT MESSAGE--280 ?
  33. 290 PRINT"PRESS <C> TO CONTINUE, <Q> TO QUIT.";
  34. 299 REM--WAIT FOR KEY TO BE PRESSED--
  35. 300 GET K$
  36. 310 IFK$="Q"THEN END
  37. 320 IFK$<>"C" THEN300
  38. 330 NP=0
  39. 340 PRINTCHR$(147);
  40. 349 REM--PROODUCE NEXT COMBINAATION--
  41. 350 P=1
  42. 360 A(P)=A(P)+1
  43. 370 IF A(P)<3ANDMID$(N$,P,1)>"1"THEN210
  44. 380 A(P)=0
  45. 390 P=P+1
  46. 400 IFP<8THEN360
  47. 410 PRINT
  48. 420 PRINT"DONE!"
  49. 430 END
  50.