| >!Run File for !Hope version 4.02A
|
|
Set Hope$Dir <Obey$Dir>
Set MicroHope$Dir <Obey$Dir>
Set MicroHope$Path <MicroHope$Dir>.
Set HopeProgs$Dir <Hope$Dir>.Programs
Set HopeUtils$Dir <Hope$Dir>.Utilities
|
SetMacro Alias$HCat If "%%0"="" Then Cat <Hope$Dir> Else Cat <Hope$Dir>.%%0 %%*1
Set Alias$Hope Obey <Hope$Dir>.!Run %%*0
|
|
WimpSlot -min 300k
|
|
|    MicroHope is <escape> sensitive, so we must disable
|    the <escape> key whilst it is running, and reenable
|    it on exit.  Causing an end-of-file with ^D at the
|    start of a line will still work.
|
Fx 200 1
Pointer 0
Echo <26><12>
Dir <HopeProgs$Dir>
Echo <13>
Cat
Echo <13><10><10>
If "%0" <> "" Then Echo Entering Hope and loading '%0'. Else Echo Entering Hope with no file loaded.
Echo <13><10>
|  Put the characters load "%0"; <CR> in the keyboard buffer.
If "%0" <> "" Then Set Hope$File %0
If "%0" <> "" Then Set Alias$foo Run <Hope$Dir>.SetBuffer <Hope$File>
If "%0" <> "" Then foo
Unset Alias$foo
Run <Hope$Dir>.!RunImage
Back
Fx 200 0
