home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / PASSWORD.INPUT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  507b  |  12 lines
  1. 10 PASSWD$ = "ALPHA":ENTRY$ = ""
  2. 20 STROBE = 49168:INKEY = 49152:KEYPRESS = 0
  3. 30  POKE STROBE,0
  4. 40  FOR I = 1 TO 400
  5. 50  IF  PEEK(INKEY) > = 128  THEN KEYPRESS = 1: GOSUB 100
  6. 60  NEXT I
  7. 70  IF KEYPRESS = 0  THEN  PRINT : PRINT "TIME EXPIRED.": END 
  8. 80  IF KEYPRESS = 1  AND PASSWD$ = ENTRY$  THEN  PRINT : PRINT "ACCESS APPROVED.": GOTO 120
  9. 90  PRINT : PRINT "INCORRECT PASSWORD.": END 
  10. 100  GET A$: IF A$ < > CHR$(13)  THEN ENTRY$ = ENTRY$ +A$: RETURN 
  11. 110 I = 400: RETURN 
  12. 120  REM  PROGRAM CONTINUES HERE