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:
- AEW website » mu » mu_5_25_discs_Micro_User_06_03_D-MU06_03.ssd » CHARLIE
- CEEFAX disks » telesoftware10.adl » 29-10-88/COUNT
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