home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Educational / COUNT-1-8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.0 KB  |  305 lines
  1. 1 REM ******************************
  2. 2 REM *                            *
  3. 3 REM *  COUNT 1 - 8 (AGE 3-5)     *
  4. 4 REM *                            *
  5. 5 REM *  BY BRUCE CORBETT          *
  6. 6 REM *                            *
  7. 7 REM *  PINCOURT, QUEBEC          *
  8. 8 REM *                            *
  9. 9 REM ******************************
  10. 10 PRINT"[147]              HELLO"
  11. 20 PRINT"      THIS IS TO HELP WITH"
  12. 21 PRINT"       COUNTING FROM 1 TO 8"
  13. 22 FORT=1 TO3000: NEXT:PRINT
  14. 23 PRINT"[147]        PLEASE TYPE IN THE"
  15. 25 PRINT"     HIGHEST NUMBER YOU WANT (1-8)
  16. 27 [153]"     THEN HIT 'RETURN' "
  17. 30 [133] AB: [139]AB[178]999 [167] [128]
  18. 31 [139] (AB[179]1)[176](AB[177]8) [167] 33
  19. 32 [139] AB[177]0 [176] AB[179]9 [167]100
  20. 33 [153]" HIT ONLY 1-8 !":[137]30
  21. 99 [128]
  22. 100 [153]"LOAD":[151]53280,0:[151]53281,1
  23. 101 [153]""[163]28)"STOP            WAIT"
  24. 103 [153][163]28)"ON WAIT"
  25. 104 [153][163]28)" WAIT"
  26. 105 [153][163]28)" WAIT"
  27. 106 [153][163]28)" WAIT"
  28. 107 [153][163]28)" WAIT"
  29. 108 [153][163]28)" WAIT"
  30. 109 [153][163]28)" WAIT"
  31. 110 [153][163]28)" WAIT"
  32. 111 [153][163]28)" WAIT"
  33. 112 [153][163]28)" WAIT"
  34. 113 [153][163]28)" WAIT"
  35. 114 [153][163]28)" WAIT"
  36. 120 [153]""[163]29)"           WAIT"
  37. 163 [140]
  38. 165 [129]S1[178]12288 [164] 12350:[135]Q1:[151]S1,Q1:[130]
  39. 170 [129]S2[178]12352 [164] 12414:[135]Q2:[151]S2,Q2:[130]
  40. 173 [129]S3[178]12416 [164] 12478:[135]Q3:[151]S3,Q3:[130]
  41. 176 [129]S4[178]12480 [164] 12542:[135]Q4:[151]S4,Q4:[130]
  42. 182 M[178][181]([187](1)[172]4)[170]1 :[143] SHAPE ?
  43. 186 [151]2040,191[170]M:[151]2041,191[170]M
  44. 188 [151]2042,191[170]M:[151]2043,191[170]M
  45. 190 [151]2044,191[170]M:[151]2045,191[170]M
  46. 192 [151]2046,191[170]M:[151]2047,191[170]M
  47. 193 [143] DOUBLE SIZE
  48. 194 V[178]53248
  49. 195 [151]V[170]29,255
  50. 196 [151]V[170]23,255
  51. 210 [151]V,60  :[151] V[170]1,120
  52. 211 [151] V[170]2 ,60 :[151] V[170]3 ,60
  53. 212 [151] V[170]4 ,60 :[151] V[170]5 ,180
  54. 213 [151] V[170]6 ,118:[151] V[170]7 ,60
  55. 214 [151] V[170]8 ,118:[151] V[170]9 ,180
  56. 215 [151] V[170]10,118:[151] V[170]11,120
  57. 216 [151] V[170]12,175:[151] V[170]13,60
  58. 217 [151] V[170]14,175:[151] V[170]15,120
  59. 218 [153]
  60. 250 B[178][181]([187](1)[172]AB)[170]1
  61. 255 [145] B [137] 260,270,280,290,300,310,320,330
  62. 259 [143] HOW MANY ARE VISABLE
  63. 260 [151] V[170]21,1    :[137]350
  64. 270 [151] V[170]21,3    :[137]350
  65. 280 [151] V[170]21,11   :[137]350
  66. 290 [151] V[170]21,43   :[137]350
  67. 300 [151] V[170]21,107  :[137]350
  68. 310 [151] V[170]21,235  :[137]350
  69. 320 [151] V[170]21,239  :[137]350
  70. 330 [151] V[170]21,255  :[137]350
  71. 349 [153]
  72. 350 [143] COLOURS
  73. 360 D[178][181]([187](1)[172]9)[170]1
  74. 370 [139] D[178]1 [167] 360
  75. 380 [151]V[170]39,D:[151]V[170]40,D:[151]V[170]41,D:[151]V[170]42,D
  76. 385 [151]V[170]43,D:[151]V[170]44,D:[151]V[170]45,D:[151]V[170]46,D
  77. 400 [143]  SQUARE:POINTER 192
  78. 402 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  79. 404 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  80. 406 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  81. 408 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  82. 410 [131] 255,255,255
  83. 420 [143] CIRCLE  : POINTER 193
  84. 422 [131] 0,0,0,0,0,0,0,255,0,7,255,224
  85. 424 [131] 31,255,248,63,255,252,127,255,254
  86. 426 [131] 127,255,254,255,255,255,255,255,255
  87. 428 [131] 255,255,255,127,255,254,63,255,252
  88. 430 [131] 21,255,248,15,255,240,3,255,192
  89. 432 [131] 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  90. 440 [143] CAT   :POINTER 194
  91. 442 [131] 0,0,0,0,16,0,12,48,0,31,248,0
  92. 444 [131] 63,252,0,57,204,0,57,204,0,63,124,0
  93. 446 [131] 31,248,224,30,120,224,15,240,224
  94. 448 [131] 3,192,224,15,240,224,31,248,112
  95. 450 [131] 127,254,56,255,255,56,255,255,56
  96. 452 [131] 255,255,56,127,254,112,63,255,224,31,255,192
  97. 460 [143] HELICOPTER   : POINTER 195
  98. 462 [131] 0,0,0,0,0,0,0,0,0,255,255,240,0,96,0
  99. 464 [131] 0,96,0,31,240,28,49,156,60
  100. 466 [131] 113,159,252,127,255,252,63,255,248
  101. 468 [131] 31,252,0,6,24,0,198,24,0
  102. 470 [131] 127,255,128,0,0,0,0,0,0
  103. 472 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  104. 492 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  105. 700 [161] A$: [139] A$[178]""[167] 700
  106. 701 [139]A$[178]"E" [167] [128]
  107. 702 [139]A$[178]"1"[167] 800
  108. 704 [139]A$[178]"2"[167] 900
  109. 706 [139]A$[178]"3"[167]1000
  110. 708 [139]A$[178]"4"[167]1100
  111. 710 [139]A$[178]"5"[167]1200
  112. 712 [139]A$[178]"6"[167]1300
  113. 714 [139]A$[178]"7"[167]1400
  114. 716 [139]A$[178]"8"[167]1500
  115. 718 [137] 700
  116. 800 [153]""[163]33)"STEP WAIT" :[143] 1
  117. 801 [153][163]34)" WAIT"
  118. 802 [153][163]34)" WAIT"
  119. 803 [153][163]34)" WAIT"
  120. 804 [153][163]34)" WAIT"
  121. 805 [139] B[178]1 [167] 807
  122. 806 [139] B[179][177]1[167] 810
  123. 807 [141]4000: [141] 2000
  124. 808 [151]53248[170]21,0
  125. 809 [137]100
  126. 810 [153]"WRONG"
  127. 811 [129]X[178]1[164]1000:[130]:[153] :[141] 3000
  128. 812 [141] 2000
  129. 814 [137] 700
  130. 899 [143]  PRINT # 2
  131. 900 [153]""[163]32)"   (null)WAIT"
  132. 901 [153][163]33)" STEPWAITSTEP"
  133. 902 [153][163]32)" STEPWAITSTEP"
  134. 903 [153][163]31)" STEPWAITSTEP"
  135. 904 [153][163]32)"    WAIT"
  136. 905 [139] B[178]2 [167] 907
  137. 906 [139] B[179][177]2[167] 910
  138. 907 [141]4000: [141] 2000
  139. 908 [151]53248[170]21,0 : [137] 100
  140. 910 [153]"WRONG"
  141. 911 [129]X[178]1[164]1000:[130]:[153] :[141] 3000
  142. 912 [141] 2000
  143. 914 [137] 700
  144. 1000 [153]""[163]33)"   (null)WAIT"
  145. 1001 [153][163]32)"     WAIT "
  146. 1002 [153][163]33)"    WAIT "
  147. 1003 [153][163]32)"     WAIT "
  148. 1004 [153][163]32)"    WAITSTEP "
  149. 1005 [139] B[178]3 [167] 1007
  150. 1006 [139] B[179][177]3[167] 1010
  151. 1007 [141]4000: [141] 2000
  152. 1008 [151]53248[170]21,0 : [137] 100
  153. 1010 [153]"WRONG"
  154. 1011 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
  155. 1012 [141] 2000
  156. 1014 [137] 700
  157. 1100 [153]""[163]32)"  WAIT   WAIT"
  158. 1101 [153][163]32)"  WAIT   WAIT"
  159. 1102 [153][163]32)"      WAIT"
  160. 1103 [153][163]31)"      WAIT "
  161. 1104 [153][163]31)"      WAIT "
  162. 1105 [139] B[178]4 [167] 1107
  163. 1106 [139] B[179][177]4[167] 1110
  164. 1107 [141]4000: [141] 2000
  165. 1108 [151]53248[170]21,0 : [137] 100
  166. 1110 [153]"WRONG"
  167. 1111 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
  168. 1112 [141] 2000
  169. 1114 [137] 700
  170. 1200 [153]""[163]32)"     WAIT"
  171. 1201 [153][163]32)"  WAIT "
  172. 1202 [153][163]32)" (null)  (null)WAIT "
  173. 1203 [153][163]31)"      WAIT"
  174. 1204 [153][163]32)"    WAITSTEP"
  175. 1205 [139] B[178]5 [167] 1207
  176. 1206 [139] B[179][177]5[167] 1210
  177. 1207 [141]4000: [141] 2000
  178. 1208 [151]53248[170]21,0 : [137] 100
  179. 1210 [153]"WRONG"
  180. 1211 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
  181. 1212 [141] 2000
  182. 1214 [137] 700
  183. 1300 [153]""[163]32)"STEP  WAIT  "
  184. 1301 [153][163]32)" WAIT "
  185. 1302 [153][163]32)"   (null)WAIT  "
  186. 1303 [153][163]32)" WAIT   WAIT "
  187. 1304 [153][163]32)"(null)  WAITSTEP "
  188. 1305 [139] B[178]6 [167] 1307
  189. 1306 [139] B[179][177]6[167] 1310
  190. 1307 [141]4000: [141] 2000
  191. 1308 [151]53248[170]21,0 : [137] 100
  192. 1310 [153]"WRONG"
  193. 1311 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
  194. 1312 [141] 2000
  195. 1314 [137] 700
  196. 1400 [153]""[163]32)"    WAIT"
  197. 1401 [153][163]32)"    WAIT "
  198. 1402 [153][163]32)"    WAIT "
  199. 1403 [153][163]32)"    WAIT "
  200. 1404 [153][163]32)"    WAIT "
  201. 1405 [139] B[178]7 [167] 1407
  202. 1406 [139] B[179][177]7[167] 1410
  203. 1407 [141]4000: [141] 2000
  204. 1408 [151]53248[170]21,0 : [137] 100
  205. 1410 [153]"WRONG"
  206. 1411 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
  207. 1412 [141] 2000
  208. 1414 [137] 700
  209. 1500 [153]""[163]32)"STEP  (null)WAIT"
  210. 1501 [153][163]32)" WAIT   WAIT  "
  211. 1502 [153][163]32)"(null)  WAITSTEP"
  212. 1503 [153][163]32)"STEP  (null)WAIT "
  213. 1504 [153][163]32)" WAIT   WAIT  "
  214. 1505 [153][163]32)"(null)  WAITSTEP "
  215. 1506 [139] B[178]8 [167] 1507
  216. 1507 [139] B[179][177]8[167] 1510
  217. 1508 [141]4000: [141] 2000
  218. 1509 [151]53248[170]21,0 : [137] 100
  219. 1510 [153]"WRONG"
  220. 1511 [129]X[178]1[164]1000:[130]:[153] :[141]3000
  221. 1512 [141] 2000
  222. 1514 [137] 700
  223. 2000 [153]""[163]31)"      "
  224. 2001 [153][163]32)"       "
  225. 2002 [153][163]32)"       "
  226. 2003 [153][163]32)"       "
  227. 2004 [153][163]32)"       "
  228. 2006 [153][163]32)"       "
  229. 2007 [153][163]32)"       "
  230. 2008 [153][163]32)"       " :[142]
  231. 3000 [143] 'BLAH MUSIC'
  232. 3002 [129] L[178]54272 [164] 54296: [151]L,0: [130]
  233. 3004 V[178]54296:W[178]54276:A[178]54277:S[178]54278
  234. 3006 H[178]54273:L[178]54272
  235. 3008 [151]V,15:[151]A,16:[151]S,128:[151]H,1:[151]L,195
  236. 3010 [151]W,33:[129]T[178]1 [164] 700:[130]:[151]W,32 : [142]
  237. 4000 [143]  'YES MUSIC'
  238. 4001 Z[178][181]([187](1)[172]4)[170]1
  239. 4003 [145]Z [137] 4006,4106,4206,4306
  240. 4006 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  241. 4008 S[178]54272
  242. 4010 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  243. 4012 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  244. 4020 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,21:[151]S,31
  245. 4022 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  246. 4030 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  247. 4032 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  248. 4040 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,21:[151]S,31
  249. 4042 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
  250. 4050 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  251. 4052 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32  :[142]
  252. 4106 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  253. 4108 S[178]54272
  254. 4110 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  255. 4112 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
  256. 4120 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  257. 4122 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
  258. 4130 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,18:[151]S,209
  259. 4132 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  260. 4140 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  261. 4142 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  262. 4150 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,22:[151]S,96
  263. 4152 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  264. 4160 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,21:[151]S,31
  265. 4162 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32 :[142]
  266. 4206 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  267. 4208 S[178]54272
  268. 4210 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  269. 4212 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  270. 4220 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  271. 4222 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  272. 4230 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  273. 4232 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  274. 4240 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  275. 4242 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  276. 4250 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,28:[151]S,49
  277. 4252 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  278. 4260 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,28:[151]S,49
  279. 4262 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  280. 4270 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  281. 4272 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32   :[142]
  282. 4306 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  283. 4308 S[178]54272
  284. 4310 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  285. 4312 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  286. 4320 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,18:[151]S,209
  287. 4322 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  288. 4330 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,21:[151]S,31
  289. 4332 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  290. 4340 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  291. 4342 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  292. 4350 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,22:[151]S,96
  293. 4352 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
  294. 4360 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,25:[151]S,30
  295. 4362 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32: [142]
  296. 4406 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  297. 4506 [129]L[178]54272 [164] 54296:[151]L,0:[130]
  298. 5008 S[178]54272
  299. 5010 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,16:[151]S,195
  300. 5012 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  301. 5020 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0:       [151]S[170]1,21:[151]S,31
  302. 5022 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
  303. 10000 [128]
  304. 20000 [151]53269,0
  305.