Periodic Table of the Elements

10 INPUT "ENTER CODE";C$
20 IF C$ = "ALZPGSVAAXKKXKXLLAZZOUAPZISLALIGAAVAPEEI@" THEN CLS:GOTO 45
30 PRINT "INCORRECT PASSWORD"
40 GOTO 10
50 PRINT:PRINT:PRINT:PRINT:PRINT
60 REM **ELEMENTS**
70 INPUT "ENTER A SYMBOL";S$
80 A=0
90 IF A=109 THEN 150
100 READ ELEMENT$,SYMBOL$
110 READ AN,AM
120 IF S$ = SYMBOL$ THEN PRINT ELEMENT$,AN,AM:RESTORE:GOTO 60
125 IF S$ = "END" THEN GOTO 180
130 A=A+1
140 GOTO 60
150 PRINT "NOT LISTED"
160 RESTORE
170 GOTO 60
180 END
190 DATA "HYDROGEN","H",1,1.00794
200 DATA "HELIUM","He",2,4.0026
210 DATA "LITHIUM","Li",3,6.941
REM (... and so on with the rest of the elements)