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

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

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

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

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

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