|PrtSet2USB
| by Ian Hamilton
Set PrtSet2USB$Dir <Obey$Dir>
<PrtSet2USB$Dir>.HelpVars
UNSET UnivRoutIH$NoLib
IF "<UnivRoutIH$Dir>"="" THEN SET UnivRoutIH$NoLib TRUE
IF "<UnivRoutIH$NoLib>"="TRUE" THEN SET UnivRoutIH$Dir "<PrtSet2USB$Dir>.PrtSetRout"
IconSprites <PrtSet2USB$Dir>.!Sprites
WimpSlot -min 192K -max 192K
Run <PrtSet2USB$Dir>.PrtSet2USB
