|NapoleonII - a replacement for the original Napolean program
| by Ian Hamilton
Set NapoleonII$Dir <Obey$Dir>
<NapoleonII$Dir>.HelpVars
UNSET UnivRoutIH$NoLib
IF "<UnivRoutIH$Dir>"="" THEN SET UnivRoutIH$NoLib TRUE
IF "<UnivRoutIH$NoLib>"="TRUE" THEN SET UnivRoutIH$Dir <Obey$Dir>.NapIIRouts
IconSprites <NapoleonII$Dir>.!Sprites
WimpSlot -min 832K -max 832K
|Set NapoleonII$Option NOAUDIO
|Set NapoleonII$Option NOBEEP
Run <NapoleonII$Dir>.NapoleonII
UnSet NapoleonII$Option
