.ENABLE SUBSTITUTION .ENABLE GLOBAL .ASKS F4 WHAT IS THE TASKNAME OF YOUR COMPILER (F77) .;COMMAND FILE TO BUILD PORTACALC ON PDP11 (RSX11M+) .; GLENN EVERHART, 12/21/82 PIP VKLUGPRM.FTN/NV=MVKLUGPR5.FTN .OPEN PORTACALC.BLD .DATA PCC/FP/CP/ID=AT .SETS NM "AT" 'F4' 'NM'='NM'/NOTR/NOF77 TRU 'NM'.OBJ;* .SETS NM "BASCNG" .GOSUB WORK .SETS NM "BLOCK" .GOSUB WORK .SETS NM "CALBIN" .GOSUB WORK .SETS NM "CALC" .GOSUB WORK .SETS NM "CMDMUN" .GOSUB WORK .SETS NM "TTYINI" .GOSUB WORK .SETS NM "CALUN" .GOSUB WORK .SETS NM "CMND" .GOSUB WORK .SETS NM "CONTYP" .GOSUB WORK .SETS NM "DECLR" .GOSUB WORK .SETS NM "DSPSHT" .GOSUB WORK .SETS NM "ERRCX" .GOSUB WORK .SETS NM "ERRMSG" .GOSUB WORK .SETS NM "FLIP" .GOSUB WORK .SETS NM "GETNNB" .GOSUB WORK .SETS NM "INPOST" .GOSUB WORK .SETS NM "LIST" .GOSUB WORK .SETS NM "MOUT" .GOSUB WORK .SETS NM "MULADD" .GOSUB WORK .SETS NM "MULCON" .GOSUB WORK .SETS NM "MULDIV" .GOSUB WORK .SETS NM "MULMUL" .GOSUB WORK .SETS NM "NEXTEL" .GOSUB WORK .SETS NM "POSTVL" .GOSUB WORK .SETS NM "RECALC" .GOSUB WORK .SETS NM "SLEND" .GOSUB WORK .SETS NM "SPREDSHT" .GOSUB WORK .SETS NM "STRCMP" .GOSUB WORK .SETS NM "INDEX" .GOSUB WORK .SETS NM "UVTDM" .GOSUB WORK .SETS NM "VAROUT" .GOSUB WORK .SETS NM "VARSCN" .GOSUB WORK .SETS NM "XQTCMD" .GOSUB WORK .SETS NM "ZERO" .GOSUB WORK .SETS NM "ZNEG" .GOSUB WORK .; NOTE IF YOUR FORTRAN OTS IS SOMEWHERE ELSE OR YOU .; DON'T USE F4P/F77, YOU'LL HAVE TO EDIT THIS. .DATA LB:[1,1]SYSLIB/LB:$SHORT .DATA / .DATA TASK=...PCC .DATA UNITS=10 .DATA ASG=TI:1:5:6:8 .DATA MAXBUF=512 .DATA SUPLIB=FCSFSL:SV .DATA // .CLOSE SRD /OV/DE TKB @PORTACALC.BLD .GOTO DONE .WORK: .IF NM NE "AT" .DATA 'NM' 'F4' 'NM'='NM'/NOTR/NOF77 TRU 'NM'.OBJ;* .RETURN .DONE: