�=&55FF
��4,7
L.� "FELIX meets the ",0,"Evil Weevils ",32 
� " ",," ",""
x� " ","","",""
��""
@ � " "," "," "," "
��5:�=&3800
	
� BIT(4),b(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(3,11,A$,�):�A$,O%:�s(4,15,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
�V%=!&220:*FX16,0
��:�=&1900:�"WEEVIL0"
���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)
& �asm
&*�
&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
&��
&�	��asm
'ovec=(!&20A)�&FFFF:if=ADD
'1sense=(AC �255):�T=0�4:b(�(�A$,5-T,1)))=2^T:�
'$�T=0�2�2
'.P%=&140
'8	[OPTT
'B\.start cmp#&81:bne out1:cpy#&FF:bne out1:lda if:eor#sense:cpx#&B7:bne chd:and#b(0):bne f
'L.nf
'V.out lda#&81:.out1 jmp ovec
'`(.chd cpx#&97:bne chl:and#b(1):beq nf
'j".f ldx#&FF:ldy#&FF:lda#&81:rts
't..chl cpx#&9E:bne chr:and#b(2):beq nf:bne f
'~..chr cpx#&BD:bne chf:and#b(3):beq nf:bne f
'�..chf cpx#&B6:bne out:and#b(4):beq nf:bne f
'�]
'��
'�"!&20A=(!&20A �&FFFF0000)+start
'��
�

00000000  0d 00 14 0c 20 d3 3d 26  35 35 46 46 0d 03 84 08  |.... .=&55FF....|
00000010  dc 34 2c 37 0d 04 4c 2e  dc 20 22 46 45 4c 49 58  |.4,7..L.. "FELIX|
00000020  20 6d 65 65 74 73 20 74  68 65 20 22 2c 30 2c 22  | meets the ",0,"|
00000030  45 76 69 6c 20 57 65 65  76 69 6c 73 20 22 2c 33  |Evil Weevils ",3|
00000040  32 20 0d 05 14 11 dc 20  22 20 22 2c 2c 22 20 22  |2 ..... " ",," "|
00000050  2c 22 22 0d 05 78 12 dc  20 22 20 22 2c 22 22 2c  |,""..x.. " ","",|
00000060  22 22 2c 22 22 0d 05 dc  07 dc 22 22 0d 06 40 16  |"","".....""..@.|
00000070  20 dc 20 22 20 22 2c 22  20 22 2c 22 20 22 2c 22  | . " "," "," ","|
00000080  20 22 0d 08 fc 0e eb 35  3a d3 3d 26 33 38 30 30  | ".....5:.=&3800|
00000090  0d 09 01 16 de 20 42 49  54 28 34 29 2c 62 28 34  |..... BIT(4),b(4|
000000a0  29 3a 41 43 3d 30 0d 09  60 12 ef 32 33 2c 31 2c  |):AC=0..`..23,1,|
000000b0  30 3b 30 3b 30 3b 30 3b  0d 09 c4 21 f3 20 54 25  |0;0;0;0;...!. T%|
000000c0  2c 55 25 3a ef 31 39 2c  33 2c 54 25 3b 30 3b 31  |,U%:.19,3,T%;0;1|
000000d0  39 2c 32 2c 55 25 3b 30  3b 0d 0a 28 0a fb 31 33  |9,2,U%;0;..(..13|
000000e0  31 3a db 0d 0a 8c 11 4c  25 3d 39 36 3a 52 25 3d  |1:.....L%=96:R%=|
000000f0  31 31 38 34 0d 0a f0 08  e6 30 2c 30 0d 0b 54 16  |1184.....0,0..T.|
00000100  e3 20 58 25 3d 30 20 b8  20 31 32 38 30 20 88 20  |. X%=0 . 1280 . |
00000110  32 34 0d 0b b8 14 ec 20  58 25 2c 30 3a df 20 58  |24..... X%,0:. X|
00000120  25 2c 31 30 32 35 0d 0c  1c 20 ec 20 30 2c 58 25  |%,1025... . 0,X%|
00000130  2a 2e 38 33 33 33 3a df  20 31 32 38 30 2c 58 25  |*.8333:. 1280,X%|
00000140  2a 2e 38 33 33 33 0d 0c  80 05 ed 0d 0c e4 14 f2  |*.8333..........|
00000150  62 28 4c 25 2c 36 34 2c  52 25 2c 32 35 36 29 0d  |b(L%,64,R%,256).|
00000160  0d 48 15 f2 62 28 4c 25  2c 33 32 30 2c 52 25 2c  |.H..b(L%,320,R%,|
00000170  37 35 32 29 0d 0d ac 0b  fb 30 3a fb 31 33 30 0d  |752).....0:.130.|
00000180  0e 10 15 f2 73 28 36 2c  32 2c 22 4d 49 43 52 4f  |....s(6,2,"MICRO|
00000190  22 2c a3 29 0d 0e 74 15  f2 73 28 36 2c 35 2c 22  |",.)..t..s(6,5,"|
000001a0  50 4f 57 45 52 22 2c a3  29 0d 0e a6 0c e6 30 2c  |POWER",.).....0,|
000001b0  30 3a ef 32 36 0d 0e d8  2e 20 f3 41 24 2c 4f 25  |0:.26.... .A$,O%|
000001c0  3a f2 73 28 33 2c 31 31  2c 41 24 2c b9 29 3a f3  |:.s(3,11,A$,.):.|
000001d0  41 24 2c 4f 25 3a f2 73  28 34 2c 31 35 2c 41 24  |A$,O%:.s(4,15,A$|
000001e0  2c b9 29 0d 11 30 06 fb  30 0d 11 34 0d 20 fb 20  |,.)..0..0..4. . |
000001f0  31 32 39 3a fb 32 0d 11  6c 0d 20 fb 20 31 33 30  |129:.2..l. . 130|
00000200  3a fb 30 0d 11 76 24 20  e3 49 25 3d 30 20 b8 20  |:.0..v$ .I%=0 . |
00000210  37 3a f3 20 41 24 3a f1  8a 32 2c 31 33 2b 49 25  |7:. A$:..2,13+I%|
00000220  29 41 24 3b 3a ed 20 0d  11 94 23 ef 20 32 38 2c  |)A$;:. ...#. 28,|
00000230  32 2c 32 38 2c 31 37 2c  32 34 2c 32 33 2c 31 2c  |2,28,17,24,23,1,|
00000240  31 3b 30 3b 30 3b 30 3b  30 3b 0d 11 cb 13 20 21  |1;0;0;0;0;.... !|
00000250  26 37 30 3d 26 30 31 30  31 30 31 30 31 0d 11 d0  |&70=&01010101...|
00000260  0a 20 fb 20 31 33 30 0d  11 da 14 20 ef 20 32 33  |. . 130.... . 23|
00000270  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 12 5c 53 f1  |,1,0;0;0;0;..\S.|
00000280  22 20 44 6f 20 79 6f 75  20 77 61 6e 74 20 74 6f  |" Do you want to|
00000290  22 27 27 22 20 75 73 65  20 6a 6f 79 73 74 69 63  |"''" use joystic|
000002a0  6b 73 3f 22 3b 3a 41 24  3d be 3a f1 41 24 3a e7  |ks?";:A$=.:.A$:.|
000002b0  20 41 24 3d 22 59 22 84  41 24 3d 22 79 22 8c 20  | A$="Y".A$="y". |
000002c0  f2 6a 6f 79 20 8b 20 21  26 31 34 30 3d 30 0d 12  |.joy . !&140=0..|
000002d0  8e 14 56 25 3d 21 26 32  32 30 3a 2a 46 58 31 36  |..V%=!&220:*FX16|
000002e0  2c 30 0d 12 c0 18 db 3a  d0 3d 26 31 39 30 30 3a  |,0.....:.=&1900:|
000002f0  d7 22 57 45 45 56 49 4c  30 22 0d 14 b4 17 dd f2  |."WEEVIL0"......|
00000300  61 28 41 25 2c 42 25 2c  43 25 2c 44 25 2c 45 25  |a(A%,B%,C%,D%,E%|
00000310  29 0d 15 18 43 ef 32 34  2c 41 25 2d 38 3b 42 25  |)...C.24,A%-8;B%|
00000320  2d 34 3b 43 25 2b 38 3b  44 25 2b 34 3b 31 38 2c  |-4;C%+8;D%+4;18,|
00000330  30 2c 31 32 38 2c 31 36  2c 32 34 2c 41 25 3b 42  |0,128,16,24,A%;B|
00000340  25 3b 43 25 3b 44 25 3b  31 38 3b 45 25 2b 31 32  |%;C%;D%;18;E%+12|
00000350  38 2c 31 36 0d 15 7c 05  e1 0d 16 44 14 dd f2 62  |8,16..|....D...b|
00000360  28 41 25 2c 42 25 2c 43  25 2c 44 25 29 0d 16 a8  |(A%,B%,C%,D%)...|
00000370  15 f2 61 28 41 25 2c 42  25 2c 43 25 2c 44 25 2c  |..a(A%,B%,C%,D%,|
00000380  31 29 0d 17 0c 21 f2 61  28 41 25 2b 31 36 2c 42  |1)...!.a(A%+16,B|
00000390  25 2b 31 36 2c 43 25 2b  31 36 2c 44 25 2b 31 36  |%+16,C%+16,D%+16|
000003a0  2c 32 29 0d 17 70 05 e1  0d 18 38 11 dd f2 64 28  |,2)..p....8...d(|
000003b0  58 25 2c 59 25 2c 43 25  29 0d 18 9c 0b ea 20 41  |X%,Y%,C%)..... A|
000003c0  25 2c 42 25 0d 19 00 19  41 25 3d 26 35 38 30 30  |%,B%....A%=&5800|
000003d0  2b 33 32 30 2a 59 25 2b  58 25 2a 31 36 0d 19 64  |+320*Y%+X%*16..d|
000003e0  18 ec 58 25 2a 36 34 2b  4f 25 2c 28 33 32 2d 59  |..X%*64+O%,(32-Y|
000003f0  25 29 2a 33 32 0d 19 96  07 ef 43 25 0d 19 c8 0b  |%)*32.....C%....|
00000400  e3 42 25 3d 30 b8 37 0d  1a 2c 1d 3f 28 41 25 2b  |.B%=0.7..,.?(A%+|
00000410  33 32 30 2b 42 25 29 3d  3f 28 41 25 2b 42 25 81  |320+B%)=?(A%+B%.|
00000420  32 2b 34 29 0d 1a 90 1e  3f 28 41 25 2b 33 32 38  |2+4)....?(A%+328|
00000430  2b 42 25 29 3d 3f 28 41  25 2b 42 25 81 32 2b 31  |+B%)=?(A%+B%.2+1|
00000440  32 29 0d 1a f4 05 ed 0d  1b 58 13 e3 20 42 25 3d  |2).......X.. B%=|
00000450  37 20 b8 20 30 20 88 20  2d 31 0d 1b bc 17 3f 28  |7 . 0 . -1....?(|
00000460  41 25 2b 42 25 29 3d 3f  28 41 25 2b 42 25 81 32  |A%+B%)=?(A%+B%.2|
00000470  29 0d 1c 20 1b 3f 28 41  25 2b 42 25 2b 38 29 3d  |).. .?(A%+B%+8)=|
00000480  3f 28 41 25 2b 38 2b 42  25 81 32 29 0d 1c 84 05  |?(A%+8+B%.2)....|
00000490  ed 0d 1c e8 05 e1 0d 1d  4c 14 dd f2 73 28 58 25  |........L...s(X%|
000004a0  2c 59 25 2c 41 24 2c 46  25 29 0d 1d b0 08 ea 20  |,Y%,A$,F%)..... |
000004b0  41 25 0d 1d e2 0d e7 20  46 25 20 8c 20 ef 35 0d  |A%..... F% . .5.|
000004c0  1e 14 11 e3 20 41 25 3d  31 20 b8 20 a9 20 41 24  |.... A%=1 . . A$|
000004d0  0d 1e 78 3e e7 20 46 25  20 8c 20 f2 64 28 58 25  |..x>. F% . .d(X%|
000004e0  2b 41 25 2d 31 2c 59 25  2c 97 c1 41 24 2c 41 25  |+A%-1,Y%,..A$,A%|
000004f0  29 29 20 8b 20 f2 6c 28  58 25 2b 41 25 2a 32 2d  |)) . .l(X%+A%*2-|
00000500  32 2c 59 25 2c 97 c1 41  24 2c 41 25 29 29 0d 1e  |2,Y%,..A$,A%))..|
00000510  dc 05 ed 0d 1f 0e 1b e7  20 46 25 20 8c 20 ef 34  |........ F% . .4|
00000520  2c 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 1f  |,23,1,0;0;0;0;..|
00000530  40 05 e1 0d 20 08 11 dd  f2 6c 28 78 25 2c 79 25  |@... ....l(x%,y%|
00000540  2c 4c 25 29 0d 20 6c 22  ea 20 41 25 2c 42 25 3a  |,L%). l". A%,B%:|
00000550  41 25 3d 78 25 2a 36 34  3a 42 25 3d 33 32 2a 28  |A%=x%*64:B%=32*(|
00000560  33 31 2d 79 25 29 0d 20  d0 1f f2 62 28 41 25 2d  |31-y%). ...b(A%-|
00000570  33 32 2c 42 25 2d 33 32  2c 41 25 2b 36 34 2c 42  |32,B%-32,A%+64,B|
00000580  25 2b 33 32 29 0d 21 34  11 ef 20 33 31 2c 78 25  |%+32).!4.. 31,x%|
00000590  2c 79 25 2c 4c 25 0d 21  98 05 e1 0d 23 28 09 dd  |,y%,L%.!....#(..|
000005a0  f2 6a 6f 79 0d 23 8c 39  ef 37 3a 41 3d a6 28 31  |.joy.#.9.7:A=.(1|
000005b0  30 30 29 3a db 3a f1 22  20 20 50 6c 65 61 73 65  |00):.:."  Please|
000005c0  20 65 6e 74 65 72 22 27  27 22 6a 6f 79 73 74 69  | enter"''"joysti|
000005d0  63 6b 20 61 64 64 72 65  73 73 20 22 3b 0d 23 f0  |ck address ";.#.|
000005e0  0d 41 44 44 3d 30 3a 54  3d 34 0d 24 22 05 f5 0d  |.ADD=0:T=4.$"...|
000005f0  24 54 3c f5 20 41 24 3d  be 3a 58 3d a7 22 30 31  |$T<. A$=.:X=."01|
00000600  32 33 34 35 36 37 38 39  41 42 43 44 45 46 61 62  |23456789ABCDEFab|
00000610  63 64 65 66 4f 6f 22 2b  bd 31 32 37 2b bd 31 33  |cdefOo"+.127+.13|
00000620  2c 41 24 29 3a fd 20 58  3c 3e 30 0d 24 5e 41 e7  |,A$):. X<>0.$^A.|
00000630  20 58 3d 32 35 20 80 20  54 3c 34 8c 20 ef 38 2c  | X=25 . T<4. .8,|
00000640  33 32 2c 38 3a 41 44 44  3d 41 44 44 2d 28 41 44  |32,8:ADD=ADD-(AD|
00000650  44 20 80 20 28 28 31 36  5e 54 29 2a 31 35 29 29  |D . ((16^T)*15))|
00000660  3a 54 3d 54 2b 31 3a e5  8d 44 54 64 0d 24 68 16  |:T=T+1:..DTd.$h.|
00000670  e7 20 58 3d 32 33 20 84  20 58 3d 32 34 8c 20 58  |. X=23 . X=24. X|
00000680  3d 31 0d 24 86 18 e7 20  58 3e 31 36 20 80 20 58  |=1.$... X>16 . X|
00000690  3c 32 35 8c 20 58 3d 58  2d 36 0d 24 b8 33 e7 20  |<25. X=X-6.$.3. |
000006a0  54 3e 30 20 80 20 58 3c  31 37 20 20 f1 41 24 3b  |T>0 . X<17  .A$;|
000006b0  3a 41 44 44 3d 41 44 44  2b 28 58 2d 31 29 2a 31  |:ADD=ADD+(X-1)*1|
000006c0  36 5e 28 54 2d 31 29 3a  54 3d 54 2d 31 0d 25 1c  |6^(T-1):T=T-1.%.|
000006d0  0f fd 54 3d 30 20 80 20  58 3d 32 36 0d 25 80 2f  |..T=0 . X=26.%./|
000006e0  ef 37 3a db 3a f1 22 20  20 20 45 6e 74 65 72 20  |.7:.:."   Enter |
000006f0  63 6f 64 65 22 27 27 22  20 30 20 69 66 20 6e 6f  |code"''" 0 if no|
00000700  74 20 6b 6e 6f 77 6e 20  22 27 3b 0d 25 85 0f 41  |t known "';.%..A|
00000710  24 3d 22 22 3a 54 3d 31  3a f5 0d 25 8a 43 f5 20  |$="":T=1:..%.C. |
00000720  42 24 3d be 3a 58 3d a7  22 30 31 32 33 34 35 36  |B$=.:X=."0123456|
00000730  37 38 39 4f 49 22 2b bd  31 33 2b 22 6f 69 22 2b  |789OI"+.13+"oi"+|
00000740  bd 31 32 37 2c 42 24 29  3a fd 58 3c 3e 30 3a e7  |.127,B$):.X<>0:.|
00000750  58 3d 31 31 84 58 3d 31  34 8c 58 3d 31 0d 25 8c  |X=11.X=14.X=1.%.|
00000760  12 e7 58 3d 31 32 84 58  3d 31 35 8c 58 3d 32 0d  |..X=12.X=15.X=2.|
00000770  25 94 2b e7 58 3d 31 36  80 54 3e 31 8c 54 3d 54  |%.+.X=16.T>1.T=T|
00000780  2d 31 3a ef 38 2c 33 32  2c 38 3a 41 24 3d c0 41  |-1:.8,32,8:A$=.A|
00000790  24 2c 54 29 3a e5 8d 74  4a 65 0d 25 9e 26 e7 54  |$,T):..tJe.%.&.T|
000007a0  3c 34 20 80 58 3c 31 31  8c f1 42 24 3b 3a 41 24  |<4 .X<11..B$;:A$|
000007b0  3d 41 24 2b c3 28 58 2d  31 29 3a 54 3d 54 2b 31  |=A$+.(X-1):T=T+1|
000007c0  0d 25 a8 0f fd 20 58 3d  31 33 20 80 54 3e 31 0d  |.%... X=13 .T>1.|
000007d0  25 b2 22 ef 37 3a 41 3d  a0 41 24 3a e7 20 41 24  |%.".7:A=.A$:. A$|
000007e0  3d 22 30 22 8c f2 72 63  6f 64 65 3a e5 8d 54 60  |="0"..rcode:..T`|
000007f0  66 0d 25 e4 49 e7 41 3c  31 20 84 20 28 41 3e 31  |f.%.I.A<1 . (A>1|
00000800  32 30 20 80 20 41 3c 31  32 39 29 20 84 20 41 3e  |20 . A<129) . A>|
00000810  32 34 38 20 8c 20 f1 27  27 22 20 20 50 6c 65 61  |248 . .''"  Plea|
00000820  73 65 20 63 68 65 63 6b  20 21 22 3a 41 3d a6 28  |se check !":A=.(|
00000830  32 30 30 29 3a e5 8d 74  40 65 0d 25 ee 2e 41 24  |200):..t@e.%..A$|
00000840  3d 22 34 33 32 31 30 22  3a 41 43 3d 32 35 35 2a  |="43210":AC=255*|
00000850  28 28 41 2d 31 29 20 81  31 32 38 29 3a 41 3d 28  |((A-1) .128):A=(|
00000860  41 2d 31 29 83 31 32 38  0d 25 f8 31 52 3d 41 20  |A-1).128.%.1R=A |
00000870  81 32 34 3a 41 3d 41 20  83 32 34 3a e7 52 3e 30  |.24:A=A .24:.R>0|
00000880  e3 54 3d 31 b8 52 3a 41  24 3d c2 41 24 2c 31 29  |.T=1.R:A$=.A$,1)|
00000890  2b c0 41 24 2c 34 29 3a  ed 0d 26 02 38 52 3d 41  |+.A$,4):..&.8R=A|
000008a0  20 81 36 3a 41 3d 41 20  83 36 3a e7 52 3e 30 e3  | .6:A=A .6:.R>0.|
000008b0  54 3d 31 b8 52 3a 41 24  3d c1 41 24 2c 34 2c 31  |T=1.R:A$=.A$,4,1|
000008c0  29 2b c0 41 24 2c 33 29  2b c2 41 24 2c 31 29 3a  |)+.A$,3)+.A$,1):|
000008d0  ed 0d 26 0c 38 52 3d 41  20 81 32 3a 41 3d 41 20  |..&.8R=A .2:A=A |
000008e0  83 32 3a e7 52 3e 30 e3  54 3d 31 b8 52 3a 41 24  |.2:.R>0.T=1.R:A$|
000008f0  3d c1 41 24 2c 33 2c 31  29 2b c0 41 24 2c 32 29  |=.A$,3,1)+.A$,2)|
00000900  2b c2 41 24 2c 32 29 3a  ed 0d 26 16 23 20 e7 41  |+.A$,2):..&.# .A|
00000910  3d 31 8c 41 24 3d c1 41  24 2c 32 2c 31 29 2b c0  |=1.A$=.A$,2,1)+.|
00000920  41 24 2c 31 29 2b c2 41  24 2c 33 29 0d 26 20 08  |A$,1)+.A$,3).& .|
00000930  f2 61 73 6d 0d 26 2a 05  e1 0d 26 34 0b dd f2 72  |.asm.&*...&4...r|
00000940  63 6f 64 65 0d 26 3e 26  42 46 3d 30 3a f2 72 62  |code.&>&BF=0:.rb|
00000950  69 74 73 28 22 43 65 6e  74 72 65 20 73 74 69 63  |its("Centre stic|
00000960  6b 22 2c 31 29 3a 42 46  3d 31 0d 26 48 38 54 3d  |k",1):BF=1.&H8T=|
00000970  42 49 54 28 30 29 2b 42  49 54 28 31 29 2b 42 49  |BIT(0)+BIT(1)+BI|
00000980  54 28 32 29 2b 42 49 54  28 33 29 2b 42 49 54 28  |T(2)+BIT(3)+BIT(|
00000990  34 29 3a e7 54 3c 3e 30  80 54 3c 3e 35 8c 8d 54  |4):.T<>0.T<>5..T|
000009a0  7e 66 0d 26 4a 14 e7 54  3d 35 8c 41 43 3d 32 35  |~f.&J..T=5.AC=25|
000009b0  35 8b 41 43 3d 30 0d 26  4d 15 e3 58 3d 30 b8 34  |5.AC=0.&M..X=0.4|
000009c0  3a 42 49 54 28 58 29 3d  30 3a ed 0d 26 52 19 f2  |:BIT(X)=0:..&R..|
000009d0  72 62 69 74 73 28 22 4d  6f 76 65 20 64 6f 77 6e  |rbits("Move down|
000009e0  22 2c 31 29 0d 26 5c 1a  f2 72 62 69 74 73 28 22  |",1).&\..rbits("|
000009f0  4d 6f 76 65 20 72 69 67  68 74 22 2c 33 29 0d 26  |Move right",3).&|
00000a00  66 19 f2 72 62 69 74 73  28 22 4d 6f 76 65 20 6c  |f..rbits("Move l|
00000a10  65 66 74 22 2c 32 29 0d  26 70 1a f2 72 62 69 74  |eft",2).&p..rbit|
00000a20  73 28 22 50 72 65 73 73  20 66 69 72 65 22 2c 34  |s("Press fire",4|
00000a30  29 0d 26 7a 38 41 24 3d  c3 28 42 49 54 28 34 29  |).&z8A$=.(BIT(4)|
00000a40  29 2b c3 28 42 49 54 28  33 29 29 2b c3 28 42 49  |)+.(BIT(3))+.(BI|
00000a50  54 28 32 29 29 2b c3 28  42 49 54 28 31 29 29 2b  |T(2))+.(BIT(1))+|
00000a60  c3 28 42 49 54 28 30 29  29 0d 26 7f 0e 41 43 3d  |.(BIT(0)).&..AC=|
00000a70  41 43 20 82 32 35 35 0d  26 84 05 e1 0d 26 8e 11  |AC .255.&....&..|
00000a80  dd f2 72 62 69 74 73 28  4d 24 2c 42 29 0d 26 98  |..rbits(M$,B).&.|
00000a90  09 db 3a f1 4d 24 0d 26  a2 43 41 3d 3f 41 44 44  |..:.M$.&.CA=?ADD|
00000aa0  3a 46 3d 30 3a e3 58 3d  30 b8 34 3a 54 3d 42 2a  |:F=0:.X=0.4:T=B*|
00000ab0  28 28 28 41 20 82 20 41  43 29 20 80 20 32 5e 58  |(((A . AC) . 2^X|
00000ac0  29 2f 32 5e 58 29 3a e7  54 3c 3e 30 8c 42 49 54  |)/2^X):.T<>0.BIT|
00000ad0  28 58 29 3d 54 3a 46 3d  31 0d 26 a7 05 ed 0d 26  |(X)=T:F=1.&....&|
00000ae0  a9 15 e7 46 3d 30 80 42  46 3d 31 8c 8d 74 62 66  |...F=0.BF=1..tbf|
00000af0  8b ef 37 0d 26 aa 35 db  3a f1 22 20 20 20 52 65  |..7.&.5.:."   Re|
00000b00  6c 65 61 73 65 22 3a f5  20 fd 20 28 3f 41 44 44  |lease":. . (?ADD|
00000b10  20 80 20 33 31 29 3d 30  20 84 28 3f 41 44 44 20  | . 31)=0 .(?ADD |
00000b20  80 20 33 31 29 3d 33 31  0d 26 ac 05 e1 0d 26 de  |. 31)=31.&....&.|
00000b30  09 dd f2 61 73 6d 0d 27  10 1d 6f 76 65 63 3d 28  |...asm.'..ovec=(|
00000b40  21 26 32 30 41 29 80 26  46 46 46 46 3a 69 66 3d  |!&20A).&FFFF:if=|
00000b50  41 44 44 0d 27 1a 31 73  65 6e 73 65 3d 28 41 43  |ADD.'.1sense=(AC|
00000b60  20 82 32 35 35 29 3a e3  54 3d 30 b8 34 3a 62 28  | .255):.T=0.4:b(|
00000b70  bb 28 c1 41 24 2c 35 2d  54 2c 31 29 29 29 3d 32  |.(.A$,5-T,1)))=2|
00000b80  5e 54 3a ed 0d 27 24 0c  e3 54 3d 30 b8 32 88 32  |^T:..'$..T=0.2.2|
00000b90  0d 27 2e 0b 50 25 3d 26  31 34 30 0d 27 38 09 5b  |.'..P%=&140.'8.[|
00000ba0  4f 50 54 54 0d 27 42 5c  2e 73 74 61 72 74 20 63  |OPTT.'B\.start c|
00000bb0  6d 70 23 26 38 31 3a 62  6e 65 20 6f 75 74 31 3a  |mp#&81:bne out1:|
00000bc0  63 70 79 23 26 46 46 3a  62 6e 65 20 6f 75 74 31  |cpy#&FF:bne out1|
00000bd0  3a 6c 64 61 20 69 66 3a  65 6f 72 23 73 65 6e 73  |:lda if:eor#sens|
00000be0  65 3a 63 70 78 23 26 42  37 3a 62 6e 65 20 63 68  |e:cpx#&B7:bne ch|
00000bf0  64 3a 61 6e 64 23 62 28  30 29 3a 62 6e 65 20 66  |d:and#b(0):bne f|
00000c00  0d 27 4c 07 2e 6e 66 0d  27 56 1f 2e 6f 75 74 20  |.'L..nf.'V..out |
00000c10  6c 64 61 23 26 38 31 3a  2e 6f 75 74 31 20 6a 6d  |lda#&81:.out1 jm|
00000c20  70 20 6f 76 65 63 0d 27  60 28 2e 63 68 64 20 63  |p ovec.'`(.chd c|
00000c30  70 78 23 26 39 37 3a 62  6e 65 20 63 68 6c 3a 61  |px#&97:bne chl:a|
00000c40  6e 64 23 62 28 31 29 3a  62 65 71 20 6e 66 0d 27  |nd#b(1):beq nf.'|
00000c50  6a 22 2e 66 20 6c 64 78  23 26 46 46 3a 6c 64 79  |j".f ldx#&FF:ldy|
00000c60  23 26 46 46 3a 6c 64 61  23 26 38 31 3a 72 74 73  |#&FF:lda#&81:rts|
00000c70  0d 27 74 2e 2e 63 68 6c  20 63 70 78 23 26 39 45  |.'t..chl cpx#&9E|
00000c80  3a 62 6e 65 20 63 68 72  3a 61 6e 64 23 62 28 32  |:bne chr:and#b(2|
00000c90  29 3a 62 65 71 20 6e 66  3a 62 6e 65 20 66 0d 27  |):beq nf:bne f.'|
00000ca0  7e 2e 2e 63 68 72 20 63  70 78 23 26 42 44 3a 62  |~..chr cpx#&BD:b|
00000cb0  6e 65 20 63 68 66 3a 61  6e 64 23 62 28 33 29 3a  |ne chf:and#b(3):|
00000cc0  62 65 71 20 6e 66 3a 62  6e 65 20 66 0d 27 88 2e  |beq nf:bne f.'..|
00000cd0  2e 63 68 66 20 63 70 78  23 26 42 36 3a 62 6e 65  |.chf cpx#&B6:bne|
00000ce0  20 6f 75 74 3a 61 6e 64  23 62 28 34 29 3a 62 65  | out:and#b(4):be|
00000cf0  71 20 6e 66 3a 62 6e 65  20 66 0d 27 92 05 5d 0d  |q nf:bne f.'..].|
00000d00  27 9c 05 ed 0d 27 a6 22  21 26 32 30 41 3d 28 21  |'....'."!&20A=(!|
00000d10  26 32 30 41 20 80 26 46  46 46 46 30 30 30 30 29  |&20A .&FFFF0000)|
00000d20  2b 73 74 61 72 74 0d 27  b0 05 e1 0d ff           |+start.'.....|
00000d2d