Advertisement
Manhydra

Periodic Table of the Elements

May 4th, 2014
3,043
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 INPUT "ENTER CODE";C$
  2. 20 IF C$ = "ALZPGSVAAXKKXKXLLAZZOUAPZISLALIGAAVAPEEI@" THEN CLS:GOTO 45
  3. 30 PRINT "INCORRECT PASSWORD"
  4. 40 GOTO 10
  5. 50 PRINT:PRINT:PRINT:PRINT:PRINT
  6. 60 REM **ELEMENTS**
  7. 70 INPUT "ENTER A SYMBOL";S$
  8. 80 A=0
  9. 90 IF A=109 THEN 150
  10. 100 READ ELEMENT$,SYMBOL$
  11. 110 READ AN,AM
  12. 120 IF S$ = SYMBOL$ THEN PRINT ELEMENT$,AN,AM:RESTORE:GOTO 60
  13. 125 IF S$ = "END" THEN GOTO 180
  14. 130 A=A+1
  15. 140 GOTO 60
  16. 150 PRINT "NOT LISTED"
  17. 160 RESTORE
  18. 170 GOTO 60
  19. 180 END
  20. 190 DATA "HYDROGEN","H",1,1.00794
  21. 200 DATA "HELIUM","He",2,4.0026
  22. 210 DATA "LITHIUM","Li",3,6.941
  23. REM (... and so on with the rest of the elements)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement