Set PartMgr$Dir <Obey$Dir>

SetEval PartMgr$BASIC 0
RMEnsure BASIC 1.39 SetEval PartMgr$BASIC 1
If PartMgr$BASIC THEN RMLoad <PartMgr$Dir>.BASICPM
WimpSlot -min 400K -max 400K
If PartMgr$BASIC THEN BASICPM -quit <PartMgr$Dir>.!RunImage ELSE BASIC -quit <PartMgr$Dir>.!RunImage
If PartMgr$BASIC THEN RMKill BASICPM
UnSet PartMgr$BASIC