*******************************************************************************
*									      *
*	Author - Nick Makris - STARTECH SYSTEMS - San Francisco, CA	      *
*	Date -	 DECEMBER 1987						      *
*									      *
*	   ************ PRINT SPOOLER PROGRAM ************		      *
*									      *
*	COPYRIGHT - STARTECH SYSTEMS - 1987, 1988, 1989, 1990		      *
*									      *
*	***********	All RIGHTS RESERVED     *************		      *
*									      *
*******************************************************************************
PARAMETERS PSBMB,PRTSELTD
go psbmb
PTTYP = TRIM(PRTRNAME)
Plq = pltrql
PTREC = RECNO()
DO GET_PCON
save screen to xsvscr
if NETWORK()
   CLEAR
   if localprtr
    run endspool
   else
    IF NETPORT<3
     X='P='+STR(NETPORT,1)+' NFF NB TI=2'
     run spool &X
    ELSE
      ansx = 'N'
      set color to w+/w
      @14,6 clear to 16,72
      @15,8 say "File 'PRTROPTS' set up with wrong network port # at record "+STR(RECNO(),2,0)+"!"
      @14,6 to 16,72 double
      i=inkey(15)
      PRTSELTD=.F.
    ENDIF
   ENDIF
ELSE  && standalone machine
ENDIF
IF PRINTSTATUS()
 set printer to &MPORTOUT
ENDIF
PNAME = UPPER(trim(prtrname))
RETURN
*
PROCEDURE GET_PCON
mp66lines = p66lines
mp48lines = p48lines
mpplines  = pplines
mpcompon  = pcompon
mpcompoff = pcompoff
mpapwid   = ppapwid
mpaplines = ppaplines
mportout  = portout
MPBOLDON  = PBOLDON
MPBOLDOFF = PBOLDOFF
MPUNDRON  = PUNDRON
MPUNDROFF = PUNDROFF
MPRESET   =  PRESET
MCONTFEED = PCONTFED
MLASER    = LASER
MPLOFFSET = LINEOFFSET
MPLNSPERINC = PLNSPERINC 
MLANDSCAPE  = LANDSCAPE
MCENTER     = CENTERFEED
RETURN