| 1 |
james |
26 |
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> |