|
| !Run file for Zap
| (c) D.H.Symes 1991/1992/1993/1994
|

| Set up directory paths and load sprites
Set Zap$Dir <Obey$Dir>
Set Zap$3rdParty <Zap$Dir>.3rdParty
Iconsprites <Zap$Dir>.!Sprites

| Find operating system version
SetEval Zap$OSVsn 300
RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200

| Claim file types and taskwindows
Set TaskWindow$Server <Zap$Dir>
Set Alias$TaskWindow "ZapBasic_TaskWindow "
Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0

| Choose template file
Set Zap$Templates <Zap$3rdParty>.TemplatesD
IF Zap$OSVsn=300 THEN Set Zap$Templates <Zap$3rdParty>.TemplatesE

| Check Zap isn't already running
Set Zap$Temp "loaded"
RMEnsure Zap 0.01 SET Zap$Temp "notloaded"
IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded
IF Zap$Temp="loaded" AND Zap$OSVsn=300 THEN %Basic -quit <Zap$3rdParty>.Check

| Load modules
RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
RMEnsure ZapRedraw 0.01 RMLoad <Zap$Dir>.ZapRedraw
RMLoad <Zap$Dir>.Zap

| Load extension modes
RMLoad <Zap$Dir>.ZapBasic
RMLoad <Zap$3rdParty>.ZapCMode
|RMLoad <Zap$3rdParty>.ZapUtils
RMLoad <Zap$3rdParty>.ZapMje

| Start up the Zap task (loading file if need be)
Zap_Desktop %0