> ;

)> T> ; (BYTE) 0>>

> 1>)) )> >>

> ; ) (<==? .N 0> > ; >) (<==? .N 2> > ; ) (<==? .N 3> > > ;> >)> ; > .STOP> )>> >

> > >> )>>> > >

>> >>> ; ; > <* ,COMPUTER-WIDTH 2>> )>>>

> > ) (T )> > > ; "So we can use form cursor addressing" 2>> > 2>> > >

> ,COMPUTER-REAL-HEIGHT:FIX> )>> > )>> ;

) (T <>)>>

> ;> ;> > > >>)> > >>> ;<0? > >>> > T) (T <>)>> (BYTE)> FIELD> 'FIELD-PROMPT "Command:" 'FIELD-FCN COMMAND-FIELD 'FIELD-PROMPTLEN 8 'FIELD-X 1 'FIELD-Y ,COMPUTER-COMMAND-LINE 'FIELD-MAXLEN 29 'FIELD-DONE 0 'FIELD-CURLEN 0>>> <0? > <==? !\?>>

<> <>>

<>) ( !\ >> <>) (T T)>> !\ >> <>) (T T)>> > ))

> )>> ) "AUX" (W ,REAL-COMMAND-WINDOW) (FLD ) (TXT >)) <+

; "Script, but don't print anything to screen" T T> )>>> ) (TC ))

) CVAL (1ST? T) CSS) > ) (T )> >

>)> > > ) (T )>)> > > 1>> 4> > ) ( >> >> ) (T >)>)>)> )> > > ) (.CVAL )>

> )> 0>>

)> > 0>> )> > )> 1>> 0> >)> > )>>> ) "AUX" (OX ,FORM-X) (OY ,FORM-Y))

> > > "FIDUC.HAK"> "MENU.HAK"> "AIRPLANE.HAK"> "POST.HAK"> "ZBUG.HAK"> "TRAVEL.HAK">>> ) DIR) :FIX 1>>>>> ) (> ,TARGET-COUNT> >> )> > ,TARGET-COUNT> )>> )>> > > > >

:FIX 5>> > >>>> ; "Trying to start up with non-existent file" ) ( 1> .TARG> )>) (T ; "Used 'em all up, loser" )>> ) "AUX" LC:FIX) >) ( 0>> ) ( 0> > 1>> 0>>

> >)>) (T <>)>)>> ) "AUX" (TC:FIX )) > 0>>

> >)> > > > T) (T <>)>> )) >>

T) (T <>)>> >) DE (LEN:FIX ) (DT )) > > .FLDSTR>> .FLD .DE .DIRTBL> .PC>)> >> )> >> > ) (T )> ,FATAL-VALUE) (T <>)>> > > > ) (T )>

> <>>

> ) (T T>

)> <>> ))

) (T )> > > > ,DIR-ENTRY-INVISIBLE>> > T> > >> T>)> >)> > > 0> )>> <>> ) (NOSCREEN? <>)) )> )>)>> ) (NOSCREEN? <>) "AUX" (N:FIX )) > > .N> )>>)>

<>>

<+ .N>>)>)>> ) (REMAIN:FIX .N)) ; "SLINE is current line on screen, DLINE is line of document, REMAIN is lines left in document, N is total lines in document" > >) (T )> > > >) (T .FLINE>> )>

> > .FLINE> )> >> ,COMPUTER-HEIGHT>> .N> )>

)>> ) (CT:FIX 1) ST) >> >)> > .N> )>> T> >