home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SPELL-IT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  96 lines
  1. 1 REM PROGRAMMED BY DON FERGUSON
  2. 2 REM               901 HACKNEY
  3. 3 REM               ST. MARYS, OHIO
  4. 4 REM               45885
  5. 5 REM  WORDS ENTERED INTO DATA STATEMENTS BEGINNING WITH LINE 10000
  6. 6 REM PUBLIC DOMAIN PROGRAM
  7. 10 POKE53280,2:POKE53281,1:POKE53272,23
  8. 100 PRINT"[147]"
  9. 200 PRINT"        [144][211][208][159][197][156][204][204][158][201][206][199]"
  10. 225 FORI=1TO2000:NEXT:PRINT"[147]"
  11. 261 PRINT"[147]"
  12. 262 RESTORE
  13. 265 REM: MENU ROUTINE
  14. 267 PRINT"[211][212][213][196][217][160][215][207][210][196][211] (1)"
  15. 268 PRINT:PRINT" [212][193][203][197] [212][197][211][212] (2)"
  16. 270 GETCHOICE$:IFCHOICE$=""THEN GOTO 270
  17. 275 IF CHOICE$="1"THEN (null) TO 2000
  18. 276 IFCHOICE$="2" THEN GOTO2500
  19. 277 IFCHOICE$<>"1"ANDCHOICE$<>"2"THENGOTO270
  20. 279 PRINT"[147]"
  21. 280 PRINT"[147]":PRINTTAB(17)"[212][197][211][212] [194][197][199][201][206][211]"
  22. 281 FOR X=1TO2500:NEXT
  23. 290 SUM=0
  24. 300 READ A$
  25. 310 COUNT=0
  26. 350 IF A$="*"THEN GOTO 10050
  27. 395 PRINT"[147]"
  28. 396 FORI=1 TO 20
  29. 397 PRINT"";A$
  30. 398 PRINT"[147]"
  31. 400 NEXT
  32. 500 PRINT"[147]":FORI=1TO 300:NEXT
  33. 610 INPUT "[195][207][210][210][197][195][212][160][211][208][197][204][204][201][206][199]";B$
  34. 650 COUNT=COUNT+1
  35. 700 IF B$=A$ THEN SUM=SUM+5:GOSUB5000:GOTO300
  36. 705 IF B$<>A$THENGOSUB 6000
  37. 710 SUM=SUM-1
  38. 750 IF COUNT=3 THEN 950
  39. 800 GOTO 395
  40. 925 PRINT"[147]"
  41. 930 GOTO261
  42. 940 PRINT"[147]"
  43. 950 PRINT "[195][207][210][210][197][195][212][160][211][208][197][204][204][201][206][199][160][201][211]: "A$
  44. 955 INPUT"[212][217][208][197][160][195][207][210][210][197][195][212][160][215][207][210][196]:";B$
  45. 956 IF B$<>A$THEN GOTO940
  46. 960 PRINT"PRESS ANY KEY TO CONTINUE"
  47. 980 GET Q$:IFQ$=""THEN GOTO980
  48. 990 PRINT"[147]"
  49. 1000 GOTO300
  50. 1200 PRINT"[212][193][203][197]     
  51. 49568 [199][193][201][206]; [217]/[206]"
  52. 2000 REM: STUDY WORD ROUTINE
  53. 2050 PRINT"[147]"
  54. 2100 READA$
  55. 2200 PRINT"";A$
  56. 2250 IF A$="*"THEN GOTO261
  57. 2300 PRINT:PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][206][197][216][212][160][215][207][210][196]"
  58. 2310 GETL$:IFL$=""THEN GOTO2310
  59. 2312 PRINT"[147]"
  60. 2400 (null) TO 2100
  61. 2500 PRINT"[147]":PRINT"[208][207][201][206][212] [193][215][193][210][196][211]"
  62. 2510 PRINT:PRINT:PRINT"[195][207][210][210][197][195][212][160][198][201][210][211][212][160][212][201][205][197] = +5[160][208][207][201][206][212][211]"
  63. 2520 PRINT:PRINT"[215][210][207][206][199][160][197][193][195][200][160][212][201][205][197][160]= -1 [208][207][201][206][212]"
  64. 2530 PRINT:::PRINT"[208][210][197][211][211][160][193][206][217] [203][197][217][160][212][207][160][194][197][199][201][206]"
  65. 2540 GET A$:IFA$=""THEN2540
  66. 2610 PRINT"[147]":GOTO279
  67. 5000 REM  BELL SOUND
  68. 5010 POKE54296,15:POKE54277,0:POKE54278,247
  69. 5020 POKE54276,17:POKE54273,40:POKE54272,0
  70. 5030 FOR T=1TO500:NEXT:POKE54276,6
  71. 5040 PRINT"[147]":FORX=1TO6:PRINTTAB(17)"[210][201][199][200][212]!":FORY=1TO80:NEXT:PRINT"[147]"
  72. 5050 FORZ=1TO80:NEXT:NEXT:RETURN
  73. 6000 REM BUZZER
  74. 6010 POKE54296,15:POKE54277,45:POKE54268,165
  75. 6020 POKE54276,33:POKE54273,6:POKE54272,5
  76. 6030 FORT=1TO500:NEXT:POKE54276,32:POKE54273,0:POKE54272,0
  77. 6040 PRINT"[147]":FORX=1TO6:PRINTTAB(17)"[215][210][207][206][199]!":FORY=1TO80:NEXT:PRINT"[147]"
  78. 6050 FORZ=1TO80:NEXT:NEXT:RETURN
  79. 10000 DATA ACCIDENTALLY,ATTENDANCE,BENEFIT,CHARACTERISTIC,DENY,DOUBLE,ELABORATE
  80. 10001 DATA FICTITIOUS,GRACIOUS,HINDRANCE,IMMEDIATELY,INDUSTRY,LIEUTENANT,MANUAL
  81. 10002 DATA MARVELOUS,"[206]EGROS",OBLIQUE,OCCURANCE,PARALLEL,RECEIPT,*
  82. 10020 REM*    
  83. 10794 MESSAGE ROUTINE*****
  84. 10050 IF SUM<75 THEN MSG$="YOU NEED TO STUDY YOUR WORDS"
  85. 10051 IF SUM>75 AND SUM<84 THEN MSG$="PRETTY GOOD JOB"
  86. 10052 IF SUM>84 AND SUM<94 THEN MSG$="REAL GOOD"
  87. 10053 IF SUM>94 AND SUM<100 THEN MSG$="ALMOST PERFECT"
  88. 10054 IF SUM>99 THENMSG$="PERFECT SCORE!! [200]OORAY!!!
  89. 10055 [153]"";MSG$
  90. 10058 [153]:[153]:[153]"(null)(null)(null)(null)CLOSE(null)LEN(null)(null)VALCLOSE(null)ATN(null)CLOSE";SUM
  91. 10060 [153]:[153]:[153]"TAKE TEST AGAIN? Y/N"
  92. 10350 [161]Z$:[139]Z$[178]""[167] 10350
  93. 10400 [139] Z$[178]"Y" [167] 261
  94. 10500 [153]"LOAD":[153]"SEE YOU LATER"
  95. 10600 [128]
  96.