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>