|YDIV 0
$User = "TestUser"
$Pass = "TestPass"

$TabStop = 0
$UnSelectedStyle = "12,LUCIDA CONSOLE"
$SelectedStyle = "RED,12,LUCIDA CONSOLE"

$UserTabStop = 0
$PassTabStop = 1
$OKTabStop = 2
$CancelTabStop = 3

$UserBlank = 1
$PassBlank = 1

$UserInput = "_"
$PassInput = ""
$PassDisplay = "_"
$txtUser = CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)     
$txtPass = CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)
$Background = CHR(10)     ##########################CHR(10)     #                        #CHR(10)     #  ###############       #CHR(10)     #  #Username     #       #CHR(10)     #  #             #       #CHR(10)     #  ###############       #CHR(10)     #                        #CHR(10)     #  ###############       #CHR(10)     #  #Password     #       #CHR(10)     #  #             #       #CHR(10)     #  ###############       #CHR(10)     #                        #CHR(10)     # ##########  ########## #CHR(10)     # #        #  #        # #CHR(10)     # ##########  ########## #CHR(10)     #                        #CHR(10)     ##########################CHR(10)
$btnOK = CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)           OK
$btnCancel = CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)CHR(10)                     CANCEL

$ValidKeys = ".32.48.49.50.51.52.53.54.55.56.57.65.66.67.68.69.70.71.72.73.74.75.76.77.78.79.80.81.82.83.84.85.86.87.88.89.90."

GOTO Display

@TabChange
$TabStop = $TabStop + 1
IF $TabStop > 3
   $TabStop = 0
ENDIF
GOTO Display

@Input
$Key = GETKEY()
IF $Key = 39
   GOTO TabChange
ELSEIF $Key = 13
   IF $TabStop = 2
      GOTO OK
   ELSEIF $TabStop = 3
      GOTO Cancel
   ENDIF
ELSEIF $Key = 8
   IF $TabStop = 0   
      $LEN = LEN($UserInput) - 1
      IF $LEN > 0
         $UserInput = LEFT($UserInput,$LEN)
      ELSEIF $LEN = 0
         $UserBlank = 1
         $UserInput = "_"
      ENDIF
   ELSEIF $TabStop = 1
      $LEN = LEN($PassInput) - 1
      IF $LEN > 0
         $PassInput = LEFT($PassInput,$LEN)
         $PassDisplay = LEFT($PassDisplay,$LEN)
      ELSEIF $LEN = 0
         $PassBlank = 1
         $PassInput = ""
         $PassDisplay = "_"
      ENDIF
   ENDIF
ELSEIF INSTR("$ValidKeys",".$Key.") > 0
   IF $TabStop = 0
      IF $UserBlank = 1
         $UserBlank = 0
         $UserInput = ""
      ENDIF
      $UserInput = $UserInputCHR($Key)
   ELSEIF $TabStop = 1
      IF $PassBlank = 1
         $PassBlank = 0
         $PassDisplay = ""
      ENDIF
      $PassInput = $PassInputCHR($Key)
      $PassDisplay = $PassDisplay*
   ENDIF
ELSE
   GOTO Input
ENDIF

@Display
$DisplayData = ""
IF $TabStop = 0
   $DisplayData = $DisplayData$txtUser           $UserInput{RED,12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$txtPass           $PassDisplay{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnOK{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnCancel{12,LUCIDA CONSOLE}$newline
ELSEIF $TabStop = 1
   $DisplayData = $DisplayData$txtUser           $UserInput{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$txtPass           $PassDisplay{RED,12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnOK{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnCancel{12,LUCIDA CONSOLE}$newline
ELSEIF $TabStop = 2
   $DisplayData = $DisplayData$txtUser           $UserInput{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$txtPass           $PassDisplay{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnOK{RED,12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnCancel{12,LUCIDA CONSOLE}$newline
ELSEIF $TabStop = 3
   $DisplayData = $DisplayData$txtUser           $UserInput{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$txtPass           $PassDisplay{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnOK{12,LUCIDA CONSOLE}$newline
   $DisplayData = $DisplayData$btnCancel{RED,12,LUCIDA CONSOLE}$newline
ENDIF
$DisplayData = $DisplayData$Background{12,LUCIDA CONSOLE}$newline
$DisplayData = $DisplayData{100}$newline
$DisplayData = $DisplayData{100}
CLEAR
SAYALL $DisplayData
GOTO Input

@OK
IF $UserInput = $User
   IF $PassInput = $Pass
      GOTO CorrectUser
   ELSE
      GOTO IncorrectUser
   ENDIF
ELSE
   GOTO IncorrectUser
ENDIF

@Cancel
CLEAR
SAY Not Logged In
EXIT

@CorrectUser
CLEAR
SAY Logged In
EXIT

@IncorrectUser
CLEAR
SAY Incorrect Username or Password
PAUSE
GOTO Display