|
| !Run for EasyAnim
|  Alpha Programming 1998
|
| Created 15/5/1995
| -----------------
|

|
| Load sprites & set directory
| ----------------------------
|
IconSprites <Obey$Dir>.!Sprites
Set EasyAnim$Dir <Obey$Dir>
Set EasyAnim$Resources <Obey$Dir>.Resources

|
| Check OS
| --------
|
RMEnsure UtilityModule 3.10 Error This program is not suitable for use on any version of RISC OS older than RISC OS 3.10.

|
| Set Scrap
| ---------
|
IF "<Wimp$ScrapDir>" = "" THEN Error Scrap directory not found. Please locate !Scrap. ELSE Set EasyAnim$Scrap <Wimp$ScrapDir>.EasyAnim
Remove <EasyAnim$Scrap>

|
| Watch out for old, incompatible modules
| ---------------------------------------
|
Set SWI$Errors Yes
RMEnsure NSoftModule 0.00 Set SWI$Errors No
IF "<SWI$Errors>" = "Yes" THEN RMKill NSoftModule
UnSet SWI$Errors

|
| Load modules
| ------------
|
Set Modules$Path <EasyAnim$Dir>.Modules.,<System$Path>Modules.
RMEnsure WimpExtension 2.18 RMLoad Modules:WimpExt
RMEnsure WimpExtension 2.18 Error Unable to load WimpExtension version 2.18 or later.
RMEnsure LZW           1.02 RMLoad Modules:LZW
RMEnsure LZW           1.02 Error Unable to load LZW version 1.02 or later.
RMEnsure ARMLib        1.14 RMLoad Modules:ARMLib
RMEnsure ARMLib        1.14 Error Unable to load ARMLib version 1.14 or later.
UnSet Modules$Path

|
| Check for duplicates
| --------------------
|
Run <EasyAnim$Resources>.Check

|
| Run program
| -----------
|
WimpSlot -min 160k -max 160k
Run <EasyAnim$Dir>.!RunImage
