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