.ENABLE SUBSTITUTION
.ASKS COMPIL Which FORTRAN to use
.ASKS LS List device
.SETS SWITCH "/CO:25"
.IF COMPIL = "FOR" .SETS SWITCH ""
PIP *.OBJ;*/DE/NM,*.OB;*,*.OLB;*,*.F;*,*.LST;*
;
;	first, put some pieces together
;
; in the ROOT
;
PIP RASTER.F=RASTER.TLE,RASTER.COM,RASTER.PGM
'COMPIL' RASTER,'LS'RASTER/-SP=RASTER.F
;
; in the input/vector overlay
;
PIP INIT.F=INIT.TLE,RASTER.COM,INIT.PGM
'COMPIL' INIT,'LS'INIT/-SP=INIT.F
;
PIP INPUT.F=INPUT.TLE,RASTER.COM,INPUT.PGM
'COMPIL' INPUT,'LS'INPUT/-SP=INPUT.F
;
PIP M.COM=[335,20]MULPLT.COM,VECTOR.COM,DEVICE.COM
PIP RASAG.F=RASAG.TLE,M.COM,RASAG.PGM
'COMPIL' RASAG,'LS'RASAG/-SP=RASAG.F'SWITCH'
PIP M.COM;*/DE
;
; for all the raster routines
;
PIP RASGEN.F=RASGEN.TLE,RASTER.COM,RASGEN.PGM
'COMPIL' RASGEN,'LS'RASGEN/-SP=RASGEN.F
;
MAC RASMAC,'LS'RASMAC/-SP=RASMAC
;
; for the IDS printers
;
PIP IDS.F=IDS.TLE,RASTER.COM,IDS.PGM
'COMPIL' IDS,'LS'IDS/-SP=IDS.F
;
PIP IDSDOT.MAC=IDS.MAC,IDSDOT.TLE,DOTS.MAC
MAC IDSDOT.OB,'LS'IDSDOT/-SP=IDSDOT
;
MAC IDSOUT,'LS'IDSOUT/-SP=IDS,IDSOUT
;
PIP IDSFIL.F=IDSFIL.TLE,RASTER.COM,IDSFIL.PGM
'COMPIL' IDSFIL,'LS'IDSFIL/-SP=IDSFIL.F
;
;
; for the Printronix
;
PIP PTX.F=PTX.TLE,RASTER.COM,PTX.PGM
'COMPIL' PTX,'LS'PTX/-SP=PTX.F
;
PIP PTXDOT.MAC=PTX.MAC,PTXDOT.TLE,DOTS.MAC
MAC PTXDOT.OB,'LS'PTXDOT/-SP=PTXDOT
;
MAC PTXLIN,'LS'PTXLIN/-SP=PTXLIN
;
PIP PTXDMP.F=PTXDMP.TLE,RASTER.COM,PTXDMP.PGM
'COMPIL' PTXDMP,'LS'PTXDMP/-SP=PTXDMP.F
;
PIP PTXPIP.F=PTXPIP.TLE,RASTER.COM,PTXPIP.PGM
'COMPIL' PTXPIP,'LS'PTXPIP/-SP=PTXPIP.F
;
PIP PTXQMG.F=PTXQMG.TLE,RASTER.COM,PTXQMG.PGM
'COMPIL' PTXQMG,'LS'PTXQMG/-SP=PTXQMG.F
;
; for the Versatek
;
;PIP VERS.F=VERS.TLE,RASTER.COM,VERS.PGM
'COMPIL' VERS,'LS'VERS/-SP=VERS.FTN
;
;PIP VERDOT.MAC=VERS.MAC,VERDOT.TLE,DOTS.MAC
;MAC VERDOT.OB,'LS'VERDOT/-SP=VERDOT
;
;MAC VERLIN,'LS'VERLIN/-SP=VERLIN
;
;PIP VERDMP.F=VERDMP.TLE,RASTER.COM,VERDMP.PGM
;'COMPIL' VERDMP,'LS'VERDMP/-SP=VERDMP.F
;
;PIP VERPIP.F=VERPIP.TLE,RASTER.COM,VERPIP.PGM
;'COMPIL' VERPIP,'LS'VERPIP/-SP=VERPIP.F
;
PIP RASTER.OBS=*.OBJ
LBR RASTER/CR:1=RASTER.OBS
PIP *.OBJ;*/DE,*.F;*,*.OBS;*
PIP *.*/PU
PIP IDSDOT.OBJ/RE=IDSDOT.OB
PIP PTXDOT.OBJ/RE=PTXDOT.OB
