;BUILD PCGRAF, THE PORTACALC GRAPHICS OUTPUT TASK
;(IGNORE ANY ERRORS HAVING TO DO WITH INDEX BEING LOCALLY DEFINED)
;ASSUMES F77. MINOR EDITS FOR F4P.
F4P PCGRAF=PCGRAF/NOTR
F4P GHASP=GHASP/NOTR/I4
F4P INDEX=INDEX/NOTR
F4P GVARSCN=GVARSCN/NOTR
.OPEN PCGBLD.CMD
.DATA PCG/CP/FP=PCGRAF,GVARSCN,INDEX,GHASP
.DATA /
.DATA TASK=...PCG
.DATA ASG=TI:3:4:5,LP:6
.DATA //
.CLOSE
TKB @PCGBLD
PIP PCGBLD.CMD;0/DE/NM
