*FX200,2
c�4:�=&3000:�28,0,30,39,0:A$="____________________":�10)A$''�10);"Approaching  CITADEL";�10);A$
(g�17,7)"Author"';�12);"Michael Jakobsen"'';�14);"Title Screen"''':�5:�400,668:�"Lars @sterballe":�4
d*LO."CITAT"
�-�TS:A$="???":?&95=(?&3CD �&80):A$="???"
�#�23;8202;0;0;0;12,28,0,31,39,27

���dtA
)�:T$="Please stop the Tape":�10,2)T$
G�129:�0:�:�10,1)T$';�18);"and"';�10)"P r e s s  S p a c e":*FX15,1
0A$=�
���T\L
"�128:�26,12,19,0,1;0;19,1,3;0;
�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       C       <       W"

�'�X,Y+2)"X       V       >       E"

�'�X,Y+4)"*       L       F       K"

�'�X,Y+6)"?       <       V       M"

�'�X,Y+8)"Return  +       D       F"

�(�X,Y+10)"--- Space  or  Shift ----"
��28,0,21,39,19:�128+1:�:�0:�" Alternatively you may select Joystick   (by pressing 'J' while in Pause mode)   when the game has loaded.";
t6�28,0,24,39,22:�128:�:�1:�12,1)"Enter 1,2,3 or 4"
<�:K=�(0)-48:� K>0� K<5
F�:�14,1)"Key Layout ";�K
�
TKBK=&C00
E�(4390+K*10):�X%=0�12�3:�A$,Y%:X%!TKBK=�("&"+A$):X%?(TKBK+2)=Y%:�
0(� BFFB,4,B7FF,8,BFF7,8,AFFF,8,BFFD,4
:(� BFEF,4,BDFF,8,BFDF,8,BBFF,8,BFF7,4
D(� BDFF,4,BFEF,8,BDFF,8,BFDF,8,BBFF,4
N(� BFDF,4,BBFF,2,BFBF,8,B7FF,2,BDFF,4
���129:�28,0,29,39,25,12:�0:�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"
|M�128:�1:�28,0,31,39,30,12:�14,1)"Correct  Y/N";:A$=�:�(�A$�32)<>121��txK
@<�4:�TS:?&90=74:?&91=163:?&82=H:�X%=0�15:X%?&70=X%?TKBK:�
��"Press PLAY"
 l*RUN"CITAL"
#(���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,26:�
�

00000000  0d 00 14 0c 2a 46 58 32  30 30 2c 32 0d 00 1e 63  |....*FX200,2...c|
00000010  eb 34 3a d3 3d 26 33 30  30 30 3a ef 32 38 2c 30  |.4:.=&3000:.28,0|
00000020  2c 33 30 2c 33 39 2c 30  3a 41 24 3d 22 5f 5f 5f  |,30,39,0:A$="___|
00000030  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00000040  5f 22 3a f1 8a 31 30 29  41 24 27 27 8a 31 30 29  |_":..10)A$''.10)|
00000050  3b 22 41 70 70 72 6f 61  63 68 69 6e 67 20 20 43  |;"Approaching  C|
00000060  49 54 41 44 45 4c 22 3b  8a 31 30 29 3b 41 24 0d  |ITADEL";.10);A$.|
00000070  00 28 67 f1 8a 31 37 2c  37 29 22 41 75 74 68 6f  |.(g..17,7)"Autho|
00000080  72 22 27 3b 8a 31 32 29  3b 22 4d 69 63 68 61 65  |r"';.12);"Michae|
00000090  6c 20 4a 61 6b 6f 62 73  65 6e 22 27 27 3b 8a 31  |l Jakobsen"'';.1|
000000a0  34 29 3b 22 54 69 74 6c  65 20 53 63 72 65 65 6e  |4);"Title Screen|
000000b0  22 27 27 27 3a ef 35 3a  ec 34 30 30 2c 36 36 38  |"''':.5:.400,668|
000000c0  3a f1 22 4c 61 72 73 20  40 73 74 65 72 62 61 6c  |:."Lars @sterbal|
000000d0  6c 65 22 3a ef 34 0d 00  64 0f 2a 4c 4f 2e 22 43  |le":.4..d.*LO."C|
000000e0  49 54 41 54 22 0d 00 96  2d f2 54 53 3a 41 24 3d  |ITAT"...-.TS:A$=|
000000f0  22 15 3f 3f 3f 22 3a 3f  26 39 35 3d 28 3f 26 33  |".???":?&95=(?&3|
00000100  43 44 20 82 26 38 30 29  3a 41 24 3d 22 3f 3f 3f  |CD .&80):A$="???|
00000110  06 22 0d 00 c8 23 ef 32  33 3b 38 32 30 32 3b 30  |."...#.23;8202;0|
00000120  3b 30 3b 30 3b 31 32 2c  32 38 2c 30 2c 33 31 2c  |;0;0;12,28,0,31,|
00000130  33 39 2c 32 37 0d 01 f4  0b ee 85 e5 8d 64 74 41  |39,27........dtA|
00000140  0d 02 08 29 db 3a 54 24  3d 22 50 6c 65 61 73 65  |...).:T$="Please|
00000150  20 73 74 6f 70 20 74 68  65 20 54 61 70 65 22 3a  | stop the Tape":|
00000160  f1 8a 31 30 2c 32 29 54  24 0d 02 1c 47 fb 31 32  |..10,2)T$...G.12|
00000170  39 3a fb 30 3a db 3a f1  8a 31 30 2c 31 29 54 24  |9:.0:.:..10,1)T$|
00000180  27 3b 8a 31 38 29 3b 22  61 6e 64 22 27 3b 8a 31  |';.18);"and"';.1|
00000190  30 29 22 50 20 72 20 65  20 73 20 73 20 20 53 20  |0)"P r e s s  S |
000001a0  70 20 61 20 63 20 65 22  3a 2a 46 58 31 35 2c 31  |p a c e":*FX15,1|
000001b0  0d 02 30 08 41 24 3d be  0d 0b b8 0b ee 85 e5 8d  |..0.A$=.........|
000001c0  54 5c 4c 0d 0c 1c 22 fb  31 32 38 3a ef 32 36 2c  |T\L...".128:.26,|
000001d0  31 32 2c 31 39 2c 30 2c  31 3b 30 3b 31 39 2c 31  |12,19,0,1;0;19,1|
000001e0  2c 33 3b 30 3b 0d 0c e4  6b fb 31 3a f1 8a 38 2c  |,3;0;...k.1:..8,|
000001f0  32 29 22 50 6c 65 61 73  65 20 73 65 6c 65 63 74  |2)"Please select|
00000200  20 77 68 69 63 68 20 6b  65 79 22 3a f1 8a 38 2c  | which key":..8,|
00000210  33 29 22 4c 61 79 6f 75  74 20 79 6f 75 20 77 69  |3)"Layout you wi|
00000220  73 68 20 74 6f 20 75 73  65 2e 2e 2e 22 3a f1 8a  |sh to use...":..|
00000230  31 32 2c 35 29 22 31 20  20 20 20 20 20 20 32 20  |12,5)"1       2 |
00000240  20 20 20 20 20 20 33 20  20 20 20 20 20 20 34 22  |      3       4"|
00000250  0d 0d 16 7c 58 3d 32 3a  59 3d 37 3a f1 8a 58 2c  |...|X=2:Y=7:..X,|
00000260  59 29 22 4c 45 46 54 20  20 20 3a 22 3a f1 8a 58  |Y)"LEFT   :":..X|
00000270  2c 59 2b 32 29 22 52 49  47 48 54 20 20 3a 22 3a  |,Y+2)"RIGHT  :":|
00000280  f1 8a 58 2c 59 2b 34 29  22 55 50 20 20 20 20 20  |..X,Y+4)"UP     |
00000290  3a 22 3a f1 8a 58 2c 59  2b 36 29 22 44 4f 57 4e  |:":..X,Y+6)"DOWN|
000002a0  20 20 20 3a 22 3a f1 8a  58 2c 59 2b 38 29 22 41  |   :":..X,Y+8)"A|
000002b0  43 54 49 4f 4e 20 3a 22  3a f1 8a 58 2c 59 2b 31  |CTION :":..X,Y+1|
000002c0  30 29 22 53 50 45 4c 4c  20 20 3a 22 0d 0d ac 08  |0)"SPELL  :"....|
000002d0  58 3d 31 32 0d 0d b6 25  f1 8a 58 2c 59 29 22 5a  |X=12...%..X,Y)"Z|
000002e0  20 20 20 20 20 20 20 43  20 20 20 20 20 20 20 3c  |       C       <|
000002f0  20 20 20 20 20 20 20 57  22 0d 0d c0 27 f1 8a 58  |       W"...'..X|
00000300  2c 59 2b 32 29 22 58 20  20 20 20 20 20 20 56 20  |,Y+2)"X       V |
00000310  20 20 20 20 20 20 3e 20  20 20 20 20 20 20 45 22  |      >       E"|
00000320  0d 0d ca 27 f1 8a 58 2c  59 2b 34 29 22 2a 20 20  |...'..X,Y+4)"*  |
00000330  20 20 20 20 20 4c 20 20  20 20 20 20 20 46 20 20  |     L       F  |
00000340  20 20 20 20 20 4b 22 0d  0d d4 27 f1 8a 58 2c 59  |     K"...'..X,Y|
00000350  2b 36 29 22 3f 20 20 20  20 20 20 20 3c 20 20 20  |+6)"?       <   |
00000360  20 20 20 20 56 20 20 20  20 20 20 20 4d 22 0d 0d  |    V       M"..|
00000370  de 27 f1 8a 58 2c 59 2b  38 29 22 52 65 74 75 72  |.'..X,Y+8)"Retur|
00000380  6e 20 20 2b 20 20 20 20  20 20 20 44 20 20 20 20  |n  +       D    |
00000390  20 20 20 46 22 0d 0d e8  28 f1 8a 58 2c 59 2b 31  |   F"...(..X,Y+1|
000003a0  30 29 22 2d 2d 2d 20 53  70 61 63 65 20 20 6f 72  |0)"--- Space  or|
000003b0  20 20 53 68 69 66 74 20  2d 2d 2d 2d 22 0d 0e 10  |  Shift ----"...|
000003c0  8d ef 32 38 2c 30 2c 32  31 2c 33 39 2c 31 39 3a  |..28,0,21,39,19:|
000003d0  fb 31 32 38 2b 31 3a db  3a fb 30 3a f1 22 20 41  |.128+1:.:.0:." A|
000003e0  6c 74 65 72 6e 61 74 69  76 65 6c 79 20 79 6f 75  |lternatively you|
000003f0  20 6d 61 79 20 73 65 6c  65 63 74 20 4a 6f 79 73  | may select Joys|
00000400  74 69 63 6b 20 20 20 28  62 79 20 70 72 65 73 73  |tick   (by press|
00000410  69 6e 67 20 27 4a 27 20  77 68 69 6c 65 20 69 6e  |ing 'J' while in|
00000420  20 50 61 75 73 65 20 6d  6f 64 65 29 20 20 20 77  | Pause mode)   w|
00000430  68 65 6e 20 74 68 65 20  67 61 6d 65 20 68 61 73  |hen the game has|
00000440  20 6c 6f 61 64 65 64 2e  22 3b 0d 0e 74 36 ef 32  | loaded.";..t6.2|
00000450  38 2c 30 2c 32 34 2c 33  39 2c 32 32 3a fb 31 32  |8,0,24,39,22:.12|
00000460  38 3a db 3a fb 31 3a f1  8a 31 32 2c 31 29 22 45  |8:.:.1:..12,1)"E|
00000470  6e 74 65 72 20 31 2c 32  2c 33 20 6f 72 20 34 22  |nter 1,2,3 or 4"|
00000480  0d 0f 3c 1a f5 3a 4b 3d  a6 28 30 29 2d 34 38 3a  |..<..:K=.(0)-48:|
00000490  fd 20 4b 3e 30 80 20 4b  3c 35 0d 0f 46 1d db 3a  |. K>0. K<5..F..:|
000004a0  f1 8a 31 34 2c 31 29 22  4b 65 79 20 4c 61 79 6f  |..14,1)"Key Layo|
000004b0  75 74 20 22 3b c3 4b 0d  0f a0 0d 54 4b 42 4b 3d  |ut ";.K....TKBK=|
000004c0  26 43 30 30 0d 10 04 45  f7 28 34 33 39 30 2b 4b  |&C00...E.(4390+K|
000004d0  2a 31 30 29 3a e3 58 25  3d 30 b8 31 32 88 33 3a  |*10):.X%=0.12.3:|
000004e0  f3 41 24 2c 59 25 3a 58  25 21 54 4b 42 4b 3d a0  |.A$,Y%:X%!TKBK=.|
000004f0  28 22 26 22 2b 41 24 29  3a 58 25 3f 28 54 4b 42  |("&"+A$):X%?(TKB|
00000500  4b 2b 32 29 3d 59 25 3a  ed 0d 11 30 28 dc 20 42  |K+2)=Y%:...0(. B|
00000510  46 46 42 2c 34 2c 42 37  46 46 2c 38 2c 42 46 46  |FFB,4,B7FF,8,BFF|
00000520  37 2c 38 2c 41 46 46 46  2c 38 2c 42 46 46 44 2c  |7,8,AFFF,8,BFFD,|
00000530  34 0d 11 3a 28 dc 20 42  46 45 46 2c 34 2c 42 44  |4..:(. BFEF,4,BD|
00000540  46 46 2c 38 2c 42 46 44  46 2c 38 2c 42 42 46 46  |FF,8,BFDF,8,BBFF|
00000550  2c 38 2c 42 46 46 37 2c  34 0d 11 44 28 dc 20 42  |,8,BFF7,4..D(. B|
00000560  44 46 46 2c 34 2c 42 46  45 46 2c 38 2c 42 44 46  |DFF,4,BFEF,8,BDF|
00000570  46 2c 38 2c 42 46 44 46  2c 38 2c 42 42 46 46 2c  |F,8,BFDF,8,BBFF,|
00000580  34 0d 11 4e 28 dc 20 42  46 44 46 2c 34 2c 42 42  |4..N(. BFDF,4,BB|
00000590  46 46 2c 32 2c 42 46 42  46 2c 38 2c 42 37 46 46  |FF,2,BFBF,8,B7FF|
000005a0  2c 32 2c 42 44 46 46 2c  34 0d 13 88 a4 fb 31 32  |,2,BDFF,4.....12|
000005b0  39 3a ef 32 38 2c 30 2c  32 39 2c 33 39 2c 32 35  |9:.28,0,29,39,25|
000005c0  2c 31 32 3a fb 30 3a f1  8a 38 2c 31 29 22 41 72  |,12:.0:..8,1)"Ar|
000005d0  65 20 79 6f 75 20 4d 61  6c 65 20 6f 72 20 46 65  |e you Male or Fe|
000005e0  6d 61 6c 65 20 3f 22 3a  f1 8a 31 31 2c 33 29 22  |male ?":..11,3)"|
000005f0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 4d 20 6f  |Please enter M o|
00000600  72 20 46 22 3a 41 24 3d  be 3a db 3a f1 8a 31 33  |r F":A$=.:.:..13|
00000610  2c 32 29 3b 3a e7 28 97  41 24 84 33 32 29 3d 31  |,2);:.(.A$.32)=1|
00000620  30 32 8c 48 3d 31 3a f1  22 59 6f 75 20 61 72 65  |02.H=1:."You are|
00000630  20 46 65 6d 61 6c 65 22  8b 48 3d 30 3a f1 22 20  | Female".H=0:." |
00000640  59 6f 75 20 61 72 65 20  4d 61 6c 65 22 0d 15 7c  |You are Male"..||
00000650  4d fb 31 32 38 3a fb 31  3a ef 32 38 2c 30 2c 33  |M.128:.1:.28,0,3|
00000660  31 2c 33 39 2c 33 30 2c  31 32 3a f1 8a 31 34 2c  |1,39,30,12:..14,|
00000670  31 29 22 43 6f 72 72 65  63 74 20 20 59 2f 4e 22  |1)"Correct  Y/N"|
00000680  3b 3a 41 24 3d be 3a e7  28 97 41 24 84 33 32 29  |;:A$=.:.(.A$.32)|
00000690  3c 3e 31 32 31 8c 8d 74  78 4b 0d 1f 40 3c eb 34  |<>121..txK..@<.4|
000006a0  3a f2 54 53 3a 3f 26 39  30 3d 37 34 3a 3f 26 39  |:.TS:?&90=74:?&9|
000006b0  31 3d 31 36 33 3a 3f 26  38 32 3d 48 3a e3 58 25  |1=163:?&82=H:.X%|
000006c0  3d 30 b8 31 35 3a 58 25  3f 26 37 30 3d 58 25 3f  |=0.15:X%?&70=X%?|
000006d0  54 4b 42 4b 3a ed 0d 1f  a4 11 f1 22 50 72 65 73  |TKBK:......"Pres|
000006e0  73 20 50 4c 41 59 22 0d  20 6c 0f 2a 52 55 4e 22  |s PLAY". l.*RUN"|
000006f0  43 49 54 41 4c 22 0d 23  28 94 dd f2 54 53 3a d6  |CITAL".#(...TS:.|
00000700  26 34 32 30 30 3a f1 8a  31 33 2c 31 35 29 22 53  |&4200:..13,15)"S|
00000710  75 70 65 72 69 6f 72 22  3a f1 8a 31 33 2c 31 36  |uperior":..13,16|
00000720  29 22 53 6f 66 74 77 61  72 65 22 3a f1 8a 31 33  |)"Software":..13|
00000730  2c 31 37 29 22 50 72 65  73 65 6e 74 73 22 3a f1  |,17)"Presents":.|
00000740  8a 32 39 2c 32 38 29 22  43 2e 20 4d 69 63 68 61  |.29,28)"C. Micha|
00000750  65 6c 22 3b 8a 33 31 2c  32 39 29 3b 22 4a 61 6b  |el";.31,29);"Jak|
00000760  6f 62 73 65 6e 22 3a ef  31 39 2c 30 2c 36 3b 30  |obsen":.19,0,6;0|
00000770  3b 31 39 2c 31 2c 34 3b  30 3b 32 38 2c 31 30 2c  |;19,1,4;0;28,10,|
00000780  33 31 2c 32 38 2c 32 36  3a e1 0d ff              |31,28,26:...|
0000078c