Home » Archimedes archive » Acorn User » AU 1997-08 A.adf » !IronLord/Iron7

!IronLord/Iron7

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 » Archimedes archive » Acorn User » AU 1997-08 A.adf
Filename: !IronLord/Iron7
Read OK:
File size: 029C bytes
Load address: FFFFFB46
Exec address: 1A153E76
File contents
   10REM >:IronLord.!IronLord.Iron7
   20REM (C) 1990 UBI soft.
   30REM Archimedes version by Cygnus Software Engineering Ltd.
   40:
   50ON ERROR PROCerror:END
   60:
   70*FX 112,1
   80*FX 113,1
   90VDU4:OFF:COLOUR128:CLS:OSCLI"IronLoad <IronLord$Dir>.Lose "+STR$~S%
  100COLOUR9:PRINTTAB(1,30);"Would you like another game (Y/N) ? ";
  110*IronFadeIn 23
  120*FX 21
  130ON:REPEAT:G$=GET$:UNTILINSTR("YyNn",G$)<>0
  140IF G$="Y" OR G$="y" PRINT"Yes" ELSE PRINT"No"
  150OFF:*IronFadeOut
  160IF G$="Y" OR G$="y" OSCLI"Load <IronLord$Dir>.Default "+STR$~HIMEM:CLS:VDU5:V%=0:Z%=1:ON ERROR OFF:CHAIN"<IronLord$Dir>.Iron1"
  170*FX 20
  180MODE0:OFF:PRINT"Goodbye":CALLHIMEM+&214
  190END
  200:
  210DEF PROCerror:ON ERROR OFF
  220MODE 15:OFF:CALLHIMEM+&214
  230*FX 20
  240IF ERR=17 PRINT"Goodbye." ELSE PRINT"Iron Lord has stopped because of a fatal error :-"''REPORT$
  250ENDPROC

 � >:IronLord.!IronLord.Iron7
