0 COLOR O,7,7
3 CLS
4 KEY OFF
5 P = 1
10 PASSWORD$ = "SE"
20 PRINT "Password  -           ";
30 ES$ = INKEY$
40 IF ES$ = "" THEN 30
41 IF ES$ = CHR$(13) THEN 80
42 IF ES$ = CHR$(8) AND LEN(P$) = 0 THEN 55
43 IF ES$ = CHR$(8) THEN LOCATE P,22+LEN(P$):PRINT " ";:LOCATE P,22+LEN(P$):       P$ = LEFT$(P$,LEN(P$)-1):GOTO 30
45 P$ = P$ + ES$
46 IF LEN(P$) > 8 THEN 60
50 PRINT "*";
55 GOTO 30
60 P$ = P$ + "" : GOTO 30
70 FOR X = 1 TO 100: NEXT
80 IF P$ = PASSWORD$ OR P$ = "se" THEN 110
81 IF P = 3 THEN PRINT TAB(35);"Please come back and get the right Password.":     FOR X = 1 TO 1000:NEXT:SYSTEM
90 IF P$ = "" THEN PRINT TAB(35);"Please enter a Password.":P$ = "":P = P + 1:     GOTO 20
100 IF P$ <> PASSWORD$ THEN PRINT TAB(35);"Incorrect Password.":P$ = "":            P = P + 1: GOTO 20
110 COLOR 7,0,0
120 CLS
130 RUN "A:\MAGIC\Wheeler"