:applicationstartup
install getinput, biosoutput, rhighlight, rh, quietinstall, quickrun
ext extlib.eld extname install
ext extlib.eld path install
ext extlib.eld quit install
ext extlib.eld aformat install
@; 26A1:0335 B02D              mov     al, 2D
@; 26A1:0337 F606E10101        test    byte [01E1], 01
@s dcode1seg:0 l 1000 B0 '-' F6 06
@if (src != 1) then goto :eof
@r byte [srs:sro + 1] = #'^'