;[ The EzyCom Scripting Crew ]
;[ Logoff Script 04/11/96    ]
;[ Pass these Parameters in  ]
;[ EzyMenu: /NOWRITE /NOLOG  ]
;[ Menu Option 12            ]
;[ Written by MiNDFLUX       ]

Capitalize FIRSTLETTER
MENUCMND 5 BYE
GOSUB LOGOFF

:LOGOFF
GOTOXY 4 19
ChangeColor 7 0
Display " yes "
GOTOXY 74 19
ChangeColor 7 0
Display " no "
GOTOXY 31 11
ChangeColor 15 0
Display"    L O G O F F    "
GETCHOICE ABLFQ 1 L
if 1 = "B"
GOSUB ABORT
endif
if 1 = "Q"
GOSUB ABORT
endif
if 1 = "L"
GOSUB SURE1
;MENUCMND 9
;quit
else
GOSUB FEEDBACK
endif
GOSUB LOGOFF

:ABORT
GOTOXY 4 19
ChangeColor 7 0
Display " yes "
GOTOXY 74 19
ChangeColor 7 0
Display " no "
GOTOXY 31 11
ChangeColor 15 0
Display"     A B O R T     "
GETCHOICE ABLFQ 1 Q
if 1 = "A"
GOSUB LOGOFF
endif
if 1 = "L"
GOSUB LOGOFF
endif
if 1 = "Q"
MENUCMND 4 TOP
quit
else
GOSUB FEEDBACK
endif
GOSUB ABORT

:FEEDBACK
GOTOXY 4 19
ChangeColor 7 0
Display " yes "
GOTOXY 74 19
ChangeColor 7 0
Display " no "
GOTOXY 31 11
ChangeColor 15 0
Display"  F E E D B A C K  "
GETCHOICE ABLFQ 1 F
if 1 = "B"
GOSUB LOGOFF
endif
if 1 = "L"
GOSUB LOGOFF
endif
if 1 = "F"
MENUCMND 27 1 /T=SysOp
else
GOSUB ABORT
endif
MENUCMND 5 BYE
GOSUB FEEDBACK

:SURE1
GOTOXY 74 19
ChangeColor 7 0
Display " no "
GOTOXY 4 19
ChangeColor 15 1
Display" YES "
GETCHOICE YNC 1 Y
IF 1 = "Y"
MENUCMND 9
quit
else
GOSUB Sure2
endif

:SURE2
GOTOXY 4 19
ChangeColor 7 0
Display " yes "
GOTOXY 74 19
ChangeColor 15 1
Display" NO "
GETCHOICE YND 1 N
IF 1 = "N"
GOSUB LOGOFF
else
GOSUB SURE1
endif

