!MCR RAT/SYMBOLS STD.DEF RAT4.RAT >RAT4.FTN
!MCR RAT IO.RAT >IO.FTN
!MCR RAT GETARG.RAT >GETARG.FTN
!MCR RAT SUPPORT.RAT >SUPPORT.FTN
!MCR RAT XITSTA.RAT >XITSTA.FTN
MCR F4P RAT4=RAT4/NOTR/NOCK
MCR F4P IO=IO/NOTR/NOCK
MCR F4P GETARG=GETARG/NOTR/NOCK
MCR F4P SUPPORT=SUPPORT/NOTR/NOCK
MCR F4P XITSTA=XITSTA/NOTR/NOCK
MCR F4P READPR=READPR/NOTR/NOCK
MCR F4P OPN=OPN/NOTR/NOCK
MCR MAC GETPUT=GETPUT
LINK/READ_WRITE/OPT RAT4,-
IO,GETARG,SUPPORT,XITSTA,GETPUT,READPR,OPN
TASK=...RAT
UNITS=10
ACTFIL=10
/
INS/TASK:...RAT RAT4