Set LZHDecomp$Dir <Obey$Dir>
Set LZHDecomp$LZHDLoaded 1
RMEnsure LZHD 0.00 Set LZHDecomp$LZHDLoaded 0
If <LZHDecomp$LZHDLoaded> = 0 Then RMLoad <LZHDecomp$Dir>.LZHD
WimpSlot -min 1024K
Run <LZHDecomp$Dir>.!RunImage
If <LZHDecomp$LZHDLoaded> = 0 Then RMKill LZHD
If <LZHDecomp$LZHDLoaded> = 0 Then UnSet LZHDecomp$LZHDLoaded