*FX163,128,1
��5,7
L� "RUBBLE",0,"TROUBLE ",32
� " ","    Z    Left"
xD� "    X    Right","    *    Up","    ?    Down","  Return Push"
��""
@ � " "," "," "," "
��5:�=&4800
	.� BIT(4):AC=0
	`�23,1,0;0;0;0;
	�!� T%,U%:�19,3,T%;0;19,2,U%;0;
(
�131:�
�L%=96:R%=1184
��0,0
T� X%=0 � 1280 � 24
�� X%,0:� X%,1025
 � 0,X%*.8333:� 1280,X%*.8333
��
��b(L%,64,R%,256)

H�b(L%,320,R%,752)

��0:�130
�s(6,2,"MICRO",�)
t�s(6,5,"POWER",�)
��0,0:�26
�- �A$,O%:�s(7,9,A$,�):�A$,O%:�s(6,11,A$,�)
0�0
4
 � 129:�2
l
 � 130:�0
v$ �I%=0 � 7:� A$:�2,13+I%)A$;:� 
�#� 28,2,28,17,24,23,1,1;0;0;0;0;
� !&70=&01010101
�
 � 130
� � 23,1,0;0;0;0;
\S�" Do you want to"''" use joysticks?";:A$=�:�A$:� A$="Y"�A$="y"� �joy � !&140=0
��:�=&E00:�"RUBBLE1"
���a(A%,B%,C%,D%,E%)
C�24,A%-8;B%-4;C%+8;D%+4;18,0,128,16,24,A%;B%;C%;D%;18;E%+128,16
|�
D��b(A%,B%,C%,D%)
��a(A%,B%,C%,D%,1)
!�a(A%+16,B%+16,C%+16,D%+16,2)
p�
8��d(X%,Y%,C%)
�� A%,B%
A%=&5800+320*Y%+X%*16
d�X%*64+O%,(32-Y%)*32
��C%
��B%=0�7
,?(A%+320+B%)=?(A%+B%�2+4)
�?(A%+328+B%)=?(A%+B%�2+12)
��
X� B%=7 � 0 � -1
�?(A%+B%)=?(A%+B%�2)
 ?(A%+B%+8)=?(A%+8+B%�2)
��
��
L��s(X%,Y%,A$,F%)
�� A%
�
� F% � �5
� A%=1 � � A$
x>� F% � �d(X%+A%-1,Y%,��A$,A%)) � �l(X%+A%*2-2,Y%,��A$,A%))
��
� F% � �4,23,1,0;0;0;0;
@�
 ��l(x%,y%,L%)
 l"� A%,B%:A%=x%*64:B%=32*(31-y%)
 ��b(A%-32,B%-32,A%+64,B%+32)
!4� 31,x%,y%,L%
!��
#(	��joy
#�9�7:A=�(100):�:�"  Please enter"''"joystick address ";
#�
ADD=0:T=4
$"�
$T<� A$=�:X=�"0123456789ABCDEFabcdefOo"+�127+�13,A$):� X<>0
$^A� X=25 � T<4� �8,32,8:ADD=ADD-(ADD � ((16^T)*15)):T=T+1:�DTd
$h� X=23 � X=24� X=1
$�� X>16 � X<25� X=X-6
$�3� T>0 � X<17  �A$;:ADD=ADD+(X-1)*16^(T-1):T=T-1
%�T=0 � X=26
%�/�7:�:�"   Enter code"''" 0 if not known "';
%�A$="":T=1:�
%�C� B$=�:X=�"0123456789OI"+�13+"oi"+�127,B$):�X<>0:�X=11�X=14�X=1
%��X=12�X=15�X=2
%�+�X=16�T>1�T=T-1:�8,32,8:A$=�A$,T):�tJe
%�&�T<4 �X<11��B$;:A$=A$+�(X-1):T=T+1
%�� X=13 �T>1
%�"�7:A=�A$:� A$="0"��rcode:�T`f
%�I�A<1 � (A>120 � A<129) � A>248 � �''"  Please check !":A=�(200):�t@e
%�.A$="43210":AC=255*((A-1) �128):A=(A-1)�128
%�1R=A �24:A=A �24:�R>0�T=1�R:A$=�A$,1)+�A$,4):�
&8R=A �6:A=A �6:�R>0�T=1�R:A$=�A$,4,1)+�A$,3)+�A$,1):�
&8R=A �2:A=A �2:�R>0�T=1�R:A$=�A$,3,1)+�A$,2)+�A$,2):�
&# �A=1�A$=�A$,2,1)+�A$,1)+�A$,3)
& )!&140=ADD:?&142=AC:!&143=�("&FFF"+A$)
&*�
&4��rcode
&>&BF=0:�rbits("Centre stick",1):BF=1
&H8T=BIT(0)+BIT(1)+BIT(2)+BIT(3)+BIT(4):�T<>0�T<>5��T~f
&J�T=5�AC=255�AC=0
&M�X=0�4:BIT(X)=0:�
&R�rbits("Move down",1)
&\�rbits("Move right",3)
&f�rbits("Move left",2)
&p�rbits("Press fire",4)
&z8A$=�(BIT(4))+�(BIT(3))+�(BIT(2))+�(BIT(1))+�(BIT(0))
&AC=AC �255
&��
&���rbits(M$,B)
&�	�:�M$
&�CA=?ADD:F=0:�X=0�4:T=B*(((A � AC) � 2^X)/2^X):�T<>0�BIT(X)=T:F=1
&��
&��F=0�BF=1��tbf��7
&�5�:�"   Release":� � (?ADD � 31)=0 �(?ADD � 31)=31
&��
�

