Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s » PD/!ADVENTURE/!RUN

PD/!ADVENTURE/!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 Computing » 1995 01 subscription disc.adf » 9501s
Filename: PD/!ADVENTURE/!RUN
Read OK:
File size: 02C5 bytes
Load address: 0000
Exec address: 0000
File contents
| > !Adventure V1.00
|
| The original Colossal Cave Adventure
|
| Converted for the Archimedes by Ray Loades-Bannon
|
IconSprites <Obey$Dir>.!Sprites
|
if "<System$Path>" = "" then Error 0 System resources cannot be found. Try putting in RISC OS Applications disc 1 and clicking on the floppy disk icon then trying again.
|
RMEnsure SharedCLibrary 1.02 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 1.02 Error Version 1.02 or later of the shared C library is needed by this application and was not found.
|
If "%0" <> "WINDOW" THEN Echo <22><0><19><0><16><32><32><96><19><0><24><32><32><96><19><1><16><224><192><64>
Wimpslot -min 128K -max 128K
Set  Adventure$Dir <Obey$Dir>
Run  <Obey$Dir>.!RunImage %*0
00000000  7c 20 3e 20 21 41 64 76  65 6e 74 75 72 65 20 56  || > !Adventure V|
00000010  31 2e 30 30 0a 7c 0a 7c  20 54 68 65 20 6f 72 69  |1.00.|.| The ori|
00000020  67 69 6e 61 6c 20 43 6f  6c 6f 73 73 61 6c 20 43  |ginal Colossal C|
00000030  61 76 65 20 41 64 76 65  6e 74 75 72 65 0a 7c 0a  |ave Adventure.|.|
00000040  7c 20 43 6f 6e 76 65 72  74 65 64 20 66 6f 72 20  || Converted for |
00000050  74 68 65 20 41 72 63 68  69 6d 65 64 65 73 20 62  |the Archimedes b|
00000060  79 20 52 61 79 20 4c 6f  61 64 65 73 2d 42 61 6e  |y Ray Loades-Ban|
00000070  6e 6f 6e 0a 7c 0a 49 63  6f 6e 53 70 72 69 74 65  |non.|.IconSprite|
00000080  73 20 3c 4f 62 65 79 24  44 69 72 3e 2e 21 53 70  |s <Obey$Dir>.!Sp|
00000090  72 69 74 65 73 0a 7c 0a  69 66 20 22 3c 53 79 73  |rites.|.if "<Sys|
000000a0  74 65 6d 24 50 61 74 68  3e 22 20 3d 20 22 22 20  |tem$Path>" = "" |
000000b0  74 68 65 6e 20 45 72 72  6f 72 20 30 20 53 79 73  |then Error 0 Sys|
000000c0  74 65 6d 20 72 65 73 6f  75 72 63 65 73 20 63 61  |tem resources ca|
000000d0  6e 6e 6f 74 20 62 65 20  66 6f 75 6e 64 2e 20 54  |nnot be found. T|
000000e0  72 79 20 70 75 74 74 69  6e 67 20 69 6e 20 52 49  |ry putting in RI|
000000f0  53 43 20 4f 53 20 41 70  70 6c 69 63 61 74 69 6f  |SC OS Applicatio|
00000100  6e 73 20 64 69 73 63 20  31 20 61 6e 64 20 63 6c  |ns disc 1 and cl|
00000110  69 63 6b 69 6e 67 20 6f  6e 20 74 68 65 20 66 6c  |icking on the fl|
00000120  6f 70 70 79 20 64 69 73  6b 20 69 63 6f 6e 20 74  |oppy disk icon t|
00000130  68 65 6e 20 74 72 79 69  6e 67 20 61 67 61 69 6e  |hen trying again|
00000140  2e 0a 7c 0a 52 4d 45 6e  73 75 72 65 20 53 68 61  |..|.RMEnsure Sha|
00000150  72 65 64 43 4c 69 62 72  61 72 79 20 31 2e 30 32  |redCLibrary 1.02|
00000160  20 52 4d 4c 6f 61 64 20  53 79 73 74 65 6d 3a 4d  | RMLoad System:M|
00000170  6f 64 75 6c 65 73 2e 43  4c 69 62 0a 52 4d 45 6e  |odules.CLib.RMEn|
00000180  73 75 72 65 20 53 68 61  72 65 64 43 4c 69 62 72  |sure SharedCLibr|
00000190  61 72 79 20 31 2e 30 32  20 45 72 72 6f 72 20 56  |ary 1.02 Error V|
000001a0  65 72 73 69 6f 6e 20 31  2e 30 32 20 6f 72 20 6c  |ersion 1.02 or l|
000001b0  61 74 65 72 20 6f 66 20  74 68 65 20 73 68 61 72  |ater of the shar|
000001c0  65 64 20 43 20 6c 69 62  72 61 72 79 20 69 73 20  |ed C library is |
000001d0  6e 65 65 64 65 64 20 62  79 20 74 68 69 73 20 61  |needed by this a|
000001e0  70 70 6c 69 63 61 74 69  6f 6e 20 61 6e 64 20 77  |pplication and w|
000001f0  61 73 20 6e 6f 74 20 66  6f 75 6e 64 2e 0a 7c 0a  |as not found..|.|
00000200  49 66 20 22 25 30 22 20  3c 3e 20 22 57 49 4e 44  |If "%0" <> "WIND|
00000210  4f 57 22 20 54 48 45 4e  20 45 63 68 6f 20 3c 32  |OW" THEN Echo <2|
00000220  32 3e 3c 30 3e 3c 31 39  3e 3c 30 3e 3c 31 36 3e  |2><0><19><0><16>|
00000230  3c 33 32 3e 3c 33 32 3e  3c 39 36 3e 3c 31 39 3e  |<32><32><96><19>|
00000240  3c 30 3e 3c 32 34 3e 3c  33 32 3e 3c 33 32 3e 3c  |<0><24><32><32><|
00000250  39 36 3e 3c 31 39 3e 3c  31 3e 3c 31 36 3e 3c 32  |96><19><1><16><2|
00000260  32 34 3e 3c 31 39 32 3e  3c 36 34 3e 0a 57 69 6d  |24><192><64>.Wim|
00000270  70 73 6c 6f 74 20 2d 6d  69 6e 20 31 32 38 4b 20  |pslot -min 128K |
00000280  2d 6d 61 78 20 31 32 38  4b 0a 53 65 74 20 20 41  |-max 128K.Set  A|
00000290  64 76 65 6e 74 75 72 65  24 44 69 72 20 3c 4f 62  |dventure$Dir <Ob|
000002a0  65 79 24 44 69 72 3e 0a  52 75 6e 20 20 3c 4f 62  |ey$Dir>.Run  <Ob|
000002b0  65 79 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ey$Dir>.!RunImag|
000002c0  65 20 25 2a 30                                    |e %*0|
000002c5