Contents of /archive/createj/CreateJ/!Run,feb

Set CreateJ$RunImage <Obey$Dir>.!Main
Set CreateJCode$Path <Obey$Dir>.Basic.
Set Obey$Dir <Obey$Dir>.^.!CreateJ
RMEnsure DDEUtils 1.53 RMLoad System:Modules.DDEUtils

| > !CreateJ.!Run
|
| Load sprite files
IconSprites <Obey$Dir>.!Sprites

| Ensure RISC OS 3.10
RMEnsure UtilityModule 3.10 Error Sorry, this application is only suitable for use with RISC OS 3.10 or later versions.

| Check memory allocation
WimpSlot -min 384k

| Set system variables
Set CreateJ$Dir <Obey$Dir>

| Modules
Set CreateJModules$Path System:Modules.,<Obey$Dir>.Modules.
Set Alias$RMLoadIt RMEnsure %%0 %%1 RMLoad CreateJModules:%%2|MRMEnsure %%0 %%1 Error CreateJ needs %%0 (%%2) %%1 or later.
RMLoadIt WimpExtension 2.18 WimpExt
Unset CreateJModules$Path
Unset Alias$RMLoadIt

| Set Memory
Wimpslot -min 384k
Wimpslot -min 96k -max 96k

| Run Program
Run <CreateJ$RunImage>
1	Set CreateJ$RunImage <Obey$Dir>.!Main
2	Set CreateJCode$Path <Obey$Dir>.Basic.
3	Set Obey$Dir <Obey$Dir>.^.!CreateJ
4	RMEnsure DDEUtils 1.53 RMLoad System:Modules.DDEUtils
5
6	\| > !CreateJ.!Run
7	\|
8	\| Load sprite files
9	IconSprites <Obey$Dir>.!Sprites
10
11	\| Ensure RISC OS 3.10
12	RMEnsure UtilityModule 3.10 Error Sorry, this application is only suitable for use with RISC OS 3.10 or later versions.
13
14	\| Check memory allocation
15	WimpSlot -min 384k
16
17	\| Set system variables
18	Set CreateJ$Dir <Obey$Dir>
19
20	\| Modules
21	Set CreateJModules$Path System:Modules.,<Obey$Dir>.Modules.
22	Set Alias$RMLoadIt RMEnsure %%0 %%1 RMLoad CreateJModules:%%2\|MRMEnsure %%0 %%1 Error CreateJ needs %%0 (%%2) %%1 or later.
23	RMLoadIt WimpExtension 2.18 WimpExt
24	Unset CreateJModules$Path
25	Unset Alias$RMLoadIt
26
27	\| Set Memory
28	Wimpslot -min 384k
29	Wimpslot -min 96k -max 96k
30
31	\| Run Program
32	Run <CreateJ$RunImage>