Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » Process » !Process/!Run

!Process/!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 » Acorn User - Shareware Collection (1993).adf » Process
Filename: !Process/!Run
Read OK:
File size: 0385 bytes
Load address: 0000
Exec address: 0000
File contents
|
| !Run file for !Process
|

Set Process$Dir <Obey$Dir>

| RISC OS 3 needed
RMEnsure UtilityModule 3.00 Error You need RISC OS 3 to run !Process

| Load some sprites
IconSprites <Process$Dir>.!Sprites
IconSprites <Process$Dir>.Sprites

| AIM and CLEAR filetypes
Set File$Type_004 AIM
Set File$Type_690 Clear

| And load some modules
RMEnsure InterfaceManager 2.00 RMLoad <Process$Dir>.Resources.Interface
RMEnsure ColourMap 1.04 RMLoad <Process$Dir>.Resources.ColourMap
RMEnsure Ups 1.03 RMLoad <Process$Dir>.Resources.Ups
RMEnsure Process 1.00 RMLoad <Process$Dir>.Resources.ColourPro

| Set the options, always lower case
Set Process$Options -max2 -tools
Set Process$WindowTitle %%0:%%7.%%2.%%3 at %%8x%%9%%

| Get some memory
| In non-multisync modes, you can probably get away with 160k
WimpSlot -min 256k -max 256k

