$ SET NOON $set verify $! NOTA BENE: this is NOT the latest AnalytiCalc version either $! for VAX or PDP11 but will work well on VAX anyway. $set noverify $ ! NOTE: JUST LINK ALL OBJECTS TOGETHER TO BUILD. NOTHING SPECIAL. $ ! WE USE PDP11 VERSION FOR ALL BUT CALC,SPREDSHT,UVT100 (VERY MINOR $ ! MODIFICATIONS MADE TO THOSE.) $ ! THIS VERSION ALSO LINKS AVO VERSION OF VT100 PORTACALC AND THE $ ! PCGRAF GRAPHICS UTILITY. $ ! NOTE TOO THAT WE COMPILE 2 MODULES WITH D_LINES SPECIFIED. THIS $ ! GUARANTEES THAT DK: IS THE LOGICAL NAME FOR KEYPAD COMMAND FILES $ ! AND KEYPAD.PIC SO THAT HELP 9 WILL DISPLAY KEYPAD KEYS AND SO $ ! THE KEYPAD KEYS WILL WORK. OMIT THE /D_LINES FOR NO HELP 9 AND $ ! KEYPAD COMMAND FILES IN DEFAULT ACCOUNT... $! $! BUILD FOR SCREEN INDEPENDENT VAX CURSOR CONTOLS (SCRIND) INSTEAD $! OF VT100, SO USE SCRIND INSTEAD OF UVTAVO ROUTINE. $! $! COPY HVKLUGPRM.FTN VKLUGPRM.FTN ! USE FOR UVTAVO $ COPY HVKLUGPR5.FTN VKLUGPRM.FTN $pur vklugprm.ftn $ DEL *.OBJ;* $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST AT $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST BASCNG.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST BLOCK.FTN $ ! NOTE WE USE VAX VERSION OF CMDMUN, BUT DEFAULT DUMMY TTYINI ROUTINE... $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST/D_LINES CMDMUN.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOLIST TTYINI $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST CALBIN.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST/D_LINES CALC $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST CALUN.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST CMND.F4 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST CONTYP.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST DECLR.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST DSPSHT.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST ERRCX.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST ERRMSG.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST FLIP.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST FRMEDT.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST GETNNB.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST INPOST.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST LIST.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST JULIAN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MOUT.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MULADD.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MULCON.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MULDIV.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MULMUL.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MTXEQU.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST MDET.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST NEXTEL.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST POSTVL.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST RECALC.F4 $ FORTRAN/NOF77/NODEBUG/NOCHECK/I4/NOLIST RND.FOR $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST SLEND.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST/D_LINES SPREDSHT.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST STRCMP.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST GMSUBS.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST INDEX.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST USRCMD $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST USRFCT.F40 $! note we can use the UVT*.* routines for other screen types. $! CS = colorscan 10; 100=VT100 w/o AVO, AVO=VT100 with AVO, $! DM = Datamedia Elite 1500, TV925=Televideo 925, PC=IBMPC $! with ANSI.SYS (and color display). SCRIND uses SCRFT $! routines for screen-independent control and handles $! VT100 and VT52 both more or less well. It does not do $! intense video on negative numbers however; use UVTAVO for $! that... $! FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST UVTAVO.FTN $ FORTRAN/NOF77/NODEBUG/NOI4/NOCHECK/NOLIST SCRIND $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST VAROUT.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST VARSCN.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST WRKFIL.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST/D_LINES XQTCMD.F40 $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST ZERO.FTN $ FORTRAN/NOF77/NODEBUG/NOCHECK/NOI4/NOLIST ZNEG.FTN $ COPY *.OBJ PCCVM.OBS $! note: $! If this link step fails with "out of virtual address space" or $! some such message, your VIRTUALPAGECNT SYSGEN parameter is too $! small and you need either to edit HVKLUGPR5.FTN to make $! the sheet smaller, or increase the parameter and relink. $! To relink use a command sequence like $! libr/extract=*/out=pccvm pccvm $! link/nomap pccvm $! If you have to edit the parameter file (make the sheet about $! half as large for starters), rerun this whole procedure; you $! must recompile. However, with VMS V3, the extra demand - zero $! pages produced for this program don't cost much and I recommend $! bumping your virtualpagecnt parameter to let the program run $! full size. $ LINK/NOMAP PCCVM.OBS $ LIBR/CREATE PCCVM.OLB PCCVM.OBS $ DEL *.OBS;*,*.MAP;* $ PUR $ DEL *.OBJ;* $! Now link the graphics modules... $!; THIS FILE IS THE MODULES TO LINK TO BUILD PCGRAF, THE $!; PORTACALC GRAPHICS OUTPUT TASK (VMS) $FORTRAN/NOF77/NOLIST/NOCHECK PCGRAF $FORTRAN/NOF77/NOLIST/NOCHECK INDEX.FTN $FORTRAN/NOF77/NOLIST/NOCHECK GVARSCN.FTN $FORTRAN/NOF77/NOLIST/NOCHECK GHASP.FTN $LINK PCGRAF+INDEX+GVARSCN+GHASP $LIBR/CREATE PCGRAF PCGRAF $LIBR/INSERT PCGRAF INDEX $LIBR/INSERT PCGRAF GVARSCN $LIBR/INSERT PCGRAF GHASP $del *.obj;* $! cleaned up now, so all done.