MAIN==1
.GLOBAL TYPVLC,PBASE,TYPBOT,MAINPR,PTIME,IDPROC,ROOT,TTICHN,TTOCHN,TYPVEC
-.GLOBAL %UNAM,%JNAM,NOTTY,GCHAPN,INTHLD,PURBOT,PURTOP,N.CHNS,SPCCHK,CURFCN
+.GLOBAL %UNAM,%JNAM,%XUNA,%XJNA,NOTTY,GCHAPN,INTHLD,PURBOT,PURTOP,N.CHNS,SPCCHK,CURFCN
.GLOBAL TD.GET,TD.PUT,TD.LNT,NOSHUF,GLOTOP,RSTACK,RCYCHN,START,TVSTRT,REALTV
.GLOBAL IJFNS,IJFNS1,SJFNS,OPSYS,HASHTB,MULTSG,PURBTB,NSEGS,NOATMS,NOSETG,NOSET
LOC100: JRST START
IFN ITS,[
%UNAM: 0 ; HOLDS UNAME
+%XUNA: 0 ; HOLDS XUNAME
%JNAM: 0 ; HOLDS JNAME
+%XJNA: 0 ; HOLDS XJNAME
OPSYS: -1 ; MINUS ONE (-1) IF ITS
RLTSAV: -1 ; SAVED ARG TO REALTIMER
]