�"�19-11-1985


*TV0,1
*FX200,2
k�2:M=!&E0:�4:�=&3000:�28,0,30,39,0:A$="___________________":�10)A$''�10);"Approaching CITADEL";�10);A$
(d�17,7)"Author"';�12);"Michael Jakobsen"'';�9);"Title Screen and Music"';�12)"Lars @sterballe"''
d*LO."CITAT"
�
�TS:A$=""
�*LO."CITAS"
�%�23;8202;0;0;0;:�12,28,0,31,39,27

,)�:T$="Please stop the Tape":�10,2)T$

���dtA

��X=0�999:�:�SP
XR�X=0�300:�:�129:�0:�:�10,1)T$';�18);"and"';�10)"P r e s s  S p a c e":*FX15,1
��MUS:�txK
�e��SP:X=30:�:X=X/2:?&76=X:?&75=4:�&5300:�X<1:�X=0�400:�:?&76=7:�Y=1�4:?&75=Y:�&5300:�X=0�200:�:�:�
ܔ��TS:�&4200:�13,15)"Superior":�13,16)"Software":�13,17)"Presents":�29,28)"C. Michael";�31,29);"Jakobsen":�19,0,6;0;19,1,4;0;28,10,31,28,27:�
�
��MUS:T=1
�+�1,1,0,0,0,10,22,3,55,-82,-2,-3,126,112
�*�2,1,0,0,0,10,22,30,25,-42,-1,-1,80,60
�*�3,1,0,0,0,10,22,3,15,-22,-5,-3,100,80
RB0=0:C0=4:CC0=8:D0=12:DD0=16:E0=20:F0=24:FF0=28:G0=32:GG0=36:A0=40:Q0=0:AA0=44
!� T �dhH,�drH,�d|H,�TFI,�TPI
	�TdI
 I$=�0:�I$<>""��
*�A$,B$:�A$="#"�tNH
45�A$,"#",1)R1$=�A$,1)+�A$,1)+"0" � R1$=�A$,1)+"0"
>5�B$,"#",1)R2$=�B$,1)+�B$,1)+"0" � R2$=�B$,1)+"0"
H�R1$="Q0"�DfH
R�2,1,S1+�R1$,4
\�3,3,48+�R1$,4
f�R2$="Q0"�T`H
p�1,3,S1+S2+�R2$,4
z�3,2,1+�R2$,4
�	�T`H
��
�	�dTH
�$�C,Q,D,Q,E,Q,C,Q,C,Q,D,Q,E,Q,C,Q
� �E,C,F,D,G,E,G,C,E,C,F,D,G,E
�$�G,C,A,Q,F,Q,E,Q,D,Q,E,Q,B,Q,C,Q
�$�Q,G,Q,A,Q,F,Q,E,Q,D,Q,E,Q,B,Q,C
��#,#
����(-8)=15:T=T+1:�T=6�TZI
�	�TLH
�S1=0:S2=0:�
�S1=0:S2=96:�
�S1=48:S2=48:�
	S1=48:S2=96:� 
	S1=0:S2=144:�
	!�TdI:�=0:���>100:�TdI:�dZG
	$"�F=0�3:�0,2,5,4:�:���(-5)=15:�
���T\L
K�128:�26,12,19,0,1;0;19,1,3;0;:�0,1:�0,368:�0,1020:�1272,1020:�1272,368
�k�1:�8,2)"Please select which key":�8,3)"Layout you wish to use...":�12,5)"1       2       3       4"

|X=2:Y=7:�X,Y)"LEFT   :":�X,Y+2)"RIGHT  :":�X,Y+4)"UP     :":�X,Y+6)"DOWN   :":�X,Y+8)"ACTION :":�X,Y+10)"SPELL  :"

�X=12

�%�X,Y)"Z       Caps    Delete  C"

�'�X,Y+2)"X       Ctrl    Copy    V"

�'�X,Y+4)"*       ;       G       @"

�'�X,Y+6)"?       >       B       ;"

�'�X,Y+8)"Return  *       F       ["

