10 OPEN15,8,15
20 OPEN2,8,2,"#"
30 PRINT:PRINT:PRINT
35 P$="":A$=""
40 PRINT"WHAT IS THE PASS-WORD?"
50 INPUT A$
55 PRINT:PRINT:PRINT
60 :
70 TR=10 : SE=15
80 :
90 PRINT#15,"U1:"2;0;TR;SE
100 :
110 FORX=1TO50:GET#2,C$
120 IFC$=CHR$(13)THENX=51:GOTO140
130 P$=P$+C$
140 NEXT
150 :
180 IFP$=A$THENPRINT"YOU ARE ALLOWED ACCESS!!":GOTO200
185 :
190 PRINT"INVALID PASSWORD....TRY AGAIN.":GOTO30
200 :
210 CLOSE2:CLOSE15
220 END