!
!  TAKE OUT THE FOLLOWING LINE ON RSX SYSTEMS
!
MCR
!RAT/SYMBOLS RATFIV.RAT >RATFIV.FTN
!RAT/SYMBOLS IO.RAT >IO.FTN
!RAT/SYMBOLS GETARG.RAT >GETARG.FTN
!RAT/SYMBOLS SUPPORT.RAT >SUPPORT.FTN
F4P RATFIV=RATFIV/NOTR/NOCK
F4P IO=IO/NOTR/NOCK
F4P GETARG=GETARG/NOTR/NOCK
F4P SUPPORT=SUPPORT/NOTR/NOCK
F4P XITSTA=XITSTA/NOTR/NOCK
F4P READPR=READPR/NOTR/NOCK
F4P OPN=OPN/NOTR/NOCK
MAC GETPUT=GETPUT
MAC EXITST=EXITST
LBR RATFIV/CR=RATFIV,SUPPORT,IO,GETARG,XITSTA,READPR,OPN,GETPUT,EXITST
TKB @RATFIV.TKB
!
!  REMOVE THE FOLLOWING LINE ON RSX SYSTEMS
!
DCL