Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape09a_acorn_play_it_again_sam_1.wav » CITADEL

CITADEL

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape09a_acorn_play_it_again_sam_1.wav
Filename: CITADEL
Read OK:
File size: 078C bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
   20*FX200,2
   30MODE4:HIMEM=&3000:VDU28,0,30,39,0:A$="____________________":PRINTTAB(10)A$''TAB(10);"Approaching  CITADEL";TAB(10);A$
   40PRINTTAB(17,7)"Author"';TAB(12);"Michael Jakobsen"'';TAB(14);"Title Screen"''':VDU5:MOVE400,668:PRINT"Lars @sterballe":VDU4
  100*LO."CITAT"
  150PROCTS:A$="???":?&95=(?&3CD EOR&80):A$="???"
  200VDU23;8202;0;0;0;12,28,0,31,39,27
  500ONERRORGOTO500
  520CLS:T$="Please stop the Tape":PRINTTAB(10,2)T$
  540COLOUR129:COLOUR0:CLS:PRINTTAB(10,1)T$';TAB(18);"and"';TAB(10)"P r e s s  S p a c e":*FX15,1
  560A$=GET$
 3000ONERRORGOTO3100
 3100COLOUR128:VDU26,12,19,0,1;0;19,1,3;0;
 3300COLOUR1:PRINTTAB(8,2)"Please select which key":PRINTTAB(8,3)"Layout you wish to use...":PRINTTAB(12,5)"1       2       3       4"
 3350X=2:Y=7:PRINTTAB(X,Y)"LEFT   :":PRINTTAB(X,Y+2)"RIGHT  :":PRINTTAB(X,Y+4)"UP     :":PRINTTAB(X,Y+6)"DOWN   :":PRINTTAB(X,Y+8)"ACTION :":PRINTTAB(X,Y+10)"SPELL  :"
 3500X=12
 3510PRINTTAB(X,Y)"Z       C       <       W"
 3520PRINTTAB(X,Y+2)"X       V       >       E"
 3530PRINTTAB(X,Y+4)"*       L       F       K"
 3540PRINTTAB(X,Y+6)"?       <       V       M"
 3550PRINTTAB(X,Y+8)"Return  +       D       F"
 3560PRINTTAB(X,Y+10)"--- Space  or  Shift ----"
 3600VDU28,0,21,39,19:COLOUR128+1:CLS:COLOUR0:PRINT" Alternatively you may select Joystick   (by pressing 'J' while in Pause mode)   when the game has loaded.";
 3700VDU28,0,24,39,22:COLOUR128:CLS:COLOUR1:PRINTTAB(12,1)"Enter 1,2,3 or 4"
 3900REPEAT:K=INKEY(0)-48:UNTIL K>0AND K<5
 3910CLS:PRINTTAB(14,1)"Key Layout ";STR$K
 4000TKBK=&C00
 4100RESTORE(4390+K*10):FORX%=0TO12STEP3:READA$,Y%:X%!TKBK=EVAL("&"+A$):X%?(TKBK+2)=Y%:NEXT
 4400DATA BFFB,4,B7FF,8,BFF7,8,AFFF,8,BFFD,4
 4410DATA BFEF,4,BDFF,8,BFDF,8,BBFF,8,BFF7,4
 4420DATA BDFF,4,BFEF,8,BDFF,8,BFDF,8,BBFF,4
 4430DATA BFDF,4,BBFF,2,BFBF,8,B7FF,2,BDFF,4
 5000COLOUR129:VDU28,0,29,39,25,12:COLOUR0:PRINTTAB(8,1)"Are you Male or Female ?":PRINTTAB(11,3)"Please enter M or F":A$=GET$:CLS:PRINTTAB(13,2);:IF(ASCA$OR32)=102THENH=1:PRINT"You are Female"ELSEH=0:PRINT" You are Male"
 5500COLOUR128:COLOUR1:VDU28,0,31,39,30,12:PRINTTAB(14,1)"Correct  Y/N";:A$=GET$:IF(ASCA$OR32)<>121THEN3000
 8000MODE4:PROCTS:?&90=74:?&91=163:?&82=H:FORX%=0TO15:X%?&70=X%?TKBK:NEXT
 8100PRINT"Press PLAY"
 8300*RUN"CITAL"
 9000DEFPROCTS:CALL&4200:PRINTTAB(13,15)"Superior":PRINTTAB(13,16)"Software":PRINTTAB(13,17)"Presents":PRINTTAB(29,28)"C. Michael";TAB(31,29);"Jakobsen":VDU19,0,6;0;19,1,4;0;28,10,31,28,26:ENDPROC
*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
CITADEL.m0
CITADEL.m1
CITADEL.m2
CITADEL.m4
CITADEL.m5