Home » CEEFAX disks » telesoftware10.adl » 29-10-88/COUNT

29-10-88/COUNT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware10.adl
Filename: 29-10-88/COUNT
Read OK:
File size: 0B88 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Counting with Charlie
   20REM by Wyn Middleton
   30REM (c) The Micro User
   40ON ERROR MODE7:REPORT:PRINT" at line ";ERL:END
   50MODE1:VDU19,1,5;0;
   60VDU23;8202;0;0;0;:*FX11
   70PROCsetup:PROCtitle
   80REPEAT
   90FOR N%=1 TO 4
  100FOR Z%=1 TO 3:CLS
  110IF Z%=1 PROCapples
  120IF Z%=2 PROCbananas
  130IF Z%=3 PROCstrawberries
  140PROCcharlie(4,3):COLOUR2
  150PROCsay("How many "+P$+"?")
  160RR=R:REPEAT R=RND(9)
  170UNTIL R<>RR:VDU19,3,C%;0;
  180COLOUR3:FOR P%=1 TO R
  190VDU31P%*4,10,224,225,226
  200VDU31P%*4,11,227,228,229
  210VDU31P%*4,12,230,231,232:NEXT
  220REPEAT G%=GET-48
  230UNTIL G%>0 AND G%<11
  240IF G%=R PROCright ELSE PROCwrong
  250PROCcount(R):NEXT:NEXT:PROCend
  260UNTIL FALSE:END
  270DEF PROCsay(s$)
  280LOCAL L%:L%=LENs$*32
  290PRINTTAB(10,4)s$;
  300GCOL0,2:MOVE310,850
  310DRAW318+L%,850:DRAW318+L%,915
  320DRAW310,915:DRAW310,890
  330DRAW270,880:DRAW310,870
  340DRAW310,850:ENDPROC
  350DEF PROCapples
  360VDU&E017;0;&F03;&71F;&300;
  370VDU&E117;&2040;&CF93;&C7FF;&D710;
  380VDU&E217;0;&F0F0;&C0;&8000;
  390VDU&E317;&F07;&F0F;&F0F;&707;
  400VDU&E417;&FFD7;-1;-1;-1;
  410VDU&E517;&E0C0;&E0E0;&E0E0;&C0C0;
  420VDU&E617;&303;&101;0;0;
  430VDU&E717;-1;-1;&EE;0;
  440VDU&E817;&8080;0;0;0;
  450C%=2:P$="apples":ENDPROC
  460DEF PROCbananas
  470VDU&E017;0;0;0;0;
  480VDU&E117;&101;0;0;&100;
  490VDU&E217;&FFC0;&367F;&D050;&B0D0;
  500VDU&E317;0;0;0;&100;
  510VDU&E417;&301;&603;&3D0E;&DF7B;
  520VDU&E517;&60A0;&E060;&C0C0;&8080;
  530VDU&E617;&7E0F;&7F81;&F;0;
  540VDU&E717;&3EDF;&E0FC;&80;0;
  550VDU&E817;0;0;0;0;
  560C%=3:P$="bananas":ENDPROC
  570DEF PROCstrawberries
  580VDU&E017;0;&300;&1F0F;&3F1F;
  590VDU&E117;&1008;&FF10;&BFFF;&FFDD;
  600VDU&E217;0;&C000;&F8F0;&FCF8;
  610VDU&E317;&3F3F;&3F3B;&1F1F;&F0F;
  620VDU&E417;&F7FF;&DFFF;&FBFF;&FFBF;
  630VDU&E517;&DCFC;&FCFC;&F8D8;&F0F0;
  640VDU&E617;&307;1;0;0;
  650VDU&E717;&EFFF;&FBFF;&3C7E;&18;
  660VDU&E817;&C0E0;&80;0;0;
  670C%=1:P$="strawberries":ENDPROC
  680DEF PROCend:CLS
  690PROCjingle:PROCcharlie(4,3)
  700PROCsay("You got "+STR$score+" out of  12")
  710PROCpause(2):COLOUR2:*FX21
  720PRINTTAB(7,14)"Press a key...";
  730Z%=GET:PROCjingle:ENDPROC
  740DEF PROCcharlie(X%,Y%)
  750COLOUR2:VDU31X%Y%,233,234,235
  760COLOUR5:VDU31X%Y%+1,236,237,238
  770VDU31X%Y%+2,239,240,241:ENDPROC
  780DEFPROCsetup
  790VDU&E917;&100;&1F07;&3F1F;&1F3F;
  800VDU&EA17;&9900;-1;-1;-1;
  810VDU&EB17;&8000;&F8E0;&FCF8;&F8FC;
  820VDU&EC17;&781F;&7878;&7F78;&1F1F;
  830VDU&ED17;&C3FF;&BD99;&99BD;&FFC3;
  840VDU&EE17;&1EF8;&1E1E;&FE1E;&F8F8;
  850VDU&EF17;&1F1F;&1F1F;&70F;&103;
  860VDU&F017;-1;0;-1;-1;
  870VDU&F117;&F8F8;&F8F8;&E0F0;&C0;
  880ENVELOPE1,0,0,0,0,0,0,0,126,-4,0,-2,126,95
  890V%=-8:ENDPROC
  900DEF PROCtitle:CLS
  910COLOUR1:COLOUR130
  920PRINTTAB(12,5)"C O U N T I N G"
  930PRINTTAB(16,7)"W I T H"
  940PRINTTAB(13,9)"C H A R L I E"
  950COLOUR128:PROCcharlie(18,13)
  960COLOUR2:PROCpause(4)
  970PRINTTAB(11,21)"Press a key...";
  980Z%=GET:CLS:score=0:R=0
  990ENDPROC
 1000DEFPROCright
 1010GCOL 0,1:MOVE 800,300
 1020DRAW 900,250:DRAW 1050,400
 1030COLOUR2:PROCjingle
 1040PRINTTAB(8,22)"That's right!"
 1050PROCpause(2):score=score+1
 1060ENDPROC
 1070DEF PROCwrong
 1080LOCAL @%:GCOL 0,1
 1090MOVE 850,400:DRAW 1050,200
 1100MOVE 850,200:DRAW 1050,400
 1110COLOUR2:PRINTTAB(0,22)"No, there are "R,SPC1P$"."
 1120SOUND1,V%,10,5:SOUND2,V%,15,5
 1130SOUND1,V%,1,6:SOUND2,V%,6,6
 1140PROCpause(2):ENDPROC
 1150DEF PROCcount(N%)
 1160LOCAL C%,@%:FOR C%=1 TO N%
 1170PRINTTAB(C%*4+1,14)C%
 1180SOUND1,1,C%*10+40,5
 1190PROCpause(.5):NEXT:ENDPROC
 1200DEF PROCjingle
 1210RESTORE:LOCAL D%,N%,P%
 1220FOR N%=1 TO 10:READ P%,D%
 1230SOUND 1,1,P%,D%:NEXT:ENDPROC
 1240DEF PROCpause(t)
 1250LOCAL T%:T%=TIME+t*100
 1260REPEAT UNTIL TIME>T%:ENDPROC
 1270DATA100,1,110,1,120,1,130,1,140,1
 1280DATA150,4,120,2,110,2,100,2,120,3

