10 REM" [0x16]  [0x07]  [0x0E] 
   20 REM "****************************
   30 REM "*                          *
   40 REM "*—MINI CHEMISTRY DATABASE *
   50 REM "*                          *
   60 REM "*—     BY PETER SMITH     *
   70 REM "*                          *
   80 REM "*‡        USER M8M        *
   90 REM "*                          *
  100 REM "****************************
  110 REM"
  120 REM"
  130  SD=0
  140  MODE7
  150  PROCDB(0,4,7,"Do you want sound?(Y/N)")
  160  A$=GET$
  170  IF A$="Y" OR A$="N" THEN GOTO 180 ELSE GOTO 160
  180  IF A$="N" THEN *FX210,1 
  190  IF A$="Y" THEN *FX210,0
  200  VDU23;8202;0;0;0;
  210  PROCINIT
  220  PROCMAINMENU
  230  GOTO 220
  240  DEFPROCSCREEN
  250  CLS
  260  PROCDB(0,4,2,"Search for"+ST$)
  270  PROCDB(5,1,0,"Chemical Symbol -                    ")
  280  PROCDB(7,2,0,"Chemical Name   -                    ")
  290  PROCDB(9,3,0,"Atomic number   -                    ")
  300  PROCDB(11,4,0,"R'tive A' Mass  -                    ")        
  310  PROCSYMB
  320  ENDPROC
  330  DEFPROCSEARCH
  340  CLS
  350  PROCDB(0,2,4,"Search")
  360  PROCDB(3,2,1,"  What to you want to search for?")
  370  PRINTTAB(6,8);"‚ 1. Chemical Symbol"
  380  PRINTTAB(6,9);"ƒ 2. Chemical Name"
  390  PRINTTAB(6,10);"„ 3. Relative Atomic mass"
  400  PRINTTAB(6,11);"„…4. Atomic Number"
  410  REM
  420  A=GET-48:K=A
  430  IF A=1 OR A=2 OR A=3 OR A=4 THEN GOTO 440 ELSE GOTO 420
  440  IF A=1 THEN ST$=" Chemical Symbol":S=1:N=0:R=0:A=0
  450  IF A=2 THEN ST$=" Chemical Name":S=0:N=1:R=0:A=0
  460  IF A=3 THEN ST$=" Relative Atomic mass":S=0:N=0:R=1:A=0
  470  IF A=4 THEN ST$=" Atomic Number":S=0:N=0:R=0:A=1
  480  REM
  490  PRINTTAB(0,15);
  500  ENDPROC
  510  END
  520  DEFPROCoscli($&700)
  530  LOCAL X%,Y%
  540  X%=&700 MOD 256 
  550  Y%=&700 DIV 256
  560  CALL &FFF7
  570  ENDPROC 
  580  DEFPROCSYMB
  590  PRINTTAB(0,15)"  Enter the ";ST$;
  600  INPUTLINE FG$
  610  PRINTTAB(0,15)"                                        ";
  620  FORI=1 TO 103
  630  SOUND 1,-10,I,1 
  640  SD=1
  650  PRINTTAB(19,5);SM$(I);ER$
  660  PRINTTAB(19,6);SM$(I);ER$
  670  PRINTTAB(19,7);NA$(I);ER$
  680  PRINTTAB(19,8);NA$(I);ER$
  690  PRINTTAB(19,09);AN(I);ER$
  700  PRINTTAB(19,10);AN(I);ER$
  710  PRINTTAB(19,11);RM(I);ER$
  720  PRINTTAB(19,12);RM(I);ER$
  730  SD=0
  740  IF S=1 THEN PROCNO1
  750  IF N=1 THEN PROCNO2
  760  IF R=1 THEN PROCNO3
  770  IF A=1 THEN PROCNO4
  780  IF W=1 THEN GOTO 850
  790  NEXT
  800  CLS
  810  PROCDB(0,1,7,"There is no such"+ST$)
  820  PROCDB(15,4,7,"Press any key")
  830  A$=GET$
  840  ENDPROC
  850  PROCDB(15,4,7,"Press any key")
  860  SOUND &10,-1,1,1
  870  A$=GET$
  880  ENDPROC
  890  DEFPROCINIT
  900  ER$="       "
  910  DIM SM$(103),NA$(103),AN(103),RM(103),SP$(103),N$(257),LE$(26),Q(103),d%&20
  920  FORI=1 TO 103:READ NA$(I),SM$(I),AN(I),RM(I):NEXT
  930  ENDPROC
  940  DEFPROCNO1
  950  IF FG$=SM$(I) THEN VDU7:W=1 ELSE W=0
  960  ENDPROC
  970  DEFPROCNO2
  980  IF FG$=NA$(I) THEN VDU7:W=1 ELSE W=0
  990  ENDPROC
 1000  DEFPROCNO4
 1010  IF EVAL(FG$)=AN(I) THEN VDU7:W=1 ELSE W=0
 1020  ENDPROC
 1030  DEFPROCNO3
 1040  IF EVAL(FG$)=RM(I) THEN VDU7:W=1 ELSE W=0
 1050  ENDPROC
 1060  DEFPROCMAINMENU
 1070  CLS
 1080  PROCDB(0,4,2,"Main Menu")
 1090  PRINTTAB(6,7);"1.  Search for data"
 1100  PRINTTAB(6,8);"‚2.  Take the test"
 1110  A=GET-48
 1120  IF A=1 OR A=2 THEN GOTO 1130 ELSE GOTO 1110
 1130  REM
 1140  IF A=1 THEN PROCSEARCH:PROCSCREEN:ENDPROC
 1150  IF A=2 THEN PROCTEST:ENDPROC
 1160  DEFPROCTEST
 1170  WR=0:IC=0:C=0
 1180  CLS
 1190  NA=0:SY=0
 1200  PROCDB(0,2,4,"Test")
 1210  PROCDB(4,7,0,"What do you want to be tested on?")
 1220  PRINTTAB(6,7);"1.  Symbols"
 1230  PRINTTAB(6,8);"‚2.  Names"
 1240  A=GET-48
 1250  IF A=1 OR A=2 THEN GOTO 1260 ELSE GOTO 1250
 1260  REM
 1270  PRINT'''
 1280  IF A=1 THEN SY=1 ELSE NA=1
 1290  PRINT"† How many questions do you want?(2-50)" 
 1300  PRINTTAB(19,15);:INPUT NQS
 1310  IF NQS<2 OR NQS>50 THEN GOTO 1300
 1320  FOR G=1 TO NQS
 1330  A=RND(103):B=RND(103):D=RND(103)
 1340  Q(G)=RND((A+B+D)/3):NEXT
 1350  CLS
 1360  PROCDB(0,2,4,"Test") 
 1370  FOR G=1 TO NQS
 1380  IF WR=3 AND SY=1 THEN IC=IC+1:WR=0:PROCDB(3,7,4,"The symbol for "+NA$(Q(G))+" was "+SM$(Q(G))):FORI=1 TO 3000:NEXT:PRINTTAB(0,3);STRING$(80," "):GOTO1460
 1390  IF WR=3 AND NA=1 THEN IC=IC+1:WR=0:PROCDB(3,7,4,"The name for "+SM$(Q(G))+" was "+NA$(Q(G))):FORI=1 TO 3000:NEXT:PRINTTAB(0,3);STRING$(80," "):GOTO1460
 1400  IF SY=1 THEN WE$=SM$(Q(G))
 1410  IF NA=1 THEN WE$=NA$(Q(G))
 1420  IF SY=1 THEN PRINTTAB(0,12);"                                       ";:PRINTTAB(0,12);"ƒWhat symbol is ";NA$(Q(G));:INPUT AN$
 1430  IF NA=1 THEN PRINTTAB(0,12);"                                       ";:PRINTTAB(0,12);"ƒWhat element is ";SM$(Q(G));:INPUT AN$ 
 1440  IF WE$=AN$ THEN C=C+1:WR=0:FORV=0 TO 100 STEP 10:SOUND 1,-15,V,1:NEXT V:PROCDB(3,4,7,"Correct"):FORI=1 TO 3000:NEXT:PRINTTAB(0,3);STRING$(80," ")
 1450  IF WE$<>AN$ THEN WR=WR+1:FORV=20 TO 10 STEP -10:SOUND 1,-15,V,15:NEXT V:PROCDB(3,4,7,"Wrong,try again"):FORI=1 TO 3000:NEXT:PRINTTAB(0,3);STRING$(80," "):GOTO1380 
 1460  PROCDB(20,0,7," Correct   Wrong")
 1470  PROCDB(22,0,7,"    "+STR$(C)+"       "+STR$(IC)+"  ")
 1480  NEXT
 1490  CLS
 1500  PROCDB(0,4,2,"Test")
 1510  PROCDB(3,2,4,"In that test,you had") 
 1520  IF IC=0 THEN PROCDB(5,2,4," All "+STR$(NQS)+" of the questions correct"):GOTO1540
 1530  PROCDB(5,2,4,"All but "+STR$(IC)+" correct")
 1540  PROCDB(10,4,7,"Press any key")
 1550  A$=GET$
 1560  ENDPROC
 1570 DATA ACTINIUM,Ac,89,227
 1580 DATA ALUMINIUM,Al,13,27
 1590 DATA AMERICUM,Am,95,243
 1600 DATA ANTIMONY,Sb,51,122    
 1610 DATA ARGON,Ar,18,40
 1620 DATA ARSENIC,As,33,75 
 1630 DATA ASTATINE,At,85,210
 1640 DATA BARIUM,Ba,56,137   
 1650 DATA BERKELIUM,Bk,97,249
 1660 DATA BERYLLIUM,Be,4,9
 1670 DATA BISMUTH,Bi,83,209
 1680 DATA BORON,B,5,11
 1690 DATA BROMINE,Br,35,80 
 1700 DATA CADMIUM,Cd,48,112
 1710 DATA CAESIUM,Cs,55,133
 1720 DATA CALCIUM,Ca,20,40
 1730 DATA CALIFORNIUM,Cf,98,251
 1740 DATA CARBON,C,6,12
 1750 DATA CERIUM,Ce,58,140  
 1760 DATA CHLORINE,Cl,17,35.5
 1770 DATA CHROMIUM,Cr,24,52
 1780 DATA COBALT,Co,27,59
 1790 DATA COPPER,Cu,29,63.5      
 1800 DATA CURIUM,Cm,96,247
 1810 DATA DYSPROSIUM,Dy,66,162.5
 1820 DATA EINSTEINIUM,Es,99,254
 1830 DATA ERBIUM,Er,68,167
 1840 DATA EUROPIUM,Eu,63,152
 1850 DATA FERMIUM,Fm,100,253
 1860 DATA FLOURINE,F,9,19
 1870 DATA FRANCIUM,Fr,87,223 
 1880 DATA GADOLINIUM,Gd,64,157
 1890 DATA GALLIUM,Ga,31,70
 1900 DATA GERMANIUM,Ge,32,73
 1910 DATA GOLD,Au,79,197
 1920 DATA HAFNIUM,Hf,72,178.5 
 1930 DATA HELIUM,He,2,4
 1940 DATA HOLMIUM,Ho,67,165
 1950 DATA HYDROGEN,H,1,1
 1960 DATA INDIUM,In,49,115 
 1970 DATA IODINE,I,53,127
 1980 DATA IRIDIUM,Ir,77,192
 1990 DATA IRON,Fe,26,56
 2000 DATA KRYPTON,Kr,36,84 
 2010 DATA LANTHANUM,La,57,139
 2020 DATA LAWRENCIUM,Lr,103,257
 2030 DATA LEAD,Pb,82,207
 2040 DATA LITHIUM,Li,3,7    
 2050 DATA LUTETIUM,Lu,71,175
 2060 DATA MAGNESIUM,Mg,12,24
 2070 DATA MANGANESE,Mn,25,55
 2080 DATA MENDELEVIUM,Md,101,256
 2090 DATA MERCURY,Hg,80,201
 2100 DATA MOLYBDENUM,Mo,42,96
 2110 DATA NEODYMIUM,Nd,60,144
 2120 DATA NEON,Ne,10,20
 2130 DATA NEPTUNIUM,Np,93,237
 2140 DATA NICKEL,Ni,28,59
 2150 DATA NIOBUM,Nb,41,93
 2160 DATA NITROGEN,N,7,14
 2170 DATA NOBELIUM,No,102,254
 2180 DATA OSMIUM,Os,76,190
 2190 DATA OXYGEN,O,8,16 
 2200 DATA PALLADIUM,Pd,46,106
 2210 DATA PHOSPHORUS,P,15,31
 2220 DATA PLATINUM,Pt,78,195
 2230 DATA PLUTONIUM,Pu,94,242 
 2240 DATA POLONIUM,Po,84,210
 2250 DATA POTASSIUM,K,19,39
 2260 DATA PRASEODYMIUM,Pr,59,141
 2270 DATA PROMETHIUM,Pm,61,147
 2280 DATA PROTACTINIUM,Pa,91,231
 2290 DATA RADIUM,Ra,88,226
 2300 DATA RADON,Rn,86,222
 2310 DATA RHENIUM,Re,75,186
 2320 DATA RHODIUM,Rh,45,103
 2330 DATA RUBIDIUM,Rb,37,85.5
 2340 DATA RUTHENIUM,Ru,44,101
 2350 DATA SAMARIUM,Sm,62,150 
 2360 DATA SCANDIUM,Sc,21,45 
 2370 DATA SELENIUM,Se,34,79
 2380 DATA SILICON,Si,14,28
 2390 DATA SILVER,Ag,47,108
 2400 DATA SODIUM,Na,11,23
 2410 DATA STRONTIUM,Sr,38,88
 2420 DATA SULPHUR,S,16,32
 2430 DATA TANTALUM,Ta,73,181
 2440 DATA TECHNETIUM,Tc,43,99
 2450 DATA TELLURIUM,Te,52,128
 2460 DATA TERBIUM,Tb,65,159
 2470 DATA THALLIUM,Tl,81,204
 2480 DATA THORIUM,Th,90,232
 2490 DATA THULIUM,Tm,69,169
 2500 DATA TIN,Sn,50,119
 2510 DATA TITANIUM,Ti,22,48
 2520 DATA TUNGSTEN,W,74,184
 2530 DATA URANIUM,U,92,238
 2540 DATA VANADIUM,V,23,51
 2550 DATA XENON,Xe,54,131 
 2560 DATA YTTERBIUM,Yb,70,173
 2570 DATA YTTRIUM,Y,39,89
 2580 DATA ZINC,Zn,30,65
 2590 DATA ZIRCONIUM,Zr,40,91
 2600  DEFPROCDB(Y%,FC,BC,M$)
 2610  IF BC=-1 THEN BC=0
 2620  IF FC=0 THEN FC=4
 2630  CE=40-LEN(M$):CE=CE/2 
 2640  CE=CE-2
 2650  A$=CHR$(FC+128)+CHR$(141)+M$
 2660  FOR OP=0 TO 1
 2670  IF BC<>0 THEN PRINTTAB(0,OP+Y%);CHR$(BC+128)+CHR$(157);
 2680  PRINTTAB(CE,OP+Y%);A$
 2690  NEXT
 2700  ENDPROC