$ set def [ratfor.source]
$ rat :== $dra0:[ratfor.source]ratfor rat
$ 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.R11
$ rat IFCODE
$ rat INCGEN
$ rat INIT
$ rat LABELC
$ rat LABELS
$ rat LABGEN
$ rat OPENFVMS
$ rat OTHERC
$ rat OUT
$ rat PARSE
$ rat PUTBKS
$ rat RATFOR
$ rat RATINI
$ rat RATLIB
$ rat ref
$ rat REPC
$ rat SCAN
$ 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 OPENFVMS
$ for/nolist OTHERC
$ for/nolist OUT
$ for/nolist PARSE
$ for/nolist PUTBKS
$ for/nolist RATFOR
$ for/nolist RATINI
$ for/nolist RATLIB
$ for/nolist ref
$ for/nolist REPC
$ for/nolist SCAN
$ 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 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 OPENFVMS
$ lib ratfor OTHERC
$ lib ratfor OUT
$ lib ratfor PARSE
$ lib ratfor PUTBKS
$ lib ratfor RATINI
$ lib ratfor RATLIB
$ lib ratfor ref
$ lib ratfor REPC
$ lib ratfor SCAN
$ 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/exe=r11 ratfor,blockdata,ratfor/lib
$ !
$ !	Clean everything up
$ !
$ delete *.for;*
$ delete *.obj;*
$ delete ratfor.olb;*