$ SET NOON $! build without /nodebug so we get traceback on crashes... $! for debug only... use pccmakivd.com for production build. $! 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. $ COPY BVKLUGPR5.FOR VKLUGPRM.FTN $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST AT.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST BASCNG.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST BLOCK.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CALBIN.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CALC.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CALUN.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST/D_LINES CMDMUN.F40 $ FORT/NOF77/D_LINES/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CMND.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CODES.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST CONTYP.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST DECLR.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST DSPSHT.FVX $! HERE'S WHERE WE PULL IN REAL DTR FUNCTIONS. $ FORT/F77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST DTRIF.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST ERRCX.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST ERRMSG.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST FLIP.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST FRMEDT.F40 $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST GETNNB.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST GMSUBS.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST INDEX.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST INPOST.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST JULIAN.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST LIST.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MDET.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MOUT.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST REFLECT.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MTXEQU.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MULADD.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MULCON.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MULDIV.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST MULMUL.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST NEXTEL.F40 $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST POSTVL.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST RECALC.FOR $ FORT/NOF77/I4/NOLIST RND.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST SLEND.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST SPREDSHT.FVX $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST STRCMP.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST TTYINI.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST USRCMD.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST USRFCT.FVX $! USE SCREEN INDEPENDENT CURSOR CONTROL VERSION OF UVT100 ROUTINE $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST SCRIND.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST VAROUT.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST VARSCN.FOR $! USE WRKFIL.F40 FOR VAX ... MOST ADVANCED VERSION FOR BIG MEM. $! WRKFIL.FVX USES MEMORY TOO, BUT AS GIANT PAGEFILE. MIGHT $! BE HANDY FOR PORTING SOMEWHERE, BUT LESS EFFICIENT ON $! VAX THAN THE .F40 VERSION. NOTE NEEED THE /I4 COMPILE $! TO BE SURE WE DON'T OVERFLOW ARRAY BOUNDS. SOME BIG $! SUBSCRIPTS ARE MORE THAN 16 BITS WIDE. $! FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST WRKFIL.FVX $ FORT/NOF77/I4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST WRKFIL.F40 $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST WSHEET.FVX $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST/D_LINES XQTCMD.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST ZERO.FOR $ FORT/NOF77/NOI4/CHECK=(BOUNDS,NOOVER,NOUNDER)/NOLIST 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;*