home *** CD-ROM | disk | FTP | other *** search
- |
- | !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>.TemplatesB
-
- | 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