� Spectramania (3)
� by David Acton
$� for BBC B/B+/128k and Electron
(!� (c) Acorn User January 1986
2:
<�2:�23,1,0,0;0;0;0;
F�=&2A29
P�var
Z�
d� X%=4 � 7
n�r(X%,7):�r(X%+4,0)
x�r(X%+8,6):�
��:�reset
�?cx=34:?cy=44:?end=1
�!cp=0:cp!4=&1010101
��1:�4,2)"SPECTRAMANIA"
��2:�4,6)"Mega-scores:"
�� U%=1 � 10
��1:�0,7+2*U%);U%
�+�2:�3,7+2*U%)�"000"+�hs%(10-U%),6)" ";
��3:�hs$(10-U%)
��
�/�2:�1,30)"PRESS SPACE BAR TO"�8,31)"PLAY";
��:?cx=76-?cx:�&2C7F
�� �(-99):�

 lives=3:round=1:?lvl=1:!sc=0

�:�info:�reset:*FX 15

� Y%=0 � 9:� X%=0 � 9

"
�&2A64:�,

,� 7:�&2B63

6�14,0)�"0"+�hs%(9),6)

@�2:�0,1)"FR"�8"PW"

J�1:�7,0)"LVS: ";lives-1

T�disp(0):�128:�2

^�7,19)"READY!"

h�d(200):�cl

r�7,18)"CHANGE"�9,19)"TO"

|�131:�?lvl=1 �?lvl=3 �130

��9,20)"  "�9,21)"  "

��128:�7

�
*FX178

��&2C7F:�r(7,7)

�*FX178,255

�� ?end �splat:�TpB

�
�cl:�5

��7,18)"BONUS:"

�B%=250*(round+5*(?lvl-1))

��8,20);B%:�d(100)

�X%=80:Y%=0

�� I%=1 � B%/50:�&2B4A

�� 1,-10,200,1
�d(10):�
�d(200):round=round+1
7� round=6 round=1:?lvl=?lvl+1:�?lvl<4 lives=lives+1
&� ?lvl=6 ?lvl=5
0
� lives=0
:
�cl:�2
D�8,18)"GAME"�8,20)"OVER"
N�:�tune:�d(200):S%=0
XF� b%=0 � 2:S%=S%+((b%?sc)�15)*10^(b%*2)+((b%?sc)�16)*10^(b%*2+1):�
b�S%<hs%(0) �dPB
lp%=0:�p%=p%+1
v� S%<hs%(p%) � p%=10
�Bp%=p%-1:�p%>0 �X%=0�p%-1:hs%(X%)=hs%(X%+1):hs$(X%)=hs$(X%+1):�
�� 20,12:�14
��8,6)"WOW!":�3
��3,9)"WHAT A SCORE"
��6:*FX 15,1
��2,12)"Enter your name"
��7:�5,15)hs$(p%)
�hs%(p%)=S%
���
�� �var:round=1
�!� hs%(10),hs$(10),P%(1),S$(1)
�"� X%=0 � 9:hs%(X%)=2000*(X%+1)
�hs$(X%)="Ray  Robot":�
mcol%=&900:cx=&964:cy=&96C
$cc=&984:cp=&974:tot=&85:targ=&86
#end=&84:lvl=&87:frz=&89:mnc=&8A
 sc=&99C
