| !Run for MailCheck

If "<MailCheck$Running>" = "Yes" Then Error MailCheck is already running

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

RMEnsure UtilityModule 3.00 Error MailCheck needs RISC OS 3 or later to run

RMEnsure Internet 0 Error MailCheck needs an Internet module
RMEnsure Resolver 0.39 Error MailCheck cannot find DNS Resolver module or it is too old

RMEnsure InetServices 1.07 RMLoad System:Modules.Network.IServices
RMEnsure InetServices 1.07 Error MailCheck cannot find InetServices module or it is too old
RMEnsure EasySocket 1.08 RMLoad System:Modules.Network.EasySocket
RMEnsure EasySocket 1.08 Error MailCheck cannot find EasySocket module or it is too old

Set MailCheck$THHeap System:Modules.THHeapR
RMEnsure UtilityModule 3.50 Set MailCheck$THHeap System:Modules.THHeapA
RMEnsure THHeap 0.00 RMLoad <MailCheck$THHeap>
Unset MailCheck$THHeap
RMEnsure THHeap 1.22 Error MailCheck cannot find THHeap module or it is too old

RMEnsure Basil 1.21 RMLoad Basil:Modules.Basil
RMEnsure Basil 1.21 Error Basil module not found or too old

WimpSlot -min 20k -max 20k
Run <MailCheck$Dir>.!RunImage