	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.IFDF $OU .GOTO DEF1
	ASN SY:=OU:
	.GOTO DEF2
.DEF1:  ASN '$OU'=OU:
.DEF2:	.IFDF $IN .GOTO DEF3
	ASN SY:=IN:
	.GOTO DEF4
.DEF3:	ASN '$IN'=IN:
.DEF4:	
	.IFNDF $RESLB .ASK $RESLB BUILD BYE WITH AN FCS RESIDENT LIBRARY
	.IFNDF $SYSAC .ASK $SYSAC HAVE YOU INCORORATED THE SYSTEM ACCOUNTING DATABASES
	.IFT $SYSAC .SETF $LOGIT
	.IFNDF $LOGIT .ASK $LOGIT DO YOU WISH LOGOFF DATA SENT TO LOG...
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.SETF $TKB
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM PIP BYE.OBJ;*/DE/NM
	.IFT $ASM SLP @BYE.SLP
	.IFT $ASM .OPEN BYEASM.CMD;1
	.IFT $ASM .DATA BYE'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'BYE
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @BYEASM
	.IFT $ASM PIP BYEASM.CMD;1/DE,BYE.MAC;2
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP BYE.TSK;*/DE/NM
	.IFT $TKB .OPEN BYEBLD.CMD;1
	.IFT $TKB .DATA BYE/PR/MM/CP'MP'=BYE,MCR/LB:ACTFIL
	.IFT $TKB .DATA MCR/LB,LB0:[1,54]RSX11M.STB/SS,[1,1]EXELIB/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA PAR=GEN
	.IFT $TKB .IFT $RESLB .DATA LIBR=FCSRES:RO:6
	.IFT $TKB .DATA UNITS=7
	.IFT $TKB .DATA ASG=TI:1:7
	.IFT $TKB .DATA ASG=SY:2
	.IFT $TKB .DATA GBLDEF=$USRSB:0		; ADDRESS OF USER SUBROUTINE (0=NOT USED)
	.IFT $TKB .DATA GBLDEF=$NETSB:0		; ADDRESS OF DECNET SUBROUTINE (0=NOT USED)
	.IFT $TKB .DATA GBLDEF=INDTIM:36	; TIMEOUT FOR INDIRECT(SECONDS).
	.IFT $TKB .IFF $SYSAC .IFF $LOGIT .DATA GBLDEF=$ACMSK:0 ; NO SYSTEM ACCOUNTING
	.IFT $TKB .IFT $LOGIT .DATA GBLDEF=$ACMSK:200 ; SEND DATA TO LOG... ANYWAY
	.IFT $TKB .DATA 			; LOGOFFS, TI"S, ETC LOGGED TO FILE.
	.IFT $TKB .DATA GBLDEF=$MALSB:0		; DO NOT USE DECs MAIL SUBROUTINE
	.IFT $TKB .DATA GBLDEF=MAXDAY:2		; DO NOT COMPUTE LOGON TIME IF >2 DAYS GO BY
	.IFT $TKB .DATA STACK=64
	.IFT $TKB .DATA TASK=...BYE
	.IFT $TKB .DATA PRI=70
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @BYEBLD
;	.IFT $TKB PIP BYEBLD.CMD;1/DE
.FINIT:	;EOF BYE
	
