$ SET NOON
$! BUILD PCCTRIAL ON VMS IN COMPATIBILITY MODE
$! NOTE WE ASSUME NO OBJECT FILES EXIST ALREADY.
$ ! NOTE WE DON'T CHANGE TT: TO TI: AND USER MUST DO
$! AN ASSIGN UNDER RSX TO DO SO. KLUDGE FOR QUICK TEST
$! IN VMS COMPAT MODE.
$! This is the file to compile AnalytiCalc for the PRO 350/380 on
$! VMS in compat mode. The RSX F77 compiler is used (V5 here) and run
$! on VAX to make the .OBJ files. These are then made into a universal
$! library with PCX.COM. The universal library is moved to the PRO with
$! Kermit (or whatever) in file type "fixed" mode and unpacked with
$! PCXUNL.CMD into individual .OBJ files again. Then LBRCRE.CMD is used
$! to make the needed .OLB files and PCCPRO.CMD used to link the
$! thing on the PRO, giving the resulting .TSK file on P/OS. Other
$! sites may need to customize a bit differently but this allows
$! use of Fortran with FCS, rather than RMS, I/O calls. The reason is
$! that the program won't fit in 64KB with RMS I/O but will fit with
$! FCS I/O.
$ COPY PVKLUGPRM.FOR VKLUGPRM.FTN
$ F4P AT=AT.PRO/NOTR/NOI4/NOF77
$ F4P BASCNG=BASCNG.FOR/NOTR/NOI4/NOF77
$ F4P BLOCK=BLOCK.FOR/NOTR/NOI4/NOF77
$ F4P CALBIN=CALBIN.FOR/NOTR/NOI4/NOF77
$ F4P CALC=CALC.FTN/NOTR/NOI4/NOF77/DE
$ F4P CALUN=CALUN.FOR/NOTR/NOI4/NOF77
$ F4P CMDMUN=CMDMUN.PRO/NOTR/NOI4/NOF77
$ F4P CMND=CMND.FOR/NOTR/NOI4/NOF77
$ F4P CONTYP=CONTYP.FOR/NOTR/NOI4/NOF77
$ F4P DECLR=DECLR.FOR/NOTR/NOI4/NOF77
$! MAY NEED TO USE OLDER DSPSHT IF NEW IS TOO BIG
$! F4P DSPSHT=DSPSHT.FOR/NOTR/NOI4/NOF77
$ F4P DSPSHT=DSPSHT.F40/NOTR/NOI4/NOF77
$ F4P DTRFIN=DTRFIN/NOTR/NOI4/NOF77
$ F4P ERRCX=ERRCX.FOR/NOTR/NOI4/NOF77
$ F4P ERRMSG=ERRMSG.FOR/NOTR/NOI4/NOF77
$ F4P FLIP=FLIP.FOR/NOTR/NOI4/NOF77
$ F4P FRMEDT=FRMEDT.P11/NOTR/NOI4/NOF77
$ F4P GETNNB=GETNNB.FOR/NOTR/NOI4/NOF77
$ F4P GMSUBS=GMSUBS.FOR/NOTR/NOI4/NOF77
$ F4P INDEX=INDEX.FOR/NOTR/NOI4/NOF77
$ F4P INPOST=INPOST.FOR/NOTR/NOI4/NOF77
$ F4P JULIAN=JULIAN.FOR/NOTR/NOI4/NOF77
$ F4P LIST=LIST.FOR/NOTR/NOI4/NOF77
$ F4P MDET=MDET.FOR/NOTR/NOI4/NOF77
$ F4P REFLECT=REFLECT.FOR/NOTR/NOI4/NOF77
$ F4P MOUT=MOUT.FOR/NOTR/NOI4/NOF77
$ F4P MTXEQU=MTXEQU.FOR/NOTR/NOI4/NOF77
$ F4P MULADD=MULADD.FOR/NOTR/NOI4/NOF77
$ F4P MULCON=MULCON.FOR/NOTR/NOI4/NOF77
$ F4P MULDIV=MULDIV.FOR/NOTR/NOI4/NOF77
$ F4P MULMUL=MULMUL.FOR/NOTR/NOI4/NOF77
$ F4P NEXTEL=NEXTEL.FTN/NOTR/NOI4/NOF77
$ F4P POSTVL=POSTVL.FOR/NOTR/NOI4/NOF77
$ F4P RECALC=RECALC.FOR/NOTR/NOI4/NOF77
$ F4P RND=RND.FOR/NOTR/NOF77/I4
$ F4P SLEND=SLEND.FOR/NOTR/NOI4/NOF77
$ F4P SPREDSHT=SPREDSHT.PR1/NOTR/NOI4/NOF77/DE
$ F4P SPRINI=SPREDSHT.PR2/NOTR/NOF77/NOI4/DE
$ F4P STRCMP=STRCMP.FOR/NOTR/NOI4/NOF77
$! F4P TTYINI=TTYINI.FTN/NOTR/NOI4/NOF77
$ F4P GETTTL=GETTTL.FOR/NOTR/NOI4/NOF77
$ MAC TTYINI=TTYINI
$ PIP TTYINI.OBJ/AP=GETTTL.OBJ
$ DEL GETTTL.OBJ;*
$ F4P USRCMD=USRCMD.PRO/NOTR/NOI4/NOF77
$ F4P USRFCT=USRFCT.FOR/NOTR/NOI4/NOF77/DE
$! SELECT ONE OF THE FOLLOWING SCREEN SUPPORT ROUTINES
$ F4P UVT100=UVTAVO.FOR/NOTR/NOI4/NOF77
$!  UVT52.FOR
$!  UVTAVO.FOR
$!  UVTCS.FOR
$!  UVTDM.FOR
$!  UVTTV925.FOR
$!  UVT52.FOR
$! END OF SCREEN SUPPORT ROUTINES
$ F4P VAROUT=VAROUT.FOR/NOTR/NOI4/NOF77
$ F4P VARSCN=VARSCN.FOR/NOTR/NOI4/NOF77
$ F4P WRKFIL=WRKFIL.FIV/NOTR/NOI4/NOF77
$ F4P WSHEET=WSHEET.F40/NOTR/NOI4/NOF77
$ F4P XQTCMD=XQTCMD.FTN/NOTR/NOI4/NOF77
$ F4P ZERO=ZERO.FOR/NOTR/NOI4/NOF77
$ F4P ZNEG=ZNEG.FOR/NOTR/NOI4/NOF77
$ PIP ERRMSG.OBJ/AP=DTRFIN.OBJ
$! ENSURE DTRFIN (DUMMY ROUTINE) IS WHERE
$! IT CAN BE HANDLED FROM XQTCMD.
$! Now fire up PCX.COM separately to make the PCX.ULB to move to
$! the PRO. Use PCXUNL.CMD to unload, LBR @LBRCRE.CMD to make the
$! .OLB's, and then link @PCCPRO.CMD to link it to a .TSK image.