!
!  TAKE OUT THE FOLLOWING LINE ON RSX SYSTEMS
!
MCR
!RAT/SYMBOLS BURSTF.RAT >BURSTF.FTN
!RAT/SYMBOLS IO.RAT >IO.FTN
!RAT/SYMBOLS GETARG.RAT >GETARG.FTN
!RAT/SYMBOLS SUPPORT.RAT >SUPPORT.FTN
F4P BURSTF=BURSTF/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 SUPPORT/CR=SUPPORT,IO,GETARG,XITSTA,READPR,OPN,GETPUT,EXITST
TKB @BURSTF.TKB
!
!  REMOVE THE FOLLOWING LINE ON RSX SYSTEMS
!
DCL