$ SET NOON
$! BUILD PCC ON VMS WITH DTR INTERFACE
$! NOTE WE ASSUME NO OBJECT FILES EXIST ALREADY.
$! BUILD FOR VAX ANALYTICALC INCLUDING DATATRIEVE
$! INTERFACE (THE REAL ONE).
$! THIS VERSION ALLOWS PRINT LINES OF 512 CHARACTERS.
$! Use this file to build AnalytiCalc on VMS where you DO
$! have DTR-32 installed and want to link to it. If you do not
$! have Datatrieve-32 (DTR-32), use PCCMAKIV.COM instead.
$ COPY BVKLUGPR5.FOR VKLUGPRM.FTN
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK AT.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK BASCNG.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK BLOCK.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK CALBIN.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK CALC.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK CALUN.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK/D_LINES CMDMUN.F40
$ FORTRAN/NOF77/NODEBUG/D_LINES/NOI4/NOLIST/NOCHECK CMND.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK CODES.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK CONTYP.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK DECLR.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK DSPSHT.FVX
$! HERE'S WHERE WE PULL IN REAL DTR FUNCTIONS.
$ FORTRAN/F77/NODEBUG/NOI4/NOLIST/NOCHECK DTRIF.FVX
$! USE DTRIF.FVD IF DTR IS MISSING.
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK ERRCX.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK ERRMSG.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK FLIP.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK FFT.FTN
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK FRMEDT.F40
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK GETNNB.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK GMSUBS.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK GTMUNG.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK INDEX.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK INPOST.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK JULIAN.F40
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK LINFIT.FTN
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK LIST.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MDET.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MOUT.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK REFLECT.F40
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MTXEQU.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MULADD.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MULCON.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MULDIV.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK MULMUL.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK NEXTEL.F40
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK POSTVL.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK RECALC.F40
$ FORTRAN/NOF77/NODEBUG/I4/NOLIST/NOCHECK RND.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK SLEND.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK SPREDSHT.FVX
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK STRCMP.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK TTYINI.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK USRCMD.FVX
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK USRFCT.FVX
$! USE SCREEN INDEPENDENT CURSOR CONTROL VERSION OF UVT100 ROUTINE
$! Note: For Colorscan 10 version, if you compile UVTCS.FVX and
$! TTYINI.FVX and use them, an extra subroutine in UVTCS is
$! called to allow the PF5 to PF12 keys to be defined. This is
$! a good tempate for adding "extra" function key definitions
$! to other terminals where these are desired. On the colorscan,
$! PF5 to PF12 produce sequences <control-B><letter><CR> where
$! letter is A to H or a to h (depending on state of SHIFT). We
$! map them into some pseudo VT200 keys' ESC sequences by main
$! force & awkwardness. For a VT100 version that doesn't care
$! what the system thinks is the terminal use UVT100 or UVTAVO,
$! preferably the latter. For VT52 try UVT52 and so on...
$! The UVTAVO version could be handy for running this under a
$! windowing package where the system might have the wrong terminal
$! type setup or where the SCRFT routines might do something weird.
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK SCRIND.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK VAROUT.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK VARSCN.FOR
$! WRKFIL.F40 DOES NOT SUPPORT INPUT/OUTPUT AREAS BUT
$! IS OTHERWISE CURRENT. WRKFIL.FVX HAS ALL NEW STUFF FOR
$! VAX.
$! NOTE NEEED THE /I4 COMPILE
$! TO BE SURE WE DON'T OVERFLOW ARRAY BOUNDS. SOME BIG
$! SUBSCRIPTS ARE MORE THAN 16 BITS WIDE.
$ FORTRAN/NOF77/NODEBUG/I4/NOLIST/NOCHECK WRKFIL.FVX
$! FORTRAN/NOF77/NODEBUG/I4/NOLIST/NOCHECK WRKFIL.F40
$! WSHEET.FVX IS CURRENT EXCEPT FOR NO IN/OUT AREA SUPPORT
$! USE WSHEET.F4 FOR MOST RECENT...
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK WSHEET.F4
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK XQTCMD.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK ZERO.FOR
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK ZNEG.FOR
$ COPY *.OBJ PCCX.OBS
$! NOW LINK WITH DTR STUFF
$ LINK/NOMAP PCCX.OBS+DTR/OPT
$! USES DTR.OPT HERE ALSO...
$ LIBR/CREA PCCX PCCX.OBS
$ DEL *.OBS;
$ DEL *.OBJ;*