Home » Archimedes archive » Acorn User » AU 1993-10.adf » !XenonDemo_Xenon2 » !Xenon2/!Run

!Xenon2/!Run

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 1993-10.adf » !XenonDemo_Xenon2
Filename: !Xenon2/!Run
Read OK:
File size: 029D bytes
Load address: 0000
Exec address: 0000
File contents
|                Xenon 2
|     
|
|             Version 1.2DT
|
|           For the Archimedes
|
|     Written by A.Neville & S.Annetts
|
| Original version by the Bitmap Brothers



Wimpslot -min 64K -max 64K

IF "<VPJPT$LIB>"<>"" THEN Unset VPJPT$LIB
RMEnsure VProtect 1.41 Run <Obey$Dir>.VPCheck
IF "<VPJPT$LIB>"<>"" THEN Error 0 Game loading cancelled.

Run <Obey$Dir>.JoyCheck

Set Xenon2$Dir <Obey$Dir>

IF "<Xenon2$Run>"="Yes" Then Error 0 You can't run two copies of Xenon 2 simultaneously...

RmEnsure DesktopTracker 1.11 RMLoad <Xenon2$Dir>.PlayMod -ac
RmEnsure TrackerModule  4.08 RMLoad <Xenon2$Dir>.TrMod

Run <Xenon2$Dir>.!RunImage
Run <Xenon2$Dir>.X2Mod
00000000  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00000010  20 58 65 6e 6f 6e 20 32  0a 7c 20 20 20 20 20 0a  | Xenon 2.|     .|
00000020  7c 0a 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  ||.|             |
00000030  56 65 72 73 69 6f 6e 20  31 2e 32 44 54 0a 7c 0a  |Version 1.2DT.|.|
00000040  7c 20 20 20 20 20 20 20  20 20 20 20 46 6f 72 20  ||           For |
00000050  74 68 65 20 41 72 63 68  69 6d 65 64 65 73 0a 7c  |the Archimedes.||
00000060  0a 7c 20 20 20 20 20 57  72 69 74 74 65 6e 20 62  |.|     Written b|
00000070  79 20 41 2e 4e 65 76 69  6c 6c 65 20 26 20 53 2e  |y A.Neville & S.|
00000080  41 6e 6e 65 74 74 73 0a  7c 0a 7c 20 4f 72 69 67  |Annetts.|.| Orig|
00000090  69 6e 61 6c 20 76 65 72  73 69 6f 6e 20 62 79 20  |inal version by |
000000a0  74 68 65 20 42 69 74 6d  61 70 20 42 72 6f 74 68  |the Bitmap Broth|
000000b0  65 72 73 0a 0a 0a 0a 57  69 6d 70 73 6c 6f 74 20  |ers....Wimpslot |
000000c0  2d 6d 69 6e 20 36 34 4b  20 2d 6d 61 78 20 36 34  |-min 64K -max 64|
000000d0  4b 0a 0a 49 46 20 22 3c  56 50 4a 50 54 24 4c 49  |K..IF "<VPJPT$LI|
000000e0  42 3e 22 3c 3e 22 22 20  54 48 45 4e 20 55 6e 73  |B>"<>"" THEN Uns|
000000f0  65 74 20 56 50 4a 50 54  24 4c 49 42 0a 52 4d 45  |et VPJPT$LIB.RME|
00000100  6e 73 75 72 65 20 56 50  72 6f 74 65 63 74 20 31  |nsure VProtect 1|
00000110  2e 34 31 20 52 75 6e 20  3c 4f 62 65 79 24 44 69  |.41 Run <Obey$Di|
00000120  72 3e 2e 56 50 43 68 65  63 6b 0a 49 46 20 22 3c  |r>.VPCheck.IF "<|
00000130  56 50 4a 50 54 24 4c 49  42 3e 22 3c 3e 22 22 20  |VPJPT$LIB>"<>"" |
00000140  54 48 45 4e 20 45 72 72  6f 72 20 30 20 47 61 6d  |THEN Error 0 Gam|
00000150  65 20 6c 6f 61 64 69 6e  67 20 63 61 6e 63 65 6c  |e loading cancel|
00000160  6c 65 64 2e 0a 0a 52 75  6e 20 3c 4f 62 65 79 24  |led...Run <Obey$|
00000170  44 69 72 3e 2e 4a 6f 79  43 68 65 63 6b 0a 0a 53  |Dir>.JoyCheck..S|
00000180  65 74 20 58 65 6e 6f 6e  32 24 44 69 72 20 3c 4f  |et Xenon2$Dir <O|
00000190  62 65 79 24 44 69 72 3e  0a 0a 49 46 20 22 3c 58  |bey$Dir>..IF "<X|
000001a0  65 6e 6f 6e 32 24 52 75  6e 3e 22 3d 22 59 65 73  |enon2$Run>"="Yes|
000001b0  22 20 54 68 65 6e 20 45  72 72 6f 72 20 30 20 59  |" Then Error 0 Y|
000001c0  6f 75 20 63 61 6e 27 74  20 72 75 6e 20 74 77 6f  |ou can't run two|
000001d0  20 63 6f 70 69 65 73 20  6f 66 20 58 65 6e 6f 6e  | copies of Xenon|
000001e0  20 32 20 73 69 6d 75 6c  74 61 6e 65 6f 75 73 6c  | 2 simultaneousl|
000001f0  79 2e 2e 2e 0a 0a 52 6d  45 6e 73 75 72 65 20 44  |y.....RmEnsure D|
00000200  65 73 6b 74 6f 70 54 72  61 63 6b 65 72 20 31 2e  |esktopTracker 1.|
00000210  31 31 20 52 4d 4c 6f 61  64 20 3c 58 65 6e 6f 6e  |11 RMLoad <Xenon|
00000220  32 24 44 69 72 3e 2e 50  6c 61 79 4d 6f 64 20 2d  |2$Dir>.PlayMod -|
00000230  61 63 0a 52 6d 45 6e 73  75 72 65 20 54 72 61 63  |ac.RmEnsure Trac|
00000240  6b 65 72 4d 6f 64 75 6c  65 20 20 34 2e 30 38 20  |kerModule  4.08 |
00000250  52 4d 4c 6f 61 64 20 3c  58 65 6e 6f 6e 32 24 44  |RMLoad <Xenon2$D|
00000260  69 72 3e 2e 54 72 4d 6f  64 0a 0a 52 75 6e 20 3c  |ir>.TrMod..Run <|
00000270  58 65 6e 6f 6e 32 24 44  69 72 3e 2e 21 52 75 6e  |Xenon2$Dir>.!Run|
00000280  49 6d 61 67 65 0a 52 75  6e 20 3c 58 65 6e 6f 6e  |Image.Run <Xenon|
00000290  32 24 44 69 72 3e 2e 58  32 4d 6f 64 0a           |2$Dir>.X2Mod.|
0000029d