!
!  BUILD SUPPORT LIBRARY
!
!RAT/SYMBOLS IO.RAT >IO.FTN
!RAT/SYMBOLS GETARG.RAT >GETARG.FTN
!RAT/SYMBOLS SUPPORT.RAT >SUPPORT.FTN
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 OPN=OPN/NOTR/NOCK
MCR MAC GETPUT=GETPUT
MCR MAC EXITST=EXITST
MCR LBR SUPPORT/CR=SUPPORT,IO,GETARG,XITSTA,OPN,GETPUT,EXITST
!
!  BUILD GLOBAL COMMON AREA
!
!RAT/SYMBOLS XEQCOM.RAT >XEQCOM.FTN
FOR/F4P XEQCOM
LINK/NOHEADER/MAP:XEQCOM/OPTIONS/POSITION_IND/SYMBOLS:XEQCOM-
/TASK:XEQCOM XEQCOM
ACTFIL=0
STACK=0
UNITS=0
/
INS/COMMON:XEQCOM/UIC:[1,1]/ACCESS:RW XEQCOM
!
!  BUILD XEQ
!
!RAT/SYMBOLS XEQ.RAT >XEQ.FTN
FOR/F4P/SW:(/NOTR/NOCK) XEQ
MAC CHAIN
!
!  WHOZON, SENMES, AND WFM REQUEST THE CURRENT USER NAME FROM .WHO.
!
FOR/F4P/SW:(/NOTR/NOCK) WHOZON
FOR/F4P/SW:(/NOTR/NOCK) SENMES
MAC WFM
!
!  YOU CAN LINK WITH F4PRES FORTRAN RESIDENT LIBRARY HERE IF YOU WANT TO
!
LINK/OPT/MAP:XEQ/MULTI/TASK:XEQ/READ_WRITE XEQ,WHOZON,SENMES,WFM,CHAIN,-
SUPPORT/LIB
TASK=$$$XEQ
RESCOM=XEQCOM/RW
MAXBUF=512
UNITS=7
/ 
INS XEQ
!
!  BUILD WHOIST - USED BY XEQ TO FIND USER NAME;
!   WHOIST IS MAPPED TO IASCOM, AND
!   WAITS IN A STOP STATE UNTIL IT RECEIVES A REQUEST
!   FROM XEQ FOR THE CURRENT USER'S NAME.
!
MAC WHOIST
LINK/OPT/PRIV/MAP:WHOIST/TASK:WHOIST WHOIST
LIBR=IASCOM:RO
UNITS=0
TASK=.WHO.
PRI=140
/
INS WHOIST
RUN/REAL .WHO. CO0
!
!   BUILD TEST PROGRAM AND COMMAND LINE RECEIVER SUBROUTINES
!
MAC RECCML
!RAT/SYMBOLS ECHO.RAT >ECHO.FTN
FOR/F4P/SW:(/NOTR/NOCK) ECHO
FOR/F4P/SW:(/NOTR/NOCK) READPR
LINK ECHO,RECCML,READPR,SUPPORT/LIB:GCMD
XEQ ECHO HELLO WORLD!