summaryrefslogtreecommitdiff
path: root/dviware/crudetype/version3/vmsspew.com
blob: d551546cd27c09c5619363db7c03c8dbc8d0d05a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$! 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