| !DataPick, version "1.02 (19-Nov-89)"
|
If "<System$Path>" = "" then Error 0 System resources cannot be found
WimpSlot -min 80K -max 80K
IconSprites <Obey$Dir>.!Sprites
CDir <Obey$Dir>.^.Data
CDir <Obey$Dir>.^.Data.Sprites
Set DataPick$Dir <Obey$Dir>
If "<Data$Dir>" = "" then SetEval Data$Dir DataPick$Dir LEFT ((LEN DataPick$Dir)-9) + "Data"
SetMacro Alias$Open_Data Filer_OpenDir <Data$Dir>
Run <DataPick$Dir>.!RunImage %*0
