home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / full_cat21 / _ordering / _run < prev    next >
Encoding:
Text File  |  1994-08-07  |  1.2 KB  |  40 lines
  1.  
  2. | !run file for !ordering
  3. | a phase flow util..
  4. |
  5. | (c) DW Feb 1991
  6. |
  7. set ordering$dir  <obey$dir>
  8. iconsprites <ordering$dir>.!Sprites
  9.  
  10. set alias$@printtype_BA4 run <ordering$dir>.!run -print %%*0
  11. set alias$@runtype_BA4 run <ordering$dir>.!run -file %%*0
  12. set File$Type_BA4 OrderSheet
  13.  
  14. RMEnsure UtilityModule 3.10 set ro2 true
  15. if "<ro2>"="true" then RMEnsure InterFaceManager 2.00 set load true
  16.  
  17. RMEnsure FontManager 1.00 set load true
  18. RMEnsure ColourTrans 0.52 set load true
  19.  
  20. if "<load>"<>"" then if "<system$path>"="" then error Locate your !System directory
  21. if "<load>"<>"" then unset load
  22.  
  23. RMEnsure FontManager 1.00 RMLoad System:modules.Fonts
  24. RMEnsure FontManager 1.00
  25. RMEnsure ColourTrans 0.52 RMLoad System:modules.Colours
  26. RMEnsure FontManager 1.00
  27. RMEnsure Hourglass   0.00 RMLoad System:modules.Hourglass
  28. RMEnsure Hourglass   0.00
  29.  
  30. if "<ro2>"="true" then RMEnsure InterFaceManager 2.00 RMLoad System:modules.Interface
  31. if "<ro2>"="true" then RMEnsure InterFaceManager 2.00 RMLoad <OBEY$DIR>.Interface
  32. | if "<ro2>"="true" then RMEnsure InterFaceManager 2.00 error Really need the interface module !
  33.  
  34. unset ro2
  35. rmensure emptybox 0 rmload <obey$dir>.klong_3
  36. rmensure emptybox 0 error can not load fancy sound
  37.  
  38. wimpslot -min 224k -max 224k
  39. run <ordering$dir>.!RunImage %*0
  40.