home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / bascomp / v1_24 / !Run next >
Encoding:
Text File  |  1992-09-23  |  1.2 KB  |  30 lines
  1. | Run file for BasCompress
  2. |
  3. | Complicated because can call direct to back end if any parameters passed
  4.  
  5. IconSprites <Obey$Dir>.!Sprites
  6. Set BasCompress$Dir <Obey$Dir>
  7. Set Alias$BasCompress /<BasCompress$Dir>.!Run 
  8.  
  9. If "<System$Path>"="" Then Error System resources cannot be found
  10.  
  11. Set Old$CAsm 0
  12. RMEnsure CAssembler 0    Set Old$CAsm 1
  13. RMEnsure CAssembler 0.07 Set Old$CAsm 0
  14. If <Old$CAsm> Then Error An old version of the CAssembler module is resident
  15. UnSet Old$CAsm
  16. RMEnsure CAssembler 0.07 RMLoad <BasCompress$Dir>.CAssembler
  17. RMEnsure CAssembler 0.07 Error CAssembler module not found or too old
  18.  
  19. RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
  20. RMEnsure FPEmulator 2.70 Error FPEmulator module not found or too old
  21.  
  22.  
  23. If "%0"<>"" Then WimpSlot -Min 96K -Max 96K
  24. If "%0"<>"" Then /<BasCompress$Dir>.!RunImage %*0
  25. If "%0"="" Then RMEnsure InterfaceManager 1.30 RMLoad <BasCompress$Dir>.Interface
  26. If "%0"="" Then RMEnsure InterfaceManager 1.30 Error Interface module not found or too old
  27. If "%0"="" Then Set BasCompressFE$Dir <BasCompress$Dir>.fe
  28. If "%0"="" Then WimpSlot -Min 96K -Max 96K
  29. If "%0"="" Then WimpSlot -Min 64K -Max 64K
  30. If "%0"="" Then /<BasCompressFE$Dir>.!RunImage