home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Archive Magazine 1996
/
ARCHIVE_96.iso
/
discs
/
shareware
/
share_46
/
bc
/
!BC
/
!Run
< prev
next >
Wrap
Text File
|
1994-02-24
|
1KB
|
34 lines
| Run file for BasCompress
|
| Complicated because can call direct to back end if any parameters passed
IconSprites <Obey$Dir>.!Sprites
Set BasCompress$Dir <Obey$Dir>
Set Alias$BasCompress /<BasCompress$Dir>.!Run
If "<System$Path>"="" Then Error System resources cannot be found
Set Old$CAsm 0
RMEnsure CAssembler 0 Set Old$CAsm 1
RMEnsure CAssembler 0.13 Set Old$CAsm 0
If <Old$CAsm> Then Error An old version of the CAssembler module is resident
UnSet Old$CAsm
Set BasCompressFE$Path <BasCompress$Dir>.,System:Modules.
RMEnsure CAssembler 0.13 RMLoad BasCompressFE:CAssembler
RMEnsure CAssembler 0.13 Error CAssembler module not found or too old
If "%0"="" Then RMEnsure FontWindow 1.30 RMLoad BasCompressFE:FontWindow
If "%0"="" Then RMEnsure FontWindow 1.30 Error FontWindow module not found or too old
UnSet BasCompressFE$Path
RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 2.70 Error FPEmulator module not found or too old
WimpSlot -Min 128K -Max 128K
If "%0"<>"" Then WimpSlot -Min 96K -Max 96K
If "%0"<>"" Then /<BasCompress$Dir>.!RunImage %*0
If "%0"="" Then Set BasCompressFE$Dir <BasCompress$Dir>.!fe
If "%0"="" Then WimpSlot -Min 64K -Max 64K
If "%0"="" Then /<BasCompressFE$Dir>.!RunImage