� 1:�cls
 �:�
 �:�"Sound(Y/N)";
(	 s$=�
2 � s$<>"N" � s$<>"Y"��
<" �:�15,10);"Please Wait. . ."
F! �sc(9),sc$(9),scb(9),scb$(9)
P! sc(0)=52:sc(1)=113:sc(2)=231
Z" sc(3)=354:sc(4)=493:sc(5)=642
d# sc(6)=754:sc(7)=882:sc(8)=1072
n sc(9)=2984:sc$(0)="Daddy"
x" sc$(1)="Mummy":sc$(2)="Sonic"
�" sc$(3)="Mario":sc$(4)="Beany"
�& sc$(5)="Fantasia":sc$(6)="Dr.Who"
�" sc$(7)="Morph":sc$(8)="Jerry"
� sc$(9)="Woozy":�lo=0�9
�& scb(lo)=sc(lo):scb$(lo)=sc$(lo):�
�
 �dnB
�� �23,128,255,255,255,255,255,255,255,255,23,129,255,255,255,255,255,255,255,255,23,130,255,255,255,255,255,255,255,255,23,131,255,129,129,255,255,129,129,255
� �init:�cls:�lo=0 � 9
� �1,15-lo);sc$(lo)
�" �10,15-lo);" scored:";sc(lo)
� �28,15-lo);" on colours."
�# �10,28-lo);" scored:";scb(lo)
� �28,28-lo);" on alpha."

 �1,28-lo);scb$(lo)

 �

 �2:�16,3);"Colours Game"

" �16,17);"Alphabet Game"

, �1

66 �0,30);"Press C for colours or A for alphabet.";

@ �3:A$=�

J � A$="C" � ?&DFF=2:�nor

T � A$="A" � ?&DFF=1:�alp

^ � �dH@

h ��cls:�:�1

r �16,0);"Tetronic"

| �16,1);"========"

�	 �3:�

� ��alp:�set

� s=�(26)+64:�drop

� �check:�scr

� � lu=1 � �level

� � to=1 � �died:� li=-1 � �

� � �tZA

� ��nor:�set

� s=�(3)+127:�(s-127):�drop

� �check:�scr

� � lu=1 � �level

� � to=1 � �died:� li=-1 � �

� � �dVA
 ��init:score=0:lev=1
 lu=0:to=0:gs=0:li=3:�initb
 �
& ��set:�
0 �l=10�19:�l,24);�(131):�
:- �l=0�23:�10,l);�(131);�19,l);�(131):�:�
D ��level
N � s$="N" � �t@B
X � 1,-1,0,10
b � 1,-1,52,10
l � 1,-1,100,10
v � 1,-1,148,10
� lev=lev+1
� ��drop:l=0:a=4:?&DFE=s
�1 � ?(&B00+a+(l-1)*10)<>0 � ?(&B00+a+l*10)=s:�
�$l=l+1:� l=24� ?(&B00+a+l*10)=s:�
� � lo=0 � 2:�1
�, �a+10,l);" ":� A$="C" � � (s-127) � �3
�& � �(-98)�?(&B00+a-1+l*10)=0�a=a-1
�& � �(-67)�?(&B00+a+1+l*10)=0�a=a+1
� �a+10,l);�(s)
� �a+10,l);" "
� �:�tTB
� � o=0 � 2 �2
� P%=&D00
 [OPT o
 .initb LDY#0
 LDA#0:.inlo STA&B00,Y
 % INY:CPY#255:BNEinlo:LDY#10:LDA#1
*# .inlob STA&B00,Y:DEY:STA&B00,Y
4 TYA:CLC:ADC#11:TAY:LDA#131
>$ CPY#240:BCCinlob:STA&B00:JMPboo
H1 .scr LDY#0:LDX#0:.do LDA&DFF:CMP#2:BEQcolour
R� .sc LDA#31:JSR&FFEE:TYA:CLC:ADC#11:JSR&FFEE:STX&DFD:STY&DFC:TXA:JSR&FFEE:LDA&DFC#0:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:CLC:ADC&DFD:TAX:LDA&B00,X:JSR&FFEE:LDX&DFD:LDY&DFC
\) INY:CPY#7:BNEdo:INX:CPX#23:BNEdo:RTS
f1 .colour LDA#17:JSR&FFEE:LDA&DFE:JSR&FFEE:RTS
p$ .boo LDY#0:LDA#0:.inl STA&A00,Y
z INY:CPY#255:BNEinl:RTS
�
 ]:�:�
