$!    PROCEDURE TO LINK KEYPUNCH
$!
$ FORTRAN KEYPUNCH
$ LINK    KEYPUNCH,KEYPUNCH/LIB,SYS$INPUT/OPTIONS
SYS$LIBRARY:LBRSHR/SHARE
$ DEL KEYPUNCH.OBJ;*
$ PURGE KEYPUNCH.EXE