� Counting with Charlie
� by Wyn Middleton
� (c) The Micro User
(� � �7:�:�" at line ";�:�
2�1:�19,1,5;0;
<�23;8202;0;0;0;:*FX11
F�setup:�title
P�
Z� N%=1 � 4
d� Z%=1 � 3:�
n� Z%=1 �apples
x� Z%=2 �bananas
�� Z%=3 �strawberries
��charlie(4,3):�2
��say("How many "+P$+"?")
�RR=R:� R=�(9)
�� R<>RR:�19,3,C%;0;
��3:� P%=1 � R
��31P%*4,10,224,225,226
��31P%*4,11,227,228,229
��31P%*4,12,230,231,232:�
�
� G%=�-48
�� G%>0 � G%<11
�� G%=R �right � �wrong
��count(R):�:�:�end
	� �:�
� �say(s$)
� L%:L%=�s$*32
"�10,4)s$;
,�0,2:�310,850
6�318+L%,850:�318+L%,915
@�310,915:�310,890
J�270,880:�310,870
T�310,850:�
^
� �apples
h�&E017;0;&F03;&71F;&300;
r#�&E117;&2040;&CF93;&C7FF;&D710;
|�&E217;0;&F0F0;&C0;&8000;
��&E317;&F07;&F0F;&F0F;&707;
��&E417;&FFD7;-1;-1;-1;
�#�&E517;&E0C0;&E0E0;&E0E0;&C0C0;
��&E617;&303;&101;0;0;
��&E717;-1;-1;&EE;0;
��&E817;&8080;0;0;0;
�C%=2:P$="apples":�
�� �bananas
��&E017;0;0;0;0;
��&E117;&101;0;0;&100;
�#�&E217;&FFC0;&367F;&D050;&B0D0;
��&E317;0;0;0;&100;
�!�&E417;&301;&603;&3D0E;&DF7B;
#�&E517;&60A0;&E060;&C0C0;&8080;
�&E617;&7E0F;&7F81;&F;0;
�&E717;&3EDF;&E0FC;&80;0;
&�&E817;0;0;0;0;
0C%=3:P$="bananas":�
:� �strawberries
D�&E017;0;&300;&1F0F;&3F1F;
N#�&E117;&1008;&FF10;&BFFF;&FFDD;
X�&E217;0;&C000;&F8F0;&FCF8;
b"�&E317;&3F3F;&3F3B;&1F1F;&F0F;
l#�&E417;&F7FF;&DFFF;&FBFF;&FFBF;
v#�&E517;&DCFC;&FCFC;&F8D8;&F0F0;
��&E617;&307;1;0;0;
�!�&E717;&EFFF;&FBFF;&3C7E;&18;
��&E817;&C0E0;&80;0;0;
�C%=1:P$="strawberries":�
�� �end:�
��jingle:�charlie(4,3)
�)�say("You got "+�score+" out of  12")
��pause(2):�2:*FX21
��7,14)"Press a key...";
�Z%=�:�jingle:�
�� �charlie(X%,Y%)
��2:�31X%Y%,233,234,235
��5:�31X%Y%+1,236,237,238
�31X%Y%+2,239,240,241:�
��setup
"�&E917;&100;&1F07;&3F1F;&1F3F;
 �&EA17;&9900;-1;-1;-1;
