|!Run file for Delirium

Set Delirium$Dir <Obey$Dir>
IconSprites <Delirium$Dir>.!Sprites

|Where can we find the savers?
Set DeliriumSavers$Dir <Delirium$Dir>.Savers


|Check Toolbox modules are loaded. Version isn't hugely important...

RMEnsure Toolbox      0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox      0.00 Error Delirium requires the Toolbox module

RMEnsure IconBar      0.00 RMLoad System:Modules.Toolbox.IconBar
RMEnsure IconBar      0.00 Error Delirium requires the IconBar module

RMEnsure ProgInfo     0.00 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure ProgInfo     0.00 Error Delirium requires the ProgInfo module

RMEnsure Window       0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure Window       0.00 Error Delirium requires the Window module

RMEnsure Menu         0.00 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu         0.00 Error Delirium requires the Menu module


|Do the cunning load/show icon bit
Set Delirium$Running "1"
RMEnsure Delirium 2.00 Set Delirium$Running "0"

If "<Delirium$Running>" = "0" Then WimpSlot -min 32K -max 32K
If "<Delirium$Running>" = "0" Then RMLoad <Delirium$Dir>.Delirium
If "<Delirium$Running>" = "0" Then Delirium_Desktop Else Delirium_ShowIcon

UnSet Delirium$Running
