1REM ********************
2REM ***   PASSWORD   ***
3REM ***   PROTECTION ***
4REM ***   PROGRAM    ***
5REM ********************
6REM **designed for the**
7REM ***  TI-99/4A by ***
8REM *** Len Turner   ***
9REM ***adapted to the***
10REM ***   ADAM  by   ***
11REM *** W.L. Osburn  ***
12REM ********************
13REM ***** 07/03/88 *****
14REM ********************
15HOME
17ONERR  GOTO 350
20INPUT "     WHAT IS YOUR ACCOUNT                NUMBER? "; ua
30GOSUB 300
40FOR l=1 TO 3
50INPUT "     WHAT IS THE                       PASSWORD? "; ps$
55IF ps$="" THEN 50
60IF ps$=pw$ THEN 100
70NEXT l
80HTAB 8:VTAB 15:INVERSE:FLASH:? "YOU WERE INCORRECT"
85FOR t=1 TO 1500:NEXT
90GOTO 350
91GOTO 350
100HTAB 10:VTAB 10:? "YOU MAY PROCEED..."
110HTAB 10:VTAB 11:? "HAVE A NICE DAY"
112?
113REM One could change line 120 to PRINT CHR$(4);"RUN XXXXX" where XXXXX is a program you want to automatically run
119? CHR$(4); "CATALOG"
120END
297REM Insert Account # on lines 300,310,320,330,etc.
298REM Several more account numbers can be added on lines 320 & 330
299REM Insert Passwords on lines 306,316,326,336,etc.
300IF ua=2001 THEN 306
304GOTO 310
306 pw$="GENIUS"
310IF ua=2002 THEN 316
314GOTO 320
316 pw$="TURKEY"
320IF ua=12345 THEN 326
324GOTO 330
326 pw$="XXXXX"
330IF ua=23456 THEN 336
334GOTO 340
336 pw$="PASS"
340RETURN
350CALL 64743


