home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / TECLADO / LOCK.ZIP / PASSWORD.BAS (.txt) next >
Encoding:
GW-BASIC  |  1988-11-19  |  1.1 KB  |  61 lines
  1. 1000  REM
  2. 1010  REM PASSWORD.BAS
  3. 1020  REM
  4. 1070  KEY OFF
  5. 1080  KEY 15,CHR$ (12) + CHR$ (83)
  6. 1090  KEY 16,CHR$ (4) + CHR$ (46)
  7. 1100  KEY 17,CHR$ (4) + CHR$ (70)
  8. 1110  ON KEY (15) GOSUB 1520  :KEY (15) ON
  9. 1120  ON KEY (16) GOSUB 1520 : KEY (16) ON
  10. 1130  ON KEY (17) GOSUB 1520 : KEY (17) ON
  11. 1140  REM
  12. 1150  REM READ IN PASSWORD
  13. 1160  REM
  14. 1170  OPEN "PASSWORD.DAT" FOR INPUT AS 1
  15. 1180  LINE INPUT#1,PASSWORD$
  16. 1190  CLOSE
  17. 1200  ON ERROR GOTO 1620
  18. 1210  REM
  19. 1220  REM CHECK USERS PASSWORD ONE CHARACTER AT A TIME, AS ENTERED:
  20. 1230  REM
  21. 1240  CLS
  22. 1250  LOCATE,,1
  23. 1260  PRINT "PLEASE ENTER YOUR PASSWORD:";
  24. 1270  TRY = 0
  25. 1280  I = 0
  26. 1290  A$ = IN KEY$: IF A$= " " THEN 1290
  27. 1300  IF A$ = "~" THEN 1420
  28. 1310  I = I+1
  29. 1320  IF A$ <> MID$ (PASSWORD$,I,1)THEN 1350
  30. 1330  IF I = LEN (PASSWORD$) THEN 1420
  31. 1340  GOTO 1290
  32. 1350  TRY = TRY +1
  33. 1360  IF TRY > = 3 THEN 1480
  34. 1370  PRINT "ERROR: TRY AGAIN FROM START OF PASSWORD."
  35. 1380  GOTO 1280
  36. 1390  REM
  37. 1400  REM ACCESS GRANTED
  38. 1410  REM
  39. 1420  PRINT " "
  40. 1430  PRINT TAB(30);"WELCOME"
  41. 1440  SYSTEM
  42. 1450  REM
  43. 1460  REM TOO MANY ATTEMPTS, LOCK SYSTEM
  44. 1470  REM
  45. 1480  CLS
  46. 1490  LOCATE 12,20
  47. 1500  PRINT "**SYSTEM IS NOW LOCKED**"
  48. 1510  GOTO 1510
  49. 1520  REM
  50. 1530  REM DISPLAY IGNORE MESSAGE
  51. 1540  REM
  52. 1550  BEEP
  53. 1560  READ AH$
  54. 1570  PRINT AH$
  55. 1580  RETURN
  56. 1590  DATA "SO THERE!","THINK YOUR SMART HUH?"
  57. 1600  DATA "NICE TRY, BUT NO DICE.","SORRY ABOUT THAT."
  58. 1610  DATA "TRY HARDER....","OKAY. GIVE UP NOW."
  59. 1620  RESTORE 1590
  60. 1630  RESUME 1560
  61.