�(�X,Y+10)"--- Space  or  Shift ----"
�28,0,24,39,20:�128+1:�
8O�2:�13,1)"Enter 1,2,3,4":�19,2)"or":�5,3)"Press Fire to select Joystick"
<)�:K=�(0)-49:J=�(0)�3:� K>-1� K<4� J>0
F<�:�J=1��15,2)"Joystick !" ��14,2)"Key Layout ";�(49+K)
� TKBK=&C00:�J=1�?TKBK=0:�tHS
h��TpQ:�X%=0�K*5:�Y%:�
|�X%=0�4:� Y%:TKBK?X%=Y%:�
0� * X ? Z RETURN
:�9,&C8,&C2,&E8,&E1,&C9
D� ; Ctrl > Caps *
N�&D7,&81,&E7,&C0,&C8
X� G COPY B DELETE F
b�&D3,&E9,&E4,&D9,&C3
l� @ V ; C [
v�&C7,&E3,&D7,&D2,&B8
���128:�28,0,29,39,25,12:�1:�8,1)"Are you Male or Female ?":�11,3)"Please enter M or F":A$=�:�:�13,2);:�(�A$�32)=102�H=1:�"You are Female"�H=0:�" You are Male"
|O�128+1:�0:�28,0,31,39,30,12:�14,1)"Correct  Y/N";:A$=�:�(�A$�32)<>121��txK
@F�4:�TS:�&5300:!&80=M:?&90=131:?&91=4:?&82=H:!&8A=!TKBK:?&8E=TKBK?4
��"Press PLAY"
 l*RUN"CITAL"
�

