� Balance
� by Jon Perry
� (c) The Micro User
(� �7:�error:�
2�7:�coff:�init
<�
F
�level
P�5:�coff
Z�19,2,4;0;:�
d�initgame(Level%)
n�
x	�game
�� moment%=Moment%
��wait(3):�:�head(864)
��box(8,8,1210,992)
��box(112,724,1096,776):�1
��2,8)"You've done it!"
�$�head(544):�box(240,404,968,456)
��4,18)"Attempts ";go
�� Timer% �showtime
�� Noise% �tune � �wait(1)
��wait(1):�7:�coff
�#�db(1,0,10,"Another go? (Y/N)")
�A%=�get("YN",19,10,4,�)
��:� A%=2:�con:*FX12

�'"Bye bye....":�


��coff

�23,1,0;0;0;0;:�

"	��con

,�23,1,1;0;0;0;:�

6��showtime

@$�head(224):�box(176,84,1032,136)

J#�3,28)"Time ";time%�100" secs"

T�

^��level

h�db(1,12,1,"B A L A N C E")

r!�db(3,11,3,"_______________")

|'�db(5,2,6,"Level 1 : One position")

�(�db(5,2,9,"Level 2 : Two positions")

�+�db(5,2,12,"Level 3 : Three positions")

��db(6,0,15,"Enter level")

��db(2,12,19,"Timer")

��db(2,12,22,"Sound"):G%=0

��

�� G%=4 Timer%=� Timer%

�� G%=5 Noise%=� Noise%

� � Timer% T$="ON " � T$="OFF"

� � Noise% S$="ON " � S$="OFF"

��db(3,19,19,T$)

��db(3,19,22,S$)

�G%=�get("123TS",13,15,4,�)
� G%<4:Level%=G%-1
�
��db(C%,X%,Y%,m$):�D%
&� D%=Y% � Y%+1:�31X%D%141
0�(128+C%)m$;:�:�
:
��init
D$�23,224,60,60,60,60,60,126,60,24
N%�1,3,0,0,0,0,0,0,8,-1,0,-6,124,60
X'�2,1,0,0,0,0,0,0,32,-4,-4,-8,110,60
b)�3,1,0,0,0,0,0,0,126,-3,-3,-6,126,100
ld=100:Moment%=0:moment%=0
v� s(20),c(20):*FX11,30
�� pos(4),plp(4),R%(4)
��T%=0�20:s(T%)=��(T%*18)
�c(T%)=��(T%*18):�:*FX12,30
�Timer%=�:Noise%=�:�
���screen
��:�box(8,8,1272,992)
��100,608:�1180,608
�8� Timer% �box(376,120,896,168):�2:�6,27)"Time ";:�3
��head(864):�bar(0,�)
�aX%=312:aY%=560:�
���box(Lx%,Ly%,Ux%,Uy%)
��Lx%,Ly%:�Lx%,Uy%:
��Ux%,Uy%:�Ux%,Ly%
�Lx%,Ly%:�
��head(H%):�0,1
�608,H%:�672,H%
 �85,640,H%+44:�0,2
