home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / demos / schema / !Schema_2 / !Run < prev    next >
Encoding:
Text File  |  1994-06-01  |  1.8 KB  |  57 lines
  1. | !Run for !Schema2 
  2. |
  3.  
  4. Set Schema2$Dir <Obey$Dir>
  5. Set Schema2$Menu <Obey$Dir>
  6. Set Schema2$Bold "Bold Demi"
  7. Set Schema2$Italic "Italic Oblique"
  8. Set Schema2$Medium "Medium Book"
  9. |
  10. |
  11. Set Schema2$TimeFormat "%%24.%mi"
  12. Set Schema2$DateFormat "%zdy %m3 %yr"
  13. |
  14. IconSprites <Obey$Dir>.!Sprites
  15. |
  16. Set File$Type_AEF Sheet
  17. Set File$Type_AEE SheetWS
  18. Set File$Type_AED SheetMc
  19. Set File$Type_DFE CSV
  20. Set File$Type_C26 ASheet
  21. Set File$Type_BE9 SWorkSp
  22. |          
  23. Set Alias$@RunType_C26 Run <Obey$Dir>.!Run %%*0
  24. Set Alias$@PrintType_C26 Run <Obey$Dir>.!Run -print %%*0
  25. Set Alias$@RunType_C0C Run <Obey$Dir>.!Run -SMacro %%*0
  26. Set Alias$@RunType_BE9 Run <Obey$Dir>.!Run -workspace %%*0
  27. |
  28. Set Schema2$OsVersion "Yes"
  29. RMEnsure UtilityModule 3.10 Set Schema2$OsVersion "No"
  30. if "<System$Path>"+"<Schema2$OsVersion>"="No" then Error 0 Please open a directory display containing !System
  31. If "<Wimp$Scrap>" = "" Then Error 0 Please open a directory display containing !Scrap
  32. |
  33. |
  34. RMEnsure FPEmulator 2.8 RMLoad System:Modules.FPEmulator
  35. RMEnsure FPEmulator 2.8 Error You need FPEmulator 2.8 or later
  36. |
  37. RMEnsure ColourTrans 0.52 RMLoad System:Modules.Colours 
  38. RMEnsure ColourTrans 0.52 Error You need ColourTrans 0.52 or later
  39. |
  40. RMEnsure WindowUtils 0.04 RMLoad System:Modules.WimpUtils
  41. RMEnsure WindowUtils 0.04 Error You need WimpUtils 0.04 or later
  42. |
  43. RMEnsure SharedCLibrary 3.75 RMLoad System:Modules.CLib
  44. RMEnsure SharedCLibrary Error You need CLib 3.75 or later
  45. |
  46.  
  47. IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure BorderUtils 0.02 RMLoad <Schema2$Dir>.BorderUtil
  48. |
  49. IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure DrawFile 0.01 RMLoad <Schema2$Dir>.Drawfile
  50. IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure DrawFile 0.01 Error You need a drawfile rendering module in !System
  51. |
  52. |
  53. WimpSlot -min 896K
  54. WimpSlot -min 768k -max 768k
  55. |
  56. Run <Schema2$Dir>.!RunImage %*0
  57.