;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