$! SPEW.COM..    PRINT binary file, treating printer as a terminal.
$! 
$!
$!  Mode of use: (site specific) Log in with a terminal, making sure that
$!  the dreaded pin 20 is not connected. Issue the command to run this file,
$!  and type the name of the desired file.
$!  SPEW types "waiting" then pauses for 30 secs. In that time you must
$!  switch connections, so the output goes into the printer. 
$!  Messy but reliable.
$!
$!
$if p1 .eqs. "" then inquire p1 "file"
$write sys$output "waiting..."
$wait 00:00:30
$set term/eight_bit/form/pasthru
$copy 'p1' sys$output
$set term/nopasthru