00000000  0d 00 05 11 f4 22 86 31  39 2d 31 31 2d 31 39 38  |.....".19-11-198|
00000010  35 0d 00 0a 0a 2a 54 56  30 2c 31 0d 00 14 0c 2a  |5....*TV0,1....*|
00000020  46 58 32 30 30 2c 32 0d  00 1e 6b eb 32 3a 4d 3d  |FX200,2...k.2:M=|
00000030  21 26 45 30 3a eb 34 3a  d3 3d 26 33 30 30 30 3a  |!&E0:.4:.=&3000:|
00000040  ef 32 38 2c 30 2c 33 30  2c 33 39 2c 30 3a 41 24  |.28,0,30,39,0:A$|
00000050  3d 22 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |="______________|
00000060  5f 5f 5f 5f 5f 22 3a f1  8a 31 30 29 41 24 27 27  |_____":..10)A$''|
00000070  8a 31 30 29 3b 22 41 70  70 72 6f 61 63 68 69 6e  |.10);"Approachin|
00000080  67 20 43 49 54 41 44 45  4c 22 3b 8a 31 30 29 3b  |g CITADEL";.10);|
00000090  41 24 0d 00 28 64 f1 8a  31 37 2c 37 29 22 41 75  |A$..(d..17,7)"Au|
000000a0  74 68 6f 72 22 27 3b 8a  31 32 29 3b 22 4d 69 63  |thor"';.12);"Mic|
000000b0  68 61 65 6c 20 4a 61 6b  6f 62 73 65 6e 22 27 27  |hael Jakobsen"''|
000000c0  3b 8a 39 29 3b 22 54 69  74 6c 65 20 53 63 72 65  |;.9);"Title Scre|
000000d0  65 6e 20 61 6e 64 20 4d  75 73 69 63 22 27 3b 8a  |en and Music"';.|
000000e0  31 32 29 22 4c 61 72 73  20 40 73 74 65 72 62 61  |12)"Lars @sterba|
000000f0  6c 6c 65 22 27 27 0d 00  64 0f 2a 4c 4f 2e 22 43  |lle"''..d.*LO."C|
00000100  49 54 41 54 22 0d 00 96  0d f2 54 53 3a 41 24 3d  |ITAT".....TS:A$=|
00000110  22 22 0d 00 c8 0f 2a 4c  4f 2e 22 43 49 54 41 53  |""....*LO."CITAS|
00000120  22 0d 00 fa 25 ef 32 33  3b 38 32 30 32 3b 30 3b  |"...%.23;8202;0;|
00000130  30 3b 30 3b 3a ef 31 32  2c 32 38 2c 30 2c 33 31  |0;0;:.12,28,0,31|
00000140  2c 33 39 2c 32 37 0d 01  2c 29 db 3a 54 24 3d 22  |,39,27..,).:T$="|
00000150  50 6c 65 61 73 65 20 73  74 6f 70 20 74 68 65 20  |Please stop the |
00000160  54 61 70 65 22 3a f1 8a  31 30 2c 32 29 54 24 0d  |Tape":..10,2)T$.|
00000170  01 90 0b ee 85 e5 8d 64  74 41 0d 01 f4 12 e3 58  |.......dtA.....X|
00000180  3d 30 b8 39 39 39 3a ed  3a f2 53 50 0d 02 58 52  |=0.999:.:.SP..XR|
00000190  e3 58 3d 30 b8 33 30 30  3a ed 3a fb 31 32 39 3a  |.X=0.300:.:.129:|
000001a0  fb 30 3a db 3a f1 8a 31  30 2c 31 29 54 24 27 3b  |.0:.:..10,1)T$';|
000001b0  8a 31 38 29 3b 22 61 6e  64 22 27 3b 8a 31 30 29  |.18);"and"';.10)|
000001c0  22 50 20 72 20 65 20 73  20 73 20 20 53 20 70 20  |"P r e s s  S p |
000001d0  61 20 63 20 65 22 3a 2a  46 58 31 35 2c 31 0d 02  |a c e":*FX15,1..|
000001e0  bc 0e f2 4d 55 53 3a e5  8d 74 78 4b 0d 03 e8 65  |...MUS:..txK...e|
000001f0  dd f2 53 50 3a 58 3d 33  30 3a f5 3a 58 3d 58 2f  |..SP:X=30:.:X=X/|
00000200  32 3a 3f 26 37 36 3d 58  3a 3f 26 37 35 3d 34 3a  |2:?&76=X:?&75=4:|
00000210  d6 26 35 33 30 30 3a fd  58 3c 31 3a e3 58 3d 30  |.&5300:.X<1:.X=0|
00000220  b8 34 30 30 3a ed 3a 3f  26 37 36 3d 37 3a e3 59  |.400:.:?&76=7:.Y|
00000230  3d 31 b8 34 3a 3f 26 37  35 3d 59 3a d6 26 35 33  |=1.4:?&75=Y:.&53|
00000240  30 30 3a e3 58 3d 30 b8  32 30 30 3a ed 3a ed 3a  |00:.X=0.200:.:.:|
00000250  e1 0d 05 dc 94 dd f2 54  53 3a d6 26 34 32 30 30  |.......TS:.&4200|
00000260  3a f1 8a 31 33 2c 31 35  29 22 53 75 70 65 72 69  |:..13,15)"Superi|
00000270  6f 72 22 3a f1 8a 31 33  2c 31 36 29 22 53 6f 66  |or":..13,16)"Sof|
00000280  74 77 61 72 65 22 3a f1  8a 31 33 2c 31 37 29 22  |tware":..13,17)"|
00000290  50 72 65 73 65 6e 74 73  22 3a f1 8a 32 39 2c 32  |Presents":..29,2|
000002a0  38 29 22 43 2e 20 4d 69  63 68 61 65 6c 22 3b 8a  |8)"C. Michael";.|
000002b0  33 31 2c 32 39 29 3b 22  4a 61 6b 6f 62 73 65 6e  |31,29);"Jakobsen|
000002c0  22 3a ef 31 39 2c 30 2c  36 3b 30 3b 31 39 2c 31  |":.19,0,6;0;19,1|
000002d0  2c 34 3b 30 3b 32 38 2c  31 30 2c 33 31 2c 32 38  |,4;0;28,10,31,28|
000002e0  2c 32 37 3a e1 0d 07 d0  0d dd f2 4d 55 53 3a 54  |,27:.......MUS:T|
000002f0  3d 31 0d 07 e4 2b e2 31  2c 31 2c 30 2c 30 2c 30  |=1...+.1,1,0,0,0|
00000300  2c 31 30 2c 32 32 2c 33  2c 35 35 2c 2d 38 32 2c  |,10,22,3,55,-82,|
00000310  2d 32 2c 2d 33 2c 31 32  36 2c 31 31 32 0d 07 ee  |-2,-3,126,112...|
00000320  2a e2 32 2c 31 2c 30 2c  30 2c 30 2c 31 30 2c 32  |*.2,1,0,0,0,10,2|
00000330  32 2c 33 30 2c 32 35 2c  2d 34 32 2c 2d 31 2c 2d  |2,30,25,-42,-1,-|
00000340  31 2c 38 30 2c 36 30 0d  07 f8 2a e2 33 2c 31 2c  |1,80,60...*.3,1,|
00000350  30 2c 30 2c 30 2c 31 30  2c 32 32 2c 33 2c 31 35  |0,0,0,10,22,3,15|
00000360  2c 2d 32 32 2c 2d 35 2c  2d 33 2c 31 30 30 2c 38  |,-22,-5,-3,100,8|
00000370  30 0d 08 02 52 42 30 3d  30 3a 43 30 3d 34 3a 43  |0...RB0=0:C0=4:C|
00000380  43 30 3d 38 3a 44 30 3d  31 32 3a 44 44 30 3d 31  |C0=8:D0=12:DD0=1|
00000390  36 3a 45 30 3d 32 30 3a  46 30 3d 32 34 3a 46 46  |6:E0=20:F0=24:FF|
000003a0  30 3d 32 38 3a 47 30 3d  33 32 3a 47 47 30 3d 33  |0=28:G0=32:GG0=3|
000003b0  36 3a 41 30 3d 34 30 3a  51 30 3d 30 3a 41 41 30  |6:A0=40:Q0=0:AA0|
000003c0  3d 34 34 0d 08 0c 21 ee  20 54 20 e4 8d 64 68 48  |=44...!. T ..dhH|
000003d0  2c 8d 64 72 48 2c 8d 64  7c 48 2c 8d 54 46 49 2c  |,.drH,.d|H,.TFI,|
000003e0  8d 54 50 49 0d 08 16 09  e4 8d 54 64 49 0d 08 20  |.TPI......TdI.. |
000003f0  13 49 24 3d bf 30 3a e7  49 24 3c 3e 22 22 8c e1  |.I$=.0:.I$<>""..|
00000400  0d 08 2a 17 f3 41 24 2c  42 24 3a e7 41 24 3d 22  |..*..A$,B$:.A$="|
00000410  23 22 e5 8d 74 4e 48 0d  08 34 35 e7 a7 41 24 2c  |#"..tNH..45..A$,|
00000420  22 23 22 2c 31 29 52 31  24 3d c0 41 24 2c 31 29  |"#",1)R1$=.A$,1)|
00000430  2b c0 41 24 2c 31 29 2b  22 30 22 20 8b 20 52 31  |+.A$,1)+"0" . R1|
00000440  24 3d c0 41 24 2c 31 29  2b 22 30 22 0d 08 3e 35  |$=.A$,1)+"0"..>5|
00000450  e7 a7 42 24 2c 22 23 22  2c 31 29 52 32 24 3d c0  |..B$,"#",1)R2$=.|
00000460  42 24 2c 31 29 2b c0 42  24 2c 31 29 2b 22 30 22  |B$,1)+.B$,1)+"0"|
00000470  20 8b 20 52 32 24 3d c0  42 24 2c 31 29 2b 22 30  | . R2$=.B$,1)+"0|
00000480  22 0d 08 48 12 e7 52 31  24 3d 22 51 30 22 e5 8d  |"..H..R1$="Q0"..|
00000490  44 66 48 0d 08 52 12 d4  32 2c 31 2c 53 31 2b a0  |DfH..R..2,1,S1+.|
000004a0  52 31 24 2c 34 0d 08 5c  12 d4 33 2c 33 2c 34 38  |R1$,4..\..3,3,48|
000004b0  2b a0 52 31 24 2c 34 0d  08 66 12 e7 52 32 24 3d  |+.R1$,4..f..R2$=|
000004c0  22 51 30 22 e5 8d 54 60  48 0d 08 70 15 d4 31 2c  |"Q0"..T`H..p..1,|
000004d0  33 2c 53 31 2b 53 32 2b  a0 52 32 24 2c 34 0d 08  |3,S1+S2+.R2$,4..|
000004e0  7a 11 d4 33 2c 32 2c 31  2b a0 52 32 24 2c 34 0d  |z..3,2,1+.R2$,4.|
000004f0  08 84 09 e5 8d 54 60 48  0d 08 8e 05 f7 0d 08 98  |.....T`H........|
00000500  09 e5 8d 64 54 48 0d 08  a2 24 dc 43 2c 51 2c 44  |...dTH...$.C,Q,D|
00000510  2c 51 2c 45 2c 51 2c 43  2c 51 2c 43 2c 51 2c 44  |,Q,E,Q,C,Q,C,Q,D|
00000520  2c 51 2c 45 2c 51 2c 43  2c 51 0d 08 ac 20 dc 45  |,Q,E,Q,C,Q... .E|
00000530  2c 43 2c 46 2c 44 2c 47  2c 45 2c 47 2c 43 2c 45  |,C,F,D,G,E,G,C,E|
00000540  2c 43 2c 46 2c 44 2c 47  2c 45 0d 08 b6 24 dc 47  |,C,F,D,G,E...$.G|
00000550  2c 43 2c 41 2c 51 2c 46  2c 51 2c 45 2c 51 2c 44  |,C,A,Q,F,Q,E,Q,D|
00000560  2c 51 2c 45 2c 51 2c 42  2c 51 2c 43 2c 51 0d 08  |,Q,E,Q,B,Q,C,Q..|
00000570  c0 24 dc 51 2c 47 2c 51  2c 41 2c 51 2c 46 2c 51  |.$.Q,G,Q,A,Q,F,Q|
00000580  2c 45 2c 51 2c 44 2c 51  2c 45 2c 51 2c 42 2c 51  |,E,Q,D,Q,E,Q,B,Q|
00000590  2c 43 0d 08 ca 08 dc 23  2c 23 0d 08 d4 1e f5 fd  |,C.....#,#......|
000005a0  96 28 2d 38 29 3d 31 35  3a 54 3d 54 2b 31 3a e7  |.(-8)=15:T=T+1:.|
000005b0  54 3d 36 e5 8d 54 5a 49  0d 08 de 09 e5 8d 54 4c  |T=6..TZI......TL|
000005c0  48 0d 08 e8 0f 53 31 3d  30 3a 53 32 3d 30 3a f8  |H....S1=0:S2=0:.|
000005d0  0d 08 f2 10 53 31 3d 30  3a 53 32 3d 39 36 3a f8  |....S1=0:S2=96:.|
000005e0  0d 08 fc 11 53 31 3d 34  38 3a 53 32 3d 34 38 3a  |....S1=48:S2=48:|
000005f0  f8 0d 09 06 12 53 31 3d  34 38 3a 53 32 3d 39 36  |.....S1=48:S2=96|
00000600  3a f8 20 0d 09 10 11 53  31 3d 30 3a 53 32 3d 31  |:. ....S1=0:S2=1|
00000610  34 34 3a f8 0d 09 1a 21  e4 8d 54 64 49 3a d1 3d  |44:....!..TdI:.=|
00000620  30 3a f5 fd 91 3e 31 30  30 3a e4 8d 54 64 49 3a  |0:...>100:..TdI:|
00000630  e5 8d 64 5a 47 0d 09 24  22 e3 46 3d 30 b8 33 3a  |..dZG..$".F=0.3:|
00000640  d4 30 2c 32 2c 35 2c 34  3a ed 3a f5 fd 96 28 2d  |.0,2,5,4:.:...(-|
00000650  35 29 3d 31 35 3a f8 0d  0b b8 0b ee 85 e5 8d 54  |5)=15:.........T|
00000660  5c 4c 0d 0c 1c 4b fb 31  32 38 3a ef 32 36 2c 31  |\L...K.128:.26,1|
00000670  32 2c 31 39 2c 30 2c 31  3b 30 3b 31 39 2c 31 2c  |2,19,0,1;0;19,1,|
00000680  33 3b 30 3b 3a e6 30 2c  31 3a ec 30 2c 33 36 38  |3;0;:.0,1:.0,368|
00000690  3a df 30 2c 31 30 32 30  3a df 31 32 37 32 2c 31  |:.0,1020:.1272,1|
000006a0  30 32 30 3a df 31 32 37  32 2c 33 36 38 0d 0c e4  |020:.1272,368...|
000006b0  6b fb 31 3a f1 8a 38 2c  32 29 22 50 6c 65 61 73  |k.1:..8,2)"Pleas|
000006c0  65 20 73 65 6c 65 63 74  20 77 68 69 63 68 20 6b  |e select which k|
000006d0  65 79 22 3a f1 8a 38 2c  33 29 22 4c 61 79 6f 75  |ey":..8,3)"Layou|
000006e0  74 20 79 6f 75 20 77 69  73 68 20 74 6f 20 75 73  |t you wish to us|
000006f0  65 2e 2e 2e 22 3a f1 8a  31 32 2c 35 29 22 31 20  |e...":..12,5)"1 |
00000700  20 20 20 20 20 20 32 20  20 20 20 20 20 20 33 20  |      2       3 |
00000710  20 20 20 20 20 20 34 22  0d 0d 16 7c 58 3d 32 3a  |      4"...|X=2:|
00000720  59 3d 37 3a f1 8a 58 2c  59 29 22 4c 45 46 54 20  |Y=7:..X,Y)"LEFT |
00000730  20 20 3a 22 3a f1 8a 58  2c 59 2b 32 29 22 52 49  |  :":..X,Y+2)"RI|
00000740  47 48 54 20 20 3a 22 3a  f1 8a 58 2c 59 2b 34 29  |GHT  :":..X,Y+4)|
00000750  22 55 50 20 20 20 20 20  3a 22 3a f1 8a 58 2c 59  |"UP     :":..X,Y|
00000760  2b 36 29 22 44 4f 57 4e  20 20 20 3a 22 3a f1 8a  |+6)"DOWN   :":..|
00000770  58 2c 59 2b 38 29 22 41  43 54 49 4f 4e 20 3a 22  |X,Y+8)"ACTION :"|
00000780  3a f1 8a 58 2c 59 2b 31  30 29 22 53 50 45 4c 4c  |:..X,Y+10)"SPELL|
00000790  20 20 3a 22 0d 0d ac 08  58 3d 31 32 0d 0d b6 25  |  :"....X=12...%|
000007a0  f1 8a 58 2c 59 29 22 5a  20 20 20 20 20 20 20 43  |..X,Y)"Z       C|
000007b0  61 70 73 20 20 20 20 44  65 6c 65 74 65 20 20 43  |aps    Delete  C|
000007c0  22 0d 0d c0 27 f1 8a 58  2c 59 2b 32 29 22 58 20  |"...'..X,Y+2)"X |
000007d0  20 20 20 20 20 20 43 74  72 6c 20 20 20 20 43 6f  |      Ctrl    Co|
000007e0  70 79 20 20 20 20 56 22  0d 0d ca 27 f1 8a 58 2c  |py    V"...'..X,|
000007f0  59 2b 34 29 22 2a 20 20  20 20 20 20 20 3b 20 20  |Y+4)"*       ;  |
00000800  20 20 20 20 20 47 20 20  20 20 20 20 20 40 22 0d  |     G       @".|
00000810  0d d4 27 f1 8a 58 2c 59  2b 36 29 22 3f 20 20 20  |..'..X,Y+6)"?   |
00000820  20 20 20 20 3e 20 20 20  20 20 20 20 42 20 20 20  |    >       B   |
00000830  20 20 20 20 3b 22 0d 0d  de 27 f1 8a 58 2c 59 2b  |    ;"...'..X,Y+|
00000840  38 29 22 52 65 74 75 72  6e 20 20 2a 20 20 20 20  |8)"Return  *    |
00000850  20 20 20 46 20 20 20 20  20 20 20 5b 22 0d 0d e8  |   F       ["...|
00000860  28 f1 8a 58 2c 59 2b 31  30 29 22 2d 2d 2d 20 53  |(..X,Y+10)"--- S|
00000870  70 61 63 65 20 20 6f 72  20 20 53 68 69 66 74 20  |pace  or  Shift |
00000880  2d 2d 2d 2d 22 0d 0e 10  1b ef 32 38 2c 30 2c 32  |----".....28,0,2|
00000890  34 2c 33 39 2c 32 30 3a  fb 31 32 38 2b 31 3a db  |4,39,20:.128+1:.|
000008a0  0d 0e 38 4f fb 32 3a f1  8a 31 33 2c 31 29 22 45  |..8O.2:..13,1)"E|
000008b0  6e 74 65 72 20 31 2c 32  2c 33 2c 34 22 3a f1 8a  |nter 1,2,3,4":..|
000008c0  31 39 2c 32 29 22 6f 72  22 3a f1 8a 35 2c 33 29  |19,2)"or":..5,3)|
000008d0  22 50 72 65 73 73 20 46  69 72 65 20 74 6f 20 73  |"Press Fire to s|
000008e0  65 6c 65 63 74 20 4a 6f  79 73 74 69 63 6b 22 0d  |elect Joystick".|
000008f0  0f 3c 29 f5 3a 4b 3d a6  28 30 29 2d 34 39 3a 4a  |.<).:K=.(0)-49:J|
00000900  3d 96 28 30 29 80 33 3a  fd 20 4b 3e 2d 31 80 20  |=.(0).3:. K>-1. |
00000910  4b 3c 34 84 20 4a 3e 30  0d 0f 46 3c db 3a e7 4a  |K<4. J>0..F<.:.J|
00000920  3d 31 8c f1 8a 31 35 2c  32 29 22 4a 6f 79 73 74  |=1...15,2)"Joyst|
00000930  69 63 6b 20 21 22 20 8b  f1 8a 31 34 2c 32 29 22  |ick !" ...14,2)"|
00000940  4b 65 79 20 4c 61 79 6f  75 74 20 22 3b bd 28 34  |Key Layout ";.(4|
00000950  39 2b 4b 29 0d 0f a0 20  54 4b 42 4b 3d 26 43 30  |9+K)... TKBK=&C0|
00000960  30 3a e7 4a 3d 31 8c 3f  54 4b 42 4b 3d 30 3a e5  |0:.J=1.?TKBK=0:.|
00000970  8d 74 48 53 0d 10 68 19  f7 8d 54 70 51 3a e3 58  |.tHS..h...TpQ:.X|
00000980  25 3d 30 b8 4b 2a 35 3a  f3 59 25 3a ed 0d 10 7c  |%=0.K*5:.Y%:...||
00000990  1d e3 58 25 3d 30 b8 34  3a f3 20 59 25 3a 54 4b  |..X%=0.4:. Y%:TK|
000009a0  42 4b 3f 58 25 3d 59 25  3a ed 0d 11 30 14 f4 20  |BK?X%=Y%:...0.. |
000009b0  2a 20 58 20 3f 20 5a 20  52 45 54 55 52 4e 0d 11  |* X ? Z RETURN..|
000009c0  3a 1a dc 39 2c 26 43 38  2c 26 43 32 2c 26 45 38  |:..9,&C8,&C2,&E8|
000009d0  2c 26 45 31 2c 26 43 39  0d 11 44 15 f4 20 3b 20  |,&E1,&C9..D.. ; |
000009e0  43 74 72 6c 20 3e 20 43  61 70 73 20 2a 0d 11 4e  |Ctrl > Caps *..N|
000009f0  18 dc 26 44 37 2c 26 38  31 2c 26 45 37 2c 26 43  |..&D7,&81,&E7,&C|
00000a00  30 2c 26 43 38 0d 11 58  17 f4 20 47 20 43 4f 50  |0,&C8..X.. G COP|
00000a10  59 20 42 20 44 45 4c 45  54 45 20 46 0d 11 62 18  |Y B DELETE F..b.|
00000a20  dc 26 44 33 2c 26 45 39  2c 26 45 34 2c 26 44 39  |.&D3,&E9,&E4,&D9|
00000a30  2c 26 43 33 0d 11 6c 0f  f4 20 40 20 56 20 3b 20  |,&C3..l.. @ V ; |
00000a40  43 20 5b 0d 11 76 18 dc  26 43 37 2c 26 45 33 2c  |C [..v..&C7,&E3,|
00000a50  26 44 37 2c 26 44 32 2c  26 42 38 0d 13 88 a4 fb  |&D7,&D2,&B8.....|
00000a60  31 32 38 3a ef 32 38 2c  30 2c 32 39 2c 33 39 2c  |128:.28,0,29,39,|
00000a70  32 35 2c 31 32 3a fb 31  3a f1 8a 38 2c 31 29 22  |25,12:.1:..8,1)"|
00000a80  41 72 65 20 79 6f 75 20  4d 61 6c 65 20 6f 72 20  |Are you Male or |
00000a90  46 65 6d 61 6c 65 20 3f  22 3a f1 8a 31 31 2c 33  |Female ?":..11,3|
00000aa0  29 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 4d  |)"Please enter M|
00000ab0  20 6f 72 20 46 22 3a 41  24 3d be 3a db 3a f1 8a  | or F":A$=.:.:..|
00000ac0  31 33 2c 32 29 3b 3a e7  28 97 41 24 84 33 32 29  |13,2);:.(.A$.32)|
00000ad0  3d 31 30 32 8c 48 3d 31  3a f1 22 59 6f 75 20 61  |=102.H=1:."You a|
00000ae0  72 65 20 46 65 6d 61 6c  65 22 8b 48 3d 30 3a f1  |re Female".H=0:.|
00000af0  22 20 59 6f 75 20 61 72  65 20 4d 61 6c 65 22 0d  |" You are Male".|
00000b00  15 7c 4f fb 31 32 38 2b  31 3a fb 30 3a ef 32 38  |.|O.128+1:.0:.28|
00000b10  2c 30 2c 33 31 2c 33 39  2c 33 30 2c 31 32 3a f1  |,0,31,39,30,12:.|
00000b20  8a 31 34 2c 31 29 22 43  6f 72 72 65 63 74 20 20  |.14,1)"Correct  |
00000b30  59 2f 4e 22 3b 3a 41 24  3d be 3a e7 28 97 41 24  |Y/N";:A$=.:.(.A$|
00000b40  84 33 32 29 3c 3e 31 32  31 8c 8d 74 78 4b 0d 1f  |.32)<>121..txK..|
00000b50  40 46 eb 34 3a f2 54 53  3a d6 26 35 33 30 30 3a  |@F.4:.TS:.&5300:|
00000b60  21 26 38 30 3d 4d 3a 3f  26 39 30 3d 31 33 31 3a  |!&80=M:?&90=131:|
00000b70  3f 26 39 31 3d 34 3a 3f  26 38 32 3d 48 3a 21 26  |?&91=4:?&82=H:!&|
00000b80  38 41 3d 21 54 4b 42 4b  3a 3f 26 38 45 3d 54 4b  |8A=!TKBK:?&8E=TK|
00000b90  42 4b 3f 34 0d 1f a4 11  f1 22 50 72 65 73 73 20  |BK?4....."Press |
00000ba0  50 4c 41 59 22 0d 20 6c  0f 2a 52 55 4e 22 43 49  |PLAY". l.*RUN"CI|
00000bb0  54 41 4c 22 0d ff                                 |TAL"..|
00000bb6