home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C128Educational
/
COUNT-1-8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
8KB
|
305 lines
1 REM ******************************
2 REM * *
3 REM * COUNT 1 - 8 (AGE 3-5) *
4 REM * *
5 REM * BY BRUCE CORBETT *
6 REM * *
7 REM * PINCOURT, QUEBEC *
8 REM * *
9 REM ******************************
10 PRINT"[147] HELLO"
20 PRINT" THIS IS TO HELP WITH"
21 PRINT" COUNTING FROM 1 TO 8"
22 FORT=1 TO3000: NEXT:PRINT
23 PRINT"[147] PLEASE TYPE IN THE"
25 PRINT" HIGHEST NUMBER YOU WANT (1-8)
27 [153]" THEN HIT 'RETURN' "
30 [133] AB: [139]AB[178]999 [167] [128]
31 [139] (AB[179]1)[176](AB[177]8) [167] 33
32 [139] AB[177]0 [176] AB[179]9 [167]100
33 [153]" HIT ONLY 1-8 !":[137]30
99 [128]
100 [153]"LOAD":[151]53280,0:[151]53281,1
101 [153]""[163]28)"STOP WAIT"
103 [153][163]28)"ON WAIT"
104 [153][163]28)" WAIT"
105 [153][163]28)" WAIT"
106 [153][163]28)" WAIT"
107 [153][163]28)" WAIT"
108 [153][163]28)" WAIT"
109 [153][163]28)" WAIT"
110 [153][163]28)" WAIT"
111 [153][163]28)" WAIT"
112 [153][163]28)" WAIT"
113 [153][163]28)" WAIT"
114 [153][163]28)" WAIT"
120 [153]""[163]29)" WAIT"
163 [140]
165 [129]S1[178]12288 [164] 12350:[135]Q1:[151]S1,Q1:[130]
170 [129]S2[178]12352 [164] 12414:[135]Q2:[151]S2,Q2:[130]
173 [129]S3[178]12416 [164] 12478:[135]Q3:[151]S3,Q3:[130]
176 [129]S4[178]12480 [164] 12542:[135]Q4:[151]S4,Q4:[130]
182 M[178][181]([187](1)[172]4)[170]1 :[143] SHAPE ?
186 [151]2040,191[170]M:[151]2041,191[170]M
188 [151]2042,191[170]M:[151]2043,191[170]M
190 [151]2044,191[170]M:[151]2045,191[170]M
192 [151]2046,191[170]M:[151]2047,191[170]M
193 [143] DOUBLE SIZE
194 V[178]53248
195 [151]V[170]29,255
196 [151]V[170]23,255
210 [151]V,60 :[151] V[170]1,120
211 [151] V[170]2 ,60 :[151] V[170]3 ,60
212 [151] V[170]4 ,60 :[151] V[170]5 ,180
213 [151] V[170]6 ,118:[151] V[170]7 ,60
214 [151] V[170]8 ,118:[151] V[170]9 ,180
215 [151] V[170]10,118:[151] V[170]11,120
216 [151] V[170]12,175:[151] V[170]13,60
217 [151] V[170]14,175:[151] V[170]15,120
218 [153]
250 B[178][181]([187](1)[172]AB)[170]1
255 [145] B [137] 260,270,280,290,300,310,320,330
259 [143] HOW MANY ARE VISABLE
260 [151] V[170]21,1 :[137]350
270 [151] V[170]21,3 :[137]350
280 [151] V[170]21,11 :[137]350
290 [151] V[170]21,43 :[137]350
300 [151] V[170]21,107 :[137]350
310 [151] V[170]21,235 :[137]350
320 [151] V[170]21,239 :[137]350
330 [151] V[170]21,255 :[137]350
349 [153]
350 [143] COLOURS
360 D[178][181]([187](1)[172]9)[170]1
370 [139] D[178]1 [167] 360
380 [151]V[170]39,D:[151]V[170]40,D:[151]V[170]41,D:[151]V[170]42,D
385 [151]V[170]43,D:[151]V[170]44,D:[151]V[170]45,D:[151]V[170]46,D
400 [143] SQUARE:POINTER 192
402 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
404 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
406 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
408 [131] 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
410 [131] 255,255,255
420 [143] CIRCLE : POINTER 193
422 [131] 0,0,0,0,0,0,0,255,0,7,255,224
424 [131] 31,255,248,63,255,252,127,255,254
426 [131] 127,255,254,255,255,255,255,255,255
428 [131] 255,255,255,127,255,254,63,255,252
430 [131] 21,255,248,15,255,240,3,255,192
432 [131] 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
440 [143] CAT :POINTER 194
442 [131] 0,0,0,0,16,0,12,48,0,31,248,0
444 [131] 63,252,0,57,204,0,57,204,0,63,124,0
446 [131] 31,248,224,30,120,224,15,240,224
448 [131] 3,192,224,15,240,224,31,248,112
450 [131] 127,254,56,255,255,56,255,255,56
452 [131] 255,255,56,127,254,112,63,255,224,31,255,192
460 [143] HELICOPTER : POINTER 195
462 [131] 0,0,0,0,0,0,0,0,0,255,255,240,0,96,0
464 [131] 0,96,0,31,240,28,49,156,60
466 [131] 113,159,252,127,255,252,63,255,248
468 [131] 31,252,0,6,24,0,198,24,0
470 [131] 127,255,128,0,0,0,0,0,0
472 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0
492 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
700 [161] A$: [139] A$[178]""[167] 700
701 [139]A$[178]"E" [167] [128]
702 [139]A$[178]"1"[167] 800
704 [139]A$[178]"2"[167] 900
706 [139]A$[178]"3"[167]1000
708 [139]A$[178]"4"[167]1100
710 [139]A$[178]"5"[167]1200
712 [139]A$[178]"6"[167]1300
714 [139]A$[178]"7"[167]1400
716 [139]A$[178]"8"[167]1500
718 [137] 700
800 [153]""[163]33)"STEP WAIT" :[143] 1
801 [153][163]34)" WAIT"
802 [153][163]34)" WAIT"
803 [153][163]34)" WAIT"
804 [153][163]34)" WAIT"
805 [139] B[178]1 [167] 807
806 [139] B[179][177]1[167] 810
807 [141]4000: [141] 2000
808 [151]53248[170]21,0
809 [137]100
810 [153]"WRONG"
811 [129]X[178]1[164]1000:[130]:[153] :[141] 3000
812 [141] 2000
814 [137] 700
899 [143] PRINT # 2
900 [153]""[163]32)" (null)WAIT"
901 [153][163]33)" STEPWAITSTEP"
902 [153][163]32)" STEPWAITSTEP"
903 [153][163]31)" STEPWAITSTEP"
904 [153][163]32)" WAIT"
905 [139] B[178]2 [167] 907
906 [139] B[179][177]2[167] 910
907 [141]4000: [141] 2000
908 [151]53248[170]21,0 : [137] 100
910 [153]"WRONG"
911 [129]X[178]1[164]1000:[130]:[153] :[141] 3000
912 [141] 2000
914 [137] 700
1000 [153]""[163]33)" (null)WAIT"
1001 [153][163]32)" WAIT "
1002 [153][163]33)" WAIT "
1003 [153][163]32)" WAIT "
1004 [153][163]32)" WAITSTEP "
1005 [139] B[178]3 [167] 1007
1006 [139] B[179][177]3[167] 1010
1007 [141]4000: [141] 2000
1008 [151]53248[170]21,0 : [137] 100
1010 [153]"WRONG"
1011 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
1012 [141] 2000
1014 [137] 700
1100 [153]""[163]32)" WAIT WAIT"
1101 [153][163]32)" WAIT WAIT"
1102 [153][163]32)" WAIT"
1103 [153][163]31)" WAIT "
1104 [153][163]31)" WAIT "
1105 [139] B[178]4 [167] 1107
1106 [139] B[179][177]4[167] 1110
1107 [141]4000: [141] 2000
1108 [151]53248[170]21,0 : [137] 100
1110 [153]"WRONG"
1111 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
1112 [141] 2000
1114 [137] 700
1200 [153]""[163]32)" WAIT"
1201 [153][163]32)" WAIT "
1202 [153][163]32)" (null) (null)WAIT "
1203 [153][163]31)" WAIT"
1204 [153][163]32)" WAITSTEP"
1205 [139] B[178]5 [167] 1207
1206 [139] B[179][177]5[167] 1210
1207 [141]4000: [141] 2000
1208 [151]53248[170]21,0 : [137] 100
1210 [153]"WRONG"
1211 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
1212 [141] 2000
1214 [137] 700
1300 [153]""[163]32)"STEP WAIT "
1301 [153][163]32)" WAIT "
1302 [153][163]32)" (null)WAIT "
1303 [153][163]32)" WAIT WAIT "
1304 [153][163]32)"(null) WAITSTEP "
1305 [139] B[178]6 [167] 1307
1306 [139] B[179][177]6[167] 1310
1307 [141]4000: [141] 2000
1308 [151]53248[170]21,0 : [137] 100
1310 [153]"WRONG"
1311 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
1312 [141] 2000
1314 [137] 700
1400 [153]""[163]32)" WAIT"
1401 [153][163]32)" WAIT "
1402 [153][163]32)" WAIT "
1403 [153][163]32)" WAIT "
1404 [153][163]32)" WAIT "
1405 [139] B[178]7 [167] 1407
1406 [139] B[179][177]7[167] 1410
1407 [141]4000: [141] 2000
1408 [151]53248[170]21,0 : [137] 100
1410 [153]"WRONG"
1411 [129]X[178]1[164]1000:[130]:[153]: [141] 3000
1412 [141] 2000
1414 [137] 700
1500 [153]""[163]32)"STEP (null)WAIT"
1501 [153][163]32)" WAIT WAIT "
1502 [153][163]32)"(null) WAITSTEP"
1503 [153][163]32)"STEP (null)WAIT "
1504 [153][163]32)" WAIT WAIT "
1505 [153][163]32)"(null) WAITSTEP "
1506 [139] B[178]8 [167] 1507
1507 [139] B[179][177]8[167] 1510
1508 [141]4000: [141] 2000
1509 [151]53248[170]21,0 : [137] 100
1510 [153]"WRONG"
1511 [129]X[178]1[164]1000:[130]:[153] :[141]3000
1512 [141] 2000
1514 [137] 700
2000 [153]""[163]31)" "
2001 [153][163]32)" "
2002 [153][163]32)" "
2003 [153][163]32)" "
2004 [153][163]32)" "
2006 [153][163]32)" "
2007 [153][163]32)" "
2008 [153][163]32)" " :[142]
3000 [143] 'BLAH MUSIC'
3002 [129] L[178]54272 [164] 54296: [151]L,0: [130]
3004 V[178]54296:W[178]54276:A[178]54277:S[178]54278
3006 H[178]54273:L[178]54272
3008 [151]V,15:[151]A,16:[151]S,128:[151]H,1:[151]L,195
3010 [151]W,33:[129]T[178]1 [164] 700:[130]:[151]W,32 : [142]
4000 [143] 'YES MUSIC'
4001 Z[178][181]([187](1)[172]4)[170]1
4003 [145]Z [137] 4006,4106,4206,4306
4006 [129]L[178]54272 [164] 54296:[151]L,0:[130]
4008 S[178]54272
4010 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4012 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4020 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,21:[151]S,31
4022 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4030 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4032 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4040 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,21:[151]S,31
4042 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
4050 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4052 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32 :[142]
4106 [129]L[178]54272 [164] 54296:[151]L,0:[130]
4108 S[178]54272
4110 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4112 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
4120 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4122 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
4130 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,18:[151]S,209
4132 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4140 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4142 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4150 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,22:[151]S,96
4152 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4160 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,21:[151]S,31
4162 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32 :[142]
4206 [129]L[178]54272 [164] 54296:[151]L,0:[130]
4208 S[178]54272
4210 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4212 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4220 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4222 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4230 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4232 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4240 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4242 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4250 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,28:[151]S,49
4252 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4260 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,28:[151]S,49
4262 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4270 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4272 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32 :[142]
4306 [129]L[178]54272 [164] 54296:[151]L,0:[130]
4308 S[178]54272
4310 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
4312 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4320 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,18:[151]S,209
4322 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4330 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,21:[151]S,31
4332 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4340 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4342 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
4350 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,22:[151]S,96
4352 [151]S[170]4,33: [129]T[178]1 [164] 125 :[130]:[151]S[170]4, 32
4360 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,25:[151]S,30
4362 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32: [142]
4406 [129]L[178]54272 [164] 54296:[151]L,0:[130]
4506 [129]L[178]54272 [164] 54296:[151]L,0:[130]
5008 S[178]54272
5010 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,16:[151]S,195
5012 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
5020 [151]S[170]24, 15:[151]S[170]5,9:[151]S[170]6,0: [151]S[170]1,21:[151]S,31
5022 [151]S[170]4,33: [129]T[178]1 [164] 250 :[130]:[151]S[170]4, 32
10000 [128]
20000 [151]53269,0