| > !Energy.!Run
|
| Run File for Translational and Rotational Populations and Spectra
|
| by Chris Johnson
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
| Follow PRM (4:497) advice and prevent multiple running
|
If "<Energy$Running>" = "yes" Then Error Energy is already running
|
IconSprites <Obey$Dir>.!Sprites
|
|
| Find path to file
Set Energy$Dir <Obey$Dir>
|
set temp$flag 1
RMEnsure ABCLibrary 0 set temp$flag 0
RMensure ABCLibrary 4.13 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad System:Modules.ABCLib
RMensure ABCLibrary 4.13 Error You need the ABClibrary ver 4.13 or later installed
|
set temp$flag 1
RMEnsure CJWimpUtil 0 set temp$flag 0
RMEnsure CJWimpUtil 0.25 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad System:Modules.CJWimpUtil
RMEnsure CJWimpUtil 0.25 Error You need the CJWimpUtil module ver 0.25 or later installed
|
unset temp$flag
|
| Check memory allocation
WimpSlot -min 84K -max 84K
|
| Now start program
Run <Obey$Dir>.!RunImage
