.; Command file to compile and link a fortran program which .; uses core graphics on a PRO .; .; B. Z. Lederman .; .; Input can be @GRAPHIC XXXX [nolist] [notr] .; .; where XXXX is the name of the fortran program .; (the extension .FTN is not needed) .; .; or @GRAPHIC .; .; in which case the user will be prompted for a file name .; .ENABLE SUBSTITUTION .PARSE COMMAN " " A FILE LIST TRACE .IF LIST NE "NOLIST" .SETS LIST "LIST" .IF TRACE NE "NOTR" .SETS TRACE "TR:ALL" .IF FILE NE "" .GOTO GOT .ASKS FILE Fortran source file .GOT: FOR/'LIST'/'TRACE'/OBJ:GRAPHIC 'FILE' .; .; Don't link if the fortran compiler detected errors .; .IF NE &7 .GOTO EXIT .; LINK @GRAPHBLD DELETE 'FILE'.TSK;* RENAME GRAPHIC.TSK 'FILE'.TSK .; DELETE/NOWARNING 'FILE'.MAP;* .; RENAME GRAPHIC.MAP 'FILE'.MAP .EXIT: PURGE GRAPHIC.*, 'FILE'.* DELETE GRAPHIC.OBJ;*