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.5' {printed when the program starts} @y @d banner=='This is TFtoPL, Tops-20 Version 2.5' @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