$D NOSPEC LASER
;
; .SVPRT filename {spoolername}
;
;prints a SuperVUE PostScript list file via the AM Laser Printer support
;package.  Printer name defaults to LASER.
;
GOTO ($0)
;
;(NOSPEC)
:R
:<The SVPRT command prints a SuperVue .LST file on a PostScript printer set up
with the Alpha Micro Laser Printer Support Package.

Usage: .SVPRT ListFileName {PrinterName}

                                    If you omit PrinterName, LASER is assumed.
Example: .SVPRT MYFILE.LST>
EXIT
;
;
;($0)
:R
:<Constructing SVPRT.000 temporary file
>
APPEND SVPRT.000=DSK0:PREFIX.PS[7,20],DSK0:APPLE.LIB[7,20],$0,DSK0:SUFFIX.PS[7,20]
:<SVPRT.000 has been created.

Ready to output SVPRT.000 on printer $1
Do you wish to print >
PRINT $1=SVPRT.000/Q