|
| !Run file for CPMFS
|
Set CPMFS$Dir <Obey$Dir>

RMEnsure UtilityModule 3.10 Error CPMFS cannot run on RISC OS 2
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 Error CPMFS needs module CallASWI to operate
RMEnsure MimeMap 0.05 RMLoad System:Modules.Network.MimeMap

IconSprites <CPMFS$Dir>.!Sprites

Set File$Type_190 DSK
Set File$Type_191 PCWDisc
|I know what 193 is, but who got in with 192?
Set File$Type_194 D20Disc
Set File$Type_195 D2Disc
Set File$Type_196 D10Disc

Run <CPMFS$Dir>.Resources.Resfind CPMFS
RMEnsure CPMFS 0.14 Run <CPMFS$Dir>.CPMFS

|You could put CPMMap commands in at this point if you want, eg:
|CPMMap DOC Text

Run <CPMFS$Dir>.!RunImage %*0