If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Run$Path <Run$Path>,<Obey$Dir>.risc_os.bin.
If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Path ,<Obey$Dir>.,<Obey$Dir>.tools.
If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Dir <Obey$Dir>
If "<Wimp$ScrapDir>"=""            then Set Wimp$ScrapDir <Forthmacs$Dir>.^
Filer_OpenDir <Forthmacs$Dir>

Wimpslot 160k 160k
If "<ForthmacsTcl>"="" then run <Forthmacs$Dir>.risc_os.Tcl.shade <Forthmacs$Dir>.risc_os.Tcl.Forthmacs
Wimpslot -next 1024k