| And off we go
Run <Process$Dir>.Resources.!Intro
Run <Process$Dir>.!RunImage
00000000  7c 0a 7c 20 21 52 75 6e  20 66 69 6c 65 20 66 6f  ||.| !Run file fo|
00000010  72 20 21 50 72 6f 63 65  73 73 0a 7c 0a 0a 53 65  |r !Process.|..Se|
00000020  74 20 50 72 6f 63 65 73  73 24 44 69 72 20 3c 4f  |t Process$Dir <O|
00000030  62 65 79 24 44 69 72 3e  0a 0a 7c 20 52 49 53 43  |bey$Dir>..| RISC|
00000040  20 4f 53 20 33 20 6e 65  65 64 65 64 0a 52 4d 45  | OS 3 needed.RME|
00000050  6e 73 75 72 65 20 55 74  69 6c 69 74 79 4d 6f 64  |nsure UtilityMod|
00000060  75 6c 65 20 33 2e 30 30  20 45 72 72 6f 72 20 59  |ule 3.00 Error Y|
00000070  6f 75 20 6e 65 65 64 20  52 49 53 43 20 4f 53 20  |ou need RISC OS |
00000080  33 20 74 6f 20 72 75 6e  20 21 50 72 6f 63 65 73  |3 to run !Proces|
00000090  73 0a 0a 7c 20 4c 6f 61  64 20 73 6f 6d 65 20 73  |s..| Load some s|
000000a0  70 72 69 74 65 73 0a 49  63 6f 6e 53 70 72 69 74  |prites.IconSprit|
000000b0  65 73 20 3c 50 72 6f 63  65 73 73 24 44 69 72 3e  |es <Process$Dir>|
000000c0  2e 21 53 70 72 69 74 65  73 0a 49 63 6f 6e 53 70  |.!Sprites.IconSp|
000000d0  72 69 74 65 73 20 3c 50  72 6f 63 65 73 73 24 44  |rites <Process$D|
000000e0  69 72 3e 2e 53 70 72 69  74 65 73 0a 0a 7c 20 41  |ir>.Sprites..| A|
000000f0  49 4d 20 61 6e 64 20 43  4c 45 41 52 20 66 69 6c  |IM and CLEAR fil|
00000100  65 74 79 70 65 73 0a 53  65 74 20 46 69 6c 65 24  |etypes.Set File$|
00000110  54 79 70 65 5f 30 30 34  20 41 49 4d 0a 53 65 74  |Type_004 AIM.Set|
00000120  20 46 69 6c 65 24 54 79  70 65 5f 36 39 30 20 43  | File$Type_690 C|
00000130  6c 65 61 72 0a 0a 7c 20  41 6e 64 20 6c 6f 61 64  |lear..| And load|
00000140  20 73 6f 6d 65 20 6d 6f  64 75 6c 65 73 0a 52 4d  | some modules.RM|
00000150  45 6e 73 75 72 65 20 49  6e 74 65 72 66 61 63 65  |Ensure Interface|
00000160  4d 61 6e 61 67 65 72 20  32 2e 30 30 20 52 4d 4c  |Manager 2.00 RML|
00000170  6f 61 64 20 3c 50 72 6f  63 65 73 73 24 44 69 72  |oad <Process$Dir|
00000180  3e 2e 52 65 73 6f 75 72  63 65 73 2e 49 6e 74 65  |>.Resources.Inte|
00000190  72 66 61 63 65 0a 52 4d  45 6e 73 75 72 65 20 43  |rface.RMEnsure C|
000001a0  6f 6c 6f 75 72 4d 61 70  20 31 2e 30 34 20 52 4d  |olourMap 1.04 RM|
000001b0  4c 6f 61 64 20 3c 50 72  6f 63 65 73 73 24 44 69  |Load <Process$Di|
000001c0  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 6f 6c  |r>.Resources.Col|
000001d0  6f 75 72 4d 61 70 0a 52  4d 45 6e 73 75 72 65 20  |ourMap.RMEnsure |
000001e0  55 70 73 20 31 2e 30 33  20 52 4d 4c 6f 61 64 20  |Ups 1.03 RMLoad |
000001f0  3c 50 72 6f 63 65 73 73  24 44 69 72 3e 2e 52 65  |<Process$Dir>.Re|
00000200  73 6f 75 72 63 65 73 2e  55 70 73 0a 52 4d 45 6e  |sources.Ups.RMEn|
00000210  73 75 72 65 20 50 72 6f  63 65 73 73 20 31 2e 30  |sure Process 1.0|
00000220  30 20 52 4d 4c 6f 61 64  20 3c 50 72 6f 63 65 73  |0 RMLoad <Proces|
00000230  73 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |s$Dir>.Resources|
00000240  2e 43 6f 6c 6f 75 72 50  72 6f 0a 0a 7c 20 53 65  |.ColourPro..| Se|
00000250  74 20 74 68 65 20 6f 70  74 69 6f 6e 73 2c 20 61  |t the options, a|
00000260  6c 77 61 79 73 20 6c 6f  77 65 72 20 63 61 73 65  |lways lower case|
00000270  0a 53 65 74 20 50 72 6f  63 65 73 73 24 4f 70 74  |.Set Process$Opt|
00000280  69 6f 6e 73 20 2d 6d 61  78 32 20 2d 74 6f 6f 6c  |ions -max2 -tool|
00000290  73 0a 53 65 74 20 50 72  6f 63 65 73 73 24 57 69  |s.Set Process$Wi|
000002a0  6e 64 6f 77 54 69 74 6c  65 20 25 25 30 3a 25 25  |ndowTitle %%0:%%|
000002b0  37 2e 25 25 32 2e 25 25  33 20 61 74 20 25 25 38  |7.%%2.%%3 at %%8|
000002c0  78 25 25 39 25 25 0a 0a  7c 20 47 65 74 20 73 6f  |x%%9%%..| Get so|
000002d0  6d 65 20 6d 65 6d 6f 72  79 0a 7c 20 49 6e 20 6e  |me memory.| In n|
000002e0  6f 6e 2d 6d 75 6c 74 69  73 79 6e 63 20 6d 6f 64  |on-multisync mod|
000002f0  65 73 2c 20 79 6f 75 20  63 61 6e 20 70 72 6f 62  |es, you can prob|
00000300  61 62 6c 79 20 67 65 74  20 61 77 61 79 20 77 69  |ably get away wi|
00000310  74 68 20 31 36 30 6b 0a  57 69 6d 70 53 6c 6f 74  |th 160k.WimpSlot|
00000320  20 2d 6d 69 6e 20 32 35  36 6b 20 2d 6d 61 78 20  | -min 256k -max |
00000330  32 35 36 6b 0a 0a 7c 20  41 6e 64 20 6f 66 66 20  |256k..| And off |
00000340  77 65 20 67 6f 0a 52 75  6e 20 3c 50 72 6f 63 65  |we go.Run <Proce|
00000350  73 73 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |ss$Dir>.Resource|
00000360  73 2e 21 49 6e 74 72 6f  0a 52 75 6e 20 3c 50 72  |s.!Intro.Run <Pr|
00000370  6f 63 65 73 73 24 44 69  72 3e 2e 21 52 75 6e 49  |ocess$Dir>.!RunI|
00000380  6d 61 67 65 0a                                    |mage.|
00000385