WimpSlot 0 0
RMEnsure MemAlloc 0 RMLoad System:Modules.MemAlloc
RMEnsure Euclid 1 RMLoad <Obey$Dir>.EuclidX
Set Catapult$Dir <Obey$Dir>
IconSprites <Catapult$Dir>.!Sprites
Echo <22><141>
ScreenSize 160 Error Not enough memory to run Catapult
Echo <22><141>
WimpSlot -min 220K -max 220K
Run <Catapult$Dir>.!RunImage
