'
'   TTTTT H   H EEEEE      PPPP   AAA   SSSS  SSSS W W W  OOO  RRRR  DDDD
'     T   H   H E          P   P A   A S     S     W W W O   O R   R D   D
'     T   HHHHH EEEE       PPPP  AAAAA  SSS   SSS  W W W O   O RRRR  D   D
'     T   H   H E          P     A   A     S     S W W W O   O R   R D   D
'     T   H   H EEEEE      P     A   A SSSS  SSSS   W W   OOO  R   R DDDD
'
'                PPPP  RRRR   OOO    GGGG  RRRR    AAA   M M
'                P   P R   R O   O  G      R   R  A   A M M M
'                PPPP  RRRR  O   O  G  GG  RRRR   AAAAA M M M
'                P     R   R O   O  G   G  R   R  A   A M M M
'                P     R   R  OOO    GGGG  R   R  A   A M M M
'
'                           BY DAVID WILLIAMSON
'
'
' THIS PROGRAM SIMPLY PRINTS A STAR FOR EVERY KEY YOU PUSH.
' I'VE HEARD THAT MANY PEOPLE HAVE BEEN TRYING TO FIGURE OUT HOW TO DO THIS.
' WELL, I'VE FINALLY FIGURED OUT HOW!
'
'
'
'      P.S.   wipe all lines that have LOCATE Y + 2, ...  and the following
'             PRINT statement if you want to get rid of the line of what
'             you are typing below the stars
'
DECLARE SUB SparklePause ()

Y = 20   'Y co-ordinate of password
X = 34   'X co-ordinate of password

correct.password$ = "the password program" 'what else?
                                           'it's the correct password

CLS
PLAY "MBT160O1L8CDEDCDL4ECC"        'an intro i decided to put in
COLOR 15, 1                         'just for the hell of it
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "     TTTTT H   H EEEEE      PPPP   AAA   SSSS  SSSS W W W  OOO  RRRR  DDDD      "
PRINT "       T   H   H E          P   P A   A S     S     W W W O   O R   R D   D     "
PRINT "       T   HHHHH EEEE       PPPP  AAAAA  SSS   SSS  W W W O   O RRRR  D   D     "
PRINT "       T   H   H E          P     A   A     S     S W W W O   O R   R D   D     "
PRINT "       T   H   H EEEEE      P     A   A SSSS  SSSS   W W   OOO  R   R DDDD      "
PRINT "                                                                                "
PRINT "                  PPPP  RRRR   OOO    GGGG  RRRR    AAA   M M                   "
PRINT "                  P   P R   R O   O  G      R   R  A   A M M M                  "
PRINT "                  PPPP  RRRR  O   O  G  GG  RRRR   AAAAA M M M                  "
PRINT "                  P     R   R O   O  G   G  R   R  A   A M M M                  "
PRINT "                  P     R   R  OOO    GGGG  R   R  A   A M M M                  "
PRINT "                                                                                "
PRINT "                             BY DAVID WILLIAMSON                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "   THIS PROGRAM SIMPLY PRINTS A STAR FOR EVERY KEY YOU PUSH.                    "
PRINT "   I'VE HEARD THAT MANY PEOPLE HAVE BEEN TRYING TO FIGURE OUT HOW TO DO THIS.   "
PRINT "   WELL, I'VE FINALLY FIGURED OUT HOW!                                          "
PRINT "                                                                                "
PRINT "                                                                                "
SparklePause


password:
COLOR 1, 1
SCREEN 0
CLS

GOSUB display

password$ = "" 'the letters that the person types in for the password
star$ = ""     'the stars that always appear when you type in a password

DO

key.press$ = INPUT$(1)      'gets one key press at a time

IF key.press$ = CHR$(13) THEN GOTO check.password 'if you press Enter it
                                                  'checks to see if you have
                                                  'done the correct password

IF key.press$ = CHR$(8) THEN
star2$ = ""
password2$ = ""
FOR q = 1 TO LEN(star$)
star2$ = star2$ + " "
NEXT q
FOR q = 1 TO LEN(password$)
password2$ = password2$ + " "
NEXT q                                           'a whole heap of junk
IF LEN(password$) > 0 THEN                       '
password$ = LEFT$(password$, LEN(password$) - 1) '
star$ = LEFT$(star$, LEN(star$) - 1)             '
LOCATE Y + 2, X                                  '
PRINT password2$                                 'basically, all it does is
LOCATE Y, X                                      'when you press Backspace,
PRINT star2$                                     'it wipes out the last
LOCATE Y + 2, 34                                 'letter on the line you
PRINT password$                                  'typed in
LOCATE Y, X
PRINT star$
ELSE BEEP
END IF
END IF