00000000  0d 00 0a 11 20 2a 46 58  31 36 33 2c 31 32 38 2c  |.... *FX163,128,|
00000010  31 0d 03 84 08 dc 35 2c  37 0d 04 4c 1e dc 20 22  |1.....5,7..L.. "|
00000020  52 55 42 42 4c 45 22 2c  30 2c 22 54 52 4f 55 42  |RUBBLE",0,"TROUB|
00000030  4c 45 20 22 2c 33 32 0d  05 14 19 dc 20 22 20 22  |LE ",32..... " "|
00000040  2c 22 20 20 20 20 5a 20  20 20 20 4c 65 66 74 22  |,"    Z    Left"|
00000050  0d 05 78 44 dc 20 22 20  20 20 20 58 20 20 20 20  |..xD. "    X    |
00000060  52 69 67 68 74 22 2c 22  20 20 20 20 2a 20 20 20  |Right","    *   |
00000070  20 55 70 22 2c 22 20 20  20 20 3f 20 20 20 20 44  | Up","    ?    D|
00000080  6f 77 6e 22 2c 22 20 20  52 65 74 75 72 6e 20 50  |own","  Return P|
00000090  75 73 68 22 0d 05 dc 07  dc 22 22 0d 06 40 16 20  |ush".....""..@. |
000000a0  dc 20 22 20 22 2c 22 20  22 2c 22 20 22 2c 22 20  |. " "," "," "," |
000000b0  22 0d 08 fc 0e eb 35 3a  d2 3d 26 34 38 30 30 0d  |".....5:.=&4800.|
000000c0  09 2e 11 de 20 42 49 54  28 34 29 3a 41 43 3d 30  |.... BIT(4):AC=0|
000000d0  0d 09 60 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..`..23,1,0;0;0;|
000000e0  30 3b 0d 09 c4 21 f3 20  54 25 2c 55 25 3a ef 31  |0;...!. T%,U%:.1|
000000f0  39 2c 33 2c 54 25 3b 30  3b 31 39 2c 32 2c 55 25  |9,3,T%;0;19,2,U%|
00000100  3b 30 3b 0d 0a 28 0a fb  31 33 31 3a db 0d 0a 8c  |;0;..(..131:....|
00000110  11 4c 25 3d 39 36 3a 52  25 3d 31 31 38 34 0d 0a  |.L%=96:R%=1184..|
00000120  f0 08 e6 30 2c 30 0d 0b  54 16 e3 20 58 25 3d 30  |...0,0..T.. X%=0|
00000130  20 b8 20 31 32 38 30 20  88 20 32 34 0d 0b b8 14  | . 1280 . 24....|
00000140  ec 20 58 25 2c 30 3a df  20 58 25 2c 31 30 32 35  |. X%,0:. X%,1025|
00000150  0d 0c 1c 20 ec 20 30 2c  58 25 2a 2e 38 33 33 33  |... . 0,X%*.8333|
00000160  3a df 20 31 32 38 30 2c  58 25 2a 2e 38 33 33 33  |:. 1280,X%*.8333|
00000170  0d 0c 80 05 ed 0d 0c e4  14 f2 62 28 4c 25 2c 36  |..........b(L%,6|
00000180  34 2c 52 25 2c 32 35 36  29 0d 0d 48 15 f2 62 28  |4,R%,256)..H..b(|
00000190  4c 25 2c 33 32 30 2c 52  25 2c 37 35 32 29 0d 0d  |L%,320,R%,752)..|
000001a0  ac 0b fb 30 3a fb 31 33  30 0d 0e 10 15 f2 73 28  |...0:.130.....s(|
000001b0  36 2c 32 2c 22 4d 49 43  52 4f 22 2c a3 29 0d 0e  |6,2,"MICRO",.)..|
000001c0  74 15 f2 73 28 36 2c 35  2c 22 50 4f 57 45 52 22  |t..s(6,5,"POWER"|
000001d0  2c a3 29 0d 0e a6 0c e6  30 2c 30 3a ef 32 36 0d  |,.).....0,0:.26.|
000001e0  0e d8 2d 20 f3 41 24 2c  4f 25 3a f2 73 28 37 2c  |..- .A$,O%:.s(7,|
000001f0  39 2c 41 24 2c b9 29 3a  f3 41 24 2c 4f 25 3a f2  |9,A$,.):.A$,O%:.|
00000200  73 28 36 2c 31 31 2c 41  24 2c b9 29 0d 11 30 06  |s(6,11,A$,.)..0.|
00000210  fb 30 0d 11 34 0d 20 fb  20 31 32 39 3a fb 32 0d  |.0..4. . 129:.2.|
00000220  11 6c 0d 20 fb 20 31 33  30 3a fb 30 0d 11 76 24  |.l. . 130:.0..v$|
00000230  20 e3 49 25 3d 30 20 b8  20 37 3a f3 20 41 24 3a  | .I%=0 . 7:. A$:|
00000240  f1 8a 32 2c 31 33 2b 49  25 29 41 24 3b 3a ed 20  |..2,13+I%)A$;:. |
00000250  0d 11 94 23 ef 20 32 38  2c 32 2c 32 38 2c 31 37  |...#. 28,2,28,17|
00000260  2c 32 34 2c 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |,24,23,1,1;0;0;0|
00000270  3b 30 3b 0d 11 cb 13 20  21 26 37 30 3d 26 30 31  |;0;.... !&70=&01|
00000280  30 31 30 31 30 31 0d 11  d0 0a 20 fb 20 31 33 30  |010101.... . 130|
00000290  0d 11 da 14 20 ef 20 32  33 2c 31 2c 30 3b 30 3b  |.... . 23,1,0;0;|
000002a0  30 3b 30 3b 0d 12 5c 53  f1 22 20 44 6f 20 79 6f  |0;0;..\S." Do yo|
000002b0  75 20 77 61 6e 74 20 74  6f 22 27 27 22 20 75 73  |u want to"''" us|
000002c0  65 20 6a 6f 79 73 74 69  63 6b 73 3f 22 3b 3a 41  |e joysticks?";:A|
000002d0  24 3d be 3a f1 41 24 3a  e7 20 41 24 3d 22 59 22  |$=.:.A$:. A$="Y"|
000002e0  84 41 24 3d 22 79 22 8c  20 f2 6a 6f 79 20 8b 20  |.A$="y". .joy . |
000002f0  21 26 31 34 30 3d 30 0d  12 c0 17 db 3a d0 3d 26  |!&140=0.....:.=&|
00000300  45 30 30 3a d7 22 52 55  42 42 4c 45 31 22 0d 14  |E00:."RUBBLE1"..|
00000310  b4 17 dd f2 61 28 41 25  2c 42 25 2c 43 25 2c 44  |....a(A%,B%,C%,D|
00000320  25 2c 45 25 29 0d 15 18  43 ef 32 34 2c 41 25 2d  |%,E%)...C.24,A%-|
00000330  38 3b 42 25 2d 34 3b 43  25 2b 38 3b 44 25 2b 34  |8;B%-4;C%+8;D%+4|
00000340  3b 31 38 2c 30 2c 31 32  38 2c 31 36 2c 32 34 2c  |;18,0,128,16,24,|
00000350  41 25 3b 42 25 3b 43 25  3b 44 25 3b 31 38 3b 45  |A%;B%;C%;D%;18;E|
00000360  25 2b 31 32 38 2c 31 36  0d 15 7c 05 e1 0d 16 44  |%+128,16..|....D|
00000370  14 dd f2 62 28 41 25 2c  42 25 2c 43 25 2c 44 25  |...b(A%,B%,C%,D%|
00000380  29 0d 16 a8 15 f2 61 28  41 25 2c 42 25 2c 43 25  |).....a(A%,B%,C%|
00000390  2c 44 25 2c 31 29 0d 17  0c 21 f2 61 28 41 25 2b  |,D%,1)...!.a(A%+|
000003a0  31 36 2c 42 25 2b 31 36  2c 43 25 2b 31 36 2c 44  |16,B%+16,C%+16,D|
000003b0  25 2b 31 36 2c 32 29 0d  17 70 05 e1 0d 18 38 11  |%+16,2)..p....8.|
000003c0  dd f2 64 28 58 25 2c 59  25 2c 43 25 29 0d 18 9c  |..d(X%,Y%,C%)...|
000003d0  0b ea 20 41 25 2c 42 25  0d 19 00 19 41 25 3d 26  |.. A%,B%....A%=&|
000003e0  35 38 30 30 2b 33 32 30  2a 59 25 2b 58 25 2a 31  |5800+320*Y%+X%*1|
000003f0  36 0d 19 64 18 ec 58 25  2a 36 34 2b 4f 25 2c 28  |6..d..X%*64+O%,(|
00000400  33 32 2d 59 25 29 2a 33  32 0d 19 96 07 ef 43 25  |32-Y%)*32.....C%|
00000410  0d 19 c8 0b e3 42 25 3d  30 b8 37 0d 1a 2c 1d 3f  |.....B%=0.7..,.?|
00000420  28 41 25 2b 33 32 30 2b  42 25 29 3d 3f 28 41 25  |(A%+320+B%)=?(A%|
00000430  2b 42 25 81 32 2b 34 29  0d 1a 90 1e 3f 28 41 25  |+B%.2+4)....?(A%|
00000440  2b 33 32 38 2b 42 25 29  3d 3f 28 41 25 2b 42 25  |+328+B%)=?(A%+B%|
00000450  81 32 2b 31 32 29 0d 1a  f4 05 ed 0d 1b 58 13 e3  |.2+12).......X..|
00000460  20 42 25 3d 37 20 b8 20  30 20 88 20 2d 31 0d 1b  | B%=7 . 0 . -1..|
00000470  bc 17 3f 28 41 25 2b 42  25 29 3d 3f 28 41 25 2b  |..?(A%+B%)=?(A%+|
00000480  42 25 81 32 29 0d 1c 20  1b 3f 28 41 25 2b 42 25  |B%.2).. .?(A%+B%|
00000490  2b 38 29 3d 3f 28 41 25  2b 38 2b 42 25 81 32 29  |+8)=?(A%+8+B%.2)|
000004a0  0d 1c 84 05 ed 0d 1c e8  05 e1 0d 1d 4c 14 dd f2  |............L...|
000004b0  73 28 58 25 2c 59 25 2c  41 24 2c 46 25 29 0d 1d  |s(X%,Y%,A$,F%)..|
000004c0  b0 08 ea 20 41 25 0d 1d  e2 0d e7 20 46 25 20 8c  |... A%..... F% .|
000004d0  20 ef 35 0d 1e 14 11 e3  20 41 25 3d 31 20 b8 20  | .5..... A%=1 . |
000004e0  a9 20 41 24 0d 1e 78 3e  e7 20 46 25 20 8c 20 f2  |. A$..x>. F% . .|
000004f0  64 28 58 25 2b 41 25 2d  31 2c 59 25 2c 97 c1 41  |d(X%+A%-1,Y%,..A|
00000500  24 2c 41 25 29 29 20 8b  20 f2 6c 28 58 25 2b 41  |$,A%)) . .l(X%+A|
00000510  25 2a 32 2d 32 2c 59 25  2c 97 c1 41 24 2c 41 25  |%*2-2,Y%,..A$,A%|
00000520  29 29 0d 1e dc 05 ed 0d  1f 0e 1b e7 20 46 25 20  |)).......... F% |
00000530  8c 20 ef 34 2c 32 33 2c  31 2c 30 3b 30 3b 30 3b  |. .4,23,1,0;0;0;|
00000540  30 3b 0d 1f 40 05 e1 0d  20 08 11 dd f2 6c 28 78  |0;..@... ....l(x|
00000550  25 2c 79 25 2c 4c 25 29  0d 20 6c 22 ea 20 41 25  |%,y%,L%). l". A%|
00000560  2c 42 25 3a 41 25 3d 78  25 2a 36 34 3a 42 25 3d  |,B%:A%=x%*64:B%=|
00000570  33 32 2a 28 33 31 2d 79  25 29 0d 20 d0 1f f2 62  |32*(31-y%). ...b|
00000580  28 41 25 2d 33 32 2c 42  25 2d 33 32 2c 41 25 2b  |(A%-32,B%-32,A%+|
00000590  36 34 2c 42 25 2b 33 32  29 0d 21 34 11 ef 20 33  |64,B%+32).!4.. 3|
000005a0  31 2c 78 25 2c 79 25 2c  4c 25 0d 21 98 05 e1 0d  |1,x%,y%,L%.!....|
000005b0  23 28 09 dd f2 6a 6f 79  0d 23 8c 39 ef 37 3a 41  |#(...joy.#.9.7:A|
000005c0  3d a6 28 31 30 30 29 3a  db 3a f1 22 20 20 50 6c  |=.(100):.:."  Pl|
000005d0  65 61 73 65 20 65 6e 74  65 72 22 27 27 22 6a 6f  |ease enter"''"jo|
000005e0  79 73 74 69 63 6b 20 61  64 64 72 65 73 73 20 22  |ystick address "|
000005f0  3b 0d 23 f0 0d 41 44 44  3d 30 3a 54 3d 34 0d 24  |;.#..ADD=0:T=4.$|
00000600  22 05 f5 0d 24 54 3c f5  20 41 24 3d be 3a 58 3d  |"...$T<. A$=.:X=|
00000610  a7 22 30 31 32 33 34 35  36 37 38 39 41 42 43 44  |."0123456789ABCD|
00000620  45 46 61 62 63 64 65 66  4f 6f 22 2b bd 31 32 37  |EFabcdefOo"+.127|
00000630  2b bd 31 33 2c 41 24 29  3a fd 20 58 3c 3e 30 0d  |+.13,A$):. X<>0.|
00000640  24 5e 41 e7 20 58 3d 32  35 20 80 20 54 3c 34 8c  |$^A. X=25 . T<4.|
00000650  20 ef 38 2c 33 32 2c 38  3a 41 44 44 3d 41 44 44  | .8,32,8:ADD=ADD|
00000660  2d 28 41 44 44 20 80 20  28 28 31 36 5e 54 29 2a  |-(ADD . ((16^T)*|
00000670  31 35 29 29 3a 54 3d 54  2b 31 3a e5 8d 44 54 64  |15)):T=T+1:..DTd|
00000680  0d 24 68 16 e7 20 58 3d  32 33 20 84 20 58 3d 32  |.$h.. X=23 . X=2|
00000690  34 8c 20 58 3d 31 0d 24  86 18 e7 20 58 3e 31 36  |4. X=1.$... X>16|
000006a0  20 80 20 58 3c 32 35 8c  20 58 3d 58 2d 36 0d 24  | . X<25. X=X-6.$|
000006b0  b8 33 e7 20 54 3e 30 20  80 20 58 3c 31 37 20 20  |.3. T>0 . X<17  |
000006c0  f1 41 24 3b 3a 41 44 44  3d 41 44 44 2b 28 58 2d  |.A$;:ADD=ADD+(X-|
000006d0  31 29 2a 31 36 5e 28 54  2d 31 29 3a 54 3d 54 2d  |1)*16^(T-1):T=T-|
000006e0  31 0d 25 1c 0f fd 54 3d  30 20 80 20 58 3d 32 36  |1.%...T=0 . X=26|
000006f0  0d 25 80 2f ef 37 3a db  3a f1 22 20 20 20 45 6e  |.%./.7:.:."   En|
00000700  74 65 72 20 63 6f 64 65  22 27 27 22 20 30 20 69  |ter code"''" 0 i|
00000710  66 20 6e 6f 74 20 6b 6e  6f 77 6e 20 22 27 3b 0d  |f not known "';.|
00000720  25 85 0f 41 24 3d 22 22  3a 54 3d 31 3a f5 0d 25  |%..A$="":T=1:..%|
00000730  8a 43 f5 20 42 24 3d be  3a 58 3d a7 22 30 31 32  |.C. B$=.:X=."012|
00000740  33 34 35 36 37 38 39 4f  49 22 2b bd 31 33 2b 22  |3456789OI"+.13+"|
00000750  6f 69 22 2b bd 31 32 37  2c 42 24 29 3a fd 58 3c  |oi"+.127,B$):.X<|
00000760  3e 30 3a e7 58 3d 31 31  84 58 3d 31 34 8c 58 3d  |>0:.X=11.X=14.X=|
00000770  31 0d 25 8c 12 e7 58 3d  31 32 84 58 3d 31 35 8c  |1.%...X=12.X=15.|
00000780  58 3d 32 0d 25 94 2b e7  58 3d 31 36 80 54 3e 31  |X=2.%.+.X=16.T>1|
00000790  8c 54 3d 54 2d 31 3a ef  38 2c 33 32 2c 38 3a 41  |.T=T-1:.8,32,8:A|
000007a0  24 3d c0 41 24 2c 54 29  3a e5 8d 74 4a 65 0d 25  |$=.A$,T):..tJe.%|
000007b0  9e 26 e7 54 3c 34 20 80  58 3c 31 31 8c f1 42 24  |.&.T<4 .X<11..B$|
000007c0  3b 3a 41 24 3d 41 24 2b  c3 28 58 2d 31 29 3a 54  |;:A$=A$+.(X-1):T|
000007d0  3d 54 2b 31 0d 25 a8 0f  fd 20 58 3d 31 33 20 80  |=T+1.%... X=13 .|
000007e0  54 3e 31 0d 25 b2 22 ef  37 3a 41 3d a0 41 24 3a  |T>1.%.".7:A=.A$:|
000007f0  e7 20 41 24 3d 22 30 22  8c f2 72 63 6f 64 65 3a  |. A$="0"..rcode:|
00000800  e5 8d 54 60 66 0d 25 e4  49 e7 41 3c 31 20 84 20  |..T`f.%.I.A<1 . |
00000810  28 41 3e 31 32 30 20 80  20 41 3c 31 32 39 29 20  |(A>120 . A<129) |
00000820  84 20 41 3e 32 34 38 20  8c 20 f1 27 27 22 20 20  |. A>248 . .''"  |
00000830  50 6c 65 61 73 65 20 63  68 65 63 6b 20 21 22 3a  |Please check !":|
00000840  41 3d a6 28 32 30 30 29  3a e5 8d 74 40 65 0d 25  |A=.(200):..t@e.%|
00000850  ee 2e 41 24 3d 22 34 33  32 31 30 22 3a 41 43 3d  |..A$="43210":AC=|
00000860  32 35 35 2a 28 28 41 2d  31 29 20 81 31 32 38 29  |255*((A-1) .128)|
00000870  3a 41 3d 28 41 2d 31 29  83 31 32 38 0d 25 f8 31  |:A=(A-1).128.%.1|
00000880  52 3d 41 20 81 32 34 3a  41 3d 41 20 83 32 34 3a  |R=A .24:A=A .24:|
00000890  e7 52 3e 30 e3 54 3d 31  b8 52 3a 41 24 3d c2 41  |.R>0.T=1.R:A$=.A|
000008a0  24 2c 31 29 2b c0 41 24  2c 34 29 3a ed 0d 26 02  |$,1)+.A$,4):..&.|
000008b0  38 52 3d 41 20 81 36 3a  41 3d 41 20 83 36 3a e7  |8R=A .6:A=A .6:.|
000008c0  52 3e 30 e3 54 3d 31 b8  52 3a 41 24 3d c1 41 24  |R>0.T=1.R:A$=.A$|
000008d0  2c 34 2c 31 29 2b c0 41  24 2c 33 29 2b c2 41 24  |,4,1)+.A$,3)+.A$|
000008e0  2c 31 29 3a ed 0d 26 0c  38 52 3d 41 20 81 32 3a  |,1):..&.8R=A .2:|
000008f0  41 3d 41 20 83 32 3a e7  52 3e 30 e3 54 3d 31 b8  |A=A .2:.R>0.T=1.|
00000900  52 3a 41 24 3d c1 41 24  2c 33 2c 31 29 2b c0 41  |R:A$=.A$,3,1)+.A|
00000910  24 2c 32 29 2b c2 41 24  2c 32 29 3a ed 0d 26 16  |$,2)+.A$,2):..&.|
00000920  23 20 e7 41 3d 31 8c 41  24 3d c1 41 24 2c 32 2c  |# .A=1.A$=.A$,2,|
00000930  31 29 2b c0 41 24 2c 31  29 2b c2 41 24 2c 33 29  |1)+.A$,1)+.A$,3)|
00000940  0d 26 20 29 21 26 31 34  30 3d 41 44 44 3a 3f 26  |.& )!&140=ADD:?&|
00000950  31 34 32 3d 41 43 3a 21  26 31 34 33 3d a0 28 22  |142=AC:!&143=.("|
00000960  26 46 46 46 22 2b 41 24  29 0d 26 2a 05 e1 0d 26  |&FFF"+A$).&*...&|
00000970  34 0b dd f2 72 63 6f 64  65 0d 26 3e 26 42 46 3d  |4...rcode.&>&BF=|
00000980  30 3a f2 72 62 69 74 73  28 22 43 65 6e 74 72 65  |0:.rbits("Centre|
00000990  20 73 74 69 63 6b 22 2c  31 29 3a 42 46 3d 31 0d  | stick",1):BF=1.|
000009a0  26 48 38 54 3d 42 49 54  28 30 29 2b 42 49 54 28  |&H8T=BIT(0)+BIT(|
000009b0  31 29 2b 42 49 54 28 32  29 2b 42 49 54 28 33 29  |1)+BIT(2)+BIT(3)|
000009c0  2b 42 49 54 28 34 29 3a  e7 54 3c 3e 30 80 54 3c  |+BIT(4):.T<>0.T<|
000009d0  3e 35 8c 8d 54 7e 66 0d  26 4a 14 e7 54 3d 35 8c  |>5..T~f.&J..T=5.|
000009e0  41 43 3d 32 35 35 8b 41  43 3d 30 0d 26 4d 15 e3  |AC=255.AC=0.&M..|
000009f0  58 3d 30 b8 34 3a 42 49  54 28 58 29 3d 30 3a ed  |X=0.4:BIT(X)=0:.|
00000a00  0d 26 52 19 f2 72 62 69  74 73 28 22 4d 6f 76 65  |.&R..rbits("Move|
00000a10  20 64 6f 77 6e 22 2c 31  29 0d 26 5c 1a f2 72 62  | down",1).&\..rb|
00000a20  69 74 73 28 22 4d 6f 76  65 20 72 69 67 68 74 22  |its("Move right"|
00000a30  2c 33 29 0d 26 66 19 f2  72 62 69 74 73 28 22 4d  |,3).&f..rbits("M|
00000a40  6f 76 65 20 6c 65 66 74  22 2c 32 29 0d 26 70 1a  |ove left",2).&p.|
00000a50  f2 72 62 69 74 73 28 22  50 72 65 73 73 20 66 69  |.rbits("Press fi|
00000a60  72 65 22 2c 34 29 0d 26  7a 38 41 24 3d c3 28 42  |re",4).&z8A$=.(B|
00000a70  49 54 28 34 29 29 2b c3  28 42 49 54 28 33 29 29  |IT(4))+.(BIT(3))|
00000a80  2b c3 28 42 49 54 28 32  29 29 2b c3 28 42 49 54  |+.(BIT(2))+.(BIT|
00000a90  28 31 29 29 2b c3 28 42  49 54 28 30 29 29 0d 26  |(1))+.(BIT(0)).&|
00000aa0  7f 0e 41 43 3d 41 43 20  82 32 35 35 0d 26 84 05  |..AC=AC .255.&..|
00000ab0  e1 0d 26 8e 11 dd f2 72  62 69 74 73 28 4d 24 2c  |..&....rbits(M$,|
00000ac0  42 29 0d 26 98 09 db 3a  f1 4d 24 0d 26 a2 43 41  |B).&...:.M$.&.CA|
00000ad0  3d 3f 41 44 44 3a 46 3d  30 3a e3 58 3d 30 b8 34  |=?ADD:F=0:.X=0.4|
00000ae0  3a 54 3d 42 2a 28 28 28  41 20 82 20 41 43 29 20  |:T=B*(((A . AC) |
00000af0  80 20 32 5e 58 29 2f 32  5e 58 29 3a e7 54 3c 3e  |. 2^X)/2^X):.T<>|
00000b00  30 8c 42 49 54 28 58 29  3d 54 3a 46 3d 31 0d 26  |0.BIT(X)=T:F=1.&|
00000b10  a7 05 ed 0d 26 a9 15 e7  46 3d 30 80 42 46 3d 31  |....&...F=0.BF=1|
00000b20  8c 8d 74 62 66 8b ef 37  0d 26 aa 35 db 3a f1 22  |..tbf..7.&.5.:."|
00000b30  20 20 20 52 65 6c 65 61  73 65 22 3a f5 20 fd 20  |   Release":. . |
00000b40  28 3f 41 44 44 20 80 20  33 31 29 3d 30 20 84 28  |(?ADD . 31)=0 .(|
00000b50  3f 41 44 44 20 80 20 33  31 29 3d 33 31 0d 26 ac  |?ADD . 31)=31.&.|
00000b60  05 e1 0d ff                                       |....|
00000b64