|
| !Access+ version 1.0
|
|
%If "<Access+$Running>"<>"" Then %Error An Access+ Sharer is already running
%Set Access+$Dir <Obey$Dir>
%Set Access$Path <Obey$Dir>.
%RMEnsure UtilityModule 3.10 %Error Access+ Sharer requires RISC OS 3 (v3.10) or later
%Set ShareFS$Path Resources:$.Resources.ShareFS.
%Set File$Type_BDA Disc
%Set File$Type_BD9 DiscP
%Set File$Type_FB5 NoDisc
%Set File$Type_FB4 DiscR
%Set File$Type_F9F DiscD
%Set File$Type_F9E DiscDP
%Set File$Type_F9D DiscCD
%Set Alias$@RunType_BDA %ShareFSIcon %%0
%Set Alias$@RunType_BD9 %ShareFSIcon %%0
%Set Alias$@RunType_FB4 %ShareFSIcon %%0
%Set Alias$@RunType_FAF %ShareFSIcon %%0
%Set Alias$@RunType_FAE %ShareFSIcon %%0
%Set Alias$@RunType_FAD %ShareFSIcon %%0
%RMEnsure AUNMsgs 0.06 %RMReinit AUNMsgs
%RMEnsure FreeWay 0.24 %RMReinit Freeway
%RMEnsure ShareFS 3.38 %RMReinit ShareFS
%RMEnsure ShareFS 3.00 %Error Access does not appear to have loaded.
%IconSprites ShareFS:!Sprites
%IconSprites <Access+$Dir>.!Sprites
%WimpSlot -min 32k -max 32k
%Run <Access+$Dir>.Resources.StartImage
