;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;³                 Log-Off Comment v. 1                              ³
;ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
;³ Written by Kris Steinwender,  SysOp - The BBS Express 609-461-6254³
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

CALL "C:\PCB\PPE\WHO\GOODBYE.PPE"
INTEGER X ; FUTURE USE
INTEGER Y ; FUTURE USE
INTEGER Z ; FUTURE USE
STRING A
STRING B ; FUTURE USE
STRING C ; FUTURE USE


NEWLINE
PRINTLN "@X0A(@X0CQ@X0A) Quit.  I want back in the BBS! @X0F"
NEWLINE
PRINTLN "@X0A(@X0CG@X0A) Goodbye                        @X0F"
NEWLINE
PRINTLN "@X0A(@X0CL@X0A) Log-Off Comment                @X0F"
NEWLINE
INPUTSTR "@X0AEnter your choice now", A, @X0A, 1, "QGL", FIELDLEN + GUIDE + UPCASE

         IF ( A = "Q") GOTO QUIT
         IF ( A = "G") GOTO BYEBYE
         IF ( A = "L") GOTO COMMENT

:QUIT
         NEWLINE
         PRINTLN "@X0APlease hold... re-loading BBS... @X0F"

END

:BYEBYE
         NEWLINE
         BYE

:COMMENT

         LOG "Goodbye [PPE] v.1 - Comment to SysOp ", FALSE
         SHOWOFF
         KBDSTUFF "E^M"
         KBDSTUFF "SYSOP^M"
         KBDSTUFF "LOG-OFF COMMENT^M"
         KBDSTUFF "R^M"
         KBDSTUFF "Y^M"
         SHOWON
         END