|
| File       !Run
| Author     Nicholas Marriott
| Version    n/a
| Date       n/a
|
| Copyright (c) Nicholas Marriott 2000
|

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

| Set file type variables
Set File$Type_177 Isis
Set Alias$@RunType_177 Run <Isis$Dir>.!Run %%0
Set File$Type_DFE CSV
Set File$Type_C26 ASheet

| Check OS version
RMEnsure UtilityModule 3.10 Error Isis requires RISC OS version 3.10 or greater

| Load modules
RMEnsure ColourPicker  0.15 Run <Isis$Dir>.Resources.Command RMLoad System:Modules.Picker
RMEnsure ColourPicker  0.15 Run <Isis$Dir>.Resources.Command RMLoad <Isis$Dir>.Modules.Picker
RMEnsure ColourPicker  0.15 Error Unable to load ColourPicker version 0.15 or later
RMEnsure DrawFile      1.30 Run <Isis$Dir>.Resources.Command RMLoad System:Modules.DrawFile
RMEnsure DrawFile      1.30 Run <Isis$Dir>.Resources.Command RMLoad <Isis$Dir>.Modules.DrawFile
RMEnsure DrawFile      1.30 Error Unable to load DrawFile version 1.30 or later
RMEnsure TaskControl   0.07 Run <Isis$Dir>.Resources.Command RMLoad System:Modules.TaskCtrl
RMEnsure TaskControl   0.07 Run <Isis$Dir>.Resources.Command RMLoad <Isis$Dir>.Modules.TaskCtrl
RMEnsure TaskControl   0.07 Error Unable to load TaskControl version 0.07 or later

| Set scrap directory
If "<Wimp$ScrapDir>"="" Then Error Scrap directory not found. Please locate !Scrap

| Wipe debugging information
Run <Isis$Dir>.Resources.Command CDir <Isis$Dir>.Resources.Records
Run <Isis$Dir>.Resources.Command Wipe <Isis$Dir>.Resources.Records.Old ~C F R ~V
Run <Isis$Dir>.Resources.Command Copy <Isis$Dir>.Resources.Records <Isis$Dir>.Resources.Records.Old A ~C D F ~L ~N ~P ~Q ~R ~S ~T ~V

| Store parameters
Unset Isis$Parameters
If "%0"<>"" Then Set Isis$Parameters %0

| Run program
WimpSlot -min 256k -max 256k
Run <Isis$Dir>.!RunImage
