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

| > !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 96k

| 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 96k
Wimpslot -min 64k -max 64k

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