$ rename ratfordef.vms ratfor.def $ rat BALPAR $ rat BLOCKDATA $ rat BRKNXT $ rat DEFGEN $ rat DOBACK $ rat DOCODE $ rat DOSTAT $ rat EATUP $ rat ELSEIF $ rat ENDSTR $ rat FOR $ rat GETLIN $ rat GETTOK.VMS $ rat IFCODE $ rat INCGEN $ rat INIT $ rat LABELC $ rat LABELS $ rat LABGEN $ rat OPENF.VMS $ rat OTHERC $ rat OUT $ rat PARSE $ rat PUTBKS $ rat RATFOR $ rat RATINI.VMS $ rat RATLIB $ rat RATOUT.VMS $ rat REPC $ rat SCAN $ rat SETERR $ rat STRING $ rat SWITCH $ rat SYNERR $ rat TABLES $ rat UNDEF $ rat UNSTAK $ rat UNTILC $ rat UNTILS $ rat WHILEC $ rat WHILES $ ! $ ! And now to run it through fortran $ ! $ for/nolist BALPAR $ for/nolist BLOCKDATA $ for/nolist BRKNXT $ for/nolist DEFGEN $ for/nolist DOBACK $ for/nolist DOCODE $ for/nolist DOSTAT $ for/nolist EATUP $ for/nolist ELSEIF $ for/nolist ENDSTR $ for/nolist FOR $ for/nolist GETLIN $ for/nolist GETTOK $ for/nolist IFCODE $ for/nolist INCGEN $ for/nolist INIT $ for/nolist LABELC $ for/nolist LABELS $ for/nolist LABGEN $ for/nolist OPENF $ for/nolist OTHERC $ for/nolist OUT $ for/nolist PARSE $ for/nolist PUTBKS $ for/nolist RATFOR $ for/nolist RATINI $ for/nolist RATLIB $ for/nolist RATOUT $ for/nolist REPC $ for/nolist SCAN $ for/nolist SETERR $ for/nolist STRING $ for/nolist SWITCH $ for/nolist SYNERR $ for/nolist TABLES $ for/nolist UNDEF $ for/nolist UNSTAK $ for/nolist UNTILC $ for/nolist UNTILS $ for/nolist WHILEC $ for/nolist WHILES $ ! $ ! Create the library $ ! $ lib/create=modules:255 ratfor $ lib ratfor BALPAR $ lib ratfor BLOCKDATA $ lib ratfor BRKNXT $ lib ratfor DEFGEN $ lib ratfor DOBACK $ lib ratfor DOCODE $ lib ratfor DOSTAT $ lib ratfor EATUP $ lib ratfor ELSEIF $ lib ratfor ENDSTR $ lib ratfor FOR $ lib ratfor GETLIN $ lib ratfor GETTOK $ lib ratfor IFCODE $ lib ratfor INCGEN $ lib ratfor INIT $ lib ratfor LABELC $ lib ratfor LABELS $ lib ratfor LABGEN $ lib ratfor OPENF $ lib ratfor OTHERC $ lib ratfor OUT $ lib ratfor PARSE $ lib ratfor PUTBKS $ lib ratfor RATINI $ lib ratfor RATLIB $ lib ratfor RATFOR $ lib ratfor RATOUT $ lib ratfor REPC $ lib ratfor SCAN $ lib ratfor SETERR $ lib ratfor STRING $ lib ratfor SWITCH $ lib ratfor SYNERR $ lib ratfor TABLES $ lib ratfor UNDEF $ lib ratfor UNSTAK $ lib ratfor UNTILC $ lib ratfor UNTILS $ lib ratfor WHILEC $ lib ratfor WHILES $ ! $ ! Now link the whole mess $ ! link ratfor/include=(ratfor$main,blockdata$data)/lib $ ! $ ! Clean everything up $ ! $ delete *.for;* $ delete *.obj;* $ purge ratfor.olb