PLtoTF 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{PL\lowercase{to}TF changes for Tops-20}
@z

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

@x Route output to TTY, and handle default file version numbers:
@d print(#)==write(#)
@d print_ln(#)==write_ln(#)

@p program PLtoTF(@!pl_file,@!tfm_file,@!output);
@y
@d print(#)==write(tty,#)
@d print_ln(#)==write_ln(tty,#)

@p program PLtoTF(@!pl_file:-,@!tfm_file:+);
@z

@x Binary open of TFM file:
rewrite(tfm_file);
@y
rewrite(tfm_file,'','/B:8');
@z