� (C) 1990 UBI soft.
<� Archimedes version by Cygnus Software Engineering Ltd.
(:
2� � �error:�
<:
F
*FX 112,1
P
*FX 113,1
Z5�4:�:�128:�:�"IronLoad <IronLord$Dir>.Lose "+�~S%
d6�9:�1,30);"Would you like another game (Y/N) ? ";
n*IronFadeIn 23
x
*FX 21
��:�:G$=�:��"YyNn",G$)<>0
�$� G$="Y" � G$="y" �"Yes" � �"No"
��:*IronFadeOut
�f� G$="Y" � G$="y" �"Load <IronLord$Dir>.Default "+�~�:�:�5:V%=0:Z%=1:� � �:�"<IronLord$Dir>.Iron1"
�
*FX 20
��0:�:�"Goodbye":֓+&214
��
�:
�� �error:� � �
�� 15:�:֓+&214
�
*FX 20
�Q� �=17 �"Goodbye." � �"Iron Lord has stopped because of a fatal error :-"''�$
��
�
00000000  0d 00 0a 20 f4 20 3e 3a  49 72 6f 6e 4c 6f 72 64  |... . >:IronLord|
00000010  2e 21 49 72 6f 6e 4c 6f  72 64 2e 49 72 6f 6e 37  |.!IronLord.Iron7|
00000020  0d 00 14 18 f4 20 28 43  29 20 31 39 39 30 20 55  |..... (C) 1990 U|
00000030  42 49 20 73 6f 66 74 2e  0d 00 1e 3c f4 20 41 72  |BI soft....<. Ar|
00000040  63 68 69 6d 65 64 65 73  20 76 65 72 73 69 6f 6e  |chimedes version|
00000050  20 62 79 20 43 79 67 6e  75 73 20 53 6f 66 74 77  | by Cygnus Softw|
00000060  61 72 65 20 45 6e 67 69  6e 65 65 72 69 6e 67 20  |are Engineering |
00000070  4c 74 64 2e 0d 00 28 05  3a 0d 00 32 10 ee 20 85  |Ltd...(.:..2.. .|
00000080  20 f2 65 72 72 6f 72 3a  e0 0d 00 3c 05 3a 0d 00  | .error:...<.:..|
00000090  46 0d 2a 46 58 20 31 31  32 2c 31 0d 00 50 0d 2a  |F.*FX 112,1..P.*|
000000a0  46 58 20 31 31 33 2c 31  0d 00 5a 35 ef 34 3a 87  |FX 113,1..Z5.4:.|
000000b0  3a fb 31 32 38 3a db 3a  ff 22 49 72 6f 6e 4c 6f  |:.128:.:."IronLo|
000000c0  61 64 20 3c 49 72 6f 6e  4c 6f 72 64 24 44 69 72  |ad <IronLord$Dir|
000000d0  3e 2e 4c 6f 73 65 20 22  2b c3 7e 53 25 0d 00 64  |>.Lose "+.~S%..d|
000000e0  36 fb 39 3a f1 8a 31 2c  33 30 29 3b 22 57 6f 75  |6.9:..1,30);"Wou|
000000f0  6c 64 20 79 6f 75 20 6c  69 6b 65 20 61 6e 6f 74  |ld you like anot|
00000100  68 65 72 20 67 61 6d 65  20 28 59 2f 4e 29 20 3f  |her game (Y/N) ?|
00000110  20 22 3b 0d 00 6e 12 2a  49 72 6f 6e 46 61 64 65  | ";..n.*IronFade|
00000120  49 6e 20 32 33 0d 00 78  0a 2a 46 58 20 32 31 0d  |In 23..x.*FX 21.|
00000130  00 82 1c ee 3a f5 3a 47  24 3d be 3a fd a7 22 59  |....:.:G$=.:.."Y|
00000140  79 4e 6e 22 2c 47 24 29  3c 3e 30 0d 00 8c 24 e7  |yNn",G$)<>0...$.|
00000150  20 47 24 3d 22 59 22 20  84 20 47 24 3d 22 79 22  | G$="Y" . G$="y"|
00000160  20 f1 22 59 65 73 22 20  8b 20 f1 22 4e 6f 22 0d  | ."Yes" . ."No".|
00000170  00 96 12 87 3a 2a 49 72  6f 6e 46 61 64 65 4f 75  |....:*IronFadeOu|
00000180  74 0d 00 a0 66 e7 20 47  24 3d 22 59 22 20 84 20  |t...f. G$="Y" . |
00000190  47 24 3d 22 79 22 20 ff  22 4c 6f 61 64 20 3c 49  |G$="y" ."Load <I|
000001a0  72 6f 6e 4c 6f 72 64 24  44 69 72 3e 2e 44 65 66  |ronLord$Dir>.Def|
000001b0  61 75 6c 74 20 22 2b c3  7e 93 3a db 3a ef 35 3a  |ault "+.~.:.:.5:|
000001c0  56 25 3d 30 3a 5a 25 3d  31 3a ee 20 85 20 87 3a  |V%=0:Z%=1:. . .:|
000001d0  d7 22 3c 49 72 6f 6e 4c  6f 72 64 24 44 69 72 3e  |."<IronLord$Dir>|
000001e0  2e 49 72 6f 6e 31 22 0d  00 aa 0a 2a 46 58 20 32  |.Iron1"....*FX 2|
000001f0  30 0d 00 b4 1b eb 30 3a  87 3a f1 22 47 6f 6f 64  |0.....0:.:."Good|
00000200  62 79 65 22 3a d6 93 2b  26 32 31 34 0d 00 be 05  |bye":..+&214....|
00000210  e0 0d 00 c8 05 3a 0d 00  d2 12 dd 20 f2 65 72 72  |.....:..... .err|
00000220  6f 72 3a ee 20 85 20 87  0d 00 dc 12 eb 20 31 35  |or:. . ...... 15|
00000230  3a 87 3a d6 93 2b 26 32  31 34 0d 00 e6 0a 2a 46  |:.:..+&214....*F|
00000240  58 20 32 30 0d 00 f0 51  e7 20 9f 3d 31 37 20 f1  |X 20...Q. .=17 .|
00000250  22 47 6f 6f 64 62 79 65  2e 22 20 8b 20 f1 22 49  |"Goodbye." . ."I|
00000260  72 6f 6e 20 4c 6f 72 64  20 68 61 73 20 73 74 6f  |ron Lord has sto|
00000270  70 70 65 64 20 62 65 63  61 75 73 65 20 6f 66 20  |pped because of |
00000280  61 20 66 61 74 61 6c 20  65 72 72 6f 72 20 3a 2d  |a fatal error :-|
00000290  22 27 27 f6 24 0d 00 fa  05 e1 0d ff              |"''.$.......|
0000029c