home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / R2DIVISION (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  25KB  |  999 lines
  1. 2 REM R2DIVISION BY R.KEAYS MAY1983
  2. 3 PRINTCHR$(5):REM TURN ON WHITE
  3. 4 POKE53280,5:REM GREEN BORDER
  4. 11 GOSUB45498:PRINT"R2DIVISION":GOSUB46100
  5. 12 FORD=1TO200:NEXTD:GOSUB48100:PRINT"[147]";
  6. 13 PRINT"[147]"
  7. 14 PRINT"   ------------MENU-----------":PRINT:PRINT
  8. 15 PRINT"   1. INSTRUCTIONS TO STUDENTS":PRINT
  9. 16 PRINT"   2. INSTRUCTIONS TO TEACHERS":PRINT
  10. 17 PRINT"   3. BEGIN PROGRAM.":PRINT
  11. 18 PRINT"   4. END THE PROGRAM.":PRINT:PRINT
  12. 19 PRINT"TYPE THE NUMBER OF YOUR CHOICE."
  13. 20 GETZ$:IFZ$=""THEN20
  14. 21 IFZ$<"1"ORZ$>"4"THEN19
  15. 22 ONVAL(Z$)GOTO15000,16000,30,9100
  16. 23 CP=0:REM*** POD COUNTER ***
  17. 24 :
  18. 25 SQ=0:REM*** CHOOSE SOUND ***
  19. 26 :
  20. 27 UN=0:REM*** THE UNIVERSE ***
  21. 28 :
  22. 30 GOSUB3770:REM*** R2D2 WALKS ***
  23. 50 PRINT"[147]";
  24. 70 GOSUB3350:REM** ESTABLISH PROBLEM **
  25. 72 GOSUB48005
  26. 76 PRINT"[147]"
  27. 77 GOSUB47000:REM*** R2D2 FRONT VIEW ***
  28. 80 PRINT"HERE'S THE STAR  FLEET.":GOSUB9840:GOSUB48000
  29. 110 GOSUB4770:REM*** PODS ***
  30. 112 :
  31. 115 GOSUB47000:REM*** R2D2 FRONT VIEW **
  32. 116 FORK=1TO1000:NEXTK
  33. 150 PRINT"HOW MANY POD COMMANDERS "
  34. 152 PRINT"WILL WE NEED?":GOSUB9840:GOSUB18000
  35. 153 INPUT"TYPE THE NUMBER";CO$
  36. 154 IFCO$<>"5"THEN190
  37. 155 PRINT"[147]":GOSUB47000
  38. 156 PRINT"THAT'S RIGHT ";NA$;"!":GOSUB9820:FORD=1TO2000
  39. 157 PRINT"":GOSUB18100:GOTO248
  40. 190 PRINT"[147]";:GOSUB4770
  41. 248 FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB50000
  42. 250 PRINT"[147]NOW LET'S TRY TO SOLVE THE PROBLEM      WITHOUT USING A PICTURE."
  43. 252 PRINT
  44. 270 PRINT"WE WRITE THE PROBLEM THIS WAY."
  45. 290 PRINT""
  46. 310 PRINT"       [164][164][164][164][164]"
  47. 330 PRINT"     31)155"
  48. 350 FORK=1TO5000:NEXTK
  49. 370 PRINT"        "
  50. 390 PRINT"        ^"
  51. 410 PRINT
  52. 430 PRINT"     THIS MEANS:"
  53. 450 PRINT
  54. 470 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO2000:NEXTK
  55. 474 PRINT"OR HOW MANY PODS OF 31 ARE IN 155 SHIPS?":FORK=1TO2000:NEXTK
  56. 476 GOSUB18000:REM *** FIDDLEPROOFING**
  57. 510 GOSUB48005:REM *** SPACE BAR ***
  58. 590 PRINT"[147]";:PRINT""
  59. 610 PRINT"       [164][164][164][164][164]"
  60. 630 PRINT"     31)155  "
  61. 650 PRINT:FORK=1TO2000:NEXTK:POKE1352,177
  62. 670 PRINT"NOW WE ASK:"
  63. 690 PRINT"HOW MANY GROUPS OF 31 ARE IN 1?":FORK=1TO200:NEXTK
  64. 710 PRINT""
  65. 720 GOSUB18000:REM***FIDDLEPROOFING***
  66. 730 FORK=1TO1000:NEXTK:PRINT""
  67. 731 INPUT"TYPE THE NUMBER";A
  68. 733 IFA<>0THENGOTO755
  69. 737 GOSUB47000
  70. 738 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  71. 740 GOTO830
  72. 755 GOSUB47000
  73. 760 PRINT"YOU CAN'T GET A GROUP OF 31 FROM 1.":GOSUB9840
  74. 764 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
  75. 830 PRINT"[147]"
  76. 850 PRINT"        "
  77. 870 PRINT"       [164][164][164][164][164]"
  78. 890 PRINT"     31)155"
  79. 910 FORK=1TO1000:NEXTK
  80. 930 PRINT"THERE ARE NO GROUPS 0F 31 IN 1.":FORK=1TO3000:NEXTK
  81. 950 PRINT"";TAB(7);0
  82. 970 PRINT"                                                   "
  83. 990 FORK=1TO1000:NEXTK:POKE1352,177:POKE1353,181
  84. 1010 PRINT"NOW WE ASK:":PRINT
  85. 1030 PRINT"HOW MANY GROUPS OF 31 ARE IN 15?"
  86. 1050 FORK=1TO1000:NEXTK:PRINT""
  87. 1070 PRINT""
  88. 1090 PRINT:FORK=1TO2000:NEXTK
  89. 1100 GOSUB18000:REM***FIDDLEPROOFING**
  90. 1110 INPUT"TYPE THE NUMBER";B
  91. 1112 IFB<>0THENGOTO1175
  92. 1116 GOSUB47000:REM** R2D2 FRONT VIEW **
  93. 1118 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  94. 1120 GOTO1190
  95. 1175 GOSUB47000
  96. 1177 PRINT" YOU CAN'T GET A GROUP OF 31 FROM 15.":GOSUB9840
  97. 1178 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
  98. 1190 PRINT"[147]":PRINT
  99. 1210 PRINT"";TAB(8);"0"
  100. 1230 PRINT"       [164][164][164][164][164]"
  101. 1250 PRINT"     31)155 "
  102. 1270 FORK=1TO1000:NEXTK
  103. 1290 PRINT"THERE ARE NO GROUPS OF 31 IN 15.":FORK=1TO6000:NEXTK
  104. 1310 PRINT"";TAB(8);"00"
  105. 1330 PRINT"                                                              "
  106. 1350 FORK=1TO1000:NEXTK
  107. 1370 PRINT"NOW WE ASK:":PRINT
  108. 1390 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO3000:NEXTK
  109. 1410 PRINT""
  110. 1450 PRINT""
  111. 1470 PRINT"HINT-FLASHING NUMBERS[146]"
  112. 1510 FORK=1TO1000:NEXTK
  113. 1515 GOSUB17600:REM** FLASHING NUMBER **
  114. 1520 GOSUB18000:REM***FIDDLEPROOFING**
  115. 1530 PRINT:INPUT"SO HOW MANY 31'S ARE IN 155";C
  116. 1534 IFC<>5THENGOTO1555
  117. 1540 GOSUB47000
  118. 1542 PRINT"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  119. 1544 GOTO1630
  120. 1555 GOSUB47000
  121. 1560 PRINT"SORRY ";NA$;".":GOSUB9840:PRINT
  122. 1565 PRINTTAB(6);"3 + 3 + 3 + 3 + 3 = 15":FORD=1TO3000:NEXTD:PRINT
  123. 1566 PRINT"THERE ARE FIVE 3'S IN 15.":GOSUB9840
  124. 1567 FORK=1TO3000:NEXTK:GOSUB18000
  125. 1568 GOSUB48005:REM*** SPACE BAR ***
  126. 1630 PRINT"[147]":PRINT
  127. 1650 PRINT"";TAB(8);"00"
  128. 1670 PRINT"       [164][164][164][164][164]"
  129. 1690 PRINT"     31)155":FORK=1TO2000:NEXTK
  130. 1710 PRINT"THERE ARE FIVE 3'S IN 15."
  131. 1730 PRINT" SO"
  132. 1750 PRINT" THERE ARE PROBABLY FIVE 31'S IN 155.":GOSUB18000:GOSUB48005
  133. 1760 GOSUB16100
  134. 1770 PRINT"";TAB(8);"00"
  135. 1790 PRINT"                                                                "
  136. 1810 PRINT"                                                                "
  137. 1812 FORFI=0TO6:REM** DROP A FIVE **
  138. 1813 POKE1034+(FI*40),53
  139. 1814 IFFI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO1816
  140. 1815 GOSUB9920:FORD=1TO300:NEXTD
  141. 1816 POKE1034+(FI*40),32:NEXTFI
  142. 1817 POKE1274,53
  143. 1830 FORK=1TO500:NEXTK
  144. 1850 PRINT""
  145. 1870 PRINT"NOW WE MULTIPLY 5*31 AND PUT "
  146. 1890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
  147. 1891 GOSUB17800:FORD=1TO1000:NEXTD:REM****** FLASHING ARROW *****
  148. 1899 :
  149. 1900 GOSUB18000:REM*** FIDDLEPROOFING *
  150. 1901 :
  151. 1910 GOSUB48005:REM*** SPACE BAR ***
  152. 1911 :
  153. 1990 PRINT"[147]":PRINT
  154. 2010 PRINT"";TAB(8);"005"
  155. 2030 PRINT"       [164][164][164][164][164]"
  156. 2050 PRINT"     31)155":FORK=1TO1000:NEXTK
  157. 2070 PRINT"5*31 IS 155.":FORK=1TO3000:NEXTK
  158. 2090 PRINT"";TAB(7);155
  159. 2110 PRINTTAB(8);"[163][163][163]"
  160. 2130 PRINT"                                                                   "
  161. 2150 FORK=1TO1000:NEXTK
  162. 2830 PRINT" SUBTRACT."
  163. 2850 FORK=1TO2000:NEXTK:GOSUB18000
  164. 2869 :
  165. 2870 GOSUB48005:REM*** SPACE BAR ***
  166. 2871 :
  167. 2950 PRINT"[147]":PRINT
  168. 2970 PRINT"";TAB(8);"005"
  169. 2990 PRINT"       [164][164][164][164][164]"
  170. 3010 PRINT"     31)155 "
  171. 3030 PRINTTAB(8);"155"
  172. 3050 PRINTTAB(8);"[163][163][163]"
  173. 3070 PRINTTAB(8);"000":FORD=1TO2000:NEXTD:PRINT:PRINT:PRINT:PRINT
  174. 3078 :
  175. 3080 GOSUB18100:REM*** 5 COMMANDERS ***
  176. 3082 :
  177. 3083 FORK=1TO500:NEXTK
  178. 3090 :
  179. 3091 REM***** COMMANDER LABEL ******
  180. 3092 GOSUB18200:FORD=1TO3000:NEXTD
  181. 3093 :
  182. 3095 PRINT"[147]":FORD=1TO100:NEXTD
  183. 3096 :
  184. 3310 PRINT"[147]RIGHT ON ";NA$;"!":GOSUB31200
  185. 3311 GOSUB48100:REM*** CANTINA BAND ***
  186. 3312 GOSUB31200
  187. 3320 PRINT"[147]"
  188. 3325 :
  189. 3330 GOTO7900:REM** TO DECISION LINE **
  190. 3335 :
  191. 3350 GOSUB47000
  192. 3494 PRINT:PRINT:PRINT
  193. 3545 PRINTTAB(13);"  I AM R2D2.":GOSUB9840:FORD=1TO1000:NEXTD
  194. 3550 PRINT"[145]                            ":GOSUB18000
  195. 3551 PRINT"WHAT IS YOUR NAME  ?":GOSUB9840:PRINT"[145]";TAB(23):INPUTNA$
  196. 3552 PRINT"[145]                             "
  197. 3553 PRINT"[145]THAT'S A FUNNY NAME.        ":GOSUB9820:FORD=1TO2000:NEXTD
  198. 3554 PRINT"[147]":REM**** STARSHIPS *****
  199. 3561 GOSUB20000
  200. 3564 GOSUB40000
  201. 3566 GOSUB42000
  202. 3567 GOSUB44000
  203. 3568 FORK=1TO100:NEXTK
  204. 3569 :
  205. 3570 GOSUB50000:REM** SCREEN BLANKING **
  206. 3572 :
  207. 3590 GOSUB47000:REM**** R2D2 ****
  208. 3591 :
  209. 3592 PRINT:PRINTTAB(10);"THAT WAS A STARSHIP!":GOSUB9820:FORD=1TO2000:NEXTD
  210. 3610 PRINT"[145]   I AM ABOUT TO LEAVE FOR THE GALAXY ":PRINT
  211. 3630 PRINT" DIVISO WITH A STAR FLEET OF 155 SHIPS.":PRINT
  212. 3640 PRINT" WE WILL FLY IN A POD FORMATION." :FORK=1TO2:GOSUB9840:NEXTK
  213. 3650 :
  214. 3651 GOSUB18000:REM** FIDDLEPROOFING **
  215. 3652 GOSUB48005:REM** SPACE BAR ****
  216. 3657 GOSUB33000:GOSUB5595
  217. 3665 GOSUB47000:REM*** R2D2 ***
  218. 3667 FORK=1TO1000:NEXTK
  219. 3670 PRINT:PRINT"     EACH POD IS TO HAVE 31 STARSHIPS.":PRINT
  220. 3690 PRINT"I NEED TO KNOW HOW MANY POD COMMANDERS ":PRINT
  221. 3710 PRINT"TO CALL UP. HELP ME FIGURE IT OUT.":GOSUB9840:FORK=1TO1200:NEXTK
  222. 3740 GOSUB18000
  223. 3750 RETURN
  224. 3760 :
  225. 3761 REM**** R2D2 WALKS ****
  226. 3770 PRINT"[147]"
  227. 3790 FORX=0TO15
  228. 3810 PRINT"[147]";TAB(X);"  [206][163][163][163][163][205]  "
  229. 3830 PRINTTAB(X);" [206]  [205] . [165] "
  230. 3850 PRINTTAB(X);"[206]    [205]  [165] "
  231. 3870 PRINTTAB(X);"[205]  [167] .[205][206]  "
  232. 3890 PRINTTAB(X);" [205] [167]  [206]   "
  233. 3910 PRINTTAB(X);"  [205][167] [206]    "
  234. 3930 PRINTTAB(X);"  [167][167][206]     "
  235. 3950 PRINTTAB(X);"  [167][167]      "
  236. 3970 PRINTTAB(X);"  [167] [205]     "
  237. 3990 PRINTTAB(X);"   [163][163]     "
  238. 4010 FORT=0TO100:NEXTT
  239. 4030 NEXTX
  240. 4050 RETURN
  241. 4768 :
  242. 4769 REM***** PODS *****
  243. 4770 PRINT"[147]"TAB(1);"POD1 "
  244. 4771 FORX=6TO36
  245. 4772 PRINT"[145]";TAB(X);"*":FORD=1TO100:NEXTD:NEXTX:PRINT
  246. 4790 FORK=1TO500:NEXTK
  247. 4810 PRINT"
  248. 4830 [153][163]1);"POD2 ******************************* ":[153]
  249. 4850 [129]K[178]1[164]500:[130]K
  250. 4870 [153]"
  251. 4890 PRINTTAB(1);"POD3 ******************************* ":PRINT
  252. 4910 FORK=1TO500:NEXTK
  253. 4930 PRINT"
  254. 4950 [153][163]1);"POD4 ******************************* ":[153]
  255. 4970 [129]K[178]1[164]500:[130]K
  256. 4990 [153]"
  257. 5189 PRINTTAB(1);"POD5 ******************************* ":FORK=1TO500:NEXTK
  258. 5190 PRINT
  259. 5191 CP=CP+1
  260. 5192 IFCP=2THENGOTO5200
  261. 5193 FORX=1TO31:REM HORIZONTAL COUNTER
  262. 5194 PRINT"[145]";TAB(X+4);X:FORK=1TO100:NEXTK
  263. 5196 NEXTX:GOSUB48000
  264. 5198 IFCP=1THEN5220
  265. 5200 PRINT"WE NEED FIVE POD COMMANDERS.":FORD=1TO2000:NEXTD:PRINT
  266. 5205 :
  267. 5210 GOSUB18100:RETURN
  268. 5220 GOSUB18000:GOSUB48000
  269. 5230 RETURN
  270. 5497 :
  271. 5498 REM****** STAR GENERATOR ******
  272. 5595 PRINT""
  273. 6000 PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164]
  274. 6010 [153]" THEN             (null)
  275. 6020 PRINT" [167]   DIVISO     [205]
  276. 6030 [153]" THEN 1 000 000 KM (null)
  277. 6040 PRINT" [167][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
  278. 6050 [153]"
  279. 6052 GOSUB48100:REM UP UP AND AWAY
  280. 6055 GOSUB51000:REM*** POD ACTION ***
  281. 6060 FORK=1TO2000:NEXT
  282. 6070 RETURN
  283. 7898 :
  284. 7899 :
  285. 7900 PRINT"[147]     CHOOSE A NUMBER.":PRINT:PRINT
  286. 7902 PRINT"  1. DO A REVIEW QUESTION.":PRINT
  287. 7904 PRINT"  2. DO A HARDER QUESTION.":PRINT
  288. 7906 PRINT"  3. DO A TEST QUESTION.":PRINT
  289. 7908 PRINT"  4. END THE PROGRAM."
  290. 7912 GETZ$:IFZ$=""THEN7912
  291. 7914 IFZ$<"1"ORZ$>"4"THEN7900
  292. 7916 ONVAL(Z$)GOTO9200,8000,8093,9100
  293. 7997 :
  294. 7998 :
  295. 7999 REM**** HARDER WORK BEGINS ****
  296. 8000 PRINT"[147]";:GOSUB47000
  297. 8002 PRINT:PRINT"SOMETIMES THE 'HINT' DOESN'T WORK.":GOSUB9820:PRINT
  298. 8004 PRINT" WATCH THIS.":FORD=1TO1000:NEXTD
  299. 8006 GOSUB18000:GOSUB48000
  300. 8010 PRINT"[147]"
  301. 8012 PRINT"        0
  302. 8014 [153]"       TOTOTOTOTO
  303. 8016 PRINT"     24)192
  304. 8018 [129]K[178]1[164]1000:[130]K
  305. 8020 [153]"LOAD"
  306. 8022 [153]"        00
  307. 8024 PRINT"       [164][164][164][164][164]
  308. 8026 [153]"     24)192
  309. 8029 FORK=1TO1000:NEXTK
  310. 8030 PRINT"NOW WE ASK:":PRINT
  311. 8032 PRINT"HOW MANY GROUPS OF 24 ARE IN 192?":FORK=1TO4000:NEXTK
  312. 8041 FORK=1TO1000:NEXTK:GOSUB17700:REM       ***** FLASHING NUMBER *****
  313. 8042 GOSUB18000:REM** FIDDLEPROOFING ***
  314. 8043 PRINT:INPUT"SO HOW MANY 24'S ARE IN 192";C
  315. 8044 IFC<>9THENGOTO8056
  316. 8048 GOSUB47000:REM R2D2 FRONT VIEW
  317. 8049 PRINT"THAT LOOKS LIKE THE CORRECT ANSWER......"
  318. 8050 PRINT"BUT LET'S SEE.": GOSUB9820:GOSUB18000:GOSUB48005:GOSUB16100
  319. 8051 REM** GET MORE ROOM ***
  320. 8052 GOSUB11630:GOTO58094
  321. 8056 GOSUB47000
  322. 8058 PRINT
  323. 8060 PRINTTAB(10);"2+2+2+2+2+2+2+2+2+1=19":FORD=1TO1000:NEXTD:PRINT
  324. 8080 PRINT"THERE ARE NINE 2'S IN 19.":GOSUB9840
  325. 8081 FORK=1TO1000:NEXTK:GOSUB18000
  326. 8082 GOSUB48005
  327. 8083 :
  328. 8084 GOSUB11630:REM*** GET MORE ROOM ***
  329. 8085 GOTO58094:REM HARDER TEST QUESTION
  330. 8086 :
  331. 8092 :
  332. 8093 REM: EASY TEST QUESTION BEGINS
  333. 8094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
  334. 8095 PRINTTAB(9);"83)249"
  335. 8096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE  OF PAPER.":PRINT
  336. 8097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
  337. 8098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
  338. 8100 GETM$
  339. 8105 IFM$=""THEN8100
  340. 8106 M=ASC(M$)
  341. 8107 IFM<>160ANDM<>32THEN8100
  342. 9003 PRINT"[147]"
  343. 9004 PRINT"           [164][164][164][164][164]
  344. 9005 [153]"         83)249
  345. 9006 FORK=1TO2000:NEXTK
  346. 9010 PRINT"[147]"
  347. 9012 PRINT"            0
  348. 9014 [153]"           TOTOTOTOTO
  349. 9016 PRINT"         83)249
  350. 9018 [129]K[178]1[164]1000:[130]K
  351. 9020 [153]"LOAD"
  352. 9022 [153]"            00
  353. 9024 PRINT"           [164][164][164][164][164]
  354. 9026 [153]"         83)249
  355. 9028 FORK=1TO1000:NEXTK
  356. 9030 PRINT"[147]"
  357. 9032 PRINT"            003
  358. 9034 [153]"           TOTOTOTOTO
  359. 9036 PRINT"         83)249
  360. 9038 [129]K[178]1[164]1000:[130]K
  361. 9040 [153]"LOAD"
  362. 9042 [153]"            003
  363. 9044 PRINT"           [164][164][164][164][164]
  364. 9046 [153]"         83)249
  365. 9048 PRINT"            249
  366. 9050 [129]K[178]1[164]1000:[130]K
  367. 9060 [153]"LOAD"
  368. 9062 [153]"            003
  369. 9064 PRINT"           [164][164][164][164][164]
  370. 9066 [153]"         83)249
  371. 9068 PRINT"            249
  372. 9070 [153]"            TAB(TAB(TAB(
  373. 9080 FORK=1TO1000:NEXTK
  374. 9082 PRINT"[147]"
  375. 9084 PRINT"            003
  376. 9086 [153]"           TOTOTOTOTO
  377. 9088 PRINT"         83)249
  378. 9089 [153]"            249
  379. 9090 PRINT"            [163][163][163]
  380. 9092 [153]"            000
  381. 9094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:REM**** WIPEOUT ****
  382. 9095 GOSUB3770:GOSUB47000:REM R2D2 TALK
  383. 9096 PRINT"SO LONG ";NA$;"."
  384. 9097 GOSUB9840:RESTORE:FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB45498
  385. 9098 GOSUB48100:REM*** STAR WAR THEME
  386. 9099 PRINT"[147]":GOSUB9600
  387. 9100 PRINT"[147]";:END
  388. 9101 :
  389. 9102 REM**** REVIEW QUESTION *****
  390. 9200 PRINT"[147]";:PRINT""
  391. 9202 PRINT"       [164][164][164][164][164]"
  392. 9204 PRINT"     41)246  "
  393. 9206 PRINT:FORK=1TO2000:NEXTK:POKE1352,178
  394. 9208 PRINT"NOW WE ASK:"
  395. 9210 PRINT"HOW MANY GROUPS OF 41 ARE IN 2?":FORK=1TO200:NEXTK
  396. 9212 PRINT""
  397. 9214 FORK=1TO1000:NEXTK:PRINT"":GOSUB18000
  398. 9216 INPUT"TYPE THE NUMBER";A
  399. 9218 IFA<>0THEN9230
  400. 9222 GOSUB47000
  401. 9224 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORD=1TO1000:NEXTD
  402. 9226 GOTO9236
  403. 9230 GOSUB47000
  404. 9232 PRINT"YOU CAN'T GET A GROUP OF 41 FROM 2.":GOSUB9840
  405. 9233 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
  406. 9236 PRINT"[147]"
  407. 9240 PRINT"        "
  408. 9242 PRINT"       [164][164][164][164][164]"
  409. 9244 PRINT"     41)246"
  410. 9246 FORK=1TO1000:NEXTK
  411. 9248 PRINT"THERE ARE NO GROUPS 0F 41 IN 2.":FORK=1TO3000:NEXTK
  412. 9250 PRINT"";TAB(7);0
  413. 9252 PRINT"                                                   "
  414. 9254 FORK=1TO2000:NEXTK:POKE1352,178:POKE1353,180
  415. 9256 PRINT"NOW WE ASK:":PRINT
  416. 9258 PRINT"HOW MANY GROUPS OF 41 ARE IN 24?"
  417. 9260 FORK=1TO1000:NEXTK:PRINT""
  418. 9262 PRINT""
  419. 9264 PRINT:FORK=1TO1000:NEXTK:GOSUB18000
  420. 9266 INPUT"TYPE THE NUMBER";B
  421. 9268 IFB<>0THEN9280
  422. 9272 GOSUB47000
  423. 9274 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":FORK=1TO500:NEXTK:GOSUB9820
  424. 9276 GOTO9283
  425. 9280 GOSUB47000
  426. 9282 PRINT" YOU CAN'T GET A GROUP OF 41 FROM 24.":GOSUB9840
  427. 9283 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
  428. 9286 PRINT"[147]":PRINT
  429. 9288 PRINT"";TAB(8);"0"
  430. 9290 PRINT"       [164][164][164][164][164]"
  431. 9292 PRINT"     41)246 "
  432. 9294 FORK=1TO2000:NEXTK
  433. 9296 PRINT"THERE ARE NO GROUPS OF 41 IN 24.":FORK=1TO6000:NEXTK
  434. 9298 PRINT"";TAB(8);"00"
  435. 9300 PRINT"                                                              "
  436. 9304 FORK=1TO3000:NEXTK
  437. 9306 PRINT"NOW WE ASK:":PRINT
  438. 9308 PRINT"HOW MANY GROUPS OF 41 ARE IN 246?":FORK=1TO3000:NEXTK
  439. 9310 PRINT""
  440. 9314 PRINT""
  441. 9318 PRINT"HINT-FLASHING NUMBERS[146]"
  442. 9321 FORK=1TO1000:NEXTK
  443. 9322 GOSUB17500:REM*** FLASHING NUMBER
  444. 9323 GOSUB18000:REM*** FIDDLEPROOFING
  445. 9325 PRINT:INPUT"SO HOW MANY 41'S ARE IN 246";C
  446. 9328 IFC=6THENGOTO9354
  447. 9338 GOSUB47000
  448. 9340 PRINTTAB(12);"SORRY ";NA$;".":GOSUB9840:PRINT
  449. 9342 PRINTTAB(6);"4 + 4 + 4 + 4 + 4 + 4 = 24":FORD=1TO1000:NEXTD:PRINT
  450. 9343 PRINT"THERE ARE SIX 4'S IN 24.":GOSUB9840
  451. 9344 FORK=1TO1000:NEXTK:GOSUB18000:GOSUB48005
  452. 9354 PRINT"[147]":PRINT
  453. 9356 PRINT"";TAB(8);"00"
  454. 9358 PRINT"       [164][164][164][164][164]"
  455. 9360 PRINT"     41)246":FORK=1TO2000:NEXTK
  456. 9362 PRINT"THERE ARE SIX 4'S IN 24."
  457. 9364 PRINT" SO"
  458. 9368 PRINT" THERE ARE PROBABLY SIX 41'S IN 246.":GOSUB18000:GOSUB48005
  459. 9369 GOSUB16100
  460. 9370 PRINT"";TAB(8);"00"
  461. 9372 PRINT"                                                                "
  462. 9373 PRINT"                                                                  "
  463. 9374 FORSI=0TO6:REM*** DROP IN A SIX **
  464. 9375 POKE1034+(SI*40),54
  465. 9376 IFSI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO9378
  466. 9377 GOSUB9920:FORD=1TO300:NEXTD
  467. 9378 POKE1034+(SI*40),32:NEXTSI
  468. 9379 POKE1274,54:FORD=1TO500:NEXTD
  469. 9380 PRINT""
  470. 9381 PRINT"NOW WE MULTIPLY 6*41 AND PUT "
  471. 9382 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
  472. 9383 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000:REM*** FIDDLEPROOFING ***
  473. 9384 GOSUB48005:REM*** SPACE BAR ***
  474. 9392 PRINT"[147]":PRINT
  475. 9394 PRINT"";TAB(8);"006"
  476. 9396 PRINT"       [164][164][164][164][164]"
  477. 9398 PRINT"     41)246":FORK=1TO1000:NEXTK
  478. 9400 PRINT"6*41 IS 246.":FORK=1TO3000:NEXTK
  479. 9402 PRINT"";TAB(8);"246"
  480. 9404 PRINTTAB(8);"[163][163][163]"
  481. 9406 PRINT"                                                                "
  482. 9408 FORK=1TO1000:NEXTK
  483. 9410 PRINT" SUBTRACT."
  484. 9412 FORK=1TO1000:NEXTK:GOSUB18000
  485. 9414 GOSUB48005:REM*** SPACE BAR ***
  486. 9422 PRINT"[147]":PRINT
  487. 9424 PRINT"";TAB(8);"006"
  488. 9426 PRINT"       [164][164][164][164][164]"
  489. 9428 PRINT"     41)246 "
  490. 9430 PRINTTAB(8);"246"
  491. 9432 PRINTTAB(8);"[163][163][163]"
  492. 9434 PRINTTAB(8);"000"
  493. 9440 FORK=1TO2000:NEXTK
  494. 9450 GOSUB9600:REM*** WIPEOUT ***
  495. 9478 GOTO7900
  496. 9479 :
  497. 9599 :
  498. 9600 S=1184:F=1184+35:REM*** WIPEOUT **
  499. 9610 FORX=STOF
  500. 9620 POKEX,45
  501. 9630 NEXTX
  502. 9640 FORX=STOF
  503. 9650 POKEX,32
  504. 9660 NEXTX
  505. 9670 S=S+41:F=F+39
  506. 9680 IFS<FTHEN9610
  507. 9690 RETURN
  508. 9799 :
  509. 9819 :
  510. 9820 REM***** R2D2 SHORT TALK HI ****
  511. 9821 S=54272:DR=16
  512. 9822 FORL=STOS+24:POKEL,0:NEXT
  513. 9823 POKES+5,9:POKES+6,0
  514. 9824 POKES+24,5
  515. 9825 FORK=1TO10
  516. 9827 POKES+1,34:POKES,75
  517. 9828 POKES+4,33
  518. 9829 FORT=1TODR:NEXT
  519. 9830 POKES+4,32:FORT=1TO50:NEXT
  520. 9831 POKES+1,43:POKES,52
  521. 9832 POKES+4,33
  522. 9833 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
  523. 9834 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
  524. 9835 POKES+24,0
  525. 9836 RETURN
  526. 9837 :
  527. 9839 :
  528. 9840 REM***** R2D2 SHORT TALK LOW ****
  529. 9842 S=54272:DR=16
  530. 9843 FORL=STOS+24:POKEL,0:NEXT
  531. 9844 POKES+5,9:POKES+6,0
  532. 9845 POKES+24,5
  533. 9846 FORK=1TO10
  534. 9847 POKES+1,17:POKES,37
  535. 9848 POKES+4,33
  536. 9849 FORT=1TODR:NEXT
  537. 9850 POKES+4,32:FORT=1TO50:NEXT
  538. 9851 POKES+1,21:POKES,154
  539. 9852 POKES+4,33
  540. 9853 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
  541. 9854 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
  542. 9855 POKES+24,0
  543. 9856 RETURN
  544. 9857 :
  545. 9919 REM*** DROPPING TONES ***
  546. 9920 S=54272:DP=0:DR=64
  547. 9921 FORL=STOS+24:POKEL,0:NEXT
  548. 9922 POKES+5,9:POKES+6,0:REM ADSR
  549. 9923 POKES+24,5:REM SET VOLUME
  550. 9924 DP=DP+1:ONDPGOTO9925,9926,9927,9928,9929,9930,9931
  551. 9925 POKES+1,28:POKES,214:GOTO9935
  552. 9926 POKES+1,25:POKES,177:GOTO9935
  553. 9927 POKES+1,22:POKES,227:GOTO9935
  554. 9928 POKES+1,21:POKES,154:GOTO9935
  555. 9929 POKES+1,19:POKES,63:GOTO9935
  556. 9930 POKES+1,17:POKES,37:GOTO9935
  557. 9931 POKES+1,15:POKES,70:GOTO9935
  558. 9935 POKES+4,33:REM GATE SAWTOOTH WAVEFORM
  559. 9937 FORT=1TODR:NEXTT
  560. 9940 POKES+4,32:FORT=1TO50:NEXTT:REM      RELEASE S W
  561. 9942 IFDP<7THENRETURN
  562. 9944 POKES+24,0:REM TURN OFF VOLUME
  563. 9945 RETURN
  564. 11627 :
  565. 11628 REM**** CONTINUE HARDER WORK ****
  566. 11629 :
  567. 11630 PRINT"[147]":PRINT
  568. 11650 PRINT"";TAB(8);"00"
  569. 11670 PRINT"       [164][164][164][164][164]"
  570. 11690 PRINT"     24)192":FORK=1TO2000:NEXTK
  571. 11710 PRINT"THERE ARE NINE 2'S IN 19."
  572. 11730 PRINT" SO"
  573. 11750 PRINT" THERE ARE PROBABLY NINE 24'S IN 192.":GOSUB18000:GOSUB48005
  574. 11760 GOSUB16100
  575. 11770 PRINT"";TAB(8);"00"
  576. 11790 PRINT"                                                                "
  577. 11810 PRINT"                                                                 "
  578. 11812 FORNI=0TO6:REM*** DROP IN A NINE
  579. 11813 POKE1034+(NI*40),57
  580. 11814 IFNI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO11816
  581. 11815 GOSUB9920:FORD=1TO300:NEXTD
  582. 11816 POKE1034+(NI*40),32:NEXTNI
  583. 11819 POKE1274,57
  584. 11830 FORK=1TO500:NEXTK
  585. 11850 PRINT""
  586. 11870 PRINT"NOW WE MULTIPLY 9*24 AND PUT "
  587. 11890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
  588. 11900 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000
  589. 11910 GOSUB48005
  590. 11990 PRINT"[147]":PRINT
  591. 12010 PRINT"";TAB(8);"009"
  592. 12030 PRINT"       [164][164][164][164][164]"
  593. 12050 PRINT"     24)192":FORK=1TO1000:NEXTK
  594. 12070 PRINT"9*24 IS 216.":FORK=1TO4000:NEXTK
  595. 12090 PRINT"";TAB(7);216
  596. 12110 PRINTTAB(8);"[163][163][163] "
  597. 12130 PRINT"                                                              "
  598. 12150 FORK=1TO2000:NEXTK
  599. 12170 PRINT"WE SEE THAT 216 CAN'T BE SUBTRACTED "
  600. 12190 PRINT"   SO WE WILL TRY A SMALLER NUMBER.":FORD=1TO4500:NEXTD
  601. 12194 GOSUB47300:FORD=1TO2000:NEXTD:GOSUB18000
  602. 12195 PRINT:INPUT"WHAT NUMBER SHOULD WE TRY";NU
  603. 12196 IFNU<>8THENPRINT"THE NUMBER TO TRY IS 8.":GOSUB48000
  604. 12430 PRINT"[147]";TAB(8);"00"
  605. 12450 PRINT"       [164][164][164][164][164]"
  606. 12470 PRINT"     24)192":FORD=1TO1000:NEXTD
  607. 12472 FOREI=0TO6:REM DROP IN AN 8
  608. 12473 POKE1034+(EI*40),56
  609. 12474 IFEI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO12476
  610. 12475 GOSUB9920:FORD=1TO300:NEXTD
  611. 12476 POKE1034+(EI*40),32:NEXTEI
  612. 12477 POKE1274,56:FORD=1TO500:NEXTD
  613. 12490 PRINT"NOW WE MULTIPLY 8*24 AND PUT THE "
  614. 12510 PRINT"PRODUCT IN THE CORRECT PLACE.":FORD=1TO2000:NEXTD
  615. 12520 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000
  616. 12530 GOSUB48005:REM*** SPACE BAR ***
  617. 12630 PRINT"[147]";TAB(8);"008"
  618. 12650 PRINT"       [164][164][164][164][164]"
  619. 12670 PRINT"     24)192"
  620. 12690 FORD=1TO1000:NEXTD
  621. 12710 PRINT"8*24 IS 192."
  622. 12730 FORD=1TO3000:NEXTD
  623. 12750 PRINT"";TAB(8);"192"
  624. 12770 PRINT"                                                            "
  625. 12790 FORD=1TO1000:NEXTD
  626. 12810 PRINT"";TAB(8);"[163][163][163]":FORD=1TO2000:NEXTD
  627. 12830 PRINT" SUBTRACT."
  628. 12850 FORK=1TO1000:NEXTK:GOSUB18000
  629. 12870 GOSUB48005:REM*** SPACE BAR ***
  630. 12950 PRINT"[147]":PRINT
  631. 12970 PRINT"";TAB(8);"008"
  632. 12990 PRINT"       [164][164][164][164][164]"
  633. 13010 PRINT"     24)192 "
  634. 13030 PRINTTAB(8);"192"
  635. 13050 PRINTTAB(8);"[163][163][163]"
  636. 13070 PRINTTAB(8);"000"
  637. 13090 FORK=1TO3000:NEXTK
  638. 13095 GOSUB9600:REM**** WIPEOUT ****
  639. 13096 RETURN:REM*** TO LINE 8052 ***
  640. 14997 :
  641. 14998 :
  642. 14999 REM**** STUDENT INSTRUCTIONS ****
  643. 15000 PRINT"[147]":PRINT:PRINT
  644. 15005 PRINT"  HERE ARE TWO THINGS TO REMEMBER "
  645. 15010 PRINT"  WHEN YOU WORK ON THIS PROGRAM.":PRINT:PRINT
  646. 15015 FORD=1TO3000:NEXTD
  647. 15020 PRINT"  FIRST[146] WHEN YOU SEE THE FLASHING "
  648. 15025 PRINT"  SQUARE YOU ARE TO TYPE IN SOME- "
  649. 15030 PRINT"  THING.THEN PRESS THE RETURN[146] KEY.":FORD=1TO8000:NEXTD
  650. 15035 PRINT:PRINT"  SECOND[146] THE LONG BAR ON THE KEY-"
  651. 15040 PRINT"  BOARD IS THE SPACE BAR[146].PRESS IT "
  652. 15042 PRINT"  ONLY WHEN I TELL YOU.":FORD=1TO4000:NEXTD:GOSUB18000
  653. 15043 PRINT"LIKE RIGHT NOW!"
  654. 15046 GOSUB48005
  655. 15050 PRINT"[147]    THIS PROGRAM IS TO SHOW YOU HOW":PRINT
  656. 15055 PRINT" TO SOLVE PROBLEMS.FIRST WE WILL SOLVE":PRINT
  657. 15060 PRINT" A SIMPLE PROBLEM BY LOOKING AT SOME":PRINT
  658. 15065 PRINT" PICTURES.THEN I WILL SHOW YOU HOW ":PRINT
  659. 15070 PRINT" YOU CAN DO IT WITH SIMPLE MATH.":PRINT:PRINT:FORD=1TO4000:NEXTD
  660. 15071 PRINT"THERE IS A QUIZ AT THE END OF THE       PROGRAM."
  661. 15072 FORD=1TO2000:NEXTD
  662. 15075 GOSUB18000:GOSUB48005:REM*** SPACE BAR ***
  663. 15085 GOTO13
  664. 15998 :
  665. 15999 :
  666. 16000 REM*** TEACHER INSTRUCTIONS ***
  667. 16010 PRINT"[147]TEACHER INSTRUCTIONS":PRINT:PRINT
  668. 16020 PRINT" THIS PROGRAM REVIEWS THE GENERAL"
  669. 16030 PRINT" CONCEPT OF DIVISION.":PRINT
  670. 16040 PRINT" THE PROGRAM SUPPORTS THE TEACHING "
  671. 16050 PRINT" OF DIVISION (2 DIGIT DIVISORS).":PRINT
  672. 16052 PRINT" THE INPUT TECHNIQUES AND PACE ARE "
  673. 16054 PRINT" DESIGNED FOR A GRADE 5 READING LEVEL.":PRINT
  674. 16055 PRINT" THE STUDENT CAN CHOOSE THE LEVEL "
  675. 16060 PRINT" OF DIFFICULTY.":PRINT
  676. 16061 PRINT" THE PROGRAM CONTAINS SOUND."
  677. 16064 :
  678. 16065 GOSUB48005:REM*** SPACE BAR ***
  679. 16075 GOTO13
  680. 16100 PRINT"                                      ":RETURN
  681. 17498 :
  682. 17499 REM**** FLASHING NUMBERS ****
  683. 17500 FORX=1TO40
  684. 17502 POKE1349,180:POKE1352,178:POKE1353,180:FORD=1TO90:NEXTD
  685. 17504 POKE1349,52:POKE1352,50:POKE1353,52:FORD=1TO90:NEXTD:NEXTX
  686. 17506 RETURN
  687. 17598 :
  688. 17599 REM**** FLASHING NUMBERS ****
  689. 17600 FORX=1TO40
  690. 17602 POKE1349,179:POKE1352,177:POKE1353,181:FORD=1TO90:NEXTD
  691. 17604 POKE1349,51:POKE1352,49:POKE1353,53:FORD=1TO90:NEXTD:NEXTX
  692. 17606 RETURN
  693. 17698 :
  694. 17699 REM***** FLASHING NUMBERS *****
  695. 17700 FORX=1TO40
  696. 17702 POKE1349,178:POKE1352,177:POKE1353,185:FORD=1TO90:NEXTD
  697. 17704 POKE1349,50:POKE1352,49:POKE1353,57:FORD=1TO90:NEXTD:NEXTX
  698. 17706 RETURN
  699. 17800 FORX=1TO15:POKE1396,31:FORD=1TO90:NEXTD:REM*** FLASHING ARROW ***
  700. 17810 POKE1396,159:FORD=1TO90:NEXTD:NEXTX
  701. 17820 RETURN
  702. 17998 :
  703. 17999 REM**** FIDDLEPROOFING ****
  704. 18000 FORD=1TO20:GETZ$:NEXTD:RETURN
  705. 18004 :
  706. 18099 :
  707. 18100 PRINT"         O[175][180]  O[175][180]  O[175][180]  O[175][180]  O[175][180]
  708. 18110 [153]"        (null)U   /U   (null)U   (null)U   (null)U                  FN(null)   FN(null)   FN(null)   FN(null)   FN(null)
  709. 18120 PRINT"        [167] [165]  [167] [165]  [167] [165]  [167] [165]  [167] [165]
  710. 18130 [153]"        THEN FN  THEN FN  THEN FN  THEN FN  THEN FN
  711. 18135 RETURN
  712. 18198 :
  713. 18199 REM***** COMMANDER LABEL *****
  714. 18200 POKE1277,3:POKE1278,15:POKE1279,13:POKE1280,13:POKE1281,1:POKE1282,14
  715. 18210 POKE1283,4:POKE1284,5:POKE1285,18:POKE1286,19
  716. 18220 RETURN
  717. 19998 :
  718. 19999 :
  719. 20000 PRINT"[147]":REM*** STAR TRAIL ***
  720. 20010 POKE1224+35,42:GOSUB30000
  721. 20020 POKE1224+35,32:GOSUB30000
  722. 20030 POKE1344+30,42:GOSUB30000
  723. 20040 POKE1344+30,32:GOSUB30000
  724. 20050 POKE1464+27,42:GOSUB30000
  725. 20060 POKE1464+27,32:GOSUB30000
  726. 20070 POKE1584+22,42:GOSUB30000
  727. 20080 POKE1584+22,32:GOSUB30000
  728. 20090 POKE1504+14,42:GOSUB30000
  729. 20100 POKE1504+14,32:GOSUB30000
  730. 20110 POKE1384+6,42:GOSUB30000
  731. 20120 POKE1384+6,32:GOSUB30000
  732. 30000 FORD=1TO100:NEXTD:RETURN
  733. 31200 V=1307:E=0
  734. 31202 FORG=1TO7:F=42
  735. 31205 IFE=1ORE=3ORE=5ORE=7THENF=32
  736. 31210 FORP=VTOV+25:POKEP,F:NEXTP
  737. 31220 FORP=V+25TOV+105STEP40:POKEP,F:NEXTP
  738. 31230 FORP=V+105TOV+80STEP-1:POKEP,F:NEXTP
  739. 31240 FORP=V+80TOVSTEP-40:POKEP,F:NEXTP
  740. 31245 E=E+1
  741. 31248 NEXTG
  742. 31250 RETURN
  743. 33000 PRINT"[147]":REM++++UNIVERSE++++
  744. 33010 X=10:Y=2:GOSUB60000:PRINT"    .     ."
  745. 33020 X=20:Y=4:GOSUB60000:PRINT"        .            ."
  746. 33030 X=5:Y=6:GOSUB60000:PRINT"           ."
  747. 33040 X=15:Y=8:GOSUB60000:PRINT"       ."
  748. 33050 X=20:Y=10:GOSUB60000:PRINT"         ."
  749. 33060 X=5:Y=11:GOSUB60000:PRINT"     ."
  750. 33070 X=10:Y=15:GOSUB60000:PRINT"       ."
  751. 33080 X=20:Y=16:GOSUB60000:PRINT"     .   "
  752. 33090 X=15:Y=18:GOSUB60000:PRINT"   .     "
  753. 34000 RETURN
  754. 39998 :
  755. 39999 REM**** STARSHIPS ****
  756. 40000 PRINT"[147]";:PRINT""
  757. 40001 PRINT"   [205] [206]
  758. 40010 [153]"   LEN WAITLEN
  759. 40020 PRINT"   [206] [205]
  760. 40025 [129]K[178]1[164]200:[130]K
  761. 40030 [142]
  762. 42000 [153]"LOAD"
  763. 42001 [153]"   (null)       (null)
  764. 42002 PRINT"    [205]     [206]
  765. 42003 [153]"     (null)   (null)
  766. 42004 PRINT"         [146]
  767. 42005 [153]"LENLENLENLENLENLEN ..WAITLENLENLENLENLEN"
  768. 42006 [153]"         WAIT
  769. 42007 PRINT"     [206]   [205]
  770. 42008 [153]"    (null)     (null)
  771. 42009 PRINT"   [206]       [205]
  772. 42010 [129]K[178]1[164]200:[130]K
  773. 42020 [142]
  774. 44000 [153]"LOAD"
  775. 44010 [153]"           (null)              (null)
  776. 44020 PRINT"            [205]            [206]
  777. 44030 [153]"             (null)          (null)
  778. 44040 PRINT"              [205]        [206]
  779. 44050 [153]"               (null)      (null)
  780. 44060 PRINT"                [169]    [223][146]
  781. 44070 [153]"                      WAIT
  782. 44080 PRINT"     [195][195][195][195][195][195][195][195][195][195][195]  [188] [190] [146][195][195][195][195][195][195][195][195][195]"
  783. 44090 PRINT"                      [146]
  784. 44100 [153]"                (null)    WAITSTEP
  785. 44110 PRINT"               [206]      [205]
  786. 44120 [153]"              (null)        (null)
  787. 44130 PRINT"             [206]          [205]
  788. 44140 [153]"            (null)            (null)
  789. 44150 PRINT"           [206]              [205]
  790. 44160 [153]"LOAD"
  791. 44170 [142]
  792. 45498 [143]****** STAR GENERATOR ******
  793. 45500 [153]"LOAD";
  794. 45502 Z[178]0
  795. 45510 [129]K[178]1[164]10:[130]K:[153]""
  796. 45520 [129]D[178]1[164][181](22[172][187](TI))
  797. 45530 [153]"";:[130]D
  798. 45540 [129]R[178]1[164][181](40[172][187](1))
  799. 45550 [153]"";:[130]R
  800. 45560 [153]".":Z[178]Z[170]1
  801. 45570 [129]T[178]1[164]5:[130]T
  802. 45572 [139]Z[178]30[167][142]
  803. 45573 [137]45510
  804. 45999 :
  805. 46000 S[178]1024:F[178]1024[170]35:[143]** WIPEOUT **
  806. 46010 [129]X[178]S[164]F
  807. 46020 [151]X,45
  808. 46030 [130]X
  809. 46040 [129]X[178]S[164]F
  810. 46050 [151]X,32
  811. 46060 [130]X
  812. 46070 S[178]S[170]41:F[178]F[170]39
  813. 46080 [139]S[179]F[167]46010
  814. 46090 [142]
  815. 46100 [129]L[178]1189[164]1219:[151]L,160:[130]L
  816. 46110 [129]L[178]1829[164]1859:[151]L,160:[130]L
  817. 46120 [129]L[178]1189[164]1829[169]40:[151]L,160:[130]L
  818. 46130 [129]L[178]1219[164]1859[169]40:[151]L,160:[130]
  819. 46140 [142]
  820. 46999 :
  821. 47000 [153]"LOAD";
  822. 47010 [153]"                 (null)TAB(TAB((null)
  823. 47011 PRINT"                 [165][163][163][167]
  824. 47012 [153]"                (null)FN.TOTHEN(null)
  825. 47013 PRINT"                [165][165]  [167] [165]
  826. 47014 [153]"                FNFN.TAB(THEN FN
  827. 47015 PRINT"                [165][165]  [167] [165]
  828. 47016 [153]"               (null)(null)TAB(TAB(TAB(TAB((null)(null)
  829. 47017 PRINT"               [163]      [163]
  830. 47050 [142]
  831. 47298 :
  832. 47299 [143]*** CROSS OUT WRONG ANSWER ***
  833. 47300 [151]1271,77:[151]1276,78
  834. 47310 [151]1312,77:[151]1315,78
  835. 47320 [151]1432,78:[151]1435,77
  836. 47330 [151]1471,78:[151]1476,77
  837. 47340 [151]1353,77:[151]1354,78
  838. 47345 [151]1393,78:[151]1394,77
  839. 47350 [142]
  840. 47999 :
  841. 48000 [143]*** BULLETPROOF SPACE BAR ***
  842. 48005 [153]"PRESS SPACE BARWAIT."
  843. 48010 [161]Z$:[139]Z$[178]""[167]48010
  844. 48020 Z[178][198](Z$)
  845. 48030 [139]Z[179][177]160[175]Z[179][177]32[167]48010
  846. 48040 [142]
  847. 48098 :
  848. 48099 :
  849. 48100 [143]*** MUSIC GENERATOR ****
  850. 48105 S[178]54272:SQ[178]SQ[170]1
  851. 48110 [129]L[178]S[164]S[170]24:[151]L,0:[130]
  852. 48115 [139]SQ[178]1[176]SQ[178]4[167][151]S[170]5,88:[151]S[170]6,89:[137]48130
  853. 48120 [151]S[170]5,9:[151]S[170]6,0
  854. 48125 [139]SQ[178]2[176]SQ[178]3[167][151]S[170]24,8:[137]48140
  855. 48130 [141]59100:[143]** SET VOLUME ***
  856. 48140 [135]HF,LF,DR
  857. 48150 [139]HF[179]0[167][141]59200:[142]:[143]***TURN OFF VOLUME***
  858. 48160 [151]S[170]1,HF:[151]S,LF
  859. 48170 [151]S[170]4,33
  860. 48180 [129]T[178]1[164]DR:[130]
  861. 48190 [151]S[170]4,32:[129]T[178]1[164]50:[130]
  862. 48192 [137]48140
  863. 48194 :
  864. 48198 :
  865. 48199 [143]**** STAR WARS ****
  866. 48200 [131]9,159,128,9,159,128,9,159,128
  867. 48205 [131]12,216,512,19,63,512,17,37,128
  868. 48210 [131]16,47,128,14,107,128,25,177,512
  869. 48215 [131]19,63,256
  870. 48220 [131]17,37,128,16,47,128,14,107,128
  871. 48225 [131]25,177,512,19,63,256
  872. 48230 [131]17,37,128,16,47,128,17,37,128
  873. 48240 [131]14,107,512,9,159,128,9,159,128
  874. 48245 [131]12,216,512,19,63,512
  875. 48250 [131]17,37,128,16,47,128,14,107,128
  876. 48255 [131]25,177,512,19,63,256
  877. 48260 [131]17,37,128,16,47,128,14,107,128
  878. 48265 [131]25,177,512,19,63,256
  879. 48270 [131]17,37,128,16,47,128,17,37,128
  880. 48275 [131]14,107,1024,-1,-1,-1
  881. 48276 :
  882. 48299 [143]**** UP UP AND AWAY ****
  883. 48300 [131]19,63,256,19,63,128,25,177,384
  884. 48305 [131]28,214,128,32,94,768
  885. 48310 [131]32,94,128,32,94,128,32,94,128
  886. 48315 [131]34,75,256,28,214,384
  887. 48320 [131]25,177,128,28,214,896,-1,-1,-1
  888. 48398 :
  889. 48498 :
  890. 48499 [143]*** CANTINA BAND  ****
  891. 48500 [131]14,107,128,19,63,128,14,107,128
  892. 48505 [131]19,63,128
  893. 48508 [131]14,107,64,19,63,128,14,107,128
  894. 48510 [131]13,156,64,14,107,128
  895. 48512 [131]14,107,64,13,156,64,14,107,64
  896. 48515 [131]12,216,128
  897. 48517 [131]12,32,64,12,216,64,12,32,64
  898. 48520 [131]11,114,256,9,159,256
  899. 48522 [131]14,107,128,19,63,128,14,107,128
  900. 48525 [131]19,63,128
  901. 48527 [131]14,107,64,19,63,128,14,107,64
  902. 48535 [131]12,216,128,12,216,192,12,32,64
  903. 48540 [131]12,216,128
  904. 48542 [131]17,37,128,15,70,128,14,107,128
  905. 48545 [131]12,216,128
  906. 48547 [131]14,107,128,19,63,128,14,107,128
  907. 48550 [131]19,63,128
  908. 48552 [131]14,107,64,19,63,128,14,107,128
  909. 48555 [131]13,156,64,14,107,128
  910. 48557 [131]17,37,128,17,37,192
  911. 48560 [131]14,107,64,12,216,128
  912. 48562 [131]11,114,256,9,159,256
  913. 48565 [131]9,159,256,11,114,256
  914. 48567 [131]14,107,256,17,37,256
  915. 48570 [131]20,100,128,19,63,128,13,156,64
  916. 48572 [131]14,107,192,11,114,512
  917. 48575 [131]-1,-1,-1
  918. 49998 :
  919. 49999 [143]**** SCREEN BLANKING ****
  920. 50000 [129]K[178]1[164]50:[151]53265,[194](53265)[175]235:[151]53265,[194](53265)[176]16:[130]K
  921. 50005 [129]D[178]1[164]500:[130]D
  922. 50010 [142]
  923. 50998 :
  924. 50999 [143]***** POD ACTION *****
  925. 51000 POD[178]1030:SR[178]0
  926. 51002 [151]POD,42:SR[178]SR[170]1:POD[178]POD[170]41
  927. 51003 [129]D[178]1[164]50:[130]D
  928. 51004 [139]SR[177]5[167][151]POD[171](6[172]41),32:[129]D[178]1[164]50:[130]D
  929. 51005 [139][194](2014)[178]42[167][151]1850,32:[151]1891,32:[151]1932,32:[151]1973,32
  930. 51006 [151]2014,32:[139]POD[177]2014[167]51030
  931. 51007 [137]51002
  932. 51030 [129]X[178]1504[164]1510[169]2:[151]X,42:[141]51100:[130]X
  933. 51040 [151]1504,32:X[178]1504
  934. 51050 [151]X[170]8,42:[141]51100
  935. 51060 [151]X[170]2,32:X[178]X[170]2
  936. 51065 [139][194](1542)[178]42[167]51080
  937. 51070 [137]51050
  938. 51080 [129]Y[178]1538[164]1543:[151]Y,32:[141]51100:[130]Y
  939. 51082 S[178]1504:F[178]1543
  940. 51084 [129]X[178]S[164]F:[151]X,42:[129]D[178]1[164]50:[130]D:[151]X,32:[130]X
  941. 51100 [129]D[178]1[164]70:[130]D:[142]
  942. 58091 :
  943. 58092 :
  944. 58093 [143]**** HARD TEST QUESTION ****
  945. 58094 [153]"LOAD"[163]11);"TOTOTOTOTO"
  946. 58095 [153][163]9);"27)189"
  947. 58096 [153]"NOW WRITE THIS PROBLEM DOWN ON A PIECE     OF PAPER.":[153]
  948. 58097 [153][163]1);"SEE IF YOU CAN SOLVE IT.":[129]K[178]1[164]3000:[130]K:[141]18000
  949. 58098 [153]""[163]4);"PRESS SPACE BARWAIT TO SEE THE ANSWER."
  950. 58100 [161]M$:[139]M$[178]""[167]58100
  951. 58102 M[178][198](M$)
  952. 58104 [139]M[179][177]160[175]M[179][177]32[167]58100
  953. 59003 [153]"LOAD"
  954. 59004 [153]"           TOTOTOTOTO
  955. 59005 PRINT"         27)189
  956. 59006 [129]K[178]1[164]2000:[130]K
  957. 59010 [153]"LOAD"
  958. 59012 [153]"            0
  959. 59014 PRINT"           [164][164][164][164][164]
  960. 59016 [153]"         27)189
  961. 59018 FORK=1TO1000:NEXTK
  962. 59020 PRINT"[147]"
  963. 59022 PRINT"            00
  964. 59024 [153]"           TOTOTOTOTO
  965. 59026 PRINT"         27)189
  966. 59028 [129]K[178]1[164]1000:[130]K
  967. 59030 [153]"LOAD"
  968. 59032 [153]"            007
  969. 59034 PRINT"           [164][164][164][164][164]
  970. 59036 [153]"         27)189
  971. 59038 FORK=1TO1000:NEXTK
  972. 59040 PRINT"[147]"
  973. 59042 PRINT"            007
  974. 59044 [153]"           TOTOTOTOTO
  975. 59046 PRINT"         27)189
  976. 59048 [153]"            189
  977. 59050 FORK=1TO1000:NEXTK
  978. 59060 PRINT"[147]"
  979. 59062 PRINT"            007
  980. 59064 [153]"           TOTOTOTOTO
  981. 59066 PRINT"         27)189
  982. 59068 [153]"            189
  983. 59070 PRINT"            [163][163][163]
  984. 59080 [129]K[178]1[164]1000:[130]K
  985. 59082 [153]"LOAD"
  986. 59084 [153]"            007
  987. 59086 PRINT"           [164][164][164][164][164]
  988. 59088 [153]"         27)189
  989. 59089 PRINT"            189
  990. 59090 [153]"            TAB(TAB(TAB(
  991. 59092 PRINT"            000
  992. 59094 [129]K[178]1[164]3000:[130]K:[141]9600:[129]D[178]1[164]1000:[130]D:[137]9095
  993. 59100 [129]SV[178]1[164]15[169]5:[151]S[170]24,SV:[129]D[178]1[164]10:[130]D:[130]SV:[142]
  994. 59200 [129]SV[178]15[164]1[169][171]5:[151]S[170]24,SV:[129]D[178]1[164]10:[130]D:[130]SV:[142]
  995. 60000 [153]"";
  996. 60010 [139]Y[179][177]0[167][151]214,Y[171]1:[153]
  997. 60020 [151]211,X
  998. 60030 [142]
  999.