IF key.press$ <> CHR$(13) THEN
IF key.press$ <> CHR$(8) THEN
IF LEN(password$) < 20 THEN
password$ = password$ + key.press$
LOCATE Y + 2, X
PRINT password$
star$ = ""                      'a whole heap of stuff
V = LEN(password$)              'i can't be bothered
FOR c = 1 TO V                  'to describe
star$ = star$ + "*"
NEXT c
LOCATE Y, X
PRINT star$
ELSE BEEP
END IF
END IF
END IF

LOOP



check.password:

correct.password$ = UCASE$(correct.password$) 'delete these lines if you want
password$ = UCASE$(password$)                 'want your password to be
                                              'case sensitive
IF password$ = correct.password$ THEN
LOCATE 19, 22
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 20, 22                                    'exactly what it says
PRINT "º       Correct password!        º"
LOCATE 21, 22
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
BEEP: FOR m = 1 TO 1000: NEXT m: BEEP: FOR m = 1 TO 1000: NEXT m: BEEP
ELSE
LOCATE 19, 22
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 20, 22                                    'exactly what it says
PRINT "º      Incorrect password!       º"
LOCATE 21, 22
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
BEEP
DO: LOOP WHILE INKEY$ = ""
GOTO password
END IF
END

display:
COLOR 0, 7
PRINT "                       The Password Program Version 1.0a                        "
COLOR 15, 1
PRINT "                                                                                "
PRINT "     TTTTT H   H EEEEE      PPPP   AAA   SSSS  SSSS W W W  OOO  RRRR  DDDD      "
PRINT "       T   H   H E          P   P A   A S     S     W W W O   O R   R D   D     "
PRINT "       T   HHHHH EEEE       PPPP  AAAAA  SSS   SSS  W W W O   O RRRR  D   D     "
PRINT "       T   H   H E          P     A   A     S     S W W W O   O R   R D   D     "
PRINT "       T   H   H EEEEE      P     A   A SSSS  SSSS   W W   OOO  R   R DDDD      "
PRINT "                                                                                "
PRINT "                  PPPP  RRRR   OOO    GGGG  RRRR    AAA   M M                   "
PRINT "                  P   P R   R O   O  G      R   R  A   A M M M                  "
PRINT "                  PPPP  RRRR  O   O  G  GG  RRRR   AAAAA M M M                  "
PRINT "                  P     R   R O   O  G   G  R   R  A   A M M M                  "
PRINT "                  P     R   R  OOO    GGGG  R   R  A   A M M M                  "
PRINT "                                                                                "
PRINT "                             BY DAVID WILLIAMSON                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "                                                                                "
PRINT "                                                                                "
LOCATE 19, 22
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 20, 22                                   'password box and the other
PRINT "º Password:                      º"      'stuff on the screen
LOCATE 21, 22
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"


COLOR 23, 1
LOCATE Y - 3, X - 10
PRINT "Password: "; correct.password$         'wipe these lines to get rid
COLOR 7, 1                                    'of that extra password stuff
LOCATE Y + 2, X - 10
PRINT "Password:"
COLOR 7, 1
RETURN

'
'
'
'
'                        SEEN THIS SUB SOMEWHERE BEFORE?
'                        *******************************
'
'
'
'
SUB SparklePause
 
 
  SCREEN 0
  COLOR 0, 1
  a$ = "*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    "
  WHILE INKEY$ <> "": WEND 'Clear keyboard buffer

  WHILE INKEY$ = ""
    FOR Z = 1 TO 200
    NEXT Z
  
    FOR a = 1 TO 5
      LOCATE 1, 1                             'print horizontal sparkles
      PRINT MID$(a$, a, 80);
      LOCATE 22, 1
      PRINT MID$(a$, 6 - a, 80);
    
      FOR Z = 1 TO 200
      NEXT Z

      FOR B = 2 TO 21                         'Print Vertical sparkles
        c = (a + B) MOD 5
        IF c = 1 THEN
          LOCATE B, 80
          PRINT "*";
          LOCATE 23 - B, 1
          PRINT "*";
        ELSE
          LOCATE B, 80
          PRINT " ";
          LOCATE 23 - B, 1
          PRINT " ";
        END IF
      NEXT B
    NEXT a

  WEND

END SUB