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> |