home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / bascomp / !BC / !Run < prev    next >
Encoding:
Text File  |  1994-07-16  |  1.2 KB  |  34 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.14 Set Old$CAsm 0
  14. If <Old$CAsm> Then Error An old version of the CAssembler module is resident
  15. UnSet Old$CAsm
  16. Set BasCompressFE$Path <BasCompress$Dir>.,System:Modules.
  17. RMEnsure CAssembler 0.14 RMLoad BasCompressFE:CAssembler
  18. RMEnsure CAssembler 0.14 Error CAssembler module not found or too old
  19.  
  20. If "%0"="" Then RMEnsure FontWindow 1.40 RMLoad BasCompressFE:FontWindow
  21. If "%0"="" Then RMEnsure FontWindow 1.40 Error FontWindow module not found or too old
  22.  
  23. UnSet BasCompressFE$Path
  24.  
  25. RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
  26. RMEnsure FPEmulator 2.70 Error FPEmulator module not found or too old
  27.  
  28. WimpSlot -Min 128K -Max 128K
  29. If "%0"<>"" Then WimpSlot -Min 96K -Max 96K
  30. If "%0"<>"" Then /<BasCompress$Dir>.!RunImage %*0
  31. If "%0"="" Then Set BasCompressFE$Dir <BasCompress$Dir>.!fe
  32. If "%0"="" Then WimpSlot -Min 64K -Max 64K
  33. If "%0"="" Then /<BasCompressFE$Dir>.!RunImage
  34.