home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / utilities / zap / !Zap / !Run < prev    next >
Encoding:
Text File  |  1994-08-18  |  1.2 KB  |  42 lines

  1. |
  2. | !Run file for Zap
  3. | (c) D.H.Symes 1991/1992/1993/1994
  4. |
  5.  
  6. | Set up directory paths and load sprites
  7. Set Zap$Dir <Obey$Dir>
  8. Set Zap$3rdParty <Zap$Dir>.3rdParty
  9. Iconsprites <Zap$Dir>.!Sprites
  10.  
  11. | Find operating system version
  12. SetEval Zap$OSVsn 300
  13. RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200
  14.  
  15. | Claim file types and taskwindows
  16. Set TaskWindow$Server <Zap$Dir>
  17. Set Alias$TaskWindow "ZapBasic_TaskWindow "
  18. Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0
  19.  
  20. | Choose template file
  21. Set Zap$Templates <Zap$3rdParty>.TemplatesD
  22. IF Zap$OSVsn=300 THEN Set Zap$Templates <Zap$3rdParty>.TemplatesB
  23.  
  24. | Check Zap isn't already running
  25. Set Zap$Temp "loaded"
  26. RMEnsure Zap 0.01 SET Zap$Temp "notloaded"
  27. IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded
  28. IF Zap$Temp="loaded" AND Zap$OSVsn=300 THEN %Basic -quit <Zap$3rdParty>.Check
  29.  
  30. | Load modules
  31. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  32. RMEnsure ZapRedraw 0.01 RMLoad <Zap$Dir>.ZapRedraw
  33. RMLoad <Zap$Dir>.Zap
  34.  
  35. | Load extension modes
  36. RMLoad <Zap$Dir>.ZapBasic
  37. RMLoad <Zap$3rdParty>.ZapCMode
  38. |RMLoad <Zap$3rdParty>.ZapUtils
  39. RMLoad <Zap$3rdParty>.ZapMje
  40.  
  41. | Start up the Zap task (loading file if need be)
  42. Zap_Desktop %0