GETUSER

INTEGER I
STRING X
STRING Y
STRING Z


INPUTSTR "@X0EPlease enter the OREO password", Z, @X0E, 10, "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890/*-+,./?><;':][}{=-\|+_~!@#$%^&*()", FIELDLEN + GUIDE + UPCASE 
IF (Z = "DJORK") GOTO START
PRINTLN "Woops,  don't know the password"
END

: START

NEWLINE
INPUTSTR "@X0EAre you sure you want to page Kris", X, @X0E, 1, "YN", FIELDLEN + GUIDE + UPCASE
NEWLINE


IF (X = "Y") GOTO YES
IF (X = "N") GOTO NO
IF (LEN(X) = 0) GOTO NO
:YES


INPUTSTR "@X0EWhat is the reason", Y, @X0E, 55, " 1234567890!@#$%^%^&*()-_+=\|ABCDEFGHIJKLMNOPQRSTUVWXYZ,./?><", FIELDLEN + GUIDE + UPCASE

IF (Y = "               ") GOTO NO
LOG Y,FALSE


        NEWLINE
        PRINTLN "@X0EPlease hold... @X0F"

SOUND 100
DELAY 9
SOUND 150
DELAY 9
SOUND 200
DELAY 9
SOUND 250
DELAY 9
SOUND 300
DELAY 9
SOUND 350
DELAY 9
SOUND 400
DELAY 9
SOUND 350
DELAY 9
SOUND 300
DELAY 9
SOUND 250
DELAY 9
SOUND 200
DELAY 9
SOUND 150
DELAY 9
SOUND 100
SOUND 0
NEWLINES 9
GOTO TO

: TO

        PRINTLN "@X0EEither Kris Will Answer Or He Is Not Around The Computer at this moment@X0F"
        LOG "User tried to page you ",FALSE
        END

:NO
        LOG "User aborted oreo page", FALSE
        END