home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac3_disk / cadenza / password / password.bas next >
Encoding:
BASIC Source File  |  1996-10-09  |  1.5 KB  |  50 lines
  1. '··············································································
  2. ' Password v1  © 1996 Cadenza Software - Written by Matthew Bacon
  3. '··············································································
  4.  
  5. DEFINT a-z
  6. '$option K10
  7.  
  8. ' Display initial screen, to let the user know a password is required
  9. LOCATE 11,31:PRINT "Password:"
  10. LOCATE 13,28:PRINT "© 1996 Cadenza Software"
  11. LOCATE 14,28:PRINT "Written by Matthew Bacon"
  12.  
  13. DO
  14. ' Read key pressed, make the letter upper casing
  15. try$=UCASE$(INKEY$)
  16.  
  17. ' Make sure a letter exists
  18. IF NOT try$="" THEN
  19.     try=ASC(try$)
  20.     SELECT CASE try
  21.         ' If escape key was pressed, quit 
  22.         CASE 27
  23.             SYSTEM
  24.         ' If backspace key was pressed
  25.         CASE 8
  26.             DECR i
  27.             IF i<0 THEN i=0:EXIT SELECT
  28.             ' Print to screen, password is masked
  29.             LOCATE 11,31:PRINT "Password: "+STRING$ (i,ASC("*"))+" "
  30.             password$=LEFT$(password$,LEN(password$)-1)
  31. '            LOCATE 10,31:PRINT "Password: "+password$+" "
  32.         ' If return key was pressed, check against given password
  33.         CASE 13
  34.             ' If the correct password has been given, quit
  35.             IF password$="MATTY B" THEN EXIT LOOP
  36.         ' If one of the letter, numerical or spacebar keys was pressed
  37.         CASE 32,65 TO 65+26,48 TO 57
  38.             INCR i
  39.             ' i= no. of characters in password
  40.             IF i>8 THEN i=8:EXIT SELECT
  41.             ' Print to screen, password is masked
  42.             LOCATE 11,31:PRINT "Password: "+STRING$ (i,ASC("*"))
  43. '            LOCATE 10,31:PRINT "Password: "+password$+try$
  44.             password$=password$+try$
  45.     END SELECT
  46. END IF
  47. LOOP
  48. ' Quit
  49. SYSTEM
  50.