$! 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