home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / spelling (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  93 lines
  1. 1 rem programmer: don ferguson
  2. 2 rem             901 hackney
  3. 3 rem             st.marys, ohio 45885
  4. 5 rem  words entered into data statements beginning with line 10000
  5. 6 rem  be sure to end data statements with *
  6. 7 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(12)"[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]":forz=1to500:next
  28. 396 fori=1 to 10
  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"[208]ress 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] [212][197][211][212][160][193][199][193][201][206]; [217]/[206]"
  51. 2000 rem: study word routine
  52. 2050 print"[147]"
  53. 2100 reada$
  54. 2200 print"";a$
  55. 2250 if a$="*"then goto261
  56. 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]"
  57. 2310 getl$:ifl$=""then goto2310
  58. 2312 print"[147]"
  59. 2400 (NULL) to 2100
  60. 2500 print"[147]":print"[208][207][201][206][212] [193][215][193][210][196][211]"
  61. 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]"
  62. 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]"
  63. 2530 print:::print"[208][210][197][211][211][160][193][206][217] [203][197][217][160][212][207][160][194][197][199][201][206]"
  64. 2540 get a$:ifa$=""then2540
  65. 2610 print"[147]":goto279
  66. 5000 rem  bell sound
  67. 5010 poke54296,15:poke54277,0:poke54278,247
  68. 5020 poke54276,17:poke54273,40:poke54272,0
  69. 5030 for t=1to500:next:poke54276,6
  70. 5040 print"[147]":forx=1to6:printtab(17)"[210][201][199][200][212]!":fory=1to80:next:print"[147]"
  71. 5050 forz=1to80:next:next:return
  72. 6000 rem buzzer
  73. 6010 poke54296,15:poke54277,45:poke54268,165
  74. 6020 poke54276,33:poke54273,6:poke54272,5
  75. 6030 fort=1to500:next:poke54276,32:poke54273,0:poke54272,0
  76. 6040 print"[147]":forx=1to6:printtab(17)"[215][210][207][206][199]!":fory=1to80:next:print"[147]"
  77. 6050 forz=1to80:next:next:return
  78. 10000 data accidentally,attendance,benefit,characteristic,deny,double,elaborate
  79. 10001 data misspell,*
  80. 10020 rem*******message routine*****
  81. 10050 if sum<75 then msg$="[217]ou need to study your words"
  82. 10051 if sum>75 and sum<84 then msg$="[208]retty good job"
  83. 10052 if sum>84 and sum<94 then msg$="[210]eal good"
  84. 10053 if sum>94 and sum<100 then msg$="[193]lmost perfect"
  85. 10054 if sum>99 thenmsg$="[208]erfect score!! [200]ooray!!!
  86. 10055 [153]"";msg$
  87. 10058 [153]:[153]:[153]"(NULL)(NULL)(NULL)(NULL)close(NULL)len(NULL)(NULL)valclose(NULL)atn(NULL)close";sum
  88. 10060 [153]:[153]:[153]"(NULL)ake test again? y/n"
  89. 10350 [161]z$:[139]z$[178]""[167] 10350
  90. 10400 [139] z$[178]"y" [167] 261
  91. 10500 [153]"load":[153]"(NULL)ee you later."
  92. 10600 [128]
  93.