)) >>>) ( ,) (ELSE .X)>> .INS>) ( .ARGS !>)>> .STUFF> T)>> )> )> >) LBL (CHOMP <>)) ) (> ) (ELSE > > )> >> > )> > > #TTY-TAG 1 (MOVE A* ,OC-TT-WJFN (O1*)) (MOVEI B* ,/VTCEL) (OCEMIT SFMOD!-JSYS) (OCEMIT JUMP P* ))> > > DUMP-WRITE-BUFFER)>) (ELSE )> )>> )) #DECL ((TTY) CHANNEL (DATA) TTY-CHANNEL (NEW) STRING) .NEW) (T )>> )) #DECL ((TTY) CHANNEL (DATA) TTY-CHANNEL (NEW) FIX) .NEW) (T )>> ,/VTHOM>> ,/VTHMD>> ,/VTHRZ .X>> .Y> ,/VTVRT .Y>> )) #DECL ((TTY) CHANNEL (CD) TTY-CHANNEL) ; "Caused by tops-20 bug with binary output" -1> >>> )> ,/VTBCK .N>> (.N)> ,/VTDWN .N>> (<- .N>)> ,/VTUP .N>> ,/VTFWD .N>> \ ,/VTSAV>> ,/VTRES>> ) (BOT <>) "AUX" (DATA )) #DECL ((TTY) CHANNEL (N) FIX (TOP BOT) (DATA) TTY-CHANNEL) T) (> ) (T >)> 1>>)> >>)>> ) (RIGHT <>) "AUX" (DATA )) #DECL ((TTY) CHANNEL (N) FIX (LEFT RIGHT) ) > ) (T >)> 1>>)> .LEFT>>)>> ,/VTERA>> )) #DECL ((TTY) CHANNEL (N) FIX) )> ,/VTBEC .N>>