;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;³                  X-Pert [PPE] v. 1                      ³
;ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
;³        Written in PCBoard Programming Language          ³
;³                   By Kris Steinwender                   ³
;³             The BBS Express - 609-461-6254              ³
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

STRING Y
STRING X

GETUSER ; getting user information


IF  (U_EXPERT=FALSE) GOTO ON ; To see if the caller has expert mode off
IF  (U_EXPERT=TRUE) GOTO ITT ; To see if the caller had expert mode on

: ITT

INPUTSTR "@X0EAre you @X0CSURE @X0Ethat you want to turn expert mode off @X0C(Y/N) ", X, @X0C , 1,"YN", FIELDLEN + GUIDE + UPCASE

         IF ( X = "N") GOTO END

         LET U_EXPERT = FALSE

GOTO END


:ON

INPUTSTR "@X0EAre you @X0CSURE @X0Ethat you want to turn expert mode on @X0C(Y/N) ",Y, @X0C , 1,"YN", FIELDLEN + GUIDE + UPCASE

         IF ( X = "N" ) GOTO END

         LET U_EXPERT = TRUE

: END

PUTUSER

END