Macro pawlogon
mess 'In private pawlogon.kumac.'
macro/default '.,~/work/paw/pawcode' -auto
filecase keep
opt stat
set stat 1111111
set tsiz 0.35
opt tic
opt nbox
opt fit
opt eah
opt zfl1
set fit 111111

* Line widths
 igset lwid 5
 set bwid 5
 set pwid 5
 set hwid 5
 set fwid 5

alias/create pps 'EXEC ~/.pawlogon.kumac#pps'
alias/create epps 'EXEC ~/.pawlogon.kumac#epps'
return

MACRO pps 1=./paw.ps
MESSAGE 'POSTSCRIPT output file = ' [1]
FORTRAN/FILE 66 [1]
META -66 -100111
PIC/PLOT ' '
CLOSE 66
RETURN


MACRO epps 1=./paw.eps
Message 'EPS output file = ' [1]
for/file 66 [1]
Meta -66 -113
Pic/plot ' '
close 66
return