DVItype change file for Tops-20
Copyright (C) 1983 by David Fuchs.  All rights are reserved.

@x Tell WEAVE to print only the changes:
\pageno=\contentspagenumber \advance\pageno by 1
@y
\pageno=\contentspagenumber \advance\pageno by 1
\let\maybe=\iffalse
\def\title{DVI$\,$\lowercase{type} changes for Tops-20}
@z

@x TOPS-20's banner:
@d banner=='This is DVItype, Version 2.9' {printed when the program starts}
@y
@d banner=='This is DVItype, Tops-20 Version 2.9'
@z

@x Identify input vs. output files so version numbers are properly handled:
@p program DVI_type(@!dvi_file,@!output);
@y
@p program DVI_type(@!dvi_file:-,@!output:+,TTY:/);
@z

@x Open dvi_file in binary mode:
begin reset(dvi_file);
@y
begin reset(dvi_file,'','/B:8');
@z

@x Open tfm_file in binary mode:
begin reset(tfm_file,cur_name);
@y
begin reset(tfm_file,cur_name,'/B:8');
@z

@x Hardwire term_in and term_out to TTY:
and |term_out| for terminal output.
@^system dependencies@>

@<Glob...@>=
@!buffer:array[0..terminal_line_length] of ASCII_code;
@!term_in:text_file; {the terminal, considered as an input file}
@!term_out:text_file; {the terminal, considered as an output file}
@y
and |term_out| for terminal output.
@^system dependencies@>

@d term_in==TTY {the terminal, considered as an input file}
@d term_out==TTY {the terminal, considered as an output file}

@<Glob...@>=
@!buffer:array[0..terminal_line_length] of ASCII_code;
@z

@x Update_terminal does nothing:
@d update_terminal == break(term_out) {empty the terminal output buffer}
@y
@d update_terminal == do_nothing {empty the terminal output buffer}
@z

@x
begin update_terminal; reset(term_in);
@y
begin update_terminal;
@z

@x
begin rewrite(term_out); {prepare the terminal for output}
@y
begin {no need to prepare the terminal for output}
@z