� ��fall:�x=1�7:�y=0�30
�O �?(&B00+x+y*10)=0 � � lop=y � 0 �-1:?(&B00+x+lop*10)=?(&B00+x+lop*10-10):�
�	 �,:�
� ��check:ol=sc:�3
� �x=1�7�2:�y=0�30
�� �A$="A"�?(&B00+x+y*10)=(?(&B00+x+y*10))-1 � sc=sc+lev:gs=gs+1:?(&B00+x+y*10)=0:(?(&B00+x+y*10))+1=0��A$="C"�?(&B00+x+y*10)=(?(&B00+x+y*10)) � sc=sc+lev:gs=gs+1:?(&B00+x+y*10)=0:(?(&B00+x+y*10))+1=0
�� �A$="A"�?(&B00+x+y*10)=(?(&B00+x+y*10-1))+1 � sc=sc+lev:gs=gs+1:?(&B00+x+y*10)=0:(?(&B00+x+y*10))-1=0��A$="C"�?(&B00+x+y*10)=(?(&B00+x+y*10+1)) � sc=sc+lev:gs=gs+1:?(&B00+x+y*10)=0:(?(&B00+x+y*10))+1=0
�\ �,:�3:�20,5);"Score:";sc;�20,7);"Level:";lev;�20,9);"Groups:";gs:�sc<>ol � �fall:� � �
�

00000000  0d 00 0a 0d 20 eb 20 31  3a f2 63 6c 73 0d 00 14  |.... . 1:.cls...|
00000010  08 20 f1 3a f1 0d 00 1e  15 20 f1 3a f1 22 53 6f  |. .:..... .:."So|
00000020  75 6e 64 28 59 2f 4e 29  22 3b 0d 00 28 09 20 73  |und(Y/N)";..(. s|
00000030  24 3d be 0d 00 32 1a 20  e7 20 73 24 3c 3e 22 4e  |$=...2. . s$<>"N|
00000040  22 20 80 20 73 24 3c 3e  22 59 22 8c f9 0d 00 3c  |" . s$<>"Y"....<|
00000050  22 20 db 3a f1 8a 31 35  2c 31 30 29 3b 22 50 6c  |" .:..15,10);"Pl|
00000060  65 61 73 65 20 57 61 69  74 2e 20 2e 20 2e 22 0d  |ease Wait. . .".|
00000070  00 46 21 20 de 73 63 28  39 29 2c 73 63 24 28 39  |.F! .sc(9),sc$(9|
00000080  29 2c 73 63 62 28 39 29  2c 73 63 62 24 28 39 29  |),scb(9),scb$(9)|
00000090  0d 00 50 21 20 73 63 28  30 29 3d 35 32 3a 73 63  |..P! sc(0)=52:sc|
000000a0  28 31 29 3d 31 31 33 3a  73 63 28 32 29 3d 32 33  |(1)=113:sc(2)=23|
000000b0  31 0d 00 5a 22 20 73 63  28 33 29 3d 33 35 34 3a  |1..Z" sc(3)=354:|
000000c0  73 63 28 34 29 3d 34 39  33 3a 73 63 28 35 29 3d  |sc(4)=493:sc(5)=|
000000d0  36 34 32 0d 00 64 23 20  73 63 28 36 29 3d 37 35  |642..d# sc(6)=75|
000000e0  34 3a 73 63 28 37 29 3d  38 38 32 3a 73 63 28 38  |4:sc(7)=882:sc(8|
000000f0  29 3d 31 30 37 32 0d 00  6e 1e 20 73 63 28 39 29  |)=1072..n. sc(9)|
00000100  3d 32 39 38 34 3a 73 63  24 28 30 29 3d 22 44 61  |=2984:sc$(0)="Da|
00000110  64 64 79 22 0d 00 78 22  20 73 63 24 28 31 29 3d  |ddy"..x" sc$(1)=|
00000120  22 4d 75 6d 6d 79 22 3a  73 63 24 28 32 29 3d 22  |"Mummy":sc$(2)="|
00000130  53 6f 6e 69 63 22 0d 00  82 22 20 73 63 24 28 33  |Sonic"..." sc$(3|
00000140  29 3d 22 4d 61 72 69 6f  22 3a 73 63 24 28 34 29  |)="Mario":sc$(4)|
00000150  3d 22 42 65 61 6e 79 22  0d 00 8c 26 20 73 63 24  |="Beany"...& sc$|
00000160  28 35 29 3d 22 46 61 6e  74 61 73 69 61 22 3a 73  |(5)="Fantasia":s|
00000170  63 24 28 36 29 3d 22 44  72 2e 57 68 6f 22 0d 00  |c$(6)="Dr.Who"..|
00000180  96 22 20 73 63 24 28 37  29 3d 22 4d 6f 72 70 68  |." sc$(7)="Morph|
00000190  22 3a 73 63 24 28 38 29  3d 22 4a 65 72 72 79 22  |":sc$(8)="Jerry"|
000001a0  0d 00 a0 1b 20 73 63 24  28 39 29 3d 22 57 6f 6f  |.... sc$(9)="Woo|
000001b0  7a 79 22 3a e3 6c 6f 3d  30 b8 39 0d 00 aa 26 20  |zy":.lo=0.9...& |
000001c0  73 63 62 28 6c 6f 29 3d  73 63 28 6c 6f 29 3a 73  |scb(lo)=sc(lo):s|
000001d0  63 62 24 28 6c 6f 29 3d  73 63 24 28 6c 6f 29 3a  |cb$(lo)=sc$(lo):|
000001e0  ed 0d 00 b4 0a 20 e4 8d  64 6e 42 0d 00 be a1 20  |..... ..dnB.... |
000001f0  ef 32 33 2c 31 32 38 2c  32 35 35 2c 32 35 35 2c  |.23,128,255,255,|
00000200  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000210  32 35 35 2c 32 35 35 2c  32 33 2c 31 32 39 2c 32  |255,255,23,129,2|
00000220  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
*
00000240  33 2c 31 33 30 2c 32 35  35 2c 32 35 35 2c 32 35  |3,130,255,255,25|
00000250  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000260  35 2c 32 35 35 2c 32 33  2c 31 33 31 2c 32 35 35  |5,255,23,131,255|
00000270  2c 31 32 39 2c 31 32 39  2c 32 35 35 2c 32 35 35  |,129,129,255,255|
00000280  2c 31 32 39 2c 31 32 39  2c 32 35 35 0d 00 c8 19  |,129,129,255....|
00000290  20 f2 69 6e 69 74 3a f2  63 6c 73 3a e3 6c 6f 3d  | .init:.cls:.lo=|
000002a0  30 20 b8 20 39 0d 00 d2  17 20 f1 8a 31 2c 31 35  |0 . 9.... ..1,15|
000002b0  2d 6c 6f 29 3b 73 63 24  28 6c 6f 29 0d 00 dc 22  |-lo);sc$(lo)..."|
000002c0  20 f1 8a 31 30 2c 31 35  2d 6c 6f 29 3b 22 20 73  | ..10,15-lo);" s|
000002d0  63 6f 72 65 64 3a 22 3b  73 63 28 6c 6f 29 0d 00  |cored:";sc(lo)..|
000002e0  e6 1f 20 f1 8a 32 38 2c  31 35 2d 6c 6f 29 3b 22  |.. ..28,15-lo);"|
000002f0  20 6f 6e 20 63 6f 6c 6f  75 72 73 2e 22 0d 00 f0  | on colours."...|
00000300  23 20 f1 8a 31 30 2c 32  38 2d 6c 6f 29 3b 22 20  |# ..10,28-lo);" |
00000310  73 63 6f 72 65 64 3a 22  3b 73 63 62 28 6c 6f 29  |scored:";scb(lo)|
00000320  0d 00 fa 1d 20 f1 8a 32  38 2c 32 38 2d 6c 6f 29  |.... ..28,28-lo)|
00000330  3b 22 20 6f 6e 20 61 6c  70 68 61 2e 22 0d 01 04  |;" on alpha."...|
00000340  18 20 f1 8a 31 2c 32 38  2d 6c 6f 29 3b 73 63 62  |. ..1,28-lo);scb|
00000350  24 28 6c 6f 29 0d 01 0e  06 20 ed 0d 01 18 1e 20  |$(lo).... ..... |
00000360  fb 32 3a f1 8a 31 36 2c  33 29 3b 22 43 6f 6c 6f  |.2:..16,3);"Colo|
00000370  75 72 73 20 47 61 6d 65  22 0d 01 22 1d 20 f1 8a  |urs Game"..". ..|
00000380  31 36 2c 31 37 29 3b 22  41 6c 70 68 61 62 65 74  |16,17);"Alphabet|
00000390  20 47 61 6d 65 22 0d 01  2c 07 20 fb 31 0d 01 36  | Game"..,. .1..6|
000003a0  36 20 f1 8a 30 2c 33 30  29 3b 22 50 72 65 73 73  |6 ..0,30);"Press|
000003b0  20 43 20 66 6f 72 20 63  6f 6c 6f 75 72 73 20 6f  | C for colours o|
000003c0  72 20 41 20 66 6f 72 20  61 6c 70 68 61 62 65 74  |r A for alphabet|
000003d0  2e 22 3b 0d 01 40 0c 20  fb 33 3a 41 24 3d be 0d  |.";..@. .3:A$=..|
000003e0  01 4a 1c 20 e7 20 41 24  3d 22 43 22 20 8c 20 3f  |.J. . A$="C" . ?|
000003f0  26 44 46 46 3d 32 3a f2  6e 6f 72 0d 01 54 1c 20  |&DFF=2:.nor..T. |
00000400  e7 20 41 24 3d 22 41 22  20 8c 20 3f 26 44 46 46  |. A$="A" . ?&DFF|
00000410  3d 31 3a f2 61 6c 70 0d  01 5e 0b 20 e5 20 8d 64  |=1:.alp..^. . .d|
00000420  48 40 0d 01 68 0f 20 dd  f2 63 6c 73 3a db 3a fb  |H@..h. ..cls:.:.|
00000430  31 0d 01 72 17 20 f1 8a  31 36 2c 30 29 3b 22 54  |1..r. ..16,0);"T|
00000440  65 74 72 6f 6e 69 63 22  0d 01 7c 17 20 f1 8a 31  |etronic"..|. ..1|
00000450  36 2c 31 29 3b 22 3d 3d  3d 3d 3d 3d 3d 3d 22 0d  |6,1);"========".|
00000460  01 86 09 20 fb 33 3a e1  0d 01 90 0f 20 dd f2 61  |... .3:..... ..a|
00000470  6c 70 3a f2 73 65 74 0d  01 9a 15 20 73 3d b3 28  |lp:.set.... s=.(|
00000480  32 36 29 2b 36 34 3a f2  64 72 6f 70 0d 01 a4 10  |26)+64:.drop....|
00000490  20 f2 63 68 65 63 6b 3a  d6 73 63 72 0d 01 ae 14  | .check:.scr....|
000004a0  20 e7 20 6c 75 3d 31 20  8c 20 f2 6c 65 76 65 6c  | . lu=1 . .level|
000004b0  0d 01 b8 1f 20 e7 20 74  6f 3d 31 20 8c 20 f2 64  |.... . to=1 . .d|
000004c0  69 65 64 3a e7 20 6c 69  3d 2d 31 20 8c 20 e1 0d  |ied:. li=-1 . ..|
000004d0  01 c2 0b 20 e5 20 8d 74  5a 41 0d 01 cc 0f 20 dd  |... . .tZA.... .|
000004e0  f2 6e 6f 72 3a f2 73 65  74 0d 01 d6 1e 20 73 3d  |.nor:.set.... s=|
000004f0  b3 28 33 29 2b 31 32 37  3a fb 28 73 2d 31 32 37  |.(3)+127:.(s-127|
00000500  29 3a f2 64 72 6f 70 0d  01 e0 10 20 f2 63 68 65  |):.drop.... .che|
00000510  63 6b 3a d6 73 63 72 0d  01 ea 14 20 e7 20 6c 75  |ck:.scr.... . lu|
00000520  3d 31 20 8c 20 f2 6c 65  76 65 6c 0d 01 f4 1f 20  |=1 . .level.... |
00000530  e7 20 74 6f 3d 31 20 8c  20 f2 64 69 65 64 3a e7  |. to=1 . .died:.|
00000540  20 6c 69 3d 2d 31 20 8c  20 e1 0d 01 fe 0b 20 e5  | li=-1 . ..... .|
00000550  20 8d 64 56 41 0d 02 08  19 20 dd f2 69 6e 69 74  | .dVA.... ..init|
00000560  3a 73 63 6f 72 65 3d 30  3a 6c 65 76 3d 31 0d 02  |:score=0:lev=1..|
00000570  12 1f 20 6c 75 3d 30 3a  74 6f 3d 30 3a 67 73 3d  |.. lu=0:to=0:gs=|
00000580  30 3a 6c 69 3d 33 3a d6  69 6e 69 74 62 0d 02 1c  |0:li=3:.initb...|
00000590  06 20 e1 0d 02 26 0c 20  dd f2 73 65 74 3a db 0d  |. ...&. ..set:..|
000005a0  02 30 1e 20 e3 6c 3d 31  30 b8 31 39 3a f1 8a 6c  |.0. .l=10.19:..l|
000005b0  2c 32 34 29 3b bd 28 31  33 31 29 3a ed 0d 02 3a  |,24);.(131):...:|
000005c0  2d 20 e3 6c 3d 30 b8 32  33 3a f1 8a 31 30 2c 6c  |- .l=0.23:..10,l|
000005d0  29 3b bd 28 31 33 31 29  3b 8a 31 39 2c 6c 29 3b  |);.(131);.19,l);|
000005e0  bd 28 31 33 31 29 3a ed  3a e1 0d 02 44 0c 20 dd  |.(131):.:...D. .|
000005f0  f2 6c 65 76 65 6c 0d 02  4e 14 20 e7 20 73 24 3d  |.level..N. . s$=|
00000600  22 4e 22 20 8c 20 8d 74  40 42 0d 02 58 10 20 d4  |"N" . .t@B..X. .|
00000610  20 31 2c 2d 31 2c 30 2c  31 30 0d 02 62 11 20 d4  | 1,-1,0,10..b. .|
00000620  20 31 2c 2d 31 2c 35 32  2c 31 30 0d 02 6c 12 20  | 1,-1,52,10..l. |
00000630  d4 20 31 2c 2d 31 2c 31  30 30 2c 31 30 0d 02 76  |. 1,-1,100,10..v|
00000640  12 20 d4 20 31 2c 2d 31  2c 31 34 38 2c 31 30 0d  |. . 1,-1,148,10.|
00000650  02 80 0e 20 6c 65 76 3d  6c 65 76 2b 31 0d 02 8a  |... lev=lev+1...|
00000660  1b 20 dd f2 64 72 6f 70  3a 6c 3d 30 3a 61 3d 34  |. ..drop:l=0:a=4|
00000670  3a 3f 26 44 46 45 3d 73  0d 02 94 31 20 e7 20 3f  |:?&DFE=s...1 . ?|
00000680  28 26 42 30 30 2b 61 2b  28 6c 2d 31 29 2a 31 30  |(&B00+a+(l-1)*10|
00000690  29 3c 3e 30 20 8c 20 3f  28 26 42 30 30 2b 61 2b  |)<>0 . ?(&B00+a+|
000006a0  6c 2a 31 30 29 3d 73 3a  e1 0d 02 9e 24 6c 3d 6c  |l*10)=s:....$l=l|
000006b0  2b 31 3a e7 20 6c 3d 32  34 8c 20 3f 28 26 42 30  |+1:. l=24. ?(&B0|
000006c0  30 2b 61 2b 6c 2a 31 30  29 3d 73 3a e1 0d 02 a8  |0+a+l*10)=s:....|
000006d0  12 20 e3 20 6c 6f 3d 30  20 b8 20 32 3a fb 31 0d  |. . lo=0 . 2:.1.|
000006e0  02 b2 2c 20 f1 8a 61 2b  31 30 2c 6c 29 3b 22 20  |.., ..a+10,l);" |
000006f0  22 3a e7 20 41 24 3d 22  43 22 20 8c 20 fb 20 28  |":. A$="C" . . (|
00000700  73 2d 31 32 37 29 20 8b  20 fb 33 0d 02 bc 26 20  |s-127) . .3...& |
00000710  e7 20 a6 28 2d 39 38 29  80 3f 28 26 42 30 30 2b  |. .(-98).?(&B00+|
00000720  61 2d 31 2b 6c 2a 31 30  29 3d 30 8c 61 3d 61 2d  |a-1+l*10)=0.a=a-|
00000730  31 0d 02 c6 26 20 e7 20  a6 28 2d 36 37 29 80 3f  |1...& . .(-67).?|
00000740  28 26 42 30 30 2b 61 2b  31 2b 6c 2a 31 30 29 3d  |(&B00+a+1+l*10)=|
00000750  30 8c 61 3d 61 2b 31 0d  02 d0 13 20 f1 8a 61 2b  |0.a=a+1.... ..a+|
00000760  31 30 2c 6c 29 3b bd 28  73 29 0d 02 da 12 20 f1  |10,l);.(s).... .|
00000770  8a 61 2b 31 30 2c 6c 29  3b 22 20 22 0d 02 e4 0c  |.a+10,l);" "....|
00000780  20 ed 3a e5 8d 74 54 42  0d 02 ee 11 20 e3 20 6f  | .:..tTB.... . o|
00000790  3d 30 20 b8 20 32 20 88  32 0d 02 f8 0c 20 50 25  |=0 . 2 .2.... P%|
000007a0  3d 26 44 30 30 0d 03 02  0b 20 5b 4f 50 54 20 6f  |=&D00.... [OPT o|
000007b0  0d 03 0c 11 20 2e 69 6e  69 74 62 20 4c 44 59 23  |.... .initb LDY#|
000007c0  30 0d 03 16 1a 20 4c 44  41 23 30 3a 2e 69 6e 6c  |0.... LDA#0:.inl|
000007d0  6f 20 53 54 41 26 42 30  30 2c 59 0d 03 20 25 20  |o STA&B00,Y.. % |
000007e0  49 4e 59 3a 43 50 59 23  32 35 35 3a 42 4e 45 69  |INY:CPY#255:BNEi|
000007f0  6e 6c 6f 3a 4c 44 59 23  31 30 3a 4c 44 41 23 31  |nlo:LDY#10:LDA#1|
00000800  0d 03 2a 23 20 2e 69 6e  6c 6f 62 20 53 54 41 26  |..*# .inlob STA&|
00000810  42 30 30 2c 59 3a 44 45  59 3a 53 54 41 26 42 30  |B00,Y:DEY:STA&B0|
00000820  30 2c 59 0d 03 34 1f 20  54 59 41 3a 43 4c 43 3a  |0,Y..4. TYA:CLC:|
00000830  41 44 43 23 31 31 3a 54  41 59 3a 4c 44 41 23 31  |ADC#11:TAY:LDA#1|
00000840  33 31 0d 03 3e 24 20 43  50 59 23 32 34 30 3a 42  |31..>$ CPY#240:B|
00000850  43 43 69 6e 6c 6f 62 3a  53 54 41 26 42 30 30 3a  |CCinlob:STA&B00:|
00000860  4a 4d 50 62 6f 6f 0d 03  48 31 20 2e 73 63 72 20  |JMPboo..H1 .scr |
00000870  4c 44 59 23 30 3a 4c 44  58 23 30 3a 2e 64 6f 20  |LDY#0:LDX#0:.do |
00000880  4c 44 41 26 44 46 46 3a  43 4d 50 23 32 3a 42 45  |LDA&DFF:CMP#2:BE|
00000890  51 63 6f 6c 6f 75 72 0d  03 52 ea 20 2e 73 63 20  |Qcolour..R. .sc |
000008a0  4c 44 41 23 33 31 3a 4a  53 52 26 46 46 45 45 3a  |LDA#31:JSR&FFEE:|
000008b0  54 59 41 3a 43 4c 43 3a  41 44 43 23 31 31 3a 4a  |TYA:CLC:ADC#11:J|
000008c0  53 52 26 46 46 45 45 3a  53 54 58 26 44 46 44 3a  |SR&FFEE:STX&DFD:|
000008d0  53 54 59 26 44 46 43 3a  54 58 41 3a 4a 53 52 26  |STY&DFC:TXA:JSR&|
000008e0  46 46 45 45 3a 4c 44 41  26 44 46 43 23 30 3a 43  |FFEE:LDA&DFC#0:C|
000008f0  4c 43 3a 41 44 43 26 44  46 44 3a 43 4c 43 3a 41  |LC:ADC&DFD:CLC:A|
00000900  44 43 26 44 46 44 3a 43  4c 43 3a 41 44 43 26 44  |DC&DFD:CLC:ADC&D|
00000910  46 44 3a 43 4c 43 3a 41  44 43 26 44 46 44 3a 43  |FD:CLC:ADC&DFD:C|
00000920  4c 43 3a 41 44 43 26 44  46 44 3a 43 4c 43 3a 41  |LC:ADC&DFD:CLC:A|
00000930  44 43 26 44 46 44 3a 43  4c 43 3a 41 44 43 26 44  |DC&DFD:CLC:ADC&D|
00000940  46 44 3a 43 4c 43 3a 41  44 43 26 44 46 44 3a 43  |FD:CLC:ADC&DFD:C|
00000950  4c 43 3a 41 44 43 26 44  46 44 3a 54 41 58 3a 4c  |LC:ADC&DFD:TAX:L|
00000960  44 41 26 42 30 30 2c 58  3a 4a 53 52 26 46 46 45  |DA&B00,X:JSR&FFE|
00000970  45 3a 4c 44 58 26 44 46  44 3a 4c 44 59 26 44 46  |E:LDX&DFD:LDY&DF|
00000980  43 0d 03 5c 29 20 49 4e  59 3a 43 50 59 23 37 3a  |C..\) INY:CPY#7:|
00000990  42 4e 45 64 6f 3a 49 4e  58 3a 43 50 58 23 32 33  |BNEdo:INX:CPX#23|
000009a0  3a 42 4e 45 64 6f 3a 52  54 53 0d 03 66 31 20 2e  |:BNEdo:RTS..f1 .|
000009b0  63 6f 6c 6f 75 72 20 4c  44 41 23 31 37 3a 4a 53  |colour LDA#17:JS|
000009c0  52 26 46 46 45 45 3a 4c  44 41 26 44 46 45 3a 4a  |R&FFEE:LDA&DFE:J|
000009d0  53 52 26 46 46 45 45 3a  52 54 53 0d 03 70 24 20  |SR&FFEE:RTS..p$ |
000009e0  2e 62 6f 6f 20 4c 44 59  23 30 3a 4c 44 41 23 30  |.boo LDY#0:LDA#0|
000009f0  3a 2e 69 6e 6c 20 53 54  41 26 41 30 30 2c 59 0d  |:.inl STA&A00,Y.|
00000a00  03 7a 1b 20 49 4e 59 3a  43 50 59 23 32 35 35 3a  |.z. INY:CPY#255:|
00000a10  42 4e 45 69 6e 6c 3a 52  54 53 0d 03 84 0a 20 5d  |BNEinl:RTS.... ]|
00000a20  3a ed 3a f8 0d 03 8e 1a  20 dd f2 66 61 6c 6c 3a  |:.:..... ..fall:|
00000a30  e3 78 3d 31 b8 37 3a e3  79 3d 30 b8 33 30 0d 03  |.x=1.7:.y=0.30..|
00000a40  98 4f 20 e7 3f 28 26 42  30 30 2b 78 2b 79 2a 31  |.O .?(&B00+x+y*1|
00000a50  30 29 3d 30 20 8c 20 e3  20 6c 6f 70 3d 79 20 b8  |0)=0 . . lop=y .|
00000a60  20 30 20 88 2d 31 3a 3f  28 26 42 30 30 2b 78 2b  | 0 .-1:?(&B00+x+|
00000a70  6c 6f 70 2a 31 30 29 3d  3f 28 26 42 30 30 2b 78  |lop*10)=?(&B00+x|
00000a80  2b 6c 6f 70 2a 31 30 2d  31 30 29 3a ed 0d 03 a2  |+lop*10-10):....|
00000a90  09 20 ed 2c 3a e1 0d 03  ac 15 20 dd f2 63 68 65  |. .,:..... ..che|
00000aa0  63 6b 3a 6f 6c 3d 73 63  3a fb 33 0d 03 b6 15 20  |ck:ol=sc:.3.... |
00000ab0  e3 78 3d 31 b8 37 88 32  3a e3 79 3d 30 b8 33 30  |.x=1.7.2:.y=0.30|
00000ac0  0d 03 c0 ca 20 e7 41 24  3d 22 41 22 80 3f 28 26  |.... .A$="A".?(&|
00000ad0  42 30 30 2b 78 2b 79 2a  31 30 29 3d 28 3f 28 26  |B00+x+y*10)=(?(&|
00000ae0  42 30 30 2b 78 2b 79 2a  31 30 29 29 2d 31 20 8c  |B00+x+y*10))-1 .|
00000af0  20 73 63 3d 73 63 2b 6c  65 76 3a 67 73 3d 67 73  | sc=sc+lev:gs=gs|
00000b00  2b 31 3a 3f 28 26 42 30  30 2b 78 2b 79 2a 31 30  |+1:?(&B00+x+y*10|
00000b10  29 3d 30 3a 28 3f 28 26  42 30 30 2b 78 2b 79 2a  |)=0:(?(&B00+x+y*|
00000b20  31 30 29 29 2b 31 3d 30  8b e7 41 24 3d 22 43 22  |10))+1=0..A$="C"|
00000b30  80 3f 28 26 42 30 30 2b  78 2b 79 2a 31 30 29 3d  |.?(&B00+x+y*10)=|
00000b40  28 3f 28 26 42 30 30 2b  78 2b 79 2a 31 30 29 29  |(?(&B00+x+y*10))|
00000b50  20 8c 20 73 63 3d 73 63  2b 6c 65 76 3a 67 73 3d  | . sc=sc+lev:gs=|
00000b60  67 73 2b 31 3a 3f 28 26  42 30 30 2b 78 2b 79 2a  |gs+1:?(&B00+x+y*|
00000b70  31 30 29 3d 30 3a 28 3f  28 26 42 30 30 2b 78 2b  |10)=0:(?(&B00+x+|
00000b80  79 2a 31 30 29 29 2b 31  3d 30 0d 03 c5 ce 20 e7  |y*10))+1=0.... .|
00000b90  41 24 3d 22 41 22 80 3f  28 26 42 30 30 2b 78 2b  |A$="A".?(&B00+x+|
00000ba0  79 2a 31 30 29 3d 28 3f  28 26 42 30 30 2b 78 2b  |y*10)=(?(&B00+x+|
00000bb0  79 2a 31 30 2d 31 29 29  2b 31 20 8c 20 73 63 3d  |y*10-1))+1 . sc=|
00000bc0  73 63 2b 6c 65 76 3a 67  73 3d 67 73 2b 31 3a 3f  |sc+lev:gs=gs+1:?|
00000bd0  28 26 42 30 30 2b 78 2b  79 2a 31 30 29 3d 30 3a  |(&B00+x+y*10)=0:|
00000be0  28 3f 28 26 42 30 30 2b  78 2b 79 2a 31 30 29 29  |(?(&B00+x+y*10))|
00000bf0  2d 31 3d 30 8b e7 41 24  3d 22 43 22 80 3f 28 26  |-1=0..A$="C".?(&|
00000c00  42 30 30 2b 78 2b 79 2a  31 30 29 3d 28 3f 28 26  |B00+x+y*10)=(?(&|
00000c10  42 30 30 2b 78 2b 79 2a  31 30 2b 31 29 29 20 8c  |B00+x+y*10+1)) .|
00000c20  20 73 63 3d 73 63 2b 6c  65 76 3a 67 73 3d 67 73  | sc=sc+lev:gs=gs|
00000c30  2b 31 3a 3f 28 26 42 30  30 2b 78 2b 79 2a 31 30  |+1:?(&B00+x+y*10|
00000c40  29 3d 30 3a 28 3f 28 26  42 30 30 2b 78 2b 79 2a  |)=0:(?(&B00+x+y*|
00000c50  31 30 29 29 2b 31 3d 30  0d 03 ca 5c 20 ed 2c 3a  |10))+1=0...\ .,:|
00000c60  fb 33 3a f1 8a 32 30 2c  35 29 3b 22 53 63 6f 72  |.3:..20,5);"Scor|
00000c70  65 3a 22 3b 73 63 3b 8a  32 30 2c 37 29 3b 22 4c  |e:";sc;.20,7);"L|
00000c80  65 76 65 6c 3a 22 3b 6c  65 76 3b 8a 32 30 2c 39  |evel:";lev;.20,9|
00000c90  29 3b 22 47 72 6f 75 70  73 3a 22 3b 67 73 3a e7  |);"Groups:";gs:.|
00000ca0  73 63 3c 3e 6f 6c 20 8c  20 f2 66 61 6c 6c 3a e1  |sc<>ol . .fall:.|
00000cb0  20 8b 20 e1 0d ff                                 | . ...|
00000cb6