*!&9AF=&8040201:�
4� �r(X%,Y%)
>�&2BA1:�
H� �reset
R� X%=0 � 99:X%?mcol%=1:�
\� X%=0 � 7:� &2F26:�
f?cc=1:?end=0:?tot=0
p
?targ=176
z � ?lvl=1 � ?lvl=3 � ?targ=88
�?frz=0:?mnc=0
�� X%=53 � 56
� X%?mcol%=0:X%?(mcol%+10)=0:�
�ng=round:� ng<3 ng=3
�!cp=0:cp!4=0
�� X%=1 � ng:X%?(cp+2)=1:�
�	?cp=1
��
�� �d(T):�=0
�
� � �>T:�
�	� �cl
�� X%=3 � 6:� Y%=5 � 6
�� &2A64:�,:�
� �splat:�disp(3)
�d(100):�cl:lives=lives-1
� �7,19)"SPLAT!"
$� X=99 � 33 �-33
.
� Y=1 � 6
8� 1,1,X+4*Y,1:�,
B� X=30 � 3 � -3
L� 1,2,X,2:�
V
�d(200):�
`� �disp(U%)
j� X%=U% � 7:�cp?X% �&2BB9
t�:�
~� �info:�:�2
�� �6,13)"LEVEL  ";?lvl
��3
�� �6,17)"ROUND  ";round
�	�=0:�
��q(41):�q(49)
��q(53):�q(69)
�� �>300:�:�
�� �q(P%)
��ts(P%):�ts(P%-4)
�
�ts(P%):�
�� �ts(P%):� Y%=1 � 3
�� Y%,1,P%,2:�:�
� �tune:P%(0)=1:P%(1)=1

� S$(0),S$(1)
�:� Y%=0 � 1
� Y%=1 � �elk � � �DFE
(&� P%(Y%)>�S$(Y%) ��(-6-Y%)=0 �DFE
2V=�("&"+�S$(Y%),P%(Y%),2))
<4� Y%+1,4,(V �63)*4+1,(V �192)/16:P%(Y%)=P%(Y%)+2
F�:� P%(0)>�S$(0):�
P.� 6E6A67A267AA6965629D5E9D676564A9676564E2
Z � 9E9E9D9B9D999B99989B919BDD
d� �elk=(�(-256)=1)
�

00000000  0d 00 0a 16 f4 20 53 70  65 63 74 72 61 6d 61 6e  |..... Spectraman|
00000010  69 61 20 28 33 29 0d 00  14 14 f4 20 62 79 20 44  |ia (3)..... by D|
00000020  61 76 69 64 20 41 63 74  6f 6e 0d 00 1e 24 f4 20  |avid Acton...$. |
00000030  66 6f 72 20 42 42 43 20  42 2f 42 2b 2f 31 32 38  |for BBC B/B+/128|
00000040  6b 20 61 6e 64 20 45 6c  65 63 74 72 6f 6e 0d 00  |k and Electron..|
00000050  28 21 f4 20 28 63 29 20  41 63 6f 72 6e 20 55 73  |(!. (c) Acorn Us|
00000060  65 72 20 4a 61 6e 75 61  72 79 20 31 39 38 36 0d  |er January 1986.|
00000070  00 32 05 3a 0d 00 3c 17  eb 32 3a ef 32 33 2c 31  |.2.:..<..2:.23,1|
00000080  2c 30 2c 30 3b 30 3b 30  3b 30 3b 0d 00 46 0b d3  |,0,0;0;0;0;..F..|
00000090  3d 26 32 41 32 39 0d 00  50 08 f2 76 61 72 0d 00  |=&2A29..P..var..|
000000a0  5a 05 f5 0d 00 64 0e e3  20 58 25 3d 34 20 b8 20  |Z....d.. X%=4 . |
000000b0  37 0d 00 6e 17 f2 72 28  58 25 2c 37 29 3a f2 72  |7..n..r(X%,7):.r|
000000c0  28 58 25 2b 34 2c 30 29  0d 00 78 10 f2 72 28 58  |(X%+4,0)..x..r(X|
000000d0  25 2b 38 2c 36 29 3a ed  0d 00 82 0c db 3a f2 72  |%+8,6):......:.r|
000000e0  65 73 65 74 0d 00 8c 18  3f 63 78 3d 33 34 3a 3f  |eset....?cx=34:?|
000000f0  63 79 3d 34 34 3a 3f 65  6e 64 3d 31 0d 00 96 17  |cy=44:?end=1....|
00000100  21 63 70 3d 30 3a 63 70  21 34 3d 26 31 30 31 30  |!cp=0:cp!4=&1010|
00000110  31 30 31 0d 00 a0 1b fb  31 3a f1 8a 34 2c 32 29  |101.....1:..4,2)|
00000120  22 53 50 45 43 54 52 41  4d 41 4e 49 41 22 0d 00  |"SPECTRAMANIA"..|
00000130  aa 1b fb 32 3a f1 8a 34  2c 36 29 22 4d 65 67 61  |...2:..4,6)"Mega|
00000140  2d 73 63 6f 72 65 73 3a  22 0d 00 b4 0f e3 20 55  |-scores:"..... U|
00000150  25 3d 31 20 b8 20 31 30  0d 00 be 15 fb 31 3a f1  |%=1 . 10.....1:.|
00000160  8a 30 2c 37 2b 32 2a 55  25 29 3b 55 25 0d 00 c8  |.0,7+2*U%);U%...|
00000170  2b fb 32 3a f1 8a 33 2c  37 2b 32 2a 55 25 29 c2  |+.2:..3,7+2*U%).|
00000180  22 30 30 30 22 2b c3 68  73 25 28 31 30 2d 55 25  |"000"+.hs%(10-U%|
00000190  29 2c 36 29 22 20 22 3b  0d 00 d2 12 fb 33 3a f1  |),6)" ";.....3:.|
000001a0  68 73 24 28 31 30 2d 55  25 29 0d 00 dc 05 ed 0d  |hs$(10-U%)......|
000001b0  00 e6 2f fb 32 3a f1 8a  31 2c 33 30 29 22 50 52  |../.2:..1,30)"PR|
000001c0  45 53 53 20 53 50 41 43  45 20 42 41 52 20 54 4f  |ESS SPACE BAR TO|
000001d0  22 8a 38 2c 33 31 29 22  50 4c 41 59 22 3b 0d 00  |".8,31)"PLAY";..|
000001e0  f0 17 f5 3a 3f 63 78 3d  37 36 2d 3f 63 78 3a d6  |...:?cx=76-?cx:.|
000001f0  26 32 43 37 46 0d 00 fa  0e fd 20 a6 28 2d 39 39  |&2C7F..... .(-99|
00000200  29 3a db 0d 01 04 20 6c  69 76 65 73 3d 33 3a 72  |):.... lives=3:r|
00000210  6f 75 6e 64 3d 31 3a 3f  6c 76 6c 3d 31 3a 21 73  |ound=1:?lvl=1:!s|
00000220  63 3d 30 0d 01 0e 19 f5  3a f2 69 6e 66 6f 3a f2  |c=0.....:.info:.|
00000230  72 65 73 65 74 3a 2a 46  58 20 31 35 0d 01 18 19  |reset:*FX 15....|
00000240  e3 20 59 25 3d 30 20 b8  20 39 3a e3 20 58 25 3d  |. Y%=0 . 9:. X%=|
00000250  30 20 b8 20 39 0d 01 22  0d d6 26 32 41 36 34 3a  |0 . 9.."..&2A64:|
00000260  ed 2c 0d 01 2c 0e fb 20  37 3a d6 26 32 42 36 33  |.,..,.. 7:.&2B63|
00000270  0d 01 36 1a f1 8a 31 34  2c 30 29 c2 22 30 22 2b  |..6...14,0)."0"+|
00000280  c3 68 73 25 28 39 29 2c  36 29 0d 01 40 17 fb 32  |.hs%(9),6)..@..2|
00000290  3a f1 8a 30 2c 31 29 22  46 52 22 89 38 22 50 57  |:..0,1)"FR".8"PW|
000002a0  22 0d 01 4a 1c fb 31 3a  f1 8a 37 2c 30 29 22 4c  |"..J..1:..7,0)"L|
000002b0  56 53 3a 20 22 3b 6c 69  76 65 73 2d 31 0d 01 54  |VS: ";lives-1..T|
000002c0  14 f2 64 69 73 70 28 30  29 3a fb 31 32 38 3a fb  |..disp(0):.128:.|
000002d0  32 0d 01 5e 13 f1 8a 37  2c 31 39 29 22 52 45 41  |2..^...7,19)"REA|
000002e0  44 59 21 22 0d 01 68 0f  f2 64 28 32 30 30 29 3a  |DY!"..h..d(200):|
000002f0  f2 63 6c 0d 01 72 1d f1  8a 37 2c 31 38 29 22 43  |.cl..r...7,18)"C|
00000300  48 41 4e 47 45 22 8a 39  2c 31 39 29 22 54 4f 22  |HANGE".9,19)"TO"|
00000310  0d 01 7c 1d fb 31 33 31  3a e7 3f 6c 76 6c 3d 31  |..|..131:.?lvl=1|
00000320  20 84 3f 6c 76 6c 3d 33  20 fb 31 33 30 0d 01 86  | .?lvl=3 .130...|
00000330  19 f1 8a 39 2c 32 30 29  22 20 20 22 8a 39 2c 32  |...9,20)"  ".9,2|
00000340  31 29 22 20 20 22 0d 01  90 0b fb 31 32 38 3a fb  |1)"  ".....128:.|
00000350  37 0d 01 9a 0a 2a 46 58  31 37 38 0d 01 a4 12 d6  |7....*FX178.....|
00000360  26 32 43 37 46 3a f2 72  28 37 2c 37 29 0d 01 ae  |&2C7F:.r(7,7)...|
00000370  0e 2a 46 58 31 37 38 2c  32 35 35 0d 01 b8 17 e7  |.*FX178,255.....|
00000380  20 3f 65 6e 64 20 f2 73  70 6c 61 74 3a e5 8d 54  | ?end .splat:..T|
00000390  70 42 0d 01 c2 0a f2 63  6c 3a fb 35 0d 01 cc 13  |pB.....cl:.5....|
000003a0  f1 8a 37 2c 31 38 29 22  42 4f 4e 55 53 3a 22 0d  |..7,18)"BONUS:".|
000003b0  01 d6 1d 42 25 3d 32 35  30 2a 28 72 6f 75 6e 64  |...B%=250*(round|
000003c0  2b 35 2a 28 3f 6c 76 6c  2d 31 29 29 0d 01 e0 16  |+5*(?lvl-1))....|
000003d0  f1 8a 38 2c 32 30 29 3b  42 25 3a f2 64 28 31 30  |..8,20);B%:.d(10|
000003e0  30 29 0d 01 ea 0e 58 25  3d 38 30 3a 59 25 3d 30  |0)....X%=80:Y%=0|
000003f0  0d 01 f4 19 e3 20 49 25  3d 31 20 b8 20 42 25 2f  |..... I%=1 . B%/|
00000400  35 30 3a d6 26 32 42 34  41 0d 01 fe 11 d4 20 31  |50:.&2B4A..... 1|
00000410  2c 2d 31 30 2c 32 30 30  2c 31 0d 02 08 0c f2 64  |,-10,200,1.....d|
00000420  28 31 30 29 3a ed 0d 02  12 19 f2 64 28 32 30 30  |(10):......d(200|
00000430  29 3a 72 6f 75 6e 64 3d  72 6f 75 6e 64 2b 31 0d  |):round=round+1.|
00000440  02 1c 37 e7 20 72 6f 75  6e 64 3d 36 20 72 6f 75  |..7. round=6 rou|
00000450  6e 64 3d 31 3a 3f 6c 76  6c 3d 3f 6c 76 6c 2b 31  |nd=1:?lvl=?lvl+1|
00000460  3a e7 3f 6c 76 6c 3c 34  20 6c 69 76 65 73 3d 6c  |:.?lvl<4 lives=l|
00000470  69 76 65 73 2b 31 0d 02  26 13 e7 20 3f 6c 76 6c  |ives+1..&.. ?lvl|
00000480  3d 36 20 3f 6c 76 6c 3d  35 0d 02 30 0d fd 20 6c  |=6 ?lvl=5..0.. l|
00000490  69 76 65 73 3d 30 0d 02  3a 0a f2 63 6c 3a fb 32  |ives=0..:..cl:.2|
000004a0  0d 02 44 1d f1 8a 38 2c  31 38 29 22 47 41 4d 45  |..D...8,18)"GAME|
000004b0  22 8a 38 2c 32 30 29 22  4f 56 45 52 22 0d 02 4e  |".8,20)"OVER"..N|
000004c0  18 f7 3a f2 74 75 6e 65  3a f2 64 28 32 30 30 29  |..:.tune:.d(200)|
000004d0  3a 53 25 3d 30 0d 02 58  46 e3 20 62 25 3d 30 20  |:S%=0..XF. b%=0 |
000004e0  b8 20 32 3a 53 25 3d 53  25 2b 28 28 62 25 3f 73  |. 2:S%=S%+((b%?s|
000004f0  63 29 80 31 35 29 2a 31  30 5e 28 62 25 2a 32 29  |c).15)*10^(b%*2)|
00000500  2b 28 28 62 25 3f 73 63  29 81 31 36 29 2a 31 30  |+((b%?sc).16)*10|
00000510  5e 28 62 25 2a 32 2b 31  29 3a ed 0d 02 62 14 e7  |^(b%*2+1):...b..|
00000520  53 25 3c 68 73 25 28 30  29 20 e5 8d 64 50 42 0d  |S%<hs%(0) ..dPB.|
00000530  02 6c 11 70 25 3d 30 3a  f5 70 25 3d 70 25 2b 31  |.l.p%=0:.p%=p%+1|
00000540  0d 02 76 18 fd 20 53 25  3c 68 73 25 28 70 25 29  |..v.. S%<hs%(p%)|
00000550  20 84 20 70 25 3d 31 30  0d 02 80 42 70 25 3d 70  | . p%=10...Bp%=p|
00000560  25 2d 31 3a e7 70 25 3e  30 20 e3 58 25 3d 30 b8  |%-1:.p%>0 .X%=0.|
00000570  70 25 2d 31 3a 68 73 25  28 58 25 29 3d 68 73 25  |p%-1:hs%(X%)=hs%|
00000580  28 58 25 2b 31 29 3a 68  73 24 28 58 25 29 3d 68  |(X%+1):hs$(X%)=h|
00000590  73 24 28 58 25 2b 31 29  3a ed 0d 02 8a 0f ef 20  |s$(X%+1):...... |
000005a0  32 30 2c 31 32 3a fb 31  34 0d 02 94 13 f1 8a 38  |20,12:.14......8|
000005b0  2c 36 29 22 57 4f 57 21  22 3a fb 33 0d 02 9e 18  |,6)"WOW!":.3....|
000005c0  f1 8a 33 2c 39 29 22 57  48 41 54 20 41 20 53 43  |..3,9)"WHAT A SC|
000005d0  4f 52 45 22 0d 02 a8 0f  fb 36 3a 2a 46 58 20 31  |ORE".....6:*FX 1|
000005e0  35 2c 31 0d 02 b2 1c f1  8a 32 2c 31 32 29 22 45  |5,1......2,12)"E|
000005f0  6e 74 65 72 20 79 6f 75  72 20 6e 61 6d 65 22 0d  |nter your name".|
00000600  02 bc 15 fb 37 3a e8 8a  35 2c 31 35 29 68 73 24  |....7:..5,15)hs$|
00000610  28 70 25 29 0d 02 c6 0e  68 73 25 28 70 25 29 3d  |(p%)....hs%(p%)=|
00000620  53 25 0d 02 d0 06 fd a3  0d 02 da 12 dd 20 f2 76  |S%........... .v|
00000630  61 72 3a 72 6f 75 6e 64  3d 31 0d 02 e4 21 de 20  |ar:round=1...!. |
00000640  68 73 25 28 31 30 29 2c  68 73 24 28 31 30 29 2c  |hs%(10),hs$(10),|
00000650  50 25 28 31 29 2c 53 24  28 31 29 0d 02 ee 22 e3  |P%(1),S$(1)...".|
00000660  20 58 25 3d 30 20 b8 20  39 3a 68 73 25 28 58 25  | X%=0 . 9:hs%(X%|
00000670  29 3d 32 30 30 30 2a 28  58 25 2b 31 29 0d 02 f8  |)=2000*(X%+1)...|
00000680  1a 68 73 24 28 58 25 29  3d 22 52 61 79 20 20 52  |.hs$(X%)="Ray  R|
00000690  6f 62 6f 74 22 3a ed 0d  03 02 1e 6d 63 6f 6c 25  |obot":.....mcol%|
000006a0  3d 26 39 30 30 3a 63 78  3d 26 39 36 34 3a 63 79  |=&900:cx=&964:cy|
000006b0  3d 26 39 36 43 0d 03 0c  24 63 63 3d 26 39 38 34  |=&96C...$cc=&984|
000006c0  3a 63 70 3d 26 39 37 34  3a 74 6f 74 3d 26 38 35  |:cp=&974:tot=&85|
000006d0  3a 74 61 72 67 3d 26 38  36 0d 03 16 23 65 6e 64  |:targ=&86...#end|
000006e0  3d 26 38 34 3a 6c 76 6c  3d 26 38 37 3a 66 72 7a  |=&84:lvl=&87:frz|
000006f0  3d 26 38 39 3a 6d 6e 63  3d 26 38 41 0d 03 20 0b  |=&89:mnc=&8A.. .|
00000700  73 63 3d 26 39 39 43 0d  03 2a 14 21 26 39 41 46  |sc=&99C..*.!&9AF|
00000710  3d 26 38 30 34 30 32 30  31 3a e1 0d 03 34 0f dd  |=&8040201:...4..|
00000720  20 f2 72 28 58 25 2c 59  25 29 0d 03 3e 0c d6 26  | .r(X%,Y%)..>..&|
00000730  32 42 41 31 3a e1 0d 03  48 0c dd 20 f2 72 65 73  |2BA1:...H.. .res|
00000740  65 74 0d 03 52 1c e3 20  58 25 3d 30 20 b8 20 39  |et..R.. X%=0 . 9|
00000750  39 3a 58 25 3f 6d 63 6f  6c 25 3d 31 3a ed 0d 03  |9:X%?mcol%=1:...|
00000760  5c 18 e3 20 58 25 3d 30  20 b8 20 37 3a d6 20 26  |\.. X%=0 . 7:. &|
00000770  32 46 32 36 3a ed 0d 03  66 17 3f 63 63 3d 31 3a  |2F26:...f.?cc=1:|
00000780  3f 65 6e 64 3d 30 3a 3f  74 6f 74 3d 30 0d 03 70  |?end=0:?tot=0..p|
00000790  0d 3f 74 61 72 67 3d 31  37 36 0d 03 7a 20 e7 20  |.?targ=176..z . |
000007a0  3f 6c 76 6c 3d 31 20 84  20 3f 6c 76 6c 3d 33 20  |?lvl=1 . ?lvl=3 |
000007b0  8c 20 3f 74 61 72 67 3d  38 38 0d 03 84 11 3f 66  |. ?targ=88....?f|
000007c0  72 7a 3d 30 3a 3f 6d 6e  63 3d 30 0d 03 8e 10 e3  |rz=0:?mnc=0.....|
000007d0  20 58 25 3d 35 33 20 b8  20 35 36 0d 03 98 20 58  | X%=53 . 56... X|
000007e0  25 3f 6d 63 6f 6c 25 3d  30 3a 58 25 3f 28 6d 63  |%?mcol%=0:X%?(mc|
000007f0  6f 6c 25 2b 31 30 29 3d  30 3a ed 0d 03 a2 18 6e  |ol%+10)=0:.....n|
00000800  67 3d 72 6f 75 6e 64 3a  e7 20 6e 67 3c 33 20 6e  |g=round:. ng<3 n|
00000810  67 3d 33 0d 03 ac 10 21  63 70 3d 30 3a 63 70 21  |g=3....!cp=0:cp!|
00000820  34 3d 30 0d 03 b6 1d e3  20 58 25 3d 31 20 b8 20  |4=0..... X%=1 . |
00000830  6e 67 3a 58 25 3f 28 63  70 2b 32 29 3d 31 3a ed  |ng:X%?(cp+2)=1:.|
00000840  0d 03 c0 09 3f 63 70 3d  31 0d 03 ca 05 e1 0d 03  |....?cp=1.......|
00000850  d4 0f dd 20 f2 64 28 54  29 3a d1 3d 30 0d 03 de  |... .d(T):.=0...|
00000860  0d f5 20 fd 20 91 3e 54  3a e1 0d 03 e8 09 dd 20  |.. . .>T:...... |
00000870  f2 63 6c 0d 03 f2 19 e3  20 58 25 3d 33 20 b8 20  |.cl..... X%=3 . |
00000880  36 3a e3 20 59 25 3d 35  20 b8 20 36 0d 03 fc 10  |6:. Y%=5 . 6....|
00000890  d6 20 26 32 41 36 34 3a  ed 2c 3a e1 0d 04 06 15  |. &2A64:.,:.....|
000008a0  dd 20 f2 73 70 6c 61 74  3a f2 64 69 73 70 28 33  |. .splat:.disp(3|
000008b0  29 0d 04 10 1d f2 64 28  31 30 30 29 3a f2 63 6c  |).....d(100):.cl|
000008c0  3a 6c 69 76 65 73 3d 6c  69 76 65 73 2d 31 0d 04  |:lives=lives-1..|
000008d0  1a 14 f1 20 8a 37 2c 31  39 29 22 53 50 4c 41 54  |... .7,19)"SPLAT|
000008e0  21 22 0d 04 24 14 e3 20  58 3d 39 39 20 b8 20 33  |!"..$.. X=99 . 3|
000008f0  33 20 88 2d 33 33 0d 04  2e 0d e3 20 59 3d 31 20  |3 .-33..... Y=1 |
00000900  b8 20 36 0d 04 38 14 d4  20 31 2c 31 2c 58 2b 34  |. 6..8.. 1,1,X+4|
00000910  2a 59 2c 31 3a ed 2c 0d  04 42 13 e3 20 58 3d 33  |*Y,1:.,..B.. X=3|
00000920  30 20 b8 20 33 20 88 20  2d 33 0d 04 4c 0f d4 20  |0 . 3 . -3..L.. |
00000930  31 2c 32 2c 58 2c 32 3a  ed 0d 04 56 0d f2 64 28  |1,2,X,2:...V..d(|
00000940  32 30 30 29 3a e1 0d 04  60 0f dd 20 f2 64 69 73  |200):...`.. .dis|
00000950  70 28 55 25 29 0d 04 6a  1d e3 20 58 25 3d 55 25  |p(U%)..j.. X%=U%|
00000960  20 b8 20 37 3a e7 63 70  3f 58 25 20 d6 26 32 42  | . 7:.cp?X% .&2B|
00000970  42 39 0d 04 74 07 ed 3a  e1 0d 04 7e 10 dd 20 f2  |B9..t..:...~.. .|
00000980  69 6e 66 6f 3a db 3a fb  32 0d 04 88 1a f1 20 8a  |info:.:.2..... .|
00000990  36 2c 31 33 29 22 4c 45  56 45 4c 20 20 22 3b 3f  |6,13)"LEVEL  ";?|
000009a0  6c 76 6c 0d 04 92 06 fb  33 0d 04 9c 1b f1 20 8a  |lvl.....3..... .|
000009b0  36 2c 31 37 29 22 52 4f  55 4e 44 20 20 22 3b 72  |6,17)"ROUND  ";r|
000009c0  6f 75 6e 64 0d 04 a6 09  d1 3d 30 3a f5 0d 04 b0  |ound.....=0:....|
000009d0  11 f2 71 28 34 31 29 3a  f2 71 28 34 39 29 0d 04  |..q(41):.q(49)..|
000009e0  ba 11 f2 71 28 35 33 29  3a f2 71 28 36 39 29 0d  |...q(53):.q(69).|
000009f0  04 c4 0f fd 20 91 3e 33  30 30 3a db 3a e1 0d 04  |.... .>300:.:...|
00000a00  ce 0c dd 20 f2 71 28 50  25 29 0d 04 d8 15 f2 74  |... .q(P%).....t|
00000a10  73 28 50 25 29 3a f2 74  73 28 50 25 2d 34 29 0d  |s(P%):.ts(P%-4).|
00000a20  04 e2 0d f2 74 73 28 50  25 29 3a e1 0d 04 ec 18  |....ts(P%):.....|
00000a30  dd 20 f2 74 73 28 50 25  29 3a e3 20 59 25 3d 31  |. .ts(P%):. Y%=1|
00000a40  20 b8 20 33 0d 04 f6 13  d4 20 59 25 2c 31 2c 50  | . 3..... Y%,1,P|
00000a50  25 2c 32 3a ed 3a e1 0d  05 00 1b dd 20 f2 74 75  |%,2:.:...... .tu|
00000a60  6e 65 3a 50 25 28 30 29  3d 31 3a 50 25 28 31 29  |ne:P%(0)=1:P%(1)|
00000a70  3d 31 0d 05 0a 11 f3 20  53 24 28 30 29 2c 53 24  |=1..... S$(0),S$|
00000a80  28 31 29 0d 05 14 10 f5  3a e3 20 59 25 3d 30 20  |(1).....:. Y%=0 |
00000a90  b8 20 31 0d 05 1e 1a e7  20 59 25 3d 31 20 80 20  |. 1..... Y%=1 . |
00000aa0  a4 65 6c 6b 20 8c 20 e5  20 8d 44 46 45 0d 05 28  |.elk . . .DFE..(|
00000ab0  26 e7 20 50 25 28 59 25  29 3e a9 53 24 28 59 25  |&. P%(Y%)>.S$(Y%|
00000ac0  29 20 84 96 28 2d 36 2d  59 25 29 3d 30 20 e5 8d  |) ..(-6-Y%)=0 ..|
00000ad0  44 46 45 0d 05 32 1e 56  3d a0 28 22 26 22 2b c1  |DFE..2.V=.("&"+.|
00000ae0  53 24 28 59 25 29 2c 50  25 28 59 25 29 2c 32 29  |S$(Y%),P%(Y%),2)|
00000af0  29 0d 05 3c 34 d4 20 59  25 2b 31 2c 34 2c 28 56  |)..<4. Y%+1,4,(V|
00000b00  20 80 36 33 29 2a 34 2b  31 2c 28 56 20 80 31 39  | .63)*4+1,(V .19|
00000b10  32 29 2f 31 36 3a 50 25  28 59 25 29 3d 50 25 28  |2)/16:P%(Y%)=P%(|
00000b20  59 25 29 2b 32 0d 05 46  16 ed 3a fd 20 50 25 28  |Y%)+2..F..:. P%(|
00000b30  30 29 3e a9 53 24 28 30  29 3a e1 0d 05 50 2e dc  |0)>.S$(0):...P..|
00000b40  20 36 45 36 41 36 37 41  32 36 37 41 41 36 39 36  | 6E6A67A267AA696|
00000b50  35 36 32 39 44 35 45 39  44 36 37 36 35 36 34 41  |5629D5E9D676564A|
00000b60  39 36 37 36 35 36 34 45  32 0d 05 5a 20 dc 20 39  |9676564E2..Z . 9|
00000b70  45 39 45 39 44 39 42 39  44 39 39 39 42 39 39 39  |E9E9D9B9D999B999|
00000b80  38 39 42 39 31 39 42 44  44 0d 05 64 16 dd 20 a4  |89B919BDD..d.. .|
00000b90  65 6c 6b 3d 28 a6 28 2d  32 35 36 29 3d 31 29 0d  |elk=(.(-256)=1).|
00000ba0  ff                                                |.|
00000ba1