*�500,H%+52:�780,H%+52:�5
4�0,3:�coff:�416,H%+92
>�"BALANCE":�4:�coff
H
�0,2:�
R��bar(Th,C%)
\�0,1:�500,200:�780,200
f�85,640,392:� 0,2
pS=��Th:C=��Th
zx%=600*C:y%=600*S
��640-x%,500-y%
��640+x%,500+y%
��85,640-x%+d*S,500-y%-d*C
��85,640+x%+d*S,500+y%-d*C
�
� C% �
�H%=6:�0,3:�5:�coff
�� J%=-540 � 540 � 120
�#� J%<0 H%=H%-1 �� J%>60 H%=H%+1
��640+J%,600:�640+J%,616
��608+J%,648:�;H%
�4�circle(640+J%*C+d*S/2,500+J%*S-d*C/2,40,0,20,0)
��:�4:�coff:�
���circle(X%,Y%,R%,S%,E%,N%)
ox%=X%:oy%=Y%:� X%,Y%
� T%=S% � E%:� ox%,oy%
� N% � Noise% �1,1,T%*4,1
$�85,X%+R%*s(T%),Y%+R%*c(T%)
.�:�
8��initgame(L%):� G%,R%
B� G%=0 � 4:plp(G%)=0
Lpos(G%)=0:�:go=0:time%=0
VR%(0)=�(5)-1
`(� L%>0 � R%(1)=�(5)-1:� R%(1)<>R%(0)
j7� L%>1 � R%(2)=�(5)-1:� R%(2)<>R%(0) � R%(2)<>R%(1)
t� R%=0 � L%
~pos(R%(R%))=�(4):�
�.� L%=0:� pos(0)=1:� pos(0)=�(4):� pos(0)=1
��
���counters:� M%
��0,1:� M%=0 � 4
�7�pos(M%)>0:�circle(700+M%*120,450,40,0,pos(M%)*5,0)
�;�plp(M%)>0:�circle(100+(4-M%)*120,450,40,0,plp(M%)*5,0)
��:�
�
��game
��screen
�Moment%=�Rmoment
�
�counters
��5:�coff
go=go+1:�=time%

� �
�0,1:� aX%,aY%:�224
I%=�get("ZX "+�13,0,0,0,0)
(� I%<3 �movearrow
2� I%=3 �addweight
<moment%=�Lmoment
F� I%=4:same%=�same
P� same% �1,-15,100,4
Z� � same%:time%=�
d�:�head(864):� 0,2
n�bar((moment%-Moment%)/2,�)
x�wait(1)
�&� moment%<>Moment% �wrong � �right
��wait(1):�
�� �same:� C%,F%
�F%=�:� C%=0 � 4
�F%=F%�(plp(C%)=pos(C%))
�	�:=F%
���wrong:�0,3
�� Noise% �1,2,80,4
��256,0:�128,128
��85,1152,896:�85,1024,1024
��1024,0:�1152,128
��85,128,896:�85,256,1024
�� Noise% �1,2,60,4
�
��right:�0,3
� Noise% �1,3,100,4
"�128,320:�384,64
,�85,256,448:�85,512,192
6�384,320:�85,1152,832
@�85,1024,960
J� Noise% �1,3,120,4
T�
^��tune:� A%,T%,N%,D%
h� T%=1 � 16:� N%,D%
r� N%=0 A%=0 � A%=1
|�1,A%,N%,D%:�2,A%,N%+1,D%
��:�
�2�61,4,77,4,113,4,109,36,61,4,81,4,113,4,109,16
�+�0,4,93,4,101,4,0,2,65,2,61,2,53,2,61,2
���error
��:�" at line ";�
��
���wait(t):t=�+t*100
����>t:�
�� �get(k$,X%,Y%,C%,F%)
�� G%,I%:�coff:�
�� F% �db(C%,X%,Y%,"*")
�5� �F% � Timer% �4:�coff:�11,27);� �100;:�5:�coff
�#G%=�0:� G%>96 � G%<123 G%=G%-32
I%=�k$,�G%)
� F% �db(C%,X%,Y%," ")
� I%>0:=I%
&ݤRmoment:� M%,L%
0!� L%=1 � 5:M%=M%+L%*pos(L%-1)
:	�:=M%
DݤLmoment:� M%,L%
N!� L%=1 � 5:M%=M%+L%*plp(L%-1)
X	�:=M%
b��movearrow
l�0,0:� aX%,aY%:�224
v � I%=1 � aX%>100 aX%=aX%-120
� � I%=2 � aX%<500 aX%=aX%+120
��
�� �addweight
�� C%:C%=plp((552-aX%)/120)
�� C%<5 C%=C%+1:� C%>4 C%=0
�2� C%>0:�circle(aX%+28,450,40,(C%-1)*5,C%*5,-1)
�.� C%=0 �0,3:�circle(aX%+28,450,40,0,20,-1)
�plp((552-aX%)/120)=C%:�
�

00000000  0d 00 0a 0d f4 20 42 61  6c 61 6e 63 65 0d 00 14  |..... Balance...|
00000010  12 f4 20 62 79 20 4a 6f  6e 20 50 65 72 72 79 0d  |.. by Jon Perry.|
00000020  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000030  72 6f 20 55 73 65 72 0d  00 28 12 ee 85 20 eb 37  |ro User..(... .7|
00000040  3a f2 65 72 72 6f 72 3a  e0 0d 00 32 12 eb 37 3a  |:.error:...2..7:|
00000050  f2 63 6f 66 66 3a f2 69  6e 69 74 0d 00 3c 05 f5  |.coff:.init..<..|
00000060  0d 00 46 0a f2 6c 65 76  65 6c 0d 00 50 0c eb 35  |..F..level..P..5|
00000070  3a f2 63 6f 66 66 0d 00  5a 10 ef 31 39 2c 32 2c  |:.coff..Z..19,2,|
00000080  34 3b 30 3b 3a db 0d 00  64 15 f2 69 6e 69 74 67  |4;0;:...d..initg|
00000090  61 6d 65 28 4c 65 76 65  6c 25 29 0d 00 6e 05 f5  |ame(Level%)..n..|
000000a0  0d 00 78 09 f2 67 61 6d  65 0d 00 82 15 fd 20 6d  |..x..game..... m|
000000b0  6f 6d 65 6e 74 25 3d 4d  6f 6d 65 6e 74 25 0d 00  |oment%=Moment%..|
000000c0  8c 19 f2 77 61 69 74 28  33 29 3a db 3a f2 68 65  |...wait(3):.:.he|
000000d0  61 64 28 38 36 34 29 0d  00 96 16 f2 62 6f 78 28  |ad(864).....box(|
000000e0  38 2c 38 2c 31 32 31 30  2c 39 39 32 29 0d 00 a0  |8,8,1210,992)...|
000000f0  1d f2 62 6f 78 28 31 31  32 2c 37 32 34 2c 31 30  |..box(112,724,10|
00000100  39 36 2c 37 37 36 29 3a  fb 31 0d 00 aa 1b f1 8a  |96,776):.1......|
00000110  32 2c 38 29 22 59 6f 75  27 76 65 20 64 6f 6e 65  |2,8)"You've done|
00000120  20 69 74 21 22 0d 00 b4  24 f2 68 65 61 64 28 35  | it!"...$.head(5|
00000130  34 34 29 3a f2 62 6f 78  28 32 34 30 2c 34 30 34  |44):.box(240,404|
00000140  2c 39 36 38 2c 34 35 36  29 0d 00 be 19 f1 8a 34  |,968,456)......4|
00000150  2c 31 38 29 22 41 74 74  65 6d 70 74 73 20 22 3b  |,18)"Attempts ";|
00000160  67 6f 0d 00 c8 16 e7 20  54 69 6d 65 72 25 20 f2  |go..... Timer% .|
00000170  73 68 6f 77 74 69 6d 65  0d 00 d2 1d e7 20 4e 6f  |showtime..... No|
00000180  69 73 65 25 20 f2 74 75  6e 65 20 8b 20 f2 77 61  |ise% .tune . .wa|
00000190  69 74 28 31 29 0d 00 dc  15 f2 77 61 69 74 28 31  |it(1).....wait(1|
000001a0  29 3a eb 37 3a f2 63 6f  66 66 0d 00 e6 23 f2 64  |):.7:.coff...#.d|
000001b0  62 28 31 2c 30 2c 31 30  2c 22 41 6e 6f 74 68 65  |b(1,0,10,"Anothe|
000001c0  72 20 67 6f 3f 20 28 59  2f 4e 29 22 29 0d 00 f0  |r go? (Y/N)")...|
000001d0  1b 41 25 3d a4 67 65 74  28 22 59 4e 22 2c 31 39  |.A%=.get("YN",19|
000001e0  2c 31 30 2c 34 2c b9 29  0d 00 fa 17 db 3a fd 20  |,10,4,.).....:. |
000001f0  41 25 3d 32 3a f2 63 6f  6e 3a 2a 46 58 31 32 0d  |A%=2:.con:*FX12.|
00000200  01 04 15 f1 27 22 42 79  65 20 62 79 65 2e 2e 2e  |....'"Bye bye...|
00000210  2e 22 3a e0 0d 01 0e 0a  dd f2 63 6f 66 66 0d 01  |.":.......coff..|
00000220  18 14 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |...23,1,0;0;0;0;|
00000230  3a e1 0d 01 22 09 dd f2  63 6f 6e 0d 01 2c 14 ef  |:..."...con..,..|
00000240  32 33 2c 31 2c 31 3b 30  3b 30 3b 30 3b 3a e1 0d  |23,1,1;0;0;0;:..|
00000250  01 36 0e dd f2 73 68 6f  77 74 69 6d 65 0d 01 40  |.6...showtime..@|
00000260  24 f2 68 65 61 64 28 32  32 34 29 3a f2 62 6f 78  |$.head(224):.box|
00000270  28 31 37 36 2c 38 34 2c  31 30 33 32 2c 31 33 36  |(176,84,1032,136|
00000280  29 0d 01 4a 23 f1 8a 33  2c 32 38 29 22 54 69 6d  |)..J#..3,28)"Tim|
00000290  65 20 22 3b 74 69 6d 65  25 81 31 30 30 22 20 73  |e ";time%.100" s|
000002a0  65 63 73 22 0d 01 54 05  e1 0d 01 5e 0b dd f2 6c  |ecs"..T....^...l|
000002b0  65 76 65 6c 0d 01 68 1f  f2 64 62 28 31 2c 31 32  |evel..h..db(1,12|
000002c0  2c 31 2c 22 42 20 41 20  4c 20 41 20 4e 20 43 20  |,1,"B A L A N C |
000002d0  45 22 29 0d 01 72 21 f2  64 62 28 33 2c 31 31 2c  |E")..r!.db(3,11,|
000002e0  33 2c 22 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |3,"_____________|
000002f0  5f 5f 22 29 0d 01 7c 27  f2 64 62 28 35 2c 32 2c  |__")..|'.db(5,2,|
00000300  36 2c 22 4c 65 76 65 6c  20 31 20 3a 20 4f 6e 65  |6,"Level 1 : One|
00000310  20 70 6f 73 69 74 69 6f  6e 22 29 0d 01 86 28 f2  | position")...(.|
00000320  64 62 28 35 2c 32 2c 39  2c 22 4c 65 76 65 6c 20  |db(5,2,9,"Level |
00000330  32 20 3a 20 54 77 6f 20  70 6f 73 69 74 69 6f 6e  |2 : Two position|
00000340  73 22 29 0d 01 90 2b f2  64 62 28 35 2c 32 2c 31  |s")...+.db(5,2,1|
00000350  32 2c 22 4c 65 76 65 6c  20 33 20 3a 20 54 68 72  |2,"Level 3 : Thr|
00000360  65 65 20 70 6f 73 69 74  69 6f 6e 73 22 29 0d 01  |ee positions")..|
00000370  9a 1d f2 64 62 28 36 2c  30 2c 31 35 2c 22 45 6e  |...db(6,0,15,"En|
00000380  74 65 72 20 6c 65 76 65  6c 22 29 0d 01 a4 18 f2  |ter level").....|
00000390  64 62 28 32 2c 31 32 2c  31 39 2c 22 54 69 6d 65  |db(2,12,19,"Time|
000003a0  72 22 29 0d 01 ae 1d f2  64 62 28 32 2c 31 32 2c  |r").....db(2,12,|
000003b0  32 32 2c 22 53 6f 75 6e  64 22 29 3a 47 25 3d 30  |22,"Sound"):G%=0|
000003c0  0d 01 b8 05 f5 0d 01 c2  1a e7 20 47 25 3d 34 20  |.......... G%=4 |
000003d0  54 69 6d 65 72 25 3d ac  20 54 69 6d 65 72 25 0d  |Timer%=. Timer%.|
000003e0  01 cc 1a e7 20 47 25 3d  35 20 4e 6f 69 73 65 25  |.... G%=5 Noise%|
000003f0  3d ac 20 4e 6f 69 73 65  25 0d 01 d6 20 e7 20 54  |=. Noise%... . T|
00000400  69 6d 65 72 25 20 54 24  3d 22 4f 4e 20 22 20 8b  |imer% T$="ON " .|
00000410  20 54 24 3d 22 4f 46 46  22 0d 01 e0 20 e7 20 4e  | T$="OFF"... . N|
00000420  6f 69 73 65 25 20 53 24  3d 22 4f 4e 20 22 20 8b  |oise% S$="ON " .|
00000430  20 53 24 3d 22 4f 46 46  22 0d 01 ea 13 f2 64 62  | S$="OFF".....db|
00000440  28 33 2c 31 39 2c 31 39  2c 54 24 29 0d 01 f4 13  |(3,19,19,T$)....|
00000450  f2 64 62 28 33 2c 31 39  2c 32 32 2c 53 24 29 0d  |.db(3,19,22,S$).|
00000460  01 fe 1e 47 25 3d a4 67  65 74 28 22 31 32 33 54  |...G%=.get("123T|
00000470  53 22 2c 31 33 2c 31 35  2c 34 2c b9 29 0d 02 08  |S",13,15,4,.)...|
00000480  16 fd 20 47 25 3c 34 3a  4c 65 76 65 6c 25 3d 47  |.. G%<4:Level%=G|
00000490  25 2d 31 0d 02 12 05 e1  0d 02 1c 19 dd f2 64 62  |%-1...........db|
000004a0  28 43 25 2c 58 25 2c 59  25 2c 6d 24 29 3a ea 44  |(C%,X%,Y%,m$):.D|
000004b0  25 0d 02 26 1d e3 20 44  25 3d 59 25 20 b8 20 59  |%..&.. D%=Y% . Y|
000004c0  25 2b 31 3a ef 33 31 58  25 44 25 31 34 31 0d 02  |%+1:.31X%D%141..|
000004d0  30 15 f1 bd 28 31 32 38  2b 43 25 29 6d 24 3b 3a  |0...(128+C%)m$;:|
000004e0  ed 3a e1 0d 02 3a 0a dd  f2 69 6e 69 74 0d 02 44  |.:...:...init..D|
000004f0  24 ef 32 33 2c 32 32 34  2c 36 30 2c 36 30 2c 36  |$.23,224,60,60,6|
00000500  30 2c 36 30 2c 36 30 2c  31 32 36 2c 36 30 2c 32  |0,60,60,126,60,2|
00000510  34 0d 02 4e 25 e2 31 2c  33 2c 30 2c 30 2c 30 2c  |4..N%.1,3,0,0,0,|
00000520  30 2c 30 2c 30 2c 38 2c  2d 31 2c 30 2c 2d 36 2c  |0,0,0,8,-1,0,-6,|
00000530  31 32 34 2c 36 30 0d 02  58 27 e2 32 2c 31 2c 30  |124,60..X'.2,1,0|
00000540  2c 30 2c 30 2c 30 2c 30  2c 30 2c 33 32 2c 2d 34  |,0,0,0,0,0,32,-4|
00000550  2c 2d 34 2c 2d 38 2c 31  31 30 2c 36 30 0d 02 62  |,-4,-8,110,60..b|
00000560  29 e2 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |).3,1,0,0,0,0,0,|
00000570  30 2c 31 32 36 2c 2d 33  2c 2d 33 2c 2d 36 2c 31  |0,126,-3,-3,-6,1|
00000580  32 36 2c 31 30 30 0d 02  6c 1d 64 3d 31 30 30 3a  |26,100..l.d=100:|
00000590  4d 6f 6d 65 6e 74 25 3d  30 3a 6d 6f 6d 65 6e 74  |Moment%=0:moment|
000005a0  25 3d 30 0d 02 76 1a de  20 73 28 32 30 29 2c 63  |%=0..v.. s(20),c|
000005b0  28 32 30 29 3a 2a 46 58  31 31 2c 33 30 0d 02 80  |(20):*FX11,30...|
000005c0  19 de 20 70 6f 73 28 34  29 2c 70 6c 70 28 34 29  |.. pos(4),plp(4)|
000005d0  2c 52 25 28 34 29 0d 02  8a 1c e3 54 25 3d 30 b8  |,R%(4).....T%=0.|
000005e0  32 30 3a 73 28 54 25 29  3d b5 b2 28 54 25 2a 31  |20:s(T%)=..(T%*1|
000005f0  38 29 0d 02 94 1e 63 28  54 25 29 3d 9b b2 28 54  |8)....c(T%)=..(T|
00000600  25 2a 31 38 29 3a ed 3a  2a 46 58 31 32 2c 33 30  |%*18):.:*FX12,30|
00000610  0d 02 9e 17 54 69 6d 65  72 25 3d a3 3a 4e 6f 69  |....Timer%=.:Noi|
00000620  73 65 25 3d b9 3a e1 0d  02 a8 0c dd f2 73 63 72  |se%=.:.......scr|
00000630  65 65 6e 0d 02 b2 18 db  3a f2 62 6f 78 28 38 2c  |een.....:.box(8,|
00000640  38 2c 31 32 37 32 2c 39  39 32 29 0d 02 bc 16 ec  |8,1272,992).....|
00000650  31 30 30 2c 36 30 38 3a  df 31 31 38 30 2c 36 30  |100,608:.1180,60|
00000660  38 0d 02 c6 38 e7 20 54  69 6d 65 72 25 20 f2 62  |8...8. Timer% .b|
00000670  6f 78 28 33 37 36 2c 31  32 30 2c 38 39 36 2c 31  |ox(376,120,896,1|
00000680  36 38 29 3a fb 32 3a f1  8a 36 2c 32 37 29 22 54  |68):.2:..6,27)"T|
00000690  69 6d 65 20 22 3b 3a fb  33 0d 02 d0 18 f2 68 65  |ime ";:.3.....he|
000006a0  61 64 28 38 36 34 29 3a  f2 62 61 72 28 30 2c a3  |ad(864):.bar(0,.|
000006b0  29 0d 02 da 15 61 58 25  3d 33 31 32 3a 61 59 25  |)....aX%=312:aY%|
000006c0  3d 35 36 30 3a e1 0d 02  e4 1a dd f2 62 6f 78 28  |=560:.......box(|
000006d0  4c 78 25 2c 4c 79 25 2c  55 78 25 2c 55 79 25 29  |Lx%,Ly%,Ux%,Uy%)|
000006e0  0d 02 ee 16 ec 4c 78 25  2c 4c 79 25 3a df 4c 78  |.....Lx%,Ly%:.Lx|
000006f0  25 2c 55 79 25 3a 0d 02  f8 15 df 55 78 25 2c 55  |%,Uy%:.....Ux%,U|
00000700  79 25 3a df 55 78 25 2c  4c 79 25 0d 03 02 0e df  |y%:.Ux%,Ly%.....|
00000710  4c 78 25 2c 4c 79 25 3a  e1 0d 03 0c 13 dd f2 68  |Lx%,Ly%:.......h|
00000720  65 61 64 28 48 25 29 3a  e6 30 2c 31 0d 03 16 13  |ead(H%):.0,1....|
00000730  ec 36 30 38 2c 48 25 3a  ec 36 37 32 2c 48 25 0d  |.608,H%:.672,H%.|
00000740  03 20 16 f0 38 35 2c 36  34 30 2c 48 25 2b 34 34  |. ..85,640,H%+44|
00000750  3a e6 30 2c 32 0d 03 2a  1c ec 35 30 30 2c 48 25  |:.0,2..*..500,H%|
00000760  2b 35 32 3a df 37 38 30  2c 48 25 2b 35 32 3a ef  |+52:.780,H%+52:.|
00000770  35 0d 03 34 19 e6 30 2c  33 3a f2 63 6f 66 66 3a  |5..4..0,3:.coff:|
00000780  ec 34 31 36 2c 48 25 2b  39 32 0d 03 3e 17 f1 22  |.416,H%+92..>.."|
00000790  42 41 4c 41 4e 43 45 22  3a ef 34 3a f2 63 6f 66  |BALANCE":.4:.cof|
000007a0  66 0d 03 48 0a e6 30 2c  32 3a e1 0d 03 52 10 dd  |f..H..0,2:...R..|
000007b0  f2 62 61 72 28 54 68 2c  43 25 29 0d 03 5c 1a e6  |.bar(Th,C%)..\..|
000007c0  30 2c 31 3a ec 35 30 30  2c 32 30 30 3a ec 37 38  |0,1:.500,200:.78|
000007d0  30 2c 32 30 30 0d 03 66  15 f0 38 35 2c 36 34 30  |0,200..f..85,640|
000007e0  2c 33 39 32 3a e6 20 30  2c 32 0d 03 70 11 53 3d  |,392:. 0,2..p.S=|
000007f0  b5 b2 54 68 3a 43 3d 9b  b2 54 68 0d 03 7a 15 78  |..Th:C=..Th..z.x|
00000800  25 3d 36 30 30 2a 43 3a  79 25 3d 36 30 30 2a 53  |%=600*C:y%=600*S|
00000810  0d 03 84 12 ec 36 34 30  2d 78 25 2c 35 30 30 2d  |.....640-x%,500-|
00000820  79 25 0d 03 8e 12 ec 36  34 30 2b 78 25 2c 35 30  |y%.....640+x%,50|
00000830  30 2b 79 25 0d 03 98 1d  f0 38 35 2c 36 34 30 2d  |0+y%.....85,640-|
00000840  78 25 2b 64 2a 53 2c 35  30 30 2d 79 25 2d 64 2a  |x%+d*S,500-y%-d*|
00000850  43 0d 03 a2 1d f0 38 35  2c 36 34 30 2b 78 25 2b  |C.....85,640+x%+|
00000860  64 2a 53 2c 35 30 30 2b  79 25 2d 64 2a 43 0d 03  |d*S,500+y%-d*C..|
00000870  ac 0a e7 20 43 25 20 e1  0d 03 b6 16 48 25 3d 36  |... C% .....H%=6|
00000880  3a e6 30 2c 33 3a ef 35  3a f2 63 6f 66 66 0d 03  |:.0,3:.5:.coff..|
00000890  c0 19 e3 20 4a 25 3d 2d  35 34 30 20 b8 20 35 34  |... J%=-540 . 54|
000008a0  30 20 88 20 31 32 30 0d  03 ca 23 e7 20 4a 25 3c  |0 . 120...#. J%<|
000008b0  30 20 48 25 3d 48 25 2d  31 20 8b e7 20 4a 25 3e  |0 H%=H%-1 .. J%>|
000008c0  36 30 20 48 25 3d 48 25  2b 31 0d 03 d4 1b ec 36  |60 H%=H%+1.....6|
000008d0  34 30 2b 4a 25 2c 36 30  30 3a df 36 34 30 2b 4a  |40+J%,600:.640+J|
000008e0  25 2c 36 31 36 0d 03 de  14 ec 36 30 38 2b 4a 25  |%,616.....608+J%|
000008f0  2c 36 34 38 3a f1 3b 48  25 0d 03 e8 34 f2 63 69  |,648:.;H%...4.ci|
00000900  72 63 6c 65 28 36 34 30  2b 4a 25 2a 43 2b 64 2a  |rcle(640+J%*C+d*|
00000910  53 2f 32 2c 35 30 30 2b  4a 25 2a 53 2d 64 2a 43  |S/2,500+J%*S-d*C|
00000920  2f 32 2c 34 30 2c 30 2c  32 30 2c 30 29 0d 03 f2  |/2,40,0,20,0)...|
00000930  10 ed 3a ef 34 3a f2 63  6f 66 66 3a e1 0d 03 fc  |..:.4:.coff:....|
00000940  1f dd f2 63 69 72 63 6c  65 28 58 25 2c 59 25 2c  |...circle(X%,Y%,|
00000950  52 25 2c 53 25 2c 45 25  2c 4e 25 29 0d 04 06 19  |R%,S%,E%,N%)....|
00000960  6f 78 25 3d 58 25 3a 6f  79 25 3d 59 25 3a ec 20  |ox%=X%:oy%=Y%:. |
00000970  58 25 2c 59 25 0d 04 10  1a e3 20 54 25 3d 53 25  |X%,Y%..... T%=S%|
00000980  20 b8 20 45 25 3a ec 20  6f 78 25 2c 6f 79 25 0d  | . E%:. ox%,oy%.|
00000990  04 1a 1d e7 20 4e 25 20  e7 20 4e 6f 69 73 65 25  |.... N% . Noise%|
000009a0  20 d4 31 2c 31 2c 54 25  2a 34 2c 31 0d 04 24 1f  | .1,1,T%*4,1..$.|
000009b0  f0 38 35 2c 58 25 2b 52  25 2a 73 28 54 25 29 2c  |.85,X%+R%*s(T%),|
000009c0  59 25 2b 52 25 2a 63 28  54 25 29 0d 04 2e 07 ed  |Y%+R%*c(T%).....|
000009d0  3a e1 0d 04 38 1a dd f2  69 6e 69 74 67 61 6d 65  |:...8...initgame|
000009e0  28 4c 25 29 3a ea 20 47  25 2c 52 25 0d 04 42 18  |(L%):. G%,R%..B.|
000009f0  e3 20 47 25 3d 30 20 b8  20 34 3a 70 6c 70 28 47  |. G%=0 . 4:plp(G|
00000a00  25 29 3d 30 0d 04 4c 1c  70 6f 73 28 47 25 29 3d  |%)=0..L.pos(G%)=|
00000a10  30 3a ed 3a 67 6f 3d 30  3a 74 69 6d 65 25 3d 30  |0:.:go=0:time%=0|
00000a20  0d 04 56 10 52 25 28 30  29 3d b3 28 35 29 2d 31  |..V.R%(0)=.(5)-1|
00000a30  0d 04 60 28 e7 20 4c 25  3e 30 20 f5 20 52 25 28  |..`(. L%>0 . R%(|
00000a40  31 29 3d b3 28 35 29 2d  31 3a fd 20 52 25 28 31  |1)=.(5)-1:. R%(1|
00000a50  29 3c 3e 52 25 28 30 29  0d 04 6a 37 e7 20 4c 25  |)<>R%(0)..j7. L%|
00000a60  3e 31 20 f5 20 52 25 28  32 29 3d b3 28 35 29 2d  |>1 . R%(2)=.(5)-|
00000a70  31 3a fd 20 52 25 28 32  29 3c 3e 52 25 28 30 29  |1:. R%(2)<>R%(0)|
00000a80  20 80 20 52 25 28 32 29  3c 3e 52 25 28 31 29 0d  | . R%(2)<>R%(1).|
00000a90  04 74 0f e3 20 52 25 3d  30 20 b8 20 4c 25 0d 04  |.t.. R%=0 . L%..|
00000aa0  7e 16 70 6f 73 28 52 25  28 52 25 29 29 3d b3 28  |~.pos(R%(R%))=.(|
00000ab0  34 29 3a ed 0d 04 88 2e  e7 20 4c 25 3d 30 3a e7  |4):...... L%=0:.|
00000ac0  20 70 6f 73 28 30 29 3d  31 3a f5 20 70 6f 73 28  | pos(0)=1:. pos(|
00000ad0  30 29 3d b3 28 34 29 3a  fd 20 70 6f 73 28 30 29  |0)=.(4):. pos(0)|
00000ae0  3d 31 0d 04 92 05 e1 0d  04 9c 13 dd f2 63 6f 75  |=1...........cou|
00000af0  6e 74 65 72 73 3a ea 20  4d 25 0d 04 a6 13 e6 30  |nters:. M%.....0|
00000b00  2c 31 3a e3 20 4d 25 3d  30 20 b8 20 34 0d 04 b0  |,1:. M%=0 . 4...|
00000b10  37 e7 70 6f 73 28 4d 25  29 3e 30 3a f2 63 69 72  |7.pos(M%)>0:.cir|
00000b20  63 6c 65 28 37 30 30 2b  4d 25 2a 31 32 30 2c 34  |cle(700+M%*120,4|
00000b30  35 30 2c 34 30 2c 30 2c  70 6f 73 28 4d 25 29 2a  |50,40,0,pos(M%)*|
00000b40  35 2c 30 29 0d 04 ba 3b  e7 70 6c 70 28 4d 25 29  |5,0)...;.plp(M%)|
00000b50  3e 30 3a f2 63 69 72 63  6c 65 28 31 30 30 2b 28  |>0:.circle(100+(|
00000b60  34 2d 4d 25 29 2a 31 32  30 2c 34 35 30 2c 34 30  |4-M%)*120,450,40|
00000b70  2c 30 2c 70 6c 70 28 4d  25 29 2a 35 2c 30 29 0d  |,0,plp(M%)*5,0).|
00000b80  04 c4 07 ed 3a e1 0d 04  ce 0a dd f2 67 61 6d 65  |....:.......game|
00000b90  0d 04 d8 0b f2 73 63 72  65 65 6e 0d 04 e2 14 4d  |.....screen....M|
00000ba0  6f 6d 65 6e 74 25 3d a4  52 6d 6f 6d 65 6e 74 0d  |oment%=.Rmoment.|
00000bb0  04 ec 0d f2 63 6f 75 6e  74 65 72 73 0d 04 f6 0c  |....counters....|
00000bc0  ef 35 3a f2 63 6f 66 66  0d 05 00 13 67 6f 3d 67  |.5:.coff....go=g|
00000bd0  6f 2b 31 3a d1 3d 74 69  6d 65 25 0d 05 0a 07 f5  |o+1:.=time%.....|
00000be0  20 f5 0d 05 14 17 e6 30  2c 31 3a ec 20 61 58 25  | ......0,1:. aX%|
00000bf0  2c 61 59 25 3a ef 32 32  34 0d 05 1e 1e 49 25 3d  |,aY%:.224....I%=|
00000c00  a4 67 65 74 28 22 5a 58  20 22 2b bd 31 33 2c 30  |.get("ZX "+.13,0|
00000c10  2c 30 2c 30 2c 30 29 0d  05 28 15 e7 20 49 25 3c  |,0,0,0)..(.. I%<|
00000c20  33 20 f2 6d 6f 76 65 61  72 72 6f 77 0d 05 32 15  |3 .movearrow..2.|
00000c30  e7 20 49 25 3d 33 20 f2  61 64 64 77 65 69 67 68  |. I%=3 .addweigh|
00000c40  74 0d 05 3c 14 6d 6f 6d  65 6e 74 25 3d a4 4c 6d  |t..<.moment%=.Lm|
00000c50  6f 6d 65 6e 74 0d 05 46  16 fd 20 49 25 3d 34 3a  |oment..F.. I%=4:|
00000c60  73 61 6d 65 25 3d a4 73  61 6d 65 0d 05 50 18 e7  |same%=.same..P..|
00000c70  20 73 61 6d 65 25 20 d4  31 2c 2d 31 35 2c 31 30  | same% .1,-15,10|
00000c80  30 2c 34 0d 05 5a 15 fd  20 ac 20 73 61 6d 65 25  |0,4..Z.. . same%|
00000c90  3a 74 69 6d 65 25 3d 91  0d 05 64 16 db 3a f2 68  |:time%=...d..:.h|
00000ca0  65 61 64 28 38 36 34 29  3a e6 20 30 2c 32 0d 05  |ead(864):. 0,2..|
00000cb0  6e 1f f2 62 61 72 28 28  6d 6f 6d 65 6e 74 25 2d  |n..bar((moment%-|
00000cc0  4d 6f 6d 65 6e 74 25 29  2f 32 2c b9 29 0d 05 78  |Moment%)/2,.)..x|
00000cd0  0c f2 77 61 69 74 28 31  29 0d 05 82 26 e7 20 6d  |..wait(1)...&. m|
00000ce0  6f 6d 65 6e 74 25 3c 3e  4d 6f 6d 65 6e 74 25 20  |oment%<>Moment% |
00000cf0  f2 77 72 6f 6e 67 20 8b  20 f2 72 69 67 68 74 0d  |.wrong . .right.|
00000d00  05 8c 0e f2 77 61 69 74  28 31 29 3a e1 0d 05 96  |....wait(1):....|
00000d10  13 dd 20 a4 73 61 6d 65  3a ea 20 43 25 2c 46 25  |.. .same:. C%,F%|
00000d20  0d 05 a0 13 46 25 3d b9  3a e3 20 43 25 3d 30 20  |....F%=.:. C%=0 |
00000d30  b8 20 34 0d 05 aa 1b 46  25 3d 46 25 80 28 70 6c  |. 4....F%=F%.(pl|
00000d40  70 28 43 25 29 3d 70 6f  73 28 43 25 29 29 0d 05  |p(C%)=pos(C%))..|
00000d50  b4 09 ed 3a 3d 46 25 0d  05 be 10 dd f2 77 72 6f  |...:=F%......wro|
00000d60  6e 67 3a e6 30 2c 33 0d  05 c8 16 e7 20 4e 6f 69  |ng:.0,3..... Noi|
00000d70  73 65 25 20 d4 31 2c 32  2c 38 30 2c 34 0d 05 d2  |se% .1,2,80,4...|
00000d80  13 ec 32 35 36 2c 30 3a  ec 31 32 38 2c 31 32 38  |..256,0:.128,128|
00000d90  0d 05 dc 1e f0 38 35 2c  31 31 35 32 2c 38 39 36  |.....85,1152,896|
00000da0  3a f0 38 35 2c 31 30 32  34 2c 31 30 32 34 0d 05  |:.85,1024,1024..|
00000db0  e6 15 ec 31 30 32 34 2c  30 3a ec 31 31 35 32 2c  |...1024,0:.1152,|
00000dc0  31 32 38 0d 05 f0 1c f0  38 35 2c 31 32 38 2c 38  |128.....85,128,8|
00000dd0  39 36 3a f0 38 35 2c 32  35 36 2c 31 30 32 34 0d  |96:.85,256,1024.|
00000de0  05 fa 16 e7 20 4e 6f 69  73 65 25 20 d4 31 2c 32  |.... Noise% .1,2|
00000df0  2c 36 30 2c 34 0d 06 04  05 e1 0d 06 0e 10 dd f2  |,60,4...........|
00000e00  72 69 67 68 74 3a e6 30  2c 33 0d 06 18 17 e7 20  |right:.0,3..... |
00000e10  4e 6f 69 73 65 25 20 d4  31 2c 33 2c 31 30 30 2c  |Noise% .1,3,100,|
00000e20  34 0d 06 22 14 ec 31 32  38 2c 33 32 30 3a ec 33  |4.."..128,320:.3|
00000e30  38 34 2c 36 34 0d 06 2c  1b f0 38 35 2c 32 35 36  |84,64..,..85,256|
00000e40  2c 34 34 38 3a f0 38 35  2c 35 31 32 2c 31 39 32  |,448:.85,512,192|
00000e50  0d 06 36 19 ec 33 38 34  2c 33 32 30 3a f0 38 35  |..6..384,320:.85|
00000e60  2c 31 31 35 32 2c 38 33  32 0d 06 40 10 f0 38 35  |,1152,832..@..85|
00000e70  2c 31 30 32 34 2c 39 36  30 0d 06 4a 17 e7 20 4e  |,1024,960..J.. N|
00000e80  6f 69 73 65 25 20 d4 31  2c 33 2c 31 32 30 2c 34  |oise% .1,3,120,4|
00000e90  0d 06 54 05 e1 0d 06 5e  18 dd f2 74 75 6e 65 3a  |..T....^...tune:|
00000ea0  ea 20 41 25 2c 54 25 2c  4e 25 2c 44 25 0d 06 68  |. A%,T%,N%,D%..h|
00000eb0  17 e3 20 54 25 3d 31 20  b8 20 31 36 3a f3 20 4e  |.. T%=1 . 16:. N|
00000ec0  25 2c 44 25 0d 06 72 16  e7 20 4e 25 3d 30 20 41  |%,D%..r.. N%=0 A|
00000ed0  25 3d 30 20 8b 20 41 25  3d 31 0d 06 7c 1d d4 31  |%=0 . A%=1..|..1|
00000ee0  2c 41 25 2c 4e 25 2c 44  25 3a d4 32 2c 41 25 2c  |,A%,N%,D%:.2,A%,|
00000ef0  4e 25 2b 31 2c 44 25 0d  06 86 07 ed 3a e1 0d 06  |N%+1,D%.....:...|
00000f00  90 32 dc 36 31 2c 34 2c  37 37 2c 34 2c 31 31 33  |.2.61,4,77,4,113|
00000f10  2c 34 2c 31 30 39 2c 33  36 2c 36 31 2c 34 2c 38  |,4,109,36,61,4,8|
00000f20  31 2c 34 2c 31 31 33 2c  34 2c 31 30 39 2c 31 36  |1,4,113,4,109,16|
00000f30  0d 06 9a 2b dc 30 2c 34  2c 39 33 2c 34 2c 31 30  |...+.0,4,93,4,10|
00000f40  31 2c 34 2c 30 2c 32 2c  36 35 2c 32 2c 36 31 2c  |1,4,0,2,65,2,61,|
00000f50  32 2c 35 33 2c 32 2c 36  31 2c 32 0d 06 a4 0b dd  |2,53,2,61,2.....|
00000f60  f2 65 72 72 6f 72 0d 06  ae 14 f6 3a f1 22 20 61  |.error.....:." a|
00000f70  74 20 6c 69 6e 65 20 22  3b 9e 0d 06 b8 05 e1 0d  |t line ";.......|
00000f80  06 c2 17 dd f2 77 61 69  74 28 74 29 3a 74 3d 91  |.....wait(t):t=.|
00000f90  2b 74 2a 31 30 30 0d 06  cc 0b f5 fd 91 3e 74 3a  |+t*100.......>t:|
00000fa0  e1 0d 06 d6 1a dd 20 a4  67 65 74 28 6b 24 2c 58  |...... .get(k$,X|
00000fb0  25 2c 59 25 2c 43 25 2c  46 25 29 0d 06 e0 13 ea  |%,Y%,C%,F%).....|
00000fc0  20 47 25 2c 49 25 3a f2  63 6f 66 66 3a f5 0d 06  | G%,I%:.coff:...|
00000fd0  ea 1a e7 20 46 25 20 f2  64 62 28 43 25 2c 58 25  |... F% .db(C%,X%|
00000fe0  2c 59 25 2c 22 2a 22 29  0d 06 f4 35 e7 20 ac 46  |,Y%,"*")...5. .F|
00000ff0  25 20 e7 20 54 69 6d 65  72 25 20 ef 34 3a f2 63  |% . Timer% .4:.c|
00001000  6f 66 66 3a f1 8a 31 31  2c 32 37 29 3b 91 20 81  |off:..11,27);. .|
00001010  31 30 30 3b 3a ef 35 3a  f2 63 6f 66 66 0d 06 fe  |100;:.5:.coff...|
00001020  23 47 25 3d a6 30 3a e7  20 47 25 3e 39 36 20 e7  |#G%=.0:. G%>96 .|
00001030  20 47 25 3c 31 32 33 20  47 25 3d 47 25 2d 33 32  | G%<123 G%=G%-32|
00001040  0d 07 08 0f 49 25 3d a7  6b 24 2c bd 47 25 29 0d  |....I%=.k$,.G%).|
00001050  07 12 1a e7 20 46 25 20  f2 64 62 28 43 25 2c 58  |.... F% .db(C%,X|
00001060  25 2c 59 25 2c 22 20 22  29 0d 07 1c 0e fd 20 49  |%,Y%," ")..... I|
00001070  25 3e 30 3a 3d 49 25 0d  07 26 15 dd a4 52 6d 6f  |%>0:=I%..&...Rmo|
00001080  6d 65 6e 74 3a ea 20 4d  25 2c 4c 25 0d 07 30 21  |ment:. M%,L%..0!|
00001090  e3 20 4c 25 3d 31 20 b8  20 35 3a 4d 25 3d 4d 25  |. L%=1 . 5:M%=M%|
000010a0  2b 4c 25 2a 70 6f 73 28  4c 25 2d 31 29 0d 07 3a  |+L%*pos(L%-1)..:|
000010b0  09 ed 3a 3d 4d 25 0d 07  44 15 dd a4 4c 6d 6f 6d  |..:=M%..D...Lmom|
000010c0  65 6e 74 3a ea 20 4d 25  2c 4c 25 0d 07 4e 21 e3  |ent:. M%,L%..N!.|
000010d0  20 4c 25 3d 31 20 b8 20  35 3a 4d 25 3d 4d 25 2b  | L%=1 . 5:M%=M%+|
000010e0  4c 25 2a 70 6c 70 28 4c  25 2d 31 29 0d 07 58 09  |L%*plp(L%-1)..X.|
000010f0  ed 3a 3d 4d 25 0d 07 62  0f dd f2 6d 6f 76 65 61  |.:=M%..b...movea|
00001100  72 72 6f 77 0d 07 6c 17  e6 30 2c 30 3a ec 20 61  |rrow..l..0,0:. a|
00001110  58 25 2c 61 59 25 3a ef  32 32 34 0d 07 76 20 e7  |X%,aY%:.224..v .|
00001120  20 49 25 3d 31 20 e7 20  61 58 25 3e 31 30 30 20  | I%=1 . aX%>100 |
00001130  61 58 25 3d 61 58 25 2d  31 32 30 0d 07 80 20 e7  |aX%=aX%-120... .|
00001140  20 49 25 3d 32 20 e7 20  61 58 25 3c 35 30 30 20  | I%=2 . aX%<500 |
00001150  61 58 25 3d 61 58 25 2b  31 32 30 0d 07 8a 05 e1  |aX%=aX%+120.....|
00001160  0d 07 94 10 dd 20 f2 61  64 64 77 65 69 67 68 74  |..... .addweight|
00001170  0d 07 9e 1e ea 20 43 25  3a 43 25 3d 70 6c 70 28  |..... C%:C%=plp(|
00001180  28 35 35 32 2d 61 58 25  29 2f 31 32 30 29 0d 07  |(552-aX%)/120)..|
00001190  a8 1e e7 20 43 25 3c 35  20 43 25 3d 43 25 2b 31  |... C%<5 C%=C%+1|
000011a0  3a e7 20 43 25 3e 34 20  43 25 3d 30 0d 07 b2 32  |:. C%>4 C%=0...2|
000011b0  e7 20 43 25 3e 30 3a f2  63 69 72 63 6c 65 28 61  |. C%>0:.circle(a|
000011c0  58 25 2b 32 38 2c 34 35  30 2c 34 30 2c 28 43 25  |X%+28,450,40,(C%|
000011d0  2d 31 29 2a 35 2c 43 25  2a 35 2c 2d 31 29 0d 07  |-1)*5,C%*5,-1)..|
000011e0  bc 2e e7 20 43 25 3d 30  20 e6 30 2c 33 3a f2 63  |... C%=0 .0,3:.c|
000011f0  69 72 63 6c 65 28 61 58  25 2b 32 38 2c 34 35 30  |ircle(aX%+28,450|
00001200  2c 34 30 2c 30 2c 32 30  2c 2d 31 29 0d 07 c6 1b  |,40,0,20,-1)....|
00001210  70 6c 70 28 28 35 35 32  2d 61 58 25 29 2f 31 32  |plp((552-aX%)/12|
00001220  30 29 3d 43 25 3a e1 0d  ff                       |0)=C%:...|
00001229