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