*#�&EB17;&8000;&F8E0;&FCF8;&F8FC;
4#�&EC17;&781F;&7878;&7F78;&1F1F;
>#�&ED17;&C3FF;&BD99;&99BD;&FFC3;
H#�&EE17;&1EF8;&1E1E;&FE1E;&F8F8;
R!�&EF17;&1F1F;&1F1F;&70F;&103;
\�&F017;-1;0;-1;-1;
f!�&F117;&F8F8;&F8F8;&E0F0;&C0;
p'�1,0,0,0,0,0,0,0,126,-4,0,-2,126,95
zV%=-8:�
�� �title:�
��1:�130
��12,5)"C O U N T I N G"
��16,7)"W I T H"
��13,9)"C H A R L I E"
��128:�charlie(18,13)
��2:�pause(4)
��11,21)"Press a key...";
�Z%=�:�:score=0:R=0
��
���right
�� 0,1:� 800,300
�� 900,250:� 1050,400
�2:�jingle
�8,22)"That's right!"
�pause(2):score=score+1
$�
.� �wrong
8� @%:� 0,1
B� 850,400:� 1050,200
L� 850,200:� 1050,400
V'�2:�0,22)"No, there are "R,�1P$"."
`�1,V%,10,5:�2,V%,15,5
j�1,V%,1,6:�2,V%,6,6
t�pause(2):�
~� �count(N%)
�� C%,@%:� C%=1 � N%
��C%*4+1,14)C%
��1,1,C%*10+40,5
��pause(.5):�:�
�
� �jingle
��:� D%,N%,P%
�� N%=1 � 10:� P%,D%
�� 1,1,P%,D%:�:�
�� �pause(t)
�� T%:T%=�+t*100
�� � �>T%:�
�"�100,1,110,1,120,1,130,1,140,1
"�150,4,120,2,110,2,100,2,120,3
�
00000000  0d 00 0a 1b f4 20 43 6f  75 6e 74 69 6e 67 20 77  |..... Counting w|
00000010  69 74 68 20 43 68 61 72  6c 69 65 0d 00 14 16 f4  |ith Charlie.....|
00000020  20 62 79 20 57 79 6e 20  4d 69 64 64 6c 65 74 6f  | by Wyn Middleto|
00000030  6e 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |n..... (c) The M|
00000040  69 63 72 6f 20 55 73 65  72 0d 00 28 1d ee 20 85  |icro User..(.. .|
00000050  20 eb 37 3a f6 3a f1 22  20 61 74 20 6c 69 6e 65  | .7:.:." at line|
00000060  20 22 3b 9e 3a e0 0d 00  32 11 eb 31 3a ef 31 39  | ";.:...2..1:.19|
00000070  2c 31 2c 35 3b 30 3b 0d  00 3c 19 ef 32 33 3b 38  |,1,5;0;..<..23;8|
00000080  32 30 32 3b 30 3b 30 3b  30 3b 3a 2a 46 58 31 31  |202;0;0;0;:*FX11|
00000090  0d 00 46 11 f2 73 65 74  75 70 3a f2 74 69 74 6c  |..F..setup:.titl|
000000a0  65 0d 00 50 05 f5 0d 00  5a 0e e3 20 4e 25 3d 31  |e..P....Z.. N%=1|
000000b0  20 b8 20 34 0d 00 64 10  e3 20 5a 25 3d 31 20 b8  | . 4..d.. Z%=1 .|
000000c0  20 33 3a db 0d 00 6e 12  e7 20 5a 25 3d 31 20 f2  | 3:...n.. Z%=1 .|
000000d0  61 70 70 6c 65 73 0d 00  78 13 e7 20 5a 25 3d 32  |apples..x.. Z%=2|
000000e0  20 f2 62 61 6e 61 6e 61  73 0d 00 82 18 e7 20 5a  | .bananas..... Z|
000000f0  25 3d 33 20 f2 73 74 72  61 77 62 65 72 72 69 65  |%=3 .strawberrie|
00000100  73 0d 00 8c 14 f2 63 68  61 72 6c 69 65 28 34 2c  |s.....charlie(4,|
00000110  33 29 3a fb 32 0d 00 96  1c f2 73 61 79 28 22 48  |3):.2.....say("H|
00000120  6f 77 20 6d 61 6e 79 20  22 2b 50 24 2b 22 3f 22  |ow many "+P$+"?"|
00000130  29 0d 00 a0 11 52 52 3d  52 3a f5 20 52 3d b3 28  |)....RR=R:. R=.(|
00000140  39 29 0d 00 aa 17 fd 20  52 3c 3e 52 52 3a ef 31  |9)..... R<>RR:.1|
00000150  39 2c 33 2c 43 25 3b 30  3b 0d 00 b4 11 fb 33 3a  |9,3,C%;0;.....3:|
00000160  e3 20 50 25 3d 31 20 b8  20 52 0d 00 be 1a ef 33  |. P%=1 . R.....3|
00000170  31 50 25 2a 34 2c 31 30  2c 32 32 34 2c 32 32 35  |1P%*4,10,224,225|
00000180  2c 32 32 36 0d 00 c8 1a  ef 33 31 50 25 2a 34 2c  |,226.....31P%*4,|
00000190  31 31 2c 32 32 37 2c 32  32 38 2c 32 32 39 0d 00  |11,227,228,229..|
000001a0  d2 1c ef 33 31 50 25 2a  34 2c 31 32 2c 32 33 30  |...31P%*4,12,230|
000001b0  2c 32 33 31 2c 32 33 32  3a ed 0d 00 dc 0d f5 20  |,231,232:...... |
000001c0  47 25 3d a5 2d 34 38 0d  00 e6 12 fd 20 47 25 3e  |G%=.-48..... G%>|
000001d0  30 20 80 20 47 25 3c 31  31 0d 00 f0 1a e7 20 47  |0 . G%<11..... G|
000001e0  25 3d 52 20 f2 72 69 67  68 74 20 8b 20 f2 77 72  |%=R .right . .wr|
000001f0  6f 6e 67 0d 00 fa 16 f2  63 6f 75 6e 74 28 52 29  |ong.....count(R)|
00000200  3a ed 3a ed 3a f2 65 6e  64 0d 01 04 09 fd 20 a3  |:.:.:.end..... .|
00000210  3a e0 0d 01 0e 0e dd 20  f2 73 61 79 28 73 24 29  |:...... .say(s$)|
00000220  0d 01 18 12 ea 20 4c 25  3a 4c 25 3d a9 73 24 2a  |..... L%:L%=.s$*|
00000230  33 32 0d 01 22 0e f1 8a  31 30 2c 34 29 73 24 3b  |32.."...10,4)s$;|
00000240  0d 01 2c 11 e6 30 2c 32  3a ec 33 31 30 2c 38 35  |..,..0,2:.310,85|
00000250  30 0d 01 36 1b df 33 31  38 2b 4c 25 2c 38 35 30  |0..6..318+L%,850|
00000260  3a df 33 31 38 2b 4c 25  2c 39 31 35 0d 01 40 15  |:.318+L%,915..@.|
00000270  df 33 31 30 2c 39 31 35  3a df 33 31 30 2c 38 39  |.310,915:.310,89|
00000280  30 0d 01 4a 15 df 32 37  30 2c 38 38 30 3a df 33  |0..J..270,880:.3|
00000290  31 30 2c 38 37 30 0d 01  54 0e df 33 31 30 2c 38  |10,870..T..310,8|
000002a0  35 30 3a e1 0d 01 5e 0d  dd 20 f2 61 70 70 6c 65  |50:...^.. .apple|
000002b0  73 0d 01 68 1c ef 26 45  30 31 37 3b 30 3b 26 46  |s..h..&E017;0;&F|
000002c0  30 33 3b 26 37 31 46 3b  26 33 30 30 3b 0d 01 72  |03;&71F;&300;..r|
000002d0  23 ef 26 45 31 31 37 3b  26 32 30 34 30 3b 26 43  |#.&E117;&2040;&C|
000002e0  46 39 33 3b 26 43 37 46  46 3b 26 44 37 31 30 3b  |F93;&C7FF;&D710;|
000002f0  0d 01 7c 1d ef 26 45 32  31 37 3b 30 3b 26 46 30  |..|..&E217;0;&F0|
00000300  46 30 3b 26 43 30 3b 26  38 30 30 30 3b 0d 01 86  |F0;&C0;&8000;...|
00000310  1f ef 26 45 33 31 37 3b  26 46 30 37 3b 26 46 30  |..&E317;&F07;&F0|
00000320  46 3b 26 46 30 46 3b 26  37 30 37 3b 0d 01 90 1a  |F;&F0F;&707;....|
00000330  ef 26 45 34 31 37 3b 26  46 46 44 37 3b 2d 31 3b  |.&E417;&FFD7;-1;|
00000340  2d 31 3b 2d 31 3b 0d 01  9a 23 ef 26 45 35 31 37  |-1;-1;...#.&E517|
00000350  3b 26 45 30 43 30 3b 26  45 30 45 30 3b 26 45 30  |;&E0C0;&E0E0;&E0|
00000360  45 30 3b 26 43 30 43 30  3b 0d 01 a4 19 ef 26 45  |E0;&C0C0;.....&E|
00000370  36 31 37 3b 26 33 30 33  3b 26 31 30 31 3b 30 3b  |617;&303;&101;0;|
00000380  30 3b 0d 01 ae 17 ef 26  45 37 31 37 3b 2d 31 3b  |0;.....&E717;-1;|
00000390  2d 31 3b 26 45 45 3b 30  3b 0d 01 b8 17 ef 26 45  |-1;&EE;0;.....&E|
000003a0  38 31 37 3b 26 38 30 38  30 3b 30 3b 30 3b 30 3b  |817;&8080;0;0;0;|
000003b0  0d 01 c2 16 43 25 3d 32  3a 50 24 3d 22 61 70 70  |....C%=2:P$="app|
000003c0  6c 65 73 22 3a e1 0d 01  cc 0e dd 20 f2 62 61 6e  |les":...... .ban|
000003d0  61 6e 61 73 0d 01 d6 13  ef 26 45 30 31 37 3b 30  |anas.....&E017;0|
000003e0  3b 30 3b 30 3b 30 3b 0d  01 e0 19 ef 26 45 31 31  |;0;0;0;.....&E11|
000003f0  37 3b 26 31 30 31 3b 30  3b 30 3b 26 31 30 30 3b  |7;&101;0;0;&100;|
00000400  0d 01 ea 23 ef 26 45 32  31 37 3b 26 46 46 43 30  |...#.&E217;&FFC0|
00000410  3b 26 33 36 37 46 3b 26  44 30 35 30 3b 26 42 30  |;&367F;&D050;&B0|
00000420  44 30 3b 0d 01 f4 16 ef  26 45 33 31 37 3b 30 3b  |D0;.....&E317;0;|
00000430  30 3b 30 3b 26 31 30 30  3b 0d 01 fe 21 ef 26 45  |0;0;&100;...!.&E|
00000440  34 31 37 3b 26 33 30 31  3b 26 36 30 33 3b 26 33  |417;&301;&603;&3|
00000450  44 30 45 3b 26 44 46 37  42 3b 0d 02 08 23 ef 26  |D0E;&DF7B;...#.&|
00000460  45 35 31 37 3b 26 36 30  41 30 3b 26 45 30 36 30  |E517;&60A0;&E060|
00000470  3b 26 43 30 43 30 3b 26  38 30 38 30 3b 0d 02 12  |;&C0C0;&8080;...|
00000480  1c ef 26 45 36 31 37 3b  26 37 45 30 46 3b 26 37  |..&E617;&7E0F;&7|
00000490  46 38 31 3b 26 46 3b 30  3b 0d 02 1c 1d ef 26 45  |F81;&F;0;.....&E|
000004a0  37 31 37 3b 26 33 45 44  46 3b 26 45 30 46 43 3b  |717;&3EDF;&E0FC;|
000004b0  26 38 30 3b 30 3b 0d 02  26 13 ef 26 45 38 31 37  |&80;0;..&..&E817|
000004c0  3b 30 3b 30 3b 30 3b 30  3b 0d 02 30 17 43 25 3d  |;0;0;0;0;..0.C%=|
000004d0  33 3a 50 24 3d 22 62 61  6e 61 6e 61 73 22 3a e1  |3:P$="bananas":.|
000004e0  0d 02 3a 13 dd 20 f2 73  74 72 61 77 62 65 72 72  |..:.. .strawberr|
000004f0  69 65 73 0d 02 44 1e ef  26 45 30 31 37 3b 30 3b  |ies..D..&E017;0;|
00000500  26 33 30 30 3b 26 31 46  30 46 3b 26 33 46 31 46  |&300;&1F0F;&3F1F|
00000510  3b 0d 02 4e 23 ef 26 45  31 31 37 3b 26 31 30 30  |;..N#.&E117;&100|
00000520  38 3b 26 46 46 31 30 3b  26 42 46 46 46 3b 26 46  |8;&FF10;&BFFF;&F|
00000530  46 44 44 3b 0d 02 58 1f  ef 26 45 32 31 37 3b 30  |FDD;..X..&E217;0|
00000540  3b 26 43 30 30 30 3b 26  46 38 46 30 3b 26 46 43  |;&C000;&F8F0;&FC|
00000550  46 38 3b 0d 02 62 22 ef  26 45 33 31 37 3b 26 33  |F8;..b".&E317;&3|
00000560  46 33 46 3b 26 33 46 33  42 3b 26 31 46 31 46 3b  |F3F;&3F3B;&1F1F;|
00000570  26 46 30 46 3b 0d 02 6c  23 ef 26 45 34 31 37 3b  |&F0F;..l#.&E417;|
00000580  26 46 37 46 46 3b 26 44  46 46 46 3b 26 46 42 46  |&F7FF;&DFFF;&FBF|
00000590  46 3b 26 46 46 42 46 3b  0d 02 76 23 ef 26 45 35  |F;&FFBF;..v#.&E5|
000005a0  31 37 3b 26 44 43 46 43  3b 26 46 43 46 43 3b 26  |17;&DCFC;&FCFC;&|
000005b0  46 38 44 38 3b 26 46 30  46 30 3b 0d 02 80 16 ef  |F8D8;&F0F0;.....|
000005c0  26 45 36 31 37 3b 26 33  30 37 3b 31 3b 30 3b 30  |&E617;&307;1;0;0|
000005d0  3b 0d 02 8a 21 ef 26 45  37 31 37 3b 26 45 46 46  |;...!.&E717;&EFF|
000005e0  46 3b 26 46 42 46 46 3b  26 33 43 37 45 3b 26 31  |F;&FBFF;&3C7E;&1|
000005f0  38 3b 0d 02 94 19 ef 26  45 38 31 37 3b 26 43 30  |8;.....&E817;&C0|
00000600  45 30 3b 26 38 30 3b 30  3b 30 3b 0d 02 9e 1c 43  |E0;&80;0;0;....C|
00000610  25 3d 31 3a 50 24 3d 22  73 74 72 61 77 62 65 72  |%=1:P$="strawber|
00000620  72 69 65 73 22 3a e1 0d  02 a8 0c dd 20 f2 65 6e  |ries":...... .en|
00000630  64 3a db 0d 02 b2 19 f2  6a 69 6e 67 6c 65 3a f2  |d:......jingle:.|
00000640  63 68 61 72 6c 69 65 28  34 2c 33 29 0d 02 bc 29  |charlie(4,3)...)|
00000650  f2 73 61 79 28 22 59 6f  75 20 67 6f 74 20 22 2b  |.say("You got "+|
00000660  c3 73 63 6f 72 65 2b 22  20 6f 75 74 20 6f 66 20  |.score+" out of |
00000670  20 31 32 22 29 0d 02 c6  16 f2 70 61 75 73 65 28  | 12").....pause(|
00000680  32 29 3a fb 32 3a 2a 46  58 32 31 0d 02 d0 1c f1  |2):.2:*FX21.....|
00000690  8a 37 2c 31 34 29 22 50  72 65 73 73 20 61 20 6b  |.7,14)"Press a k|
000006a0  65 79 2e 2e 2e 22 3b 0d  02 da 12 5a 25 3d a5 3a  |ey...";....Z%=.:|
000006b0  f2 6a 69 6e 67 6c 65 3a  e1 0d 02 e4 15 dd 20 f2  |.jingle:...... .|
000006c0  63 68 61 72 6c 69 65 28  58 25 2c 59 25 29 0d 02  |charlie(X%,Y%)..|
000006d0  ee 1a fb 32 3a ef 33 31  58 25 59 25 2c 32 33 33  |...2:.31X%Y%,233|
000006e0  2c 32 33 34 2c 32 33 35  0d 02 f8 1c fb 35 3a ef  |,234,235.....5:.|
000006f0  33 31 58 25 59 25 2b 31  2c 32 33 36 2c 32 33 37  |31X%Y%+1,236,237|
00000700  2c 32 33 38 0d 03 02 1b  ef 33 31 58 25 59 25 2b  |,238.....31X%Y%+|
00000710  32 2c 32 33 39 2c 32 34  30 2c 32 34 31 3a e1 0d  |2,239,240,241:..|
00000720  03 0c 0b dd f2 73 65 74  75 70 0d 03 16 22 ef 26  |.....setup...".&|
00000730  45 39 31 37 3b 26 31 30  30 3b 26 31 46 30 37 3b  |E917;&100;&1F07;|
00000740  26 33 46 31 46 3b 26 31  46 33 46 3b 0d 03 20 1a  |&3F1F;&1F3F;.. .|
00000750  ef 26 45 41 31 37 3b 26  39 39 30 30 3b 2d 31 3b  |.&EA17;&9900;-1;|
00000760  2d 31 3b 2d 31 3b 0d 03  2a 23 ef 26 45 42 31 37  |-1;-1;..*#.&EB17|
00000770  3b 26 38 30 30 30 3b 26  46 38 45 30 3b 26 46 43  |;&8000;&F8E0;&FC|
00000780  46 38 3b 26 46 38 46 43  3b 0d 03 34 23 ef 26 45  |F8;&F8FC;..4#.&E|
00000790  43 31 37 3b 26 37 38 31  46 3b 26 37 38 37 38 3b  |C17;&781F;&7878;|
000007a0  26 37 46 37 38 3b 26 31  46 31 46 3b 0d 03 3e 23  |&7F78;&1F1F;..>#|
000007b0  ef 26 45 44 31 37 3b 26  43 33 46 46 3b 26 42 44  |.&ED17;&C3FF;&BD|
000007c0  39 39 3b 26 39 39 42 44  3b 26 46 46 43 33 3b 0d  |99;&99BD;&FFC3;.|
000007d0  03 48 23 ef 26 45 45 31  37 3b 26 31 45 46 38 3b  |.H#.&EE17;&1EF8;|
000007e0  26 31 45 31 45 3b 26 46  45 31 45 3b 26 46 38 46  |&1E1E;&FE1E;&F8F|
000007f0  38 3b 0d 03 52 21 ef 26  45 46 31 37 3b 26 31 46  |8;..R!.&EF17;&1F|
00000800  31 46 3b 26 31 46 31 46  3b 26 37 30 46 3b 26 31  |1F;&1F1F;&70F;&1|
00000810  30 33 3b 0d 03 5c 16 ef  26 46 30 31 37 3b 2d 31  |03;..\..&F017;-1|
00000820  3b 30 3b 2d 31 3b 2d 31  3b 0d 03 66 21 ef 26 46  |;0;-1;-1;..f!.&F|
00000830  31 31 37 3b 26 46 38 46  38 3b 26 46 38 46 38 3b  |117;&F8F8;&F8F8;|
00000840  26 45 30 46 30 3b 26 43  30 3b 0d 03 70 27 e2 31  |&E0F0;&C0;..p'.1|
00000850  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,0,0,0,0,0,0,0,1|
00000860  32 36 2c 2d 34 2c 30 2c  2d 32 2c 31 32 36 2c 39  |26,-4,0,-2,126,9|
00000870  35 0d 03 7a 0b 56 25 3d  2d 38 3a e1 0d 03 84 0e  |5..z.V%=-8:.....|
00000880  dd 20 f2 74 69 74 6c 65  3a db 0d 03 8e 0b fb 31  |. .title:......1|
00000890  3a fb 31 33 30 0d 03 98  1c f1 8a 31 32 2c 35 29  |:.130......12,5)|
000008a0  22 43 20 4f 20 55 20 4e  20 54 20 49 20 4e 20 47  |"C O U N T I N G|
000008b0  22 0d 03 a2 14 f1 8a 31  36 2c 37 29 22 57 20 49  |"......16,7)"W I|
000008c0  20 54 20 48 22 0d 03 ac  1a f1 8a 31 33 2c 39 29  | T H"......13,9)|
000008d0  22 43 20 48 20 41 20 52  20 4c 20 49 20 45 22 0d  |"C H A R L I E".|
000008e0  03 b6 18 fb 31 32 38 3a  f2 63 68 61 72 6c 69 65  |....128:.charlie|
000008f0  28 31 38 2c 31 33 29 0d  03 c0 10 fb 32 3a f2 70  |(18,13).....2:.p|
00000900  61 75 73 65 28 34 29 0d  03 ca 1d f1 8a 31 31 2c  |ause(4)......11,|
00000910  32 31 29 22 50 72 65 73  73 20 61 20 6b 65 79 2e  |21)"Press a key.|
00000920  2e 2e 22 3b 0d 03 d4 16  5a 25 3d a5 3a db 3a 73  |..";....Z%=.:.:s|
00000930  63 6f 72 65 3d 30 3a 52  3d 30 0d 03 de 05 e1 0d  |core=0:R=0......|
00000940  03 e8 0b dd f2 72 69 67  68 74 0d 03 f2 13 e6 20  |.....right..... |
00000950  30 2c 31 3a ec 20 38 30  30 2c 33 30 30 0d 03 fc  |0,1:. 800,300...|
00000960  18 df 20 39 30 30 2c 32  35 30 3a df 20 31 30 35  |.. 900,250:. 105|
00000970  30 2c 34 30 30 0d 04 06  0e fb 32 3a f2 6a 69 6e  |0,400.....2:.jin|
00000980  67 6c 65 0d 04 10 1a f1  8a 38 2c 32 32 29 22 54  |gle......8,22)"T|
00000990  68 61 74 27 73 20 72 69  67 68 74 21 22 0d 04 1a  |hat's right!"...|
000009a0  1b f2 70 61 75 73 65 28  32 29 3a 73 63 6f 72 65  |..pause(2):score|
000009b0  3d 73 63 6f 72 65 2b 31  0d 04 24 05 e1 0d 04 2e  |=score+1..$.....|
000009c0  0c dd 20 f2 77 72 6f 6e  67 0d 04 38 0e ea 20 40  |.. .wrong..8.. @|
000009d0  25 3a e6 20 30 2c 31 0d  04 42 18 ec 20 38 35 30  |%:. 0,1..B.. 850|
000009e0  2c 34 30 30 3a df 20 31  30 35 30 2c 32 30 30 0d  |,400:. 1050,200.|
000009f0  04 4c 18 ec 20 38 35 30  2c 32 30 30 3a df 20 31  |.L.. 850,200:. 1|
00000a00  30 35 30 2c 34 30 30 0d  04 56 27 fb 32 3a f1 8a  |050,400..V'.2:..|
00000a10  30 2c 32 32 29 22 4e 6f  2c 20 74 68 65 72 65 20  |0,22)"No, there |
00000a20  61 72 65 20 22 52 2c 89  31 50 24 22 2e 22 0d 04  |are "R,.1P$"."..|
00000a30  60 19 d4 31 2c 56 25 2c  31 30 2c 35 3a d4 32 2c  |`..1,V%,10,5:.2,|
00000a40  56 25 2c 31 35 2c 35 0d  04 6a 17 d4 31 2c 56 25  |V%,15,5..j..1,V%|
00000a50  2c 31 2c 36 3a d4 32 2c  56 25 2c 36 2c 36 0d 04  |,1,6:.2,V%,6,6..|
00000a60  74 0f f2 70 61 75 73 65  28 32 29 3a e1 0d 04 7e  |t..pause(2):...~|
00000a70  10 dd 20 f2 63 6f 75 6e  74 28 4e 25 29 0d 04 88  |.. .count(N%)...|
00000a80  17 ea 20 43 25 2c 40 25  3a e3 20 43 25 3d 31 20  |.. C%,@%:. C%=1 |
00000a90  b8 20 4e 25 0d 04 92 12  f1 8a 43 25 2a 34 2b 31  |. N%......C%*4+1|
00000aa0  2c 31 34 29 43 25 0d 04  9c 13 d4 31 2c 31 2c 43  |,14)C%.....1,1,C|
00000ab0  25 2a 31 30 2b 34 30 2c  35 0d 04 a6 12 f2 70 61  |%*10+40,5.....pa|
00000ac0  75 73 65 28 2e 35 29 3a  ed 3a e1 0d 04 b0 0d dd  |use(.5):.:......|
00000ad0  20 f2 6a 69 6e 67 6c 65  0d 04 ba 10 f7 3a ea 20  | .jingle.....:. |
00000ae0  44 25 2c 4e 25 2c 50 25  0d 04 c4 17 e3 20 4e 25  |D%,N%,P%..... N%|
00000af0  3d 31 20 b8 20 31 30 3a  f3 20 50 25 2c 44 25 0d  |=1 . 10:. P%,D%.|
00000b00  04 ce 13 d4 20 31 2c 31  2c 50 25 2c 44 25 3a ed  |.... 1,1,P%,D%:.|
00000b10  3a e1 0d 04 d8 0f dd 20  f2 70 61 75 73 65 28 74  |:...... .pause(t|
00000b20  29 0d 04 e2 13 ea 20 54  25 3a 54 25 3d 91 2b 74  |)..... T%:T%=.+t|
00000b30  2a 31 30 30 0d 04 ec 0e  f5 20 fd 20 91 3e 54 25  |*100..... . .>T%|
00000b40  3a e1 0d 04 f6 22 dc 31  30 30 2c 31 2c 31 31 30  |:....".100,1,110|
00000b50  2c 31 2c 31 32 30 2c 31  2c 31 33 30 2c 31 2c 31  |,1,120,1,130,1,1|
00000b60  34 30 2c 31 0d 05 00 22  dc 31 35 30 2c 34 2c 31  |40,1...".150,4,1|
00000b70  32 30 2c 32 2c 31 31 30  2c 32 2c 31 30 30 2c 32  |20,2,110,2,100,2|
00000b80  2c 31 32 30 2c 33 0d ff                           |,120,3..|
00000b88
29-10-88/COUNT.m0
29-10-88/COUNT.m1
29-10-88/COUNT.m2
29-10-88/COUNT.m4
29-10-88/COUNT.m5