.; Command file to compile and link a Fortran program which .; uses Core Graphics on a PRO .; .; B. Z. Lederman Bankers Trust Co. .; .; Input can be @GRAPHIC XXXX .; .; where XXXX is the name of the fortran program .; (the extension .FTN is not included) .; .; or @GRAPHIC .; .; in which case the user will be prompted for a file name. .; .ENABLE SUBSTITUTION .PARSE COMMAN " " A FILE .IF FILE NE "" .GOTO GOT .ASKS FILE Fortran source file .GOT: FOR/LIST/TR:ALL/OBJ:GRAPHIC 'FILE' .; .; Don't link if the Fortran compiler detected errors .; .IF NE &7 .GOTO EXIT .; LINK @GRAPHBLD .; Clean up account and rename files. DELETE 'FILE'.TSK;* RENAME GRAPHIC.TSK 'FILE'.TSK .EXIT: PURGE GRAPHIC.*, 'FILE'.* DELETE GRAPHIC.OBJ;*