home *** CD-ROM | disk | FTP | other *** search
/ Kosovo Orphans' Appeal Charity CD / KosovoOrphansAppeal.iso / archimedesworld_cd2 / companies / aspex / vrmleyes / _vrmleyes / _run < prev    next >
Text File  |  1996-09-03  |  1KB  |  32 lines
  1. | VRMLeyes !Run
  2. |
  3. | Written by Tim Humphries
  4. | Aspex Software, Copyright ⌐ 1995,1996
  5. |
  6. | 2 Sep 96  V1.00D For Archimedes World Magazine 
  7.  
  8. IconSprites <Obey$Dir>.!Sprites
  9. Set Alias$@RunType_C24 Run <Obey$Dir> %%*0
  10. Set Alias$@RunType_B29 Run <Obey$Dir> %%*0
  11. Set Alias$@RunType_B2A Run <Obey$Dir> %%*0
  12. Set Alias$@RunType_DEA Run <Obey$Dir> %%*0
  13. Set File$Type_C24 ArchiTech
  14. Set File$Type_B29 VRML
  15. Set File$Type_B2A D3file
  16. Set File$Type_DEA DXF
  17. Set VRMLeyes$Dir <Obey$Dir>
  18.  
  19. Set Aspex$OS 350
  20. RMEnsure UtilityModule 3.50 Set Aspex$OS 310
  21. IF Aspex$OS=310 THEN RMEnsure UtilityModule 3.10 Set Aspex$OS 300
  22. IF Aspex$OS=310 THEN RMEnsure BorderUtils 0.02 RMLoad <Obey$Dir>.Resources.BorderUtil
  23. IF Aspex$OS=310 THEN RMEnsure BorderUtils 0.02 Error BorderUtils not found
  24. IF Aspex$OS=310 THEN RMEnsure ColourPicker 1.1 RMLoad <Obey$Dir>.Resources.Picker
  25. IF Aspex$OS=310 THEN RMEnsure ColourPicker 1.1 Error ColourPicker not found
  26. IF "<Wimp$ScrapDir>"="" Then Error 0 Scrap directory not found - Please find !Scrap and try again
  27. |IF "<ChangeFSI$Dir>"="" Then Error 0 ChangeFSI not found - Please find !ChangeFSI and try again
  28.  
  29. WimpSlot -min 812K -max 812K
  30. IF Aspex$OS>=350 THEN *cache off
  31. Run <Obey$Dir>.!RunImage %*0
  32.