home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ELEM-ADD-SUB (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.3 KB  |  238 lines
  1. 10 REM BY VITO DEVENERE  SPOKANE WASHINGTON
  2. 50 S$=""
  3. 55 R=48
  4. 56 F=48
  5. 57 W=48
  6. 58 V=48
  7. 100 GOSUB1110
  8. 101 GOSUB6000:GOSUB10000
  9. 102 GOSUB 6020
  10. 1100 END
  11. 1110 REM**ALPHABET**
  12. 1120 DIMA$(57)
  13. 1130 A$(1)="   [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
  14. 1140 A$(2)="  [223][157][157][157]  [157][157][157] [146][183] [146][157][157][157][183][183][183][145][145][145]"
  15. 1150 A$(3)="   [157][157][157] [157] [157][146][183][183][183][145][145][145]"
  16. 1160 A$(4)="  [223][157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  17. 1170 A$(5)="   [157][157][157] [157] [146][183][157][157][146][183][183][183][145][145][145]"
  18. 1180 A$(6)="   [157][157][157] [157] [146][183][157][157][146][183][145][145][145]"
  19. 1190 A$(7)="   [157][157][157] [157]  [157][157][157][146][183][183][183][145][145][145]"
  20. 1200 A$(8)="  [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
  21. 1210 A$(9)=" [157] [157] [157][146][183][145][145][145]"
  22. 1220 A$(10)=" [157] [157][157][157][184] [157][157][157][146][183][183][183][145][145][145]"
  23. 1230 A$(11)="  [157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
  24. 1240 A$(12)=" [157] [157] [157][146][183][183][183][145][145][145]"
  25. 1250 A$(13)=" [223][169] [157][157][157][157] [146][223][169] [157][157][157][157]  [157][157][157][157][157][146][183]  [183][145][145][145]"
  26. 1260 A$(14)=" [223] [157][157][157] [146][223] [157][157][157]  [157][157][157][157][146][183] [183][145][145][145]"
  27. 1270 A$(15)="   [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  28. 1280 A$(16)="  [223][157][157][157]  [157][157][157] [146][183][183][157][157][157][183][145][145][145]"
  29. 1290 A$(17)="   [157][157][157]  [157][157][157] [146][172] [146][157][157][157][183][183][183][190][145][145][145]"
  30. 1300 A$(18)="  [223][157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
  31. 1310 A$(19)="   [157][157][157] [157][146][183][183] [146][157][157][157][183][183][183][145][145][145]"
  32. 1320 A$(20)="   [157][157] [157] [157][146][183][145][145][145]"
  33. 1330 A$(21)="  [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  34. 1340 A$(22)="  [157][157][157]  [157][157][157][146][223][164][169][157][157][157] [183][145][145][145]"
  35. 1350 A$(23)="  [157][157][157][157] [169][223] [157][157][157][157] [146][169][223] [157][157][157][157][157][146][183]  [183][145][145][145]"
  36. 1360 A$(24)="  [157][157][157][187][184][172][157][157][157]  [157][157][157][146][183][183][145][145][145]"
  37. 1370 A$(25)="  [157][157][157]  [157][157][157][146][183] [146][183][157][157][183] [145][145][145]"
  38. 1380 A$(26)="   [157][157][169][146][169][157][157][157][169][146][169][186][157][157][157][183][183][183][145][145][145]"
  39. 1390 A$(32)=""
  40. 1400 A$(33)=" [157] [157][146][162][157][183][145][145][145]"
  41. 1405 A$(37)=" [146] [169] [146][169][157][157][157][157][169] [146][169][157][157][157][157][169] [146][169]  [146]":PRINTA$
  42. 1407 A$(43)="  [146] [157][157][157]   [146][157][157][157]  [146] "
  43. 1410 A$(45)="[162][162][162][145]"
  44. 1420 A$(48)=" [175] [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  45. 1430 A$(49)="[172] [157] [157] [157][146][183][145][145][145]"
  46. 1440 A$(50)="[175][185] [157][157][169][146][169][157][157][157][169][146][169][157][157][183][183][183][145][145][145]"
  47. 1450 A$(51)="[175][185] [157][157][146][172] [157][157][157][146][185] [146][157][157][157][183][183][183][145][145][145]"
  48. 1460 A$(52)="[169] [157][157][157][169][146][169] [157][157][157][162][162] [146][190][157][157][183][145][145][145]"
  49. 1470 A$(53)=" [175][175][157][157][157] [146][162][162][157][157][157][175]  [146][157][157][157][183][183][183][145][145][145]"
  50. 1480 A$(54)=" [175][175][157][157][157] [146][162][162][157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  51. 1490 A$(55)="[175][175] [157][157][169][146][169][157][157] [146][157][183][145][145][145]"
  52. 1500 A$(56)=" [175] [157][157][157] [146][162] [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  53. 1510 A$(57)=" [175] [157][157][157] [146][162] [157] [146][157][183][145][145][145]"
  54. 1520 RETURN
  55. 1530 FORI=1TOLEN(G$):GOSUB 2000:G=ASC(MID$(G$,I,1)):IFG>64THENG=G-64
  56. 1540 PRINTA$(G);:NEXT:PRINT"":RETURN
  57. 2000 POKE 53281,15
  58. 2010 CO=INT(RND(0)*14)+1
  59. 2011 IFCO=3 THEN CO=0
  60. 2015 POKE 646,CO
  61. 2020 RETURN
  62. 3000 PRINT"[147]"
  63. 3010 POKE53280,1:POKE53281,1
  64. 3020 Y=INT(RND(1)*(58-48))+48
  65. 3022 IF Y<Z THEN 3010
  66. 3030 Z=INT(RND(1)*(58-48))+48
  67. 3032 IF Y<Z THEN 3010
  68. 3040 PRINTTAB(6)A$(Y)S$
  69. 3050 PRINTTAB(1)A$(45)" "A$(Z)
  70. 3052 PRINTTAB(6)"[144]"A$(45)
  71. 3053 A=Y-Z
  72. 3060 Y=INT(RND(1)*(58-48))+48
  73. 3070 Z=INT(RND(1)*(58-48))+48
  74. 3075 IF Y<Z THEN 3060
  75. 3082 PRINT"[145][145][145][145][145][145][145][145][145]"
  76. 3093 FOR J=1TO200:NEXTJ
  77. 3095 PRINTTAB(17)A$(Y)S$
  78. 3097 PRINTTAB(12)A$(45)" "A$(Z)
  79. 3098 PRINTTAB(17)"[144]"A$(45)
  80. 3099 B=Y-Z
  81. 3100 Y=INT(RND(1)*(58-48))+48
  82. 3110 Z=INT(RND(1)*(58-48))+48
  83. 3120 IF Y<Z THEN 3100
  84. 3123 FOR J=1TO200:NEXTJ
  85. 3130 PRINT"[145][145][145][145][145][145][145][145][145][156]"
  86. 3150 PRINTTAB(28)A$(Y)S$
  87. 3160 PRINTTAB(23)A$(45)" "A$(Z)
  88. 3161 PRINTTAB(28)"[144]"A$(45)
  89. 3170 C=Y-Z
  90. 3180 PRINTTAB(7)"";:INPUTD
  91. 3185 IFD=A THEN GOSUB 8000
  92. 3186 IFD<>ATHEN GOSUB 8100
  93. 3187 IFD=ATHENPRINTTAB(6)"[145]"A$(A+48)
  94. 3188 IF D<>A THEN PRINT"[145][145][145][145]":GOTO3180
  95. 3190 PRINTTAB(18)"[145]";:INPUTE
  96. 3195 IFE=B THEN GOSUB 8000
  97. 3196 IFE<>B THEN GOSUB 8100
  98. 3197 IFE=BTHENPRINTTAB(17)"[145]"A$(B+48)
  99. 3198 IF E<>B THEN PRINT"[145]":GOTO3190
  100. 3200 PRINTTAB(29)"[145]";:INPUTF
  101. 3210 IFF=C THEN GOSUB 8000
  102. 3211 IFF<>CTHEN GOSUB 8100
  103. 3212 IFF=CTHENPRINTTAB(28)"[156][145]"A$(C+48)
  104. 3213 IFF<>CTHENPRINT"[145]":GOTO3200
  105. 4000 PRINT"[144]":FORJ=1TO10:PRINTA$(45);:NEXTJ
  106. 4001 PRINT"[145][145][145]"
  107. 4005 PRINTS$:G$="MORE-Y-N":GOSUB1530
  108. 4010 INPUTV$
  109. 4015 IF V$="Y"THEN GOTO 3000
  110. 4020 IF V$="N"THEN GOSUB6020
  111. 4025 RETURN
  112. 5000 PRINT"[147]"
  113. 5010 POKE53280,1:POKE53281,1
  114. 5020 Y=INT(RND(1)*(58-48))+48
  115. 5030 Z=INT(RND(1)*(58-48))+48
  116. 5032 IF Y+Z>105 THEN 5010
  117. 5040 PRINTTAB(6)A$(Y)S$
  118. 5050 PRINTTAB(1)A$(43)
  119. 5051 PRINTTAB(6)"[145][145][145]"A$(Z)
  120. 5052 PRINTTAB(6)"[144]"A$(45)
  121. 5053 A=Y+Z
  122. 5060 Y=INT(RND(1)*(58-48))+48
  123. 5070 Z=INT(RND(1)*(58-48))+48
  124. 5075 IF Y+Z>105 THEN 5060
  125. 5082 PRINT"[145][145][145][145][145][145][145][145][145]"
  126. 5093 FOR J=1TO200:NEXTJ
  127. 5095 PRINTTAB(17)A$(Y)S$
  128. 5097 PRINTTAB(12)A$(43):PRINTTAB(17)"[145][145][145]"A$(Z)
  129. 5098 PRINTTAB(17)"[144]"A$(45)
  130. 5099 B=Y+Z
  131. 5100 Y=INT(RND(1)*(58-48))+48
  132. 5110 Z=INT(RND(1)*(58-48))+48
  133. 5120 IF Y+Z>105 THEN 5100
  134. 5123 FOR J=1TO200:NEXTJ
  135. 5130 PRINT"[145][145][145][145][145][145][145][145][145][156]"
  136. 5150 PRINTTAB(28)A$(Y)S$
  137. 5160 PRINTTAB(23)A$(43)
  138. 5161 PRINTTAB(28)"[145][145][145]"A$(Z)
  139. 5162 PRINTTAB(28)"[144]"A$(45)
  140. 5170 C=Y+Z
  141. 5180 PRINTTAB(7)"";:INPUTD:D=D+96
  142. 5185 IFD=A THEN GOSUB8000
  143. 5186 IFD<>ATHEN GOSUB 8100
  144. 5187 IFD=A THENPRINTTAB(6)"[145]"A$(A-48)
  145. 5188 IFD<>A THEN PRINT"[145][145][145][145]":GOTO5180
  146. 5190 PRINTTAB(18)"[145]";:INPUTE:E=E+96
  147. 5195 IF E=B THEN GOSUB8000
  148. 5196 IF E<>BTHEN GOSUB8100
  149. 5197 IFE=BTHENPRINTTAB(17)"[145]"A$(B-48)
  150. 5198 IF E<>B THEN PRINT"[145]":GOTO5190
  151. 5200 PRINTTAB(29)"[145]";:INPUTF:F=F+96
  152. 5210 IFF=C THEN GOSUB 8000
  153. 5211 IFF<>CTHEN GOSUB 8100
  154. 5212 IFF=CTHENPRINTTAB(28)"[156][145]"A$(C-48)
  155. 5213 IFF<>CTHENPRINT"[145]":GOTO5200
  156. 5300 PRINT"[144]":FORJ=1TO10:PRINTA$(45);:NEXTJ
  157. 5301 PRINT"[145][145][145]"
  158. 5305 PRINTS$:G$="MORE-Y-N":GOSUB1530
  159. 5310 INPUTV$
  160. 5315 IF V$="Y"THEN GOTO 5325
  161. 5320 IF V$="N"THEN GOTO 6020
  162. 5325 GOTO 5000:RETURN
  163. 5999 RETURN
  164. 6000 PRINT"[147]":POKE53281,15:POKE53280,15
  165. 6010 PRINT"[144]WHAT IS YOUR NAME"
  166. 6011 PRINT"NO MORE THAN 9 LETTERS"
  167. 6012 INPUTNA$
  168. 6013 IFLEN(NA$)>=10 THEN PRINT"NAME TOO LONG"
  169. 6014 IFLEN(NA$)>=10 THEN GOTO 6012
  170. 6015 RETURN
  171. 6020 PRINT"[147]"TAB(10);
  172. 6030 G$="MENU":GOSUB1530:PRINT"[145][145][144]"
  173. 6040 FORJ=1TO10:PRINTA$(45);:NEXTJ
  174. 6041 PRINT""
  175. 6050 G$="1-ADDITON":GOSUB1530
  176. 6060 G$="2-SUBTRACT":GOSUB1530
  177. 6061 PRINT"[145][145]"
  178. 6063 G$="3-QUIT":GOSUB1530
  179. 6065 PRINT"[145][145][144]"
  180. 6070 FORJ=1TO10:PRINTA$(45);:NEXTJ
  181. 6075 PRINT""
  182. 6080 G$="1-2 OR 3":GOSUB1530
  183. 6092 PRINT"[145][145][145]"
  184. 6093 PRINTTAB(28)
  185. 6095 INPUTAN$
  186. 6096 IFAN$="1"THEN GOSUB 6600
  187. 6097 IFAN$="2"THEN GOSUB 6500
  188. 6098 IFAN$="3"THEN GOSUB 7000
  189. 6099 END
  190. 6500 GOSUB3000:RETURN
  191. 6600 GOSUB5000:GOSUB5300:RETURN
  192. 7000 PRINT"[147]"
  193. 7010 G$="THE END":GOSUB1530
  194. 7011 FOR J=1TO1200:NEXTJ
  195. 7015 PRINT"[144][145][145]"
  196. 7020 FORJ=1TO10:PRINTA$(45);:NEXTJ
  197. 7030 PRINT""
  198. 7060 G$="YOU HAD":GOSUB1530
  199. 7100 PRINTA$(V);
  200. 7200 PRINTA$(W);:G$="-WRONG":GOSUB1530
  201. 7210 PRINT"[144][145][145]"
  202. 7215 FOR J=1 TO 10:PRINTA$(45);:NEXTJ
  203. 7217 PRINT""
  204. 7220 G$="BYE":GOSUB1530
  205. 7230 G$=NA$:GOSUB1530
  206. 7231 G$="CHARLIE-II":GOSUB 1530
  207. 7232 GOTO 7232
  208. 7999 END
  209. 8000 R=R+1 :GOSUB9100
  210. 8001 IF R=58 THEN R=48
  211. 8010 IF R=48 THEN F=F+1
  212. 8020 RETURN
  213. 8100 W=W+1:GOSUB9000
  214. 8101 IF W=58 THEN W=48
  215. 8110 IF W=48 THEN V=V+1
  216. 8120 RETURN
  217. 9000 REM BUZZER
  218. 9005 POKE54296,15:POKE54277,45
  219. 9011 POKE54276,33:POKE54273,5
  220. 9014 FORT=1TO200:NEXT:POKE54276,32
  221. 9015 POKE54273,0:POKE54272,0
  222. 9020 RETURN
  223. 9100 REM BELL
  224. 9101 POKE54296,15:POKE54277,0:POKE54278,247
  225. 9102 POKE54276,17:POKE54273,40:POKE54272,0
  226. 9103 FORT=1TO100:NEXT
  227. 9104 POKE54276,16
  228. 9105 RETURN
  229. 10000 PRINT"[147]
  230. 10005 G$[178]NA$:[141]1530
  231. 10010 G$[178]"THIS IS A":[141]1530
  232. 10115 G$[178]"ST.":[141]1530
  233. 10120 G$[178]"PASCHAL'S":[141]1530
  234. 10125 G$[178]"SCHOOL":[141]1530
  235. 10130 G$[178]"MATH QUIZ":[141]1530
  236. 10150 [129]J[178]1[164]1500:[130]J
  237. 10160 [142]
  238.