Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars » StarInfo/Hammond/!ResSave/!Run

StarInfo/Hammond/!ResSave/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars
Filename: StarInfo/Hammond/!ResSave/!Run
Read OK:
File size: 01F5 bytes
Load address: 0000
Exec address: 0000
File contents
| Run file for !ResSave
| � Mark Hammond 1994
|
| Check OS version:
|
Set ResSave$Dir <Obey$Dir>
RmEnsure UtilityModule 3.00 Error Why don't you upgrade to RISC OS 3?? It's very easy, useful and above all you could use my program!
|RmEnsure RegisterMod 1.00 RmLoad <ResSave$Dir>.Register
Set Register$Dir <ResSave$Dir>
| Load sprites
|
IconSprites <ResSave$Dir>.!Sprites
| Run the program
|
Set Alias$Register <Register$Dir>.Register %0 %1 %2 %3
Wimpslot -min 32k -max 32k
Run <ResSave$Dir>.!RunImage
00000000  7c 20 52 75 6e 20 66 69  6c 65 20 66 6f 72 20 21  || Run file for !|
00000010  52 65 73 53 61 76 65 0a  7c 20 a9 20 4d 61 72 6b  |ResSave.| . Mark|
00000020  20 48 61 6d 6d 6f 6e 64  20 31 39 39 34 0a 7c 0a  | Hammond 1994.|.|
00000030  7c 20 43 68 65 63 6b 20  4f 53 20 76 65 72 73 69  || Check OS versi|
00000040  6f 6e 3a 0a 7c 0a 53 65  74 20 52 65 73 53 61 76  |on:.|.Set ResSav|
00000050  65 24 44 69 72 20 3c 4f  62 65 79 24 44 69 72 3e  |e$Dir <Obey$Dir>|
00000060  0a 52 6d 45 6e 73 75 72  65 20 55 74 69 6c 69 74  |.RmEnsure Utilit|
00000070  79 4d 6f 64 75 6c 65 20  33 2e 30 30 20 45 72 72  |yModule 3.00 Err|
00000080  6f 72 20 57 68 79 20 64  6f 6e 27 74 20 79 6f 75  |or Why don't you|
00000090  20 75 70 67 72 61 64 65  20 74 6f 20 52 49 53 43  | upgrade to RISC|
000000a0  20 4f 53 20 33 3f 3f 20  49 74 27 73 20 76 65 72  | OS 3?? It's ver|
000000b0  79 20 65 61 73 79 2c 20  75 73 65 66 75 6c 20 61  |y easy, useful a|
000000c0  6e 64 20 61 62 6f 76 65  20 61 6c 6c 20 79 6f 75  |nd above all you|
000000d0  20 63 6f 75 6c 64 20 75  73 65 20 6d 79 20 70 72  | could use my pr|
000000e0  6f 67 72 61 6d 21 0a 7c  52 6d 45 6e 73 75 72 65  |ogram!.|RmEnsure|
000000f0  20 52 65 67 69 73 74 65  72 4d 6f 64 20 31 2e 30  | RegisterMod 1.0|
00000100  30 20 52 6d 4c 6f 61 64  20 3c 52 65 73 53 61 76  |0 RmLoad <ResSav|
00000110  65 24 44 69 72 3e 2e 52  65 67 69 73 74 65 72 0a  |e$Dir>.Register.|
00000120  53 65 74 20 52 65 67 69  73 74 65 72 24 44 69 72  |Set Register$Dir|
00000130  20 3c 52 65 73 53 61 76  65 24 44 69 72 3e 0a 7c  | <ResSave$Dir>.||
00000140  20 4c 6f 61 64 20 73 70  72 69 74 65 73 0a 7c 0a  | Load sprites.|.|
00000150  49 63 6f 6e 53 70 72 69  74 65 73 20 3c 52 65 73  |IconSprites <Res|
00000160  53 61 76 65 24 44 69 72  3e 2e 21 53 70 72 69 74  |Save$Dir>.!Sprit|
00000170  65 73 0a 7c 20 52 75 6e  20 74 68 65 20 70 72 6f  |es.| Run the pro|
00000180  67 72 61 6d 0a 7c 0a 53  65 74 20 41 6c 69 61 73  |gram.|.Set Alias|
00000190  24 52 65 67 69 73 74 65  72 20 3c 52 65 67 69 73  |$Register <Regis|
000001a0  74 65 72 24 44 69 72 3e  2e 52 65 67 69 73 74 65  |ter$Dir>.Registe|
000001b0  72 20 25 30 20 25 31 20  25 32 20 25 33 0a 57 69  |r %0 %1 %2 %3.Wi|
000001c0  6d 70 73 6c 6f 74 20 2d  6d 69 6e 20 33 32 6b 20  |mpslot -min 32k |
000001d0  2d 6d 61 78 20 33 32 6b  0a 52 75 6e 20 3c 52 65  |-max 32k.Run <Re|
000001e0  73 53 61 76 65 24 44 69  72 3e 2e 21 52 75 6e 49  |sSave$Dir>.!RunI|
000001f0  6d 61 67 65 0a                                    |mage.|
000001f5