StarInfo/Rawle/!Elements/!RunImage

Home » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Regulars » StarInfo/Rawle/!Elements/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Regulars
Filename:	StarInfo/Rawle/!Elements/!RunImage
Read OK:	✔
File size:	9049 bytes
Load address:	0000
Exec address:	0000

File contents

   10ONERROROSCLI"ERROR "+REPORT$+" at line "+STR$ERL:END
   20ie%=2888
   30DIM b% 5259,i% ie%,m1% 196,m2% 512,m3% 52,name% 12,fonts% 256,mi% 48,mi2% 62,mi3% 16
   40DIMMD$(30),MD%(30)
   50q%=FALSE:OSTA$="-999":OYEA$="-999":CD%=-1:PR%=0
   60DIMS%(3):fi%=OPENIN"Elements:Units"
   70IFfi%<>0:INPUT#fi%,S%(1),S%(2),S%(3):ELSES%(1)=1:S%(2)=1:S%(3)=1
   80CLOSE#fi%
   90fi%=OPENIN"Elements:Status"
  100IFfi%<>0:INPUT#fi%,ST1%,STG%,STP%,STA$,YEA$:ELSEST1%=-1:STG%=FALSE:STP%=FALSE:STA$="0":YEA$="1990"
  110CLOSE#fi%
  120SYS"Wimp_Initialise",300,&4B534154,"Elements"
  130fi%=OPENIN"Elements:Sprites":sps%=EXT#fi%+4:CLOSE#fi%
  140DIMsp% sps%
  150!sp%=sps%:sp%!8=16
  160SYS"OS_SpriteOp",&10A,sp%,"Elements:Sprites"
  170DIMF%(109,1):fi%=OPENIN"Elements:Textfiles":NA$=GET$#fi%:REPEAT:NA$=GET$#fi%:F%(VAL(NA$),0)=1:UNTILEOF#fi%:CLOSE#fi%
  180fi%=OPENIN"Elements:Drawfiles":NA$=GET$#fi%:REPEAT:NA$=GET$#fi%:F%(VAL(NA$),1)=1:UNTILEOF#fi%:CLOSE#fi%
  190SYS"Wimp_OpenTemplate",,"Elements:Templates"
  200$name%="Info":SYS"Wimp_LoadTemplate",,b%,i%,i%+ie%,-1,name%,0 TO,,ni%,,,,ne%
  210SYS"Wimp_CreateWindow",,b% TO info%
  220$name%="Table":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  230b%!64=sp%:SYS"Wimp_CreateWindow",,b% TO table%
  240$name%="Square":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,fonts%,name%,ne% TO,,ni%,,,,ne%
  250SYS"Wimp_CreateWindow",,b% TO square%
  260$name%="Data":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  270b%!64=sp%:SYS"Wimp_CreateWindow",,b% TO data%
  280$name%="State":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  290SYS"Wimp_CreateWindow",,b% TO state%
  300$name%="Year":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  310SYS"Wimp_CreateWindow",,b% TO year%
  320$name%="Units":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  330b%!64=sp%:SYS"Wimp_CreateWindow",,b% TO units%
  340$name%="Mass":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  350SYS"Wimp_CreateWindow",,b% TO mass%
  360$name%="bond":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  370SYS"Wimp_CreateWindow",,b% TO bond%
  380$name%="Temps":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  390b%!64=sp%:SYS"Wimp_CreateWindow",,b% TO temps%
  400$name%="Question":SYS"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%
  410b%!64=sp%:SYS"Wimp_CreateWindow",,b% TO question%
  420SYS"Wimp_CloseTemplate"
  430FORLA%=1TO109
  440READN,NA$,NA$
  450PROCti(table%,LA%,NA$)
  460FORLB%=1TO17:READNA$:NEXTLB%
  470NEXTLA%
  480STA$=FNctoq(STA$):PROCti(state%,0,STA$):PROCti(state%,1,FNteu)
  490PROCti(year%,0,YEA$)
  500PROCgpno
  510PROCselcu
  520PROCudt
  530QQ%=TIME/1000:QQ%=QQ%*1000:QR%=TIME-QQ%:FORLA%=1TOQR%:QQ%=RND(4):NEXTLA%:SCOR1%=0:SCOR2%=0:PROCnewq:PROCti(question%,6,""):PROCti(question%,9,"0/0"):PROCtk(question%,7,"s")
  540!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002:$(b%+24)="!elements":SYS"Wimp_CreateIcon",,b% TO ib%
  550PROCcm1:PROCcm2:PROCcm3
  560ONERRORPROCerr(REPORT$+STR$(ERL))
  570WHILENOTq%
  580SYS"Wimp_Poll",1,b% TO r%
  590CASEr% OF
  600WHEN2:SYS"Wimp_OpenWindow",,b%
  610WHEN3:SYS"Wimp_CloseWindow",,b%
  620WHEN4:IF!b%=square%:SYS"Wimp_CloseWindow",,b%
  630WHEN6:PROCclick(b%!12)
  640WHEN8:PROCkey(!b%,b%!4,b%!24)
  650WHEN9:PROCms
  660WHEN17,18:PROCrm
  670ENDCASE
  680ENDWHILE
  690SYS"Wimp_CloseDown"
  700END
  710DEFPROCrm
  720CASEb%!16 OF
  730WHEN0:q%=TRUE
  740ENDCASE
  750ENDPROC
  760DEFPROCcm1:$mi2%="Molecular mass...":$(mi2%+20)="Ionic character...":$(mi2%+40)="Temperature scales..."
  770$m1%="Elements":m1%!12=&70207:m1%!16=352:m1%!20=44:m1%!24=0:m1%!28=0:m1%!32=info%:m1%!36=&7000021:$(m1%+40)="Info":m1%!52=0:m1%!56=-1:m1%!60=&7000121:m1%!64=mi2%:m1%!68=-1:m1%!72=20
  780m1%!76=0:m1%!80=-1:m1%!84=&7000121:m1%!88=mi2%+20:m1%!92=-1:m1%!96=20:m1%!100=0:m1%!104=-1:m1%!108=&7000121:m1%!112=mi2%+40:m1%!116=-1:m1%!120=22:m1%!124=&0:m1%!128=-1
  790m1%!132=&7000021:$(m1%+136)="Quiz...":m1%!148=0:m1%!152=-1:m1%!156=&7000021:$(m1%+160)="Units...":m1%!172=&80:m1%!176=-1:m1%!180=&7000021:$(m1%+184)="Quit":ENDPROC
  800DEFPROCcm2
  810$mi%="Radioactivity":$(mi%+16)="Group numbers":$(mi%+32)="Period numbers"
  820$m2%="Elements":m2%!12=&70207:m2%!16=240:m2%!20=44:m2%!24=0
  830ptr%=28
  840PROCm2(1,0,-1,"Groups",0)
  850PROCm2(1,1,-1,"Metals",0)
  860PROCm2(1,2,-1,"",mi%)
  870PROCm2(1,3,-1,"Reactivity",0)
  880PROCm2(1,4,state%,"State",0)
  890PROCm2(1,5,year%,"Year",0)
  900PROCm2(2,0,-1,"",mi%+16)
  910PROCm2(3,0,-1,"",mi%+32)
  920PROCm2(4,-1,-1,"Save status",0)
  930ENDPROC
  940DEFPROCm2(typ%,mno%,smh%,NA$,mi1%)
  950CASEtyp% OF
  960WHEN1:IFST1%=mno%:!(m2%+ptr%)=1:ELSE!(m2%+ptr%)=0
  970WHEN2:IFSTG%=TRUE:!(m2%+ptr%)=1:ELSE!(m2%+ptr%)=0
  980WHEN3:IFSTP%=TRUE:!(m2%+ptr%)=1:ELSE!(m2%+ptr%)=0
  990WHEN4:!(m2%+ptr%)=&80
 1000ENDCASE
 1010IFmno%=5ORtyp%=3:!(m2%+ptr%)+=2
 1020!(m2%+ptr%+4)=smh%
 1030IFNA$="":!(m2%+ptr%+8)=&7000121:ELSE:!(m2%+ptr%+8)=&7000021
 1040IFNA$<>"":$(m2%+ptr%+12)=NA$:ELSE!(m2%+ptr%+12)=mi1%:!(m2%+ptr%+16)=-1:!(m2%+ptr%+20)=16
 1050ptr%+=24
 1060ENDPROC
 1070DEFPROCcm3:$m3%="Go to:":m3%!12=&70207:m3%!16=208:m3%!20=44:m3%!24=0:m3%!28=&84:m3%!32=-1:m3%!36=&7000121:m3%!40=mi3%:m3%!44=-1:m3%!48=16:ENDPROC
 1080DEFPROCkey(win%,icon%,key%)
 1090IFkey%<>13:SYS"Wimp_ProcessKey",key%:ENDPROC
 1100CASE win% OF
 1110WHENstate%:IFicon%=0 THEN
 1120IFST1%<>4:OSTA$="-999"
 1130ST1%=4:STA$=FNread(state%,0):PROCudt:PROCmenu(0,0,0,0):PROCcm2
 1140ENDIF
 1150WHENyear%:IFicon%=0 THEN
 1160IFST1%<>5:OYEA$="-999"
 1170ST1%=5:YEA$=FNread(year%,0):PROCudt:PROCmenu(0,0,0,0):PROCcm2
 1180ENDIF
 1190WHENmass%:PROCsel(mass%,2):PROCdomass(4)
 1200WHENbond%:PROCsel(bond%,17):PROCdobond
 1210WHENquestion%:PROCsel(question%,1):PROCdoq
 1220OTHERWISE:SYS"Wimp_ProcessKey",key%:ENDPROC
 1230ENDCASE
 1240ENDPROC
 1250DEFPROCclick(win%)
 1260CASEwin% OF
 1270WHENtable%:PROCtablec(b%!8,b%!16)
 1280WHENdata%:PROCdatac(b%!8,b%!16)
 1290WHEN-2:PROCibc(b%!8)
 1300WHENunits%:PROCunitc(b%!8,b%!16)
 1310WHENmass%:IFb%!16=2:PROCdomass(b%!8)
 1320WHENbond%:IFb%!16=17:PROCdobond
 1330WHENquestion%:IFb%!16=1:PROCdoq
 1340IFb%!16=10:SCOR1%=0:SCOR2%=0:PROCudscore
 1350ENDCASE
 1360ENDPROC
 1370DEFPROCibc(but%)
 1380CASEbut% OF
 1390WHEN4:!b%=table%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b%
 1400WHEN2:PROCmenu(m1%,1,!b%-64,96+(44*7))
 1410WHEN1:IFCD%=-1:CD%=1
 1420PROCfilldata(CD%):!b%=data%:SYS"Wimp_GetWindowState",,b%:b%!4=36:b%!8=52:b%!12=1242:b%!16=968:b%!28=-1:SYS"Wimp_OpenWindow",,b%
 1430ENDCASE
 1440ENDPROC
 1450DEFPROCunitc(but%,icon%)
 1460IFbut%=1AND(icon%>3ANDicon%<13)ANDNOTFNseld(units%,icon%):PROCsel(units%,icon%)
 1470IFicon%<15ORicon%>16:ENDPROC
 1480STA$=FNqtoc(STA$)
 1490FORLZ%=4TO8:IFFNseld(units%,LZ%):S%(1)=LZ%-3
 1500NEXTLZ%
 1510FORLZ%=9TO10:IFFNseld(units%,LZ%):S%(2)=LZ%-8
 1520NEXTLZ%
 1530FORLZ%=11TO12:IFFNseld(units%,LZ%):S%(3)=LZ%-10
 1540NEXTLZ%
 1550IFicon%=16:PROCsaveunits
 1560IFbut%<>1:!b%=units%:SYS"Wimp_CloseWindow",,b%
 1570IFCD%>0:PROCfilldata(CD%)
 1580STA$=FNctoq(STA$):PROCti(state%,0,STA$):PROCti(state%,1,FNteu):IFST1%=4:PROCudt
 1590ENDPROC
 1600DEFPROCtablec(but%,icon%)
 1610CASEbut% OF
 1620WHEN2:MOA%=!b%-64:MOB%=b%!4:PROCti(state%,0,STA$):PROCti(year%,0,YEA$):PROCmenu(m2%,2,MOA%,MOB%)
 1630WHEN1:IFicon%>=1ANDicon%<=109 THEN
 1640PROCgoto(icon%)
 1650FORLA%=0TO3:READNA$
 1660PROCti(square%,LA%,NA$)
 1670NEXTLA%
 1680SYS"Wimp_GetPointerInfo",,b%:mx%=!b%:my%=b%!4:!b%=square%:SYS"Wimp_GetWindowState",,b%:b%!4=mx%-100:b%!8=my%-100:b%!12=mx%+100:b%!16=my%+100:SYS"Wimp_OpenWindow",,b%
 1690ELSE
 1700IFicon%=137 AND ST1%=4:STA$=STR$(VAL(STA$)-100):PROCudt
 1710IFicon%=138 AND ST1%=4:STA$=STR$(VAL(STA$)+100):PROCudt
 1720IFicon%=137 AND ST1%=5:YEA$=STR$(VAL(YEA$)-25):PROCudt
 1730IFicon%=138 AND ST1%=5:YEA$=STR$(VAL(YEA$)+25):PROCudt
 1740ENDIF
 1750WHEN4:IFicon%>=1ANDicon%<=109:PROCfilldata(icon%):!b%=data%:SYS"Wimp_GetWindowState",,b%:b%!4=36:b%!8=52:b%!12=1242:b%!16=968:b%!28=-1:SYS"Wimp_OpenWindow",,b%
 1760IFicon%=137 AND ST1%=4:STA$=STR$(VAL(STA$)+100):PROCudt
 1770IFicon%=138 AND ST1%=4:STA$=STR$(VAL(STA$)-100):PROCudt
 1780IFicon%=137 AND ST1%=5:YEA$=STR$(VAL(YEA$)+25):PROCudt
 1790IFicon%=138 AND ST1%=5:YEA$=STR$(VAL(YEA$)-25):PROCudt
 1800ENDCASE
 1810ENDPROC
 1820DEFPROCdatac(but%,icon%)
 1830CASEbut% OF
 1840WHEN1,4:CASEicon% OF
 1850WHEN60:PROCfilldata(CD%-1)
 1860WHEN61:PROCfilldata(CD%+1)
 1870WHEN62:PROCgoto(CD%):READNA$:READNA$:SYS"XOS_CLI","Filer_Run Elements:Text+."+NA$:SYS"XOS_CLI","Filer_Run Elements:Text."+NA$
 1880WHEN63:PROCgoto(CD%):READNA$:READNA$:SYS"XOS_CLI","Filer_Run Elements:Draw+."+NA$:SYS"XOS_CLI","Filer_Run Elements:Draw."+NA$
 1890ENDCASE
 1900WHEN2:$mi3%="":PROCmenu(m3%,3,!b%-4,b%!4+32)
 1910ENDCASE
 1920ENDPROC
 1930DEFPROCfilldata(icon%)
 1940CD%=icon%
 1950PROCtj(data%,38,FNteu):PROCtj(data%,42,FNteu)
 1960IFS%(2)=1:PROCtj(data%,33,"kg m��"):ELSEPROCtj(data%,33,"g cm��")
 1970IFS%(3)=1:PROCtj(data%,35,"J kg�� K��"):ELSEPROCtj(data%,35,"J g�� K��")
 1980PROCtj(data%,25,"kJ mol��")
 1990PROCgoto(icon%)
 2000PROCdre:PROCtj(data%,1,NA$):PROCdre:PROCtj(data%,3,NA$):PROCdre:PROCtj(data%,5,NA$):PROCdre:PROCtj(data%,7,NA$):PROCdre:PROCtj(data%,10,NA$)
 2010PROCdre:IFVAL(NA$)<0:NA%=VAL(NA$):NA%=0-NA%:NA$=STR$(NA%)+"-"
 2020PROCtj(data%,20,NA$):PROCdre:PROCtj(data%,16,NA$)
 2030PROCdre:IFVAL(NA$)<0:NA%=VAL(NA$):NA%=0-NA%:NA$=STR$(NA%)+"-"
 2040PROCtj(data%,21,NA$):PROCdre:PROCtj(data%,18,NA$)
 2050PROCdre:PROCtj(data%,24,NA$)
 2060PROCdre:PROCtj(data%,27,NA$)
 2070PROCdre:IFS%(2)=1ANDNA$<>"-":NA%=VAL(NA$)*1000:NA$=STR$(NA%)
 2080PROCtj(data%,32,NA$)
 2090PROCdre:MP%=VAL(NA$):NA$=FNctoq(NA$):PROCtj(data%,37,NA$)
 2100PROCdre:BP%=VAL(NA$):NA$=FNctoq(NA$):PROCtj(data%,41,NA$)
 2110IFNA$<>"-" THEN
 2120IFMP%<25ANDBP%<25:PROCtj(data%,46,"Gas"):PROCtk(data%,47,"SGas")
 2130IFMP%<25ANDBP%>25ANDicon%<>33:PROCtj(data%,46,"Liquid"):PROCtk(data%,47,"SLiquid")
 2140IFMP%>25ANDBP%>25:PROCtj(data%,46,"Solid"):PROCtk(data%,47,"SSolid")
 2150ELSE
 2160IFMP%>0:PROCtj(data%,46,"Solid"):PROCtk(data%,47,"Ssolid"):ELSEPROCtj(data%,46,"-"):PROCtk(data%,47,"SBlank")
 2170ENDIF
 2180IFicon%=33:PROCtj(data%,46,"Solid"):PROCtk(data%,47,"SSolid")
 2190PROCdre:IFS%(3)=1ANDNA$<>"-":NA=VAL(NA$)*1000:NA$=STR$(NA):IFicon%=42:NA$="251"
 2200PROCtj(data%,34,NA$)
 2210PROCdre:NA$=FNcrys(NA$):PROCtj(data%,49,NA$):PROCdre:PROCtj(data%,52,NA$):PROCdre:PROCtj(data%,54,NA$):PROCdre:PROCtj(data%,56,NA$):PROCdre:PROCtj(data%,58,NA$)
 2220IFicon%=1:PROCgrey(data%,60):ELSEPROCxgrey(data%,60)
 2230IFicon%=109:PROCgrey(data%,61):ELSEPROCxgrey(data%,61)
 2240IFF%(icon%,0)=0:PROCgrey(data%,62):ELSEPROCxgrey(data%,62)
 2250IFF%(icon%,1)=0:PROCgrey(data%,63):ELSEPROCxgrey(data%,63)
 2260ENDPROC
 2270DEFFNcrys(NA$)
 2280IFNA$="-":="-"
 2290CASEVAL(NA$) OF
 2300WHEN1:="Body-centred cubic"
 2310WHEN2:="Diamond structure"
 2320WHEN3:="Face-centred cubic"
 2330WHEN4:="Hexagonal close-packed"
 2340WHEN5:="Hexagonal"
 2350WHEN6:="Monoclinic"
 2360WHEN7:="Orthorhombic"
 2370WHEN8:="Tetregonal"
 2380WHEN9:="Rhombic"
 2390ENDCASE
 2400DEFPROCms
 2410SE0%=!b%
 2420SYS"Wimp_GetPointerInfo",,b%
 2430CASEMO% OF
 2440WHEN1:adj%=b%!8:CASESE0% OF
 2450WHEN1:!b%=mass%:SYS"Wimp_GetWindowState",,b%:IFb%!28=-1:PROCti(mass%,1,""):PROCti(mass%,3,""):!b%=mass%:SYS"Wimp_GetWindowState",,b%
 2460b%!28=-1:SYS"Wimp_OpenWindow",,b%:MV$=FNread(mass%,1):SYS"Wimp_SetCaretPosition",mass%,1,,,-1,LEN(MV$)
 2470WHEN2:!b%=bond%:SYS"Wimp_GetWindowState",,b%:IFb%!28=-1:PROCti(bond%,3,""):PROCti(bond%,4,""):PROCti(bond%,5,""):PROCti(bond%,6,""):PROCti(bond%,7,""):PROCti(bond%,8,""):PROCti(bond%,12,""):PROCti(bond%,14,"")
 2480!b%=bond%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b%:MV$=FNread(bond%,3):SYS"Wimp_SetCaretPosition",bond%,3,,,-1,LEN(MV$)
 2490WHEN3:!b%=temps%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b%
 2500WHEN4:!b%=question%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b%:MV$=FNread(question%,3):SYS"Wimp_SetCaretPosition",question%,3,,,-1,LEN(MV$)
 2510WHEN5:!b%=units%:SYS"Wimp_GetWindowState",,b%:IFb%!28=-1:PROCselcu:!b%=units%:SYS"Wimp_GetWindowState",,b%:b%!4=580:b%!8=216:b%!12=1186:b%!16=724:SYS"Wimp_OpenWindow",,b%:ELSEb%!28=-1:SYS"Wimp_OpenWindow",,b%
 2520WHEN6:q%=TRUE
 2530ENDCASE
 2540IFadj%=1:PROCmenu(m1%,1,0,0)
 2550WHEN2:adj%=b%!8:CASESE0% OF
 2560WHEN0,1,2,3,4,5:OSTA$="-999":OYEA$="-999":IFST1%=SE0%:ST1%=-1:PROCudt:ELSEST1%=SE0%:PROCudt
 2570WHEN6:STG%=NOTSTG%:PROCgpno
 2580WHEN7:STP%=NOTSTP%:PROCgpno
 2590WHEN8:fi%=OPENOUT"Elements:Status":PRINT#fi%,ST1%,STG%,STP%,FNqtoc(STA$),YEA$:CLOSE#fi%
 2600ENDCASE
 2610IFSE0%<8:PROCcm2
 2620IFadj%=1:PROCmenu(m2%,2,0,0)
 2630WHEN3:adj%=b%!8:IF$mi3%<>"" THEN
 2640NN$=FNcc($mi3%):RESTORE:cnt%=0:REPEAT:cnt%+=1:READNA$,NB$,NC$:NB$=FNcc(NB$):NC$=FNcc(NC$):FORLA%=1TO17:READND$:NEXTLA%:UNTILNA$=NN$ORNB$=NN$ORNC$=NN$ORcnt%>109
 2650IFcnt%>109:RESTORE:cnt%=0:REPEAT:cnt%+=1:READNA$,NB$:NB$=FNcc(NB$):FORLA%=1TO18:READND$:NEXTLA%:UNTILINSTR(NB$,NN$)ORcnt%>109
 2660IFcnt%<110:PROCfilldata(cnt%)
 2670ENDIF
 2680IFadj%=1:PROCmenu(m3%,3,0,0)
 2690ENDCASE
 2700ENDPROC
 2710DEFFNcc(ST$)
 2720FORLZ%=1TOLEN(ST$)
 2730IFASC(MID$(ST$,LZ%,1))<=90ANDASC(MID$(ST$,LZ%,1))>=65:MID$(ST$,LZ%)=CHR$(ASC(MID$(ST$,LZ%,1))+32)
 2740NEXTLZ%
 2750=ST$
 2760DEFPROCmenu(m%,n%,x%,y%):MO%=n%:SYS"Wimp_CreateMenu",,m%,x%,y%:ENDPROC
 2770DEFPROCerr(S$)
 2780CASEPR% OF
 2790WHEN1:PROCreport("Can't calculate relative molecular mass- is the formula correct?","Message from Elements"):PROCdesel(mass%,2):PROCtj(mass%,3,"")
 2800OTHERWISE:!b%=ERR:$(b%+4)=S$+CHR$0:SYS"Wimp_ReportError",b%,0,"Elements"
 2810ENDCASE
 2820PR%=0
 2830ENDPROC
 2840DEFPROCreport(S$,T$):!b%=ERR:$(b%+4)=S$+CHR$0:SYS"Wimp_ReportError",b%,16,T$:ENDPROC
 2850DEFPROCti(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:$(b%!28)=TX$:ENDPROC
 2860DEFPROCtj(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
 2870DEFPROCtk(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:$(b%!32)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
 2880DEFFNread(win%,icon%):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:=$(b%!28)
 2890DEFPROCgoto(goto%):RESTORE:IFgoto%=1:ENDPROC:ELSEFORLA%=1TOgoto%-1:FORLB%=1TO20:READNA$:NEXTLB%:NEXTLA%:ENDPROC
 2900DEFPROCdre:READNA$:IFNA$="-300":NA$="-"
 2910ENDPROC
 2920DEFFNctoq(ST$):IFST$="-":="-"
 2930IFST$="-400":="Subl"
 2940ST%=VAL(ST$)
 2950IFS%(1)=2:ST%=ST%+273
 2960IFS%(1)=3:ST%=(ST%*1.8)+32
 2970IFS%(1)=4:ST%=(ST%+273)*1.8
 2980IFS%(1)=5:ST%=ST%/1.25
 2990ST$=STR$(ST%)
 3000=ST$
 3010DEFFNqtoc(ST$)
 3020ST%=VAL(ST$)
 3030IFS%(1)=2:ST%=ST%-273
 3040IFS%(1)=3:ST%=(ST%-32)/1.8
 3050IFS%(1)=4:ST%=(ST%/1.8)-273
 3060IFS%(1)=5:ST%=ST%*1.25
 3070ST$=STR$(ST%)
 3080=ST$
 3090DEFPROCgrey(win%,icon%):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:IFNOTb%!24AND1<<22:b%!8=1<<22:b%!12=1<<22:SYS"Wimp_SetIconState",,b%
 3100ENDPROC
 3110DEFPROCxgrey(win%,icon%):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:IFb%!24AND1<<22:b%!8=0:b%!12=1<<22:SYS"Wimp_SetIconState",,b%
 3120ENDPROC
 3130DEFPROCgpno:FORLA%=118TO124:IFSTP%=TRUE:PROCsetfb(table%,LA%,7,-1):ELSEPROCsetfb(table%,LA%,1,-1)
 3140NEXTLA%
 3150FORLA%=110TO117:IFSTG%=TRUE:PROCsetfb(table%,LA%,7,-1):ELSEPROCsetfb(table%,LA%,1,-1)
 3160NEXTLA%
 3170ENDPROC
 3180DEFPROCsetfb(win%,icon%,fg%,bg%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=0
 3190IFfg%>-1:b%!8=fg%<<24:b%!12=15<<24
 3200IFbg%>-1:b%!8+=bg%<<28:b%!12+=15<<28
 3210SYS"Wimp_SetIconState",,b%:ENDPROC
 3220DEFPROCudt
 3230IFST1%<4:FORLA%=134TO136:PROCtj(table%,LA%,""):NEXTLA%:FORLA%=137TO138:!b%=table%:b%!4=LA%:b%!8=0:b%!12=2:SYS"Wimp_SetIconState",,b%:NEXTLA%:!b%=table%:b%!4=134:b%!8=0:b%!12=4:SYS"Wimp_SetIconState",,b%
 3240IFST1%<>0:PROCsetfb(table%,139,1,-1):PROCsetfb(table%,140,1,-1)
 3250CASEST1% OF
 3260WHEN-1:FORLA%=125TO133:PROCsetfb(table%,LA%,1,1):NEXTLA%:FORLA%=1TO109:PROCsetfb(table%,LA%,7,2):NEXTLA%:PROCtj(table%,0,""):ENDPROC
 3270WHEN0:PROCtj(table%,0,"Groups"):FORLA%=125TO131:PROCsetfb(table%,LA%,-1,LA%-116):PROCsetfb(table%,LA%,7,-1):NEXTLA%:PROCsetfb(table%,132,7,-1):PROCsetfb(table%,132,-1,0):PROCsetfb(table%,133,7,-1):PROCsetfb(table%,133,-1,2)
 3280PROCtj(table%,125,"Alkali metals"):PROCtj(table%,126,"Alkaline earth metals"):PROCtj(table%,127,"Group III")
 3290PROCtj(table%,128,"Group IV"):PROCtj(table%,129,"Group V"):PROCtj(table%,130,"Chalcogens"):PROCtj(table%,131,"Halogens"):PROCtj(table%,132,"Noble gases"):PROCtj(table%,133,"Transition elements")
 3300FORLA%=1TO109
 3310CASELA% OF
 3320WHEN1:PROCsetfb(table%,LA%,-1,4)
 3330WHEN3,11,19,37,55,87:PROCsetfb(table%,LA%,-1,9)
 3340WHEN4,12,20,38,56,88:PROCsetfb(table%,LA%,-1,10)
 3350WHEN5,13,31,49,81:PROCsetfb(table%,LA%,-1,11)
 3360WHEN6,14,32,50,82:PROCsetfb(table%,LA%,-1,12)
 3370WHEN7,15,33,51,83:PROCsetfb(table%,LA%,-1,13)
 3380WHEN8,16,34,52,84:PROCsetfb(table%,LA%,-1,14)
 3390WHEN9,17,35,53,85:PROCsetfb(table%,LA%,-1,15)
 3400WHEN2,10,18,36,54,86:PROCsetfb(table%,LA%,-1,0)
 3410OTHERWISE:PROCsetfb(table%,LA%,-1,2)
 3420ENDCASE
 3430IFLA%>=57ANDLA%<=71:PROCsetfb(table%,LA%,-1,1)
 3440IFLA%>=89ANDLA%<=103:PROCsetfb(table%,LA%,-1,3)
 3450NEXTLA%
 3460PROCsetfb(table%,139,7,-1):PROCsetfb(table%,140,7,-1)
 3470WHEN1:PROCtj(table%,0,"Metals and non-metals"):PROCsetfb(table%,131,7,2):PROCsetfb(table%,132,7,9):PROCsetfb(table%,133,7,14):PROCtj(table%,131,"Metals"):PROCtj(table%,132,"Metalloids"):PROCtj(table%,133,"Non-metals"):FORLA%=125TO130:PROCsetfb(table%,LA%,1,1):NEXTLA%
 3480FORLA%=1TO109
 3490CASELA% OF
 3500WHEN1,2,6,7,8,9,10,15,16,17,18,34,35,36,53,54,85,86:PROCsetfb(table%,LA%,-1,14)
 3510WHEN5,14,32,33,52:PROCsetfb(table%,LA%,-1,9)
 3520OTHERWISE:PROCsetfb(table%,LA%,-1,2)
 3530ENDCASE
 3540NEXTLA%
 3550WHEN2:PROCtj(table%,0,"Radioactivity"):PROCsetfb(table%,132,7,14):PROCsetfb(table%,133,7,2):PROCtj(table%,132,"Radioactive"):PROCtj(table%,133,"Stable"):FORLA%=125TO131:PROCsetfb(table%,LA%,1,1):NEXTLA%
 3560FORLA%=1TO109
 3570IFLA%>=84:PROCsetfb(table%,LA%,-1,14)
 3580IFLA%<84 THEN
 3590IFLA%=43ORLA%=61:PROCsetfb(table%,LA%,-1,14):ELSEPROCsetfb(table%,LA%,-1,2)
 3600ENDIF
 3610NEXTLA%
 3620WHEN3:PROCtj(table%,0,"Reactivity"):PROCsetfb(table%,131,7,0):PROCsetfb(table%,132,7,3):PROCsetfb(table%,133,7,5):PROCtj(table%,131,"Least reactive"):PROCtj(table%,132,""):PROCtj(table%,133,"Most reactive"):FORLA%=125TO130:PROCsetfb(table%,LA%,1,1):NEXTLA%
 3630RESTORE:FORLA%=1TO109:FORLB%=1TO11:READNA$:NEXTLB%:NA%=VAL(NA$)*10:FORLB%=1TO9:READNA$:NEXTLB%
 3640CASELA% OF
 3650WHEN2,10,18,36,54,86:PROCsetfb(table%,LA%,-1,0)
 3660OTHERWISE
 3670IFNA%=-3000:NA%=13
 3680CASENA% OF
 3690WHEN6,7,39,40:PROCsetfb(table%,LA%,-1,5)
 3700WHEN8,32,33,34,35:PROCsetfb(table%,LA%,-1,4)
 3710WHEN9,10,28,29,30,31:PROCsetfb(table%,LA%,-1,3)
 3720WHEN11,12,13,25,26,27:PROCsetfb(table%,LA%,-1,2)
 3730WHEN14,15,16,17,18,19,20,21,22,23,24:PROCsetfb(table%,LA%,-1,1)
 3740OTHERWISE:PROCsetfb(table%,LA%,-1,2)
 3750ENDCASE
 3760ENDCASE
 3770NEXTLA%
 3780WHEN4:NA$=FNqtoc(STA$):NA%=VAL(NA$)
 3790IFNA%<-273:NA%=-273
 3800IFNA%>6000:NA%=6000
 3810NA$=STR$(NA%):STA$=FNctoq(NA$)
 3820IFSTA$<>OSTA$ THEN
 3830PROCtj(table%,0,""):PROCsetfb(table%,129,7,2):PROCsetfb(table%,131,7,14):PROCsetfb(table%,132,7,15):PROCsetfb(table%,133,7,10):PROCtj(table%,129,"Unknown"):PROCtj(table%,131,"Solid"):PROCtj(table%,132,"Liquid"):PROCtj(table%,133,"Gas")
 3840FORLA%=125TO128:PROCsetfb(table%,LA%,1,1):NEXTLA%:PROCsetfb(table%,130,1,1):PROCtj(table%,135,"State at"):PROCtj(table%,134,STA$):NA$=FNqtoc(STA$):TQ%=VAL(NA$):!b%=table%:b%!4=134:b%!8=4:b%!12=4:SYS"Wimp_SetIconState",,b%
 3850PROCtj(table%,136,FNteu):FORLA%=137TO138:!b%=table%:b%!4=LA%:b%!8=2:b%!12=2:SYS"Wimp_SetIconState",,b%:NEXTLA%
 3860RESTORE:FORLA%=1TO109:FORLB%=1TO12:READNA$:NEXTLB%:READMP%,BP%:FORLB%=1TO6:READNA$:NEXTLB%
 3870IFMP%=-300ORBP%=-300 THEN
 3880PROCsetfb(table%,LA%,-1,2)
 3890ELSE
 3900IFMP%=-400 THEN
 3910IFBP%>TQ%:PROCsetfb(table%,LA%,-1,14)
 3920IFBP%<TQ%:PROCsetfb(table%,LA%,-1,10)
 3930ELSE
 3940IFMP%<TQ%ANDBP%<TQ%:PROCsetfb(table%,LA%,-1,10)
 3950IFMP%<TQ%ANDBP%>=TQ%:PROCsetfb(table%,LA%,-1,15)
 3960IFMP%>=TQ%ANDBP%>=TQ%:PROCsetfb(table%,LA%,-1,14)
 3970ENDIF
 3980ENDIF
 3990NEXTLA%:OSTA$=STA$
 4000ENDIF
 4010WHEN5:NA%=VAL(YEA$)
 4020IFNA%<1500:NA%=1500
 4030IFNA%>1996:NA%=1996
 4040YEA$=STR$(NA%)
 4050IFYEA$<>OYEA$ THEN
 4060PROCtj(table%,0,""):PROCsetfb(table%,132,7,12):PROCsetfb(table%,133,7,2):PROCtj(table%,132,"Discovered"):PROCtj(table%,133,"Undiscovered"):FORLA%=125TO131:PROCsetfb(table%,LA%,1,1):NEXTLA%
 4070PROCtj(table%,135,"Elements discovered by"):PROCtj(table%,134,YEA$):TQ%=VAL(YEA$):PROCtj(table%,136,""):!b%=table%:b%!4=134:b%!8=4:b%!12=4:SYS"Wimp_SetIconState",,b%:FORLA%=137TO138:!b%=table%:b%!4=LA%:b%!8=2:b%!12=2:SYS"Wimp_SetIconState",,b%:NEXTLA%
 4080RESTORE:FORLA%=1TO109:FORLB%=1TO18:READNA$:NEXTLB%:READye%,NA$
 4090IFye%=-300ORTQ%>=ye%:PROCsetfb(table%,LA%,-1,12):ELSEPROCsetfb(table%,LA%,-1,2)
 4100NEXTLA%
 4110OYEA$=YEA$
 4120ENDIF
 4130ENDCASE
 4140ENDPROC
 4150DEFFNteu
 4160IFS%(1)=1:="�C"
 4170IFS%(1)=2:="K"
 4180IFS%(1)=3:="�F"
 4190IFS%(1)=4:="�R"
 4200IFS%(1)=5:="�r"
 4210DEFPROCsel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:SYS"Wimp_SetIconState",,b%:ENDPROC
 4220DEFPROCdesel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:SYS"Wimp_SetIconState",,b%:ENDPROC
 4230DEFFNseld(win%,icon%):!b%=win%:b%!4=icon%:SYS"Wimp_GetIconState",,b%:=(b%!24)AND(1<<21)
 4240DEFPROCsaveunits:fi%=OPENOUT"Elements:Units":PRINT#fi%,S%(1),S%(2),S%(3):CLOSE#fi%:ENDPROC
 4250DEFPROCselcu:FORLW%=4TO12:PROCdesel(units%,LW%):NEXTLW%:PROCsel(units%,S%(1)+3):PROCsel(units%,S%(2)+8):PROCsel(units%,S%(3)+10)
 4260:ENDPROC
 4270DEFPROCdomass(but%):PR%=1
 4280FORLA%=1TO30:MD$(LA%)="":MD%(LA%)=0:NEXTLA%
 4290MM$=FNread(mass%,1):MM=0:BR%=-1:BRR%=FALSE:MDPT%=0
 4300MMA%=INSTR(MM$,".")
 4310IFMMA%>0 THEN
 4320MM1$=LEFT$(MM$,MMA%-1)
 4330MM2$=RIGHT$(MM$,LEN(MM$)-MMA%)
 4340MMB%=VAL(MM2$)
 4350MMC%=0:REPEAT:MMC%+=1:UNTIL(MID$(MM2$,MMC%)>="A"ANDMID$(MM2$,MMC%)<="Z")ORMMC%>LEN(MM2$)
 4360MM2$=RIGHT$(MM2$,LEN(MM2$)-MMC%+1)
 4370MM$=MM1$+"("+MM2$+")"+STR$(MMB%)
 4380ENDIF
 4390FORLA%=1TOLEN(MM$)
 4400MN$=MID$(MM$,LA%,1)
 4410IFBRR%=TRUE AND(MN$>="A"ANDMN$<="Z" OR MN$="(") THEN
 4420FORLB%=BR%TOMDPT%:IFMD%(LB%)=0:MD%(LB%)=1
 4430IFBRV%=0:BRV%=1
 4440MD%(LB%)=MD%(LB%)*BRV%:NEXTLB%:BRR%=FALSE
 4450ENDIF
 4460IFMN$>="A"ANDMN$<="Z":MDPT%+=1:MD$(MDPT%)=MN$:MD%(MDPT%)=0
 4470IFMN$>="a"ANDMN$<="z":MD$(MDPT%)+=MN$
 4480IFMN$>="0"ANDMN$<="9" THEN
 4490IFBRR%=FALSE:MD%(MDPT%)=MD%(MDPT%)*10:MD%(MDPT%)+=VAL(MN$)
 4500IFBRR%=TRUE:BRV%=BRV%*10:BRV%+=VAL(MN$)
 4510ENDIF
 4520IFMN$="(":BR%=MDPT%+1
 4530IFMN$=")":BRR%=TRUE:BRV%=0
 4540NEXTLA%
 4550IFBRR%=TRUE THEN
 4560FORLB%=BR%TOMDPT%:IFMD%(LB%)=0:MD%(LB%)=1
 4570IFBRV%=0:BRV%=1
 4580MD%(LB%)=MD%(LB%)*BRV%:NEXTLB%:BRR%=FALSE
 4590ENDIF
 4600FORLA%=1TOMDPT%
 4610RESTORE:REPEAT:READNA$,NA$,NB$,NC$:FORLB%=1TO16:READNA$:NEXTLB%:UNTILNB$=MD$(LA%)
 4620NC=VAL(NC$):IFMD%(LA%)=0:MD%(LA%)=1
 4630NC=NC*MD%(LA%):MM+=NC
 4640NEXTLA%
 4650PROCtj(mass%,3,STR$(MM))
 4660PROCdesel(mass%,2)
 4670PR%=0:ENDPROC
 4680DEFPROCdobond
 4690AB%=FALSE
 4700FORLA%=3TO4
 4710NA$=FNread(bond%,LA%)
 4720RESTORE:REPEAT:READNB$,NC$,ND$:FORLB%=1TO8:READNE$:NEXTLB%:FORLB%=1TO9:READNB$:NEXTLB%:UNTILND$=NA$ORNE$="*"
 4730IFNE$="-300":NE$="":AB%=TRUE
 4740IFNE$="*":AB%=TRUE:ELSEPROCtj(bond%,LA%+2,NC$):PROCtj(bond%,LA%+4,NE$)
 4750NEXTLA%
 4760IFNOTAB% THEN
 4770NA$=FNread(bond%,7):EA=VAL(NA$):NA$=FNread(bond%,8):EB=VAL(NA$)
 4780EA=EA*10:EB=EB*10:EA%=EA:EB%=EB:IFEA>EB:ED%=EA-EB:ELSEED%=EB-EA
 4790NA$=STR$(ED%):IFLEN(NA$)=2:NB$=LEFT$(NA$,1)+"."+RIGHT$(NA$,1):ELSENB$="0."+NA$
 4800PROCtj(bond%,12,NB$)
 4810REPEAT:READNA$:UNTILNA$="�":FORLA%=0TOED%:READEE%:NEXTLA%
 4820PROCtj(bond%,14,STR$(EE%))
 4830ELSE
 4840PROCtj(bond%,12,""):PROCtj(bond%,14,"")
 4850ENDIF
 4860PROCdesel(bond%,17)
 4870ENDPROC
 4880DEFPROCnewq
 4890TY%=RND(4)
 4900TZ%=RND(109):PROCgoto(TZ%)
 4910READNA$,NB$,NC$
 4920CASETY% OF
 4930WHEN1:QQ$="What is the chemical symbol for "+NB$:QA$=NC$:QB$=NC$
 4940WHEN2:QQ$="Which element has the symbol "+NC$:QA$=NB$:QB$=NB$
 4950WHEN3:QQ$="What is the atomic number of "+NB$:QA$=NA$:QB$=NA$
 4960WHEN4:QQ$="Which element has the atomic number "+NA$:QA$=NB$:QB$=NC$
 4970ENDCASE
 4980QQ$=QQ$+"?":PROCtj(question%,2,QQ$):PROCtj(question%,3,"")
 4990ENDPROC
 5000DEFPROCudscore:PROCtj(question%,9,STR$(SCOR1%)+"/"+STR$(SCOR2%)):ENDPROC
 5010DEFPROCdoq
 5020AA$=FNread(question%,3)
 5030IFTY%=2ORTY%=4ANDLEN(AA$)>3:AA$=FNcvc(AA$)
 5040IFAA$=QA$ORAA$=QB$ THEN
 5050PROCtk(question%,7,"stick"):PROCtj(question%,6,"Correct."):SCOR1%+=1
 5060ELSE
 5070PROCtk(question%,7,"scross"):PROCtj(question%,6,"Wrong. The answer was "+QA$)
 5080ENDIF
 5090SCOR2%+=1:PROCudscore:PROCnewq:SYS"Wimp_SetCaretPosition",question%,3,,,-1,-1:PROCdesel(question%,1)
 5100ENDPROC
 5110DEFFNcvc(ST$)
 5120IFLEFT$(ST$,1)>="a"ANDLEFT$(ST$,1)<="z":LEFT$(ST$,1)=CHR$(ASC(LEFT$(ST$,1))-32)
 5130FORLA%=2TOLEN(ST$)
 5140IFMID$(ST$,LA%)>="A"ANDMID$(ST$,LA%)<="Z":MID$(ST$,LA%)=CHR$(ASC(MID$(ST$,LA%))+32)
 5150NEXTLA%
 5160=ST$
 5170:
 5180DATA1,"Hydrogen","H","1.00794",46,-1,154,-300,-300,1310,2.1,0.1,-259,-252,"14.3",4,"Henry Cavendish","Britain",1766,"Greek 'hydro' water + 'gen' make"
 5190DATA2,"Helium","He","4.0026",176,0,-300,-300,-300,2370,-300,0.1,-270,-269,"5.19",4,"William Ramsay, N Langlet, P Cleve","Britain, Sweden",1895,"Greek 'helos' - sun"
 5200DATA3,"Lithium","Li","6.941",152,1,68,-300,-300,519,1.0,0.5,180,1330,"3.39",4,"Johann Arfvedson","Sweden",1817,"Greek 'lithos' - stone"
 5210DATA4,"Beryllium","Be","9.01218",112,2,35,-300,-300,900,1.5,1.9,1280,2477,"1.82",4,"Friedrich W�hler, A A Bussy","Germany, France",1828,"Greek 'beryllion' - beryl"
 5220DATA5,"Boron","B","10.811",88,3,23,-300,-300,799,2.0,2.3,2300,3930,"1.03",7,"Davy, Gay-Lussac, Thenard","Britain, France",1806,"Persian 'burah'"
 5230DATA6,"Carbon","C","12.011",71,4,16,-4,260,1090,2.5,2.2,3730,4830,"0.711",5,"Known to ancients",-300,-300,"Latin 'carbo' - charcoal"
 5240DATA7,"Nitrogen","N","14.0067",71,3,16,5,13,1400,3.0,0.8,-210,-196,"1.04",2,"Daniel Rutherford","Britain",1772,"Greek 'nitron' - saltpetre"
 5250DATA8,"Oxygen","O","15.9994",60,-2,132,-300,-300,1310,3.5,1.1,-218,-183,"0.916",9,"Joseph Priestley, Carl W Scheele","Britain, Sweden",1774,"Greek 'oxys' acid + 'gen' make"
 5260DATA9,"Fluorine","F","18.998403",60,-1,133,7,8,1680,4.0,1.1,-220,-188,"0.824",-300,"Henri Moissan","France",1886,"Latin 'fluo' - flow"
 5270DATA10,"Neon","Ne","20.1797",160,0,-300,-300,-300,2080,-300,1.2,-249,-246,"1.03",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'neos' - new"
 5280DATA11,"Sodium","Na","22.98977",185,1,97,-300,-300,494,0.9,1.0,98,890,"1.23",1,"Humphry Davy","Britain",1807,"English 'soda'"
 5290DATA12,"Magnesium","Mg","24.305",160,1,82,2,66,736,1.2,1.7,650,1110,"1.03",4,"Humphry Davy","Britain",1808,"Magnesia, Thessaly, Greece"
 5300DATA13,"Aluminium","Al","26.98154",142,3,51,-300,-300,577,1.5,2.7,660,2470,"0.9",3,"Hans Christian Oersted","Denmark",1825,"Latin 'alumen' - alum"
 5310DATA14,"Silicon","Si","28.085",118,4,42,-4,38,786,1.8,2.3,1410,2360,"0.711",2,"J�ns Berzelius","Sweden",1823,"Latin 'silex' - flint"
 5320DATA15,"Phosphorus","P","30.9376",-300,3,44,5,35,1060,2.1,1.8,44,280,"0.757",2,"Hennig Brand","Germany",1669,"Latin from Greek - light bearing"
 5330DATA16,"Sulphur","S","32.066",106,-2,184,4,37,1000,2.5,2.1,113,445,"0.732",7,"Known to ancients",-300,-300,"Latin 'sulfur'"
 5340DATA17,"Chlorine","Cl","35.453",91,-1,181,5,34,1260,3.0,1.6,-101,-35,"0.477",8,"Carl Wilhelm Scheele","Sweden",1774,"Greek 'chloros' - green"
 5350DATA18,"Argon","Ar","39.948",174,0,-300,1,154,1520,-300,1.4,-189,-186,"0.519",3,"William Ramsay, Baron Rayleigh","Britain",1894,"Greek 'argos' - inactive"
 5360DATA19,"Potassium","K","39.0983",231,1,133,-300,-300,418,0.8,0.9,64,774,"0.753",1,"Humphry Davy","Britain",1807,"English 'potash'"
 5370DATA20,"Calcium","Ca","40.08",196,2,99,-300,-300,590,1.0,1.5,850,1487,"0.653",3,"Humphry Davy","Britain",1808,"Latin 'calx' - lime"
 5380DATA21,"Scandium","Sc","44.95591",160,3,73,-300,-300,632,1.3,3.0,1540,2730,"0.556",4,"Lars Nilson","Sweden",1879,"Scandinavia"
 5390DATA22,"Titanium","Ti","47.88",146,4,68,-300,-300,661,1.5,4.5,1675,3260,"0.523",4,"William Gregor","Britain",1791,"Latin 'titanes' sons of the earth"
 5400DATA23,"Vanadium","V","50.9415",131,3,74,5,59,648,1.6,6.0,1900,3000,"0.481",1,"Nils Sefstr�m","Sweden",1830,"Vanadis (Freya), Norse goddess"
 5410DATA24,"Chromium","Cr","51.996",125,3,63,6,52,653,1.6,7.2,1890,2482,"0.448",1,"Louis Vauquelin","France",1797,"Greek 'chroma' - colour"
 5420DATA25,"Manganese","Mn","54.938",112,2,80,3,66,716,1.5,7.2,1240,2100,"0.477",2,"Johan Gahn","Sweden",1774,"Latin 'magnes' - magnet"
 5430DATA26,"Iron","Fe","55.847",123,2,74,3,64,762,1.8,7.9,1535,3000,"0.448",1,"Known to ancients",-300,-300,"Anglo-Saxon 'iren'"
 5440DATA27,"Cobalt","Co","58.9332",125,2,72,3,63,757,1.8,8.9,1492,2900,"0.435",4,"Georg Brandt","Sweden",1737,"German 'cobald' - goblin"
 5450DATA28,"Nickel","Ni","58.69",124,2,69,3,-300,736,1.8,8.9,1453,2730,"0.439",3,"Axel Cronstedt","Sweden",1751,"German 'kupfernickel'"
 5460DATA29,"Copper","Cu","63.546",128,1,96,2,72,745,1.9,8.9,1083,2595,"0.385",3,"Known to ancients",-300,-300,"Cyprus"
 5470DATA30,"Zinc","Zn","65.39",133,2,74,-300,-300,908,1.6,7.1,420,907,"0.385",4,"Andreas Marggraf","Germany",1746,"German 'zink'"
 5480DATA31,"Gallium","Ga","69.723",121,1,81,3,62,577,1.6,5.9,30,2400,"0.381",3,"Paul �mile Lecoq de Boisbaudran","France",1875,"Latin 'gallia' - France"
 5490DATA32,"Germanium","Ge","72.61",122,4,53,-300,-300,762,1.8,5.3,937,2830,"0.322",2,"Clemens Winkler","Germany",1886,"Latin 'germania'"
 5500DATA33,"Arsenic","As","74.9216",125,3,58,5,46,966,2.0,5.7,-400,613,"0.326",9,"Known to ancients",-300,-300,"Latin 'arsenicum'"
 5510DATA34,"Selenium","Se","78.96",116,-2,191,-300,-300,941,2.4,4.8,217,685,"0.322",4,"J�ns Berzelius","Sweden",1817,"Greek 'selene' - moon"
 5520DATA35,"Bromine","Br","79.909",114,-1,196,5,47,1140,2.8,3.1,-7,59,"0.448",7,"Antoine J Balard, Carl J L�wig","France, Germany",1826,"Greek 'bromos' - stench"
 5530DATA36,"Krypton","Kr","83.8",201,0,-300,-300,-300,1350,-300,2.2,-157,-152,"0.247",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'kryptos' - hidden"
 5540DATA37,"Rubidium","Rb","85.468",246,1,147,-300,-300,402,0.8,1.5,39,688,"0.36",1,"Robert Bunsen, Gustav Kirchoff","Germany",1861,"Latin 'rubidus' - red"
 5550DATA38,"Strontium","Sr","87.62",215,2,112,-300,-300,548,1.0,2.6,768,1380,"0.284",3,"A Crawford","Britain",1790,"Strontian, Scottish village"
 5560DATA39,"Yttrium","Y","88.9058",181,3,89,-300,-300,636,0.2,4.3,1500,2930,"0.297",4,"Johann Gadolin","Finland",1794,"Ytterby, near Stockholm, Sweden"
 5570DATA40,"Zirconium","Zr","91.22",160,4,79,-300,-300,669,1.4,6.5,1850,3580,"0.276",4,"Martin Klaproth","Germany",1789,"Persian 'zargun' - gold coloured"
 5580DATA41,"Niobium","Nb","92.9064",143,5,69,-300,-300,653,1.6,8.6,2470,3300,"0.264",1,"Charles Hatchett","Britain",1801,"Niobe (Greek mythology)"
 5590DATA42,"Molybdenum","Mo","95.94",136,4,70,6,62,694,1.8,10.2,2610,5560,"0.251",1,"Carl Wilhelm Scheele","Sweden",1778,"Greek 'molybdos' - lead"
 5600DATA43,"Technetium","Tc","98.9",135,7,98,-300,-300,699,1.9,11.5,2200,3500,"0.243",4,"Carlo Perrier, Emilio Segr�","Italy",1937,"Greek 'technetos' - artificial"
 5610DATA44,"Ruthenium","Ru","101.07",133,4,67,-300,-300,724,2.2,12.3,2500,4900,"0.238",4,"Karl Klaus","Russia",1844,"Ruthenia, Ukraine"
 5620DATA45,"Rhodium","Rh","102.9055",134,3,68,-300,-300,745,2.2,12.4,1970,4500,"0.243",3,"William Wollaston","Britain",1803,"Greek 'rhodon' - rose"
 5630DATA46,"Palladium","Pd","106.42",137,2,80,4,65,803,2.2,12.0,1550,3980,"0.243",3,"William Wollaston","Britain",1803,"Pallas, minor planet"
 5640DATA47,"Silver","Ag","107.868",144,1,126,-300,-300,732,1.9,10.5,961,2210,"0.234",3,"Known to ancients",-300,-300,"Anglo-Saxon 'seolfor'"
 5650DATA48,"Cadmium","Cd","112.41",148,2,97,-300,-300,866,1.7,8.6,321,765,"0.23",4,"Friedrich Stromeyer","Germany",1817,"Greek 'kadmeia' - calamine"
 5660DATA49,"Indium","In","114.82",162,3,81,-300,-300,556,1.7,7.3,157,2000,"0.238",8,"Ferdinand Reich, H Richter","Germany",1863,"Indigo"
 5670DATA50,"Tin","Sn","118.71",140,2,93,4,71,707,1.8,7.3,232,2270,"0.218",2,"Known to ancients",-300,-300,"Anglo-Saxon 'tin'"
 5680DATA51,"Antimony","Sb","121.75",145,3,76,5,62,833,1.9,6.6,630,1380,"0.209",9,"Known to ancients",-300,-300,"Late Latin 'antimonium'"
 5690DATA52,"Tellurium","Te","127.6",143,-2,211,-300,-300,870,2.1,6.2,450,990,"0.201",4,"Franz M�ller von Reichenstein","Romania",1782,"Latin 'tellus' - earth"
 5700DATA53,"Iodine","I","126.9045",135,-1,216,-300,-300,1010,2.5,4.9,114,184,"0.218",7,"Bernard Courtois","France",1811,"Greek 'iodes' - violet"
 5710DATA54,"Xenon","Xe","131.29",221,0,-300,-300,-300,1170,-300,3.5,-112,-108,"0.159",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'xenos' - stranger"
 5720DATA55,"Caesium","Cs","132.9054",262,1,167,-300,-300,376,0.7,1.9,29,690,"0.234",1,"Gustav Kirchoff, Robert Bunsen","Germany",1860,"Latin 'caesium' - bluish grey"
 5730DATA56,"Barium","Ba","137.33",217,2,134,-300,-300,502,0.9,3.5,714,1640,"0.192",1,"Humphry Davy","Britain",1808,"Greek 'barys' - heavy"
 5740DATA57,"Lanthanum","La","138.905",187,1,139,3,102,540,1.1,6.2,920,3470,"0.201",4,"Carl Mossander","Sweden",1836,"Greek 'lanthan' - conceal"
 5750DATA58,"Cerium","Ce","140.115",183,3,103,4,92,665,1.1,6.8,795,3470,"0.184",3,"von Hisinger, Berzelius, Klaproth","Sweden, Germany",1803,"Ceres, large asteroid"
 5760DATA59,"Praseodymium","Pr","140.9077",182,3,101,-300,-300,556,1.1,6.8,935,3130,"0.192",4,"C F Auer von Welsbach","Austria",1885,"Gk 'prasios' green 'didymos' twin"
 5770DATA60,"Neodymium","Nd","144.24",181,3,100,-300,-300,607,1.2,7.0,1020,3030,"0.188",4,"C F Auer von Welsbach","Austria",1885,"Greek 'neos' new + 'didymos' twin"
 5780DATA61,"Promethium","Pm","147",-300,3,98,-300,-300,556,1.2,-300,1030,2730,"0.184",-300,"J Marinsky, L Glendenin, C Coryell","United States",1947,"Prometheus (Greek mythology)"
 5790DATA62,"Samarium","Sm","150.36",179,3,96,-300,-300,540,1.2,7.5,1070,1900,"0.197",9,"Paul �mile Lecoq de Boisbaudran","France",1879,"Samarski, Russian engineer"
 5800DATA63,"Europium","Eu","151.96",198,3,95,2,109,548,1.1,5.2,826,1440,"0.138",1,"Eug�ne Demar�ay","France",1901,"Europe"
 5810DATA64,"Gadolinium","Gd","157.25",178,3,94,-300,-300,594,1.1,8.0,1310,3000,"0.234",4,"Jean de Marignac","Switzerland",1880,"Gadolin, Finnish chemist"
 5820DATA65,"Terbium","Tb","158.9253",177,3,92,-300,-300,648,1.2,8.3,1360,2800,"0.184",4,"Carl Mossander","Sweden",1843,"Ytterby, near Stockholm, Sweden"
 5830DATA66,"Dysprosium","Dy","162.5",175,3,91,-300,-300,657,1.1,8.6,1410,2600,"0.172",9,"Paul �mile Lecoq de Boisbaudran","France",1886,"Greek 'dysprositos'"
 5840DATA67,"Holmium","Ho","164.9303",176,3,89,-300,-300,581,1.2,8.8,1460,2600,"0.163",4,"J L Soret","Switzerland",1878,"Latin 'homlia' - Stockholm"
 5850DATA68,"Erbium","Er","167.26",173,3,88,-300,-300,589,1.2,9.2,1500,2900,"0.167",4,"Carl Mossander","Sweden",1843,"Ytterby, near Stockholm, Sweden"
 5860DATA69,"Thulium","Tm","168.9342",174,3,87,-300,-300,596,1.2,9.3,1540,1730,"0.159",4,"Per Theodor Cleve","Sweden",1879,"Greek + Roman 'Thule' -northland"
 5870DATA70,"Ytterbium","Yb","173.04",193,3,86,-300,-300,598,1.1,7.0,824,1430,"0.146",3,"Jean de Marignac","Switzerland",1878,"Ytterby, near Stockholm, Sweden"
 5880DATA71,"Lutetium","Lu","174.967",173,3,85,-300,-300,481,1.2,9.8,1650,3330,"0.155",4,"Georges Urbain","France",1907,"Latin 'lutetia' - Paris"
 5890DATA72,"Hafnium","Hf","178.49",158,4,78,-300,-300,531,1.3,13.3,2220,5400,"0.146",4,"Dirk Coster, Georg von Hevesy","Denmark",1923,"Latin 'hafnia' - Copenhagen"
 5900DATA73,"Tantalum","Ta","180.9479",143,5,68,-300,-300,577,1.5,16.6,3000,5420,"0.138",1,"Anders Ekeberg","Sweden",1802,"Tantalus (Greek mythology)"
 5910DATA74,"Tungsten","W","183.85",137,6,62,-300,-300,770,1.7,19.4,3410,5930,"0.134",1,"Fausto and Juan Jos� de Elhuyar","Spain",1783,"Swedish 'tungsten' - heavy stone"
 5920DATA75,"Rhenium","Re","186.207",137,4,72,-300,-300,762,1.9,20.5,3180,5630,"0.138",4,"W Noddack, I Tacke, O Berg","Germany",1925,"German 'Rhein'"
 5930DATA76,"Osmium","Os","190.2",135,4,69,-300,-300,841,2.2,22.5,3000,5000,"0.13",4,"Smithson Tennant","Britain",1804,"Greek 'osme' - odour"
 5940DATA77,"Iridium","Ir","192.22",135,4,68,-300,-300,887,2.2,22.5,2440,5300,"0.134",3,"Smithson Tennant","Britain",1804,"Latin 'iris' - rainbow"
 5950DATA78,"Platinum","Pt","195.08",138,2,80,4,65,866,2.2,21.4,1769,4530,"0.134",3,"Julius Scaliger","Italy",1557,"Spanish 'platina' - silver"
 5960DATA79,"Gold","Au","196.9665",144,1,137,3,85,891,2.4,19.3,1063,2970,"0.13",3,"Known to ancients",-300,-300,"Anglo-Saxon 'gold'"
 5970DATA80,"Mercury","Hg","200.59",156,1,127,2,110,1010,1.9,13.6,-39,357,"0.138",9,"Known to ancients",-300,-300,"Mercury, Roman god"
 5980DATA81,"Thallium","Tl","204.383",171,1,147,-300,-300,590,1.8,11.8,304,1460,"0.13",4,"Willian Crookes","Britain",1861,"Latin 'thallos' - budding twig"
 5990DATA82,"Lead","Pb","207.2",174,2,120,4,84,716,1.8,11.3,327,1744,"0.13",3,"Known to ancients",-300,-300,"Anglo-Saxon 'lead'"
 6000DATA83,"Bismuth","Bi","208.9804",155,3,96,5,74,774,1.9,9.8,271,1560,"0.121",9,"Known to ancients",-300,-300,"German"
 6010DATA84,"Polonium","Po","210",168,2,-300,6,67,812,2.0,9.4,254,960,"0.126",6,"Pierre and Marie Curie","France",1898,"Poland"
 6020DATA85,"Astatine","At","210",-300,7,62,-300,-300,917,2.2,-300,302,350,-300,-300,"Corson, MacKenzie, Segr�","United States",1940,"Greek 'astatos' - unstable"
 6030DATA86,"Radon","Rn","222",-300,0,-300,-300,-300,1040,-300,4.4,-71,-62,"0.092",-300,"Friedrich Ernst Dorn","Germany",1900,"Radium"
 6040DATA87,"Francium","Fr","223",-300,1,187,-300,-300,381,0.7,-300,27,647,-300,-300,"Marguerite Perey","France",1939,"France"
 6050DATA88,"Radium","Ra","226",-300,2,143,-300,-300,510,0.9,5.0,700,1140,"0.121",-300,"Pierre and Marie Curie","France",1898,"Latin 'radius' - ray"
 6060DATA89,"Actinium","Ac","227",188,3,118,-300,-300,669,1.1,10.1,1050,3200,-300,3,"Andr� Debierne","France",1899,"Greek 'aktis' - a ray"
 6070DATA90,"Thorium","Th","232.0381",180,4,102,-300,-300,674,1.3,11.7,1750,3850,"0.113",3,"J�ns Berzelius","Sweden",1828,"Thor, Norse god"
 6080DATA91,"Protactinium","Pa","231",160,3,113,4,98,-300,1.5,15.4,1230,4030,"0.121",8,"Hahn, Meitner, Soddy, Cranston","Germany, Britain",1917,"Greek 'protos' first + actinium"
 6090DATA92,"Uranium","U","238.0289",138,4,97,6,80,385,1.7,19.1,1130,3820,"0.117",9,"Martin Klaproth","Germany",1789,"Uranus, planet"
 6100DATA93,"Neptunium","Np","237",-300,-300,-300,-300,-300,-300,1.3,20.4,640,-300,-300,-300,"E M Mcmillan, P H Abelson","United States",1940,"Neptune, planet"
 6110DATA94,"Plutonium","Pu","242",-300,-300,-300,-300,-300,-300,1.3,19.8,640,3240,-300,-300,"Seaborg, Kennedy, McMillan, Wahl","United States",1940,"Pluto, planet"
 6120DATA95,"Americium","Am","243",-300,-300,-300,-300,-300,-300,1.3,11.7,1200,2600,"0.14",-300,"Seaborg, James, Morgan, Ghiorso","United States",1945,"America"
 6130DATA96,"Curium","Cm","247",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"G T Seaborg, R A James, A Ghiorso","United States",1944,"Pierre and Marie Curie"
 6140DATA97,"Berkelium","Bk","249",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Thompson, Ghiorso","United States",1949,"Berkeley, California, USA"
 6150DATA98,"Californium","Cf","251",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Thompson, Ghiorso, Street","United States",1950,"California, USA"
 6160DATA99,"Einsteinium","Es","254",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Argonne, Los Alamos, U of Calif","United States",1952,"Albert Einstein"
 6170DATA100,"Fermium","Fm","253",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Argonne, Los Alamos, U of Calif","United States",1953,"Enrico Fermi"
 6180DATA101,"Mendelevium","Md","256",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Harvey, Choppin etc.","United States",1955,"Mendel�ev, Russian chemist"
 6190DATA102,"Nobelium","No","253",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Ghiorso, Seaborg, Sikkeland, Walton","United States",1958,"Alfred Nobel, Swedish chemist"
 6200DATA103,"Lawrencium","Lr","257",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Ghiorso, Sikkeland, Larsh, Latimer","United States",1961,"Lawrence, American physicist"
 6210DATA104,"Unnilquadium","Unq","261",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1964,"'Un' 1 + 'nil' 0 + 'quad' 4"
 6220DATA105,"Unnilpentium","Unp","262",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1967,"'Un' 1 + 'nil' 0 + 'pent' 5"
 6230DATA106,"Unnilhexium","Unh","263",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"University of California, Berkeley","United States",1974,"'Un' 1 + 'nil' 0 + 'hex' 6"
 6240DATA107,"Unnilseptium","Uns","262",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1976,"'Un' 1 + 'nil' 0 + 'sept' 7"
 6250DATA108,"Unniloctium","Uno","265",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Heavy Ion Research, Darmstadt","Germany",1984,"'Un' 1 + 'nil' 0 + 'oct' 8"
 6260DATA109,"Unnilennium","Une","266",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Heavy Ion Research, Darmstadt","Germany",1982,"'Un' 1 + 'nil' 0 + 'enn' 9"
 6270DATAOSCLI,OSCLI,OSCLI,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*
 6280DATA"�",0,1,1,2,4,6,9,12,15,19,22,26,30,34,39,43,47,51,55,59,63,67,70,74,76,79,82,84,86,88,89,91,92,100
 6290DATAOSCLI,OSCLI,OSCLI,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*


#�"ERROR "+�$+" at line "+Þ:�
ie%=2888
V� b% 5259,i% ie%,m1% 196,m2% 512,m3% 52,name% 12,fonts% 256,mi% 48,mi2% 62,mi3% 16
(�MD$(30),MD%(30)
2/q%=�:OSTA$="-999":OYEA$="-999":CD%=-1:PR%=0
< �S%(3):fi%=�"Elements:Units"
F<�fi%<>0:�#fi%,S%(1),S%(2),S%(3):�S%(1)=1:S%(2)=1:S%(3)=1
P	�#fi%
Zfi%=�"Elements:Status"
dV�fi%<>0:�#fi%,ST1%,STG%,STP%,STA$,YEA$:�ST1%=-1:STG%=�:STP%=�:STA$="0":YEA$="1990"
n	�#fi%
x0ș"Wimp_Initialise",300,&4B534154,"Elements"
�.fi%=�"Elements:Sprites":sps%=�#fi%+4:�#fi%
�
�sp% sps%
�!sp%=sps%:sp%!8=16
�/ș"OS_SpriteOp",&10A,sp%,"Elements:Sprites"
�Z�F%(109,1):fi%=�"Elements:Textfiles":NA$=�#fi%:�:NA$=�#fi%:F%(�(NA$),0)=1:��#fi%:�#fi%
�Ofi%=�"Elements:Drawfiles":NA$=�#fi%:�:NA$=�#fi%:F%(�(NA$),1)=1:��#fi%:�#fi%
�/ș"Wimp_OpenTemplate",,"Elements:Templates"
�N$name%="Info":ș"Wimp_LoadTemplate",,b%,i%,i%+ie%,-1,name%,0 �,,ni%,,,,ne%
�%ș"Wimp_CreateWindow",,b% � info%
�R$name%="Table":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
�0b%!64=sp%:ș"Wimp_CreateWindow",,b% � table%
�W$name%="Square":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,fonts%,name%,ne% �,,ni%,,,,ne%
�'ș"Wimp_CreateWindow",,b% � square%
Q$name%="Data":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
/b%!64=sp%:ș"Wimp_CreateWindow",,b% � data%
R$name%="State":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
"&ș"Wimp_CreateWindow",,b% � state%
,Q$name%="Year":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
6%ș"Wimp_CreateWindow",,b% � year%
@R$name%="Units":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
J0b%!64=sp%:ș"Wimp_CreateWindow",,b% � units%
TQ$name%="Mass":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
^%ș"Wimp_CreateWindow",,b% � mass%
hQ$name%="bond":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
r%ș"Wimp_CreateWindow",,b% � bond%
|R$name%="Temps":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
�0b%!64=sp%:ș"Wimp_CreateWindow",,b% � temps%
�U$name%="Question":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%
�3b%!64=sp%:ș"Wimp_CreateWindow",,b% � question%
�ș"Wimp_CloseTemplate"
��LA%=1�109
��N,NA$,NA$
��ti(table%,LA%,NA$)
��LB%=1�17:�NA$:�LB%
��LA%
�:STA$=�ctoq(STA$):�ti(state%,0,STA$):�ti(state%,1,�teu)
��ti(year%,0,YEA$)
�	�gpno
�
�selcu
�udt
�QQ%=�/1000:QQ%=QQ%*1000:QR%=�-QQ%:�LA%=1�QR%:QQ%=�(4):�LA%:SCOR1%=0:SCOR2%=0:�newq:�ti(question%,6,""):�ti(question%,9,"0/0"):�tk(question%,7,"s")
i!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002:$(b%+24)="!elements":ș"Wimp_CreateIcon",,b% � ib%
&�cm1:�cm2:�cm3
0��err(�$+�(�))
:	ȕ�q%
Dș"Wimp_Poll",1,b% � r%
N
Ȏr% �
X�2:ș"Wimp_OpenWindow",,b%
b�3:ș"Wimp_CloseWindow",,b%
l,�4:�!b%=square%:ș"Wimp_CloseWindow",,b%
v�6:�click(b%!12)
��8:�key(!b%,b%!4,b%!24)
�
�9:�ms
��17,18:�rm
��
��
�ș"Wimp_CloseDown"
��
���rm
�
Ȏb%!16 �
��0:q%=�
��
��
�f��cm1:$mi2%="Molecular mass...":$(mi2%+20)="Ionic character...":$(mi2%+40)="Temperature scales..."
�$m1%="Elements":m1%!12=&70207:m1%!16=352:m1%!20=44:m1%!24=0:m1%!28=0:m1%!32=info%:m1%!36=&7000021:$(m1%+40)="Info":m1%!52=0:m1%!56=-1:m1%!60=&7000121:m1%!64=mi2%:m1%!68=-1:m1%!72=20
�m1%!76=0:m1%!80=-1:m1%!84=&7000121:m1%!88=mi2%+20:m1%!92=-1:m1%!96=20:m1%!100=0:m1%!104=-1:m1%!108=&7000121:m1%!112=mi2%+40:m1%!116=-1:m1%!120=22:m1%!124=&0:m1%!128=-1
�m1%!132=&7000021:$(m1%+136)="Quiz...":m1%!148=0:m1%!152=-1:m1%!156=&7000021:$(m1%+160)="Units...":m1%!172=&80:m1%!176=-1:m1%!180=&7000021:$(m1%+184)="Quit":�
 	��cm2
*M$mi%="Radioactivity":$(mi%+16)="Group numbers":$(mi%+32)="Period numbers"
4?$m2%="Elements":m2%!12=&70207:m2%!16=240:m2%!20=44:m2%!24=0
>ptr%=28
H�m2(1,0,-1,"Groups",0)
R�m2(1,1,-1,"Metals",0)
\�m2(1,2,-1,"",mi%)
f�m2(1,3,-1,"Reactivity",0)
p�m2(1,4,state%,"State",0)
z�m2(1,5,year%,"Year",0)
��m2(2,0,-1,"",mi%+16)
��m2(3,0,-1,"",mi%+32)
� �m2(4,-1,-1,"Save status",0)
��
�!��m2(typ%,mno%,smh%,NA$,mi1%)
�Ȏtyp% �
�.�1:�ST1%=mno%:!(m2%+ptr%)=1:�!(m2%+ptr%)=0
�+�2:�STG%=�:!(m2%+ptr%)=1:�!(m2%+ptr%)=0
�+�3:�STP%=�:!(m2%+ptr%)=1:�!(m2%+ptr%)=0
��4:!(m2%+ptr%)=&80
��
�!�mno%=5�typ%=3:!(m2%+ptr%)+=2
�!(m2%+ptr%+4)=smh%
;�NA$="":!(m2%+ptr%+8)=&7000121:�:!(m2%+ptr%+8)=&7000021
X�NA$<>"":$(m2%+ptr%+12)=NA$:�!(m2%+ptr%+12)=mi1%:!(m2%+ptr%+16)=-1:!(m2%+ptr%+20)=16
ptr%+=24
$�
.���cm3:$m3%="Go to:":m3%!12=&70207:m3%!16=208:m3%!20=44:m3%!24=0:m3%!28=&84:m3%!32=-1:m3%!36=&7000121:m3%!40=mi3%:m3%!44=-1:m3%!48=16:�
8��key(win%,icon%,key%)
B(�key%<>13:ș"Wimp_ProcessKey",key%:�
L
Ȏ win% �
V�state%:�icon%=0 �
`�ST1%<>4:OSTA$="-999"
j8ST1%=4:STA$=�read(state%,0):�udt:�menu(0,0,0,0):�cm2
t�
~�year%:�icon%=0 �
��ST1%<>5:OYEA$="-999"
�7ST1%=5:YEA$=�read(year%,0):�udt:�menu(0,0,0,0):�cm2
��
�#�mass%:�sel(mass%,2):�domass(4)
�!�bond%:�sel(bond%,17):�dobond
�%�question%:�sel(question%,1):�doq
� :ș"Wimp_ProcessKey",key%:�
��
��
���click(win%)
�Ȏwin% �
��table%:�tablec(b%!8,b%!16)
�data%:�datac(b%!8,b%!16)

�-2:�ibc(b%!8)
�units%:�unitc(b%!8,b%!16)
!�mass%:�b%!16=2:�domass(b%!8)
(�bond%:�b%!16=17:�dobond
2�question%:�b%!16=1:�doq
<(�b%!16=10:SCOR1%=0:SCOR2%=0:�udscore
F�
P�
Z��ibc(but%)
dȎbut% �
nN�4:!b%=table%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%
x$�2:�menu(m1%,1,!b%-64,96+(44*7))
��1:�CD%=-1:CD%=1
�~�filldata(CD%):!b%=data%:ș"Wimp_GetWindowState",,b%:b%!4=36:b%!8=52:b%!12=1242:b%!16=968:b%!28=-1:ș"Wimp_OpenWindow",,b%
��
��
���unitc(but%,icon%)
�F�but%=1�(icon%>3�icon%<13)���seld(units%,icon%):�sel(units%,icon%)
��icon%<15�icon%>16:�
�STA$=�qtoc(STA$)
�+�LZ%=4�8:�seld(units%,LZ%):S%(1)=LZ%-3
��LZ%
�,�LZ%=9�10:�seld(units%,LZ%):S%(2)=LZ%-8
��LZ%
�.�LZ%=11�12:�seld(units%,LZ%):S%(3)=LZ%-10
�LZ%
�icon%=16:�saveunits
0�but%<>1:!b%=units%:ș"Wimp_CloseWindow",,b%
"�CD%>0:�filldata(CD%)
,GSTA$=�ctoq(STA$):�ti(state%,0,STA$):�ti(state%,1,�teu):�ST1%=4:�udt
6�
@��tablec(but%,icon%)
JȎbut% �
TX�2:MOA%=!b%-64:MOB%=b%!4:�ti(state%,0,STA$):�ti(year%,0,YEA$):�menu(m2%,2,MOA%,MOB%)
^�1:�icon%>=1�icon%<=109 �
h�goto(icon%)
r�LA%=0�3:�NA$
|�ti(square%,LA%,NA$)
��LA%
��ș"Wimp_GetPointerInfo",,b%:mx%=!b%:my%=b%!4:!b%=square%:ș"Wimp_GetWindowState",,b%:b%!4=mx%-100:b%!8=my%-100:b%!12=mx%+100:b%!16=my%+100:ș"Wimp_OpenWindow",,b%
��
�0�icon%=137 � ST1%=4:STA$=�(�(STA$)-100):�udt
�0�icon%=138 � ST1%=4:STA$=�(�(STA$)+100):�udt
�/�icon%=137 � ST1%=5:YEA$=�(�(YEA$)-25):�udt
�/�icon%=138 � ST1%=5:YEA$=�(�(YEA$)+25):�udt
��
֘�4:�icon%>=1�icon%<=109:�filldata(icon%):!b%=data%:ș"Wimp_GetWindowState",,b%:b%!4=36:b%!8=52:b%!12=1242:b%!16=968:b%!28=-1:ș"Wimp_OpenWindow",,b%
�0�icon%=137 � ST1%=4:STA$=�(�(STA$)+100):�udt
�0�icon%=138 � ST1%=4:STA$=�(�(STA$)-100):�udt
�/�icon%=137 � ST1%=5:YEA$=�(�(YEA$)+25):�udt
�/�icon%=138 � ST1%=5:YEA$=�(�(YEA$)-25):�udt
�
�
��datac(but%,icon%)
&Ȏbut% �
0�1,4:Ȏicon% �
:�60:�filldata(CD%-1)
D�61:�filldata(CD%+1)
Ns�62:�goto(CD%):�NA$:�NA$:ș"XOS_CLI","Filer_Run Elements:Text+."+NA$:ș"XOS_CLI","Filer_Run Elements:Text."+NA$
Xs�63:�goto(CD%):�NA$:�NA$:ș"XOS_CLI","Filer_Run Elements:Draw+."+NA$:ș"XOS_CLI","Filer_Run Elements:Draw."+NA$
b�
l*�2:$mi3%="":�menu(m3%,3,!b%-4,b%!4+32)
v�
��
���filldata(icon%)
�
CD%=icon%
�)�tj(data%,38,�teu):�tj(data%,42,�teu)
�;�S%(2)=1:�tj(data%,33,"kg m��"):��tj(data%,33,"g cm��")
�B�S%(3)=1:�tj(data%,35,"J kg�� K��"):��tj(data%,35,"J g�� K��")
��tj(data%,25,"kJ mol��")
��goto(icon%)
�r�dre:�tj(data%,1,NA$):�dre:�tj(data%,3,NA$):�dre:�tj(data%,5,NA$):�dre:�tj(data%,7,NA$):�dre:�tj(data%,10,NA$)
�6�dre:�(NA$)<0:NA%=�(NA$):NA%=0-NA%:NA$=�(NA%)+"-"
�,�tj(data%,20,NA$):�dre:�tj(data%,16,NA$)
�6�dre:�(NA$)<0:NA%=�(NA$):NA%=0-NA%:NA$=�(NA%)+"-"
�,�tj(data%,21,NA$):�dre:�tj(data%,18,NA$)
�dre:�tj(data%,24,NA$)
�dre:�tj(data%,27,NA$)
5�dre:�S%(2)=1�NA$<>"-":NA%=�(NA$)*1000:NA$=�(NA%)
 �tj(data%,32,NA$)
*4�dre:MP%=�(NA$):NA$=�ctoq(NA$):�tj(data%,37,NA$)
44�dre:BP%=�(NA$):NA$=�ctoq(NA$):�tj(data%,41,NA$)
>�NA$<>"-" �
H;�MP%<25�BP%<25:�tj(data%,46,"Gas"):�tk(data%,47,"SGas")
RK�MP%<25�BP%>25�icon%<>33:�tj(data%,46,"Liquid"):�tk(data%,47,"SLiquid")
\?�MP%>25�BP%>25:�tj(data%,46,"Solid"):�tk(data%,47,"SSolid")
f�
pa�MP%>0:�tj(data%,46,"Solid"):�tk(data%,47,"Ssolid"):��tj(data%,46,"-"):�tk(data%,47,"SBlank")
z�
�:�icon%=33:�tj(data%,46,"Solid"):�tk(data%,47,"SSolid")
�G�dre:�S%(3)=1�NA$<>"-":NA=�(NA$)*1000:NA$=�(NA):�icon%=42:NA$="251"
��tj(data%,34,NA$)
���dre:NA$=�crys(NA$):�tj(data%,49,NA$):�dre:�tj(data%,52,NA$):�dre:�tj(data%,54,NA$):�dre:�tj(data%,56,NA$):�dre:�tj(data%,58,NA$)
�.�icon%=1:�grey(data%,60):��xgrey(data%,60)
�0�icon%=109:�grey(data%,61):��xgrey(data%,61)
�4�F%(icon%,0)=0:�grey(data%,62):��xgrey(data%,62)
�4�F%(icon%,1)=0:�grey(data%,63):��xgrey(data%,63)
��
�ݤcrys(NA$)
��NA$="-":="-"
�Ȏ�(NA$) �
��1:="Body-centred cubic"
	�2:="Diamond structure"
	�3:="Face-centred cubic"
	 �4:="Hexagonal close-packed"
	$�5:="Hexagonal"
	.�6:="Monoclinic"
	8�7:="Orthorhombic"
	B�8:="Tetregonal"
	L�9:="Rhombic"
	V�
	`��ms
	jSE0%=!b%
	tș"Wimp_GetPointerInfo",,b%
	~ȎMO% �
	��1:adj%=b%!8:ȎSE0% �
	�|�1:!b%=mass%:ș"Wimp_GetWindowState",,b%:�b%!28=-1:�ti(mass%,1,""):�ti(mass%,3,""):!b%=mass%:ș"Wimp_GetWindowState",,b%
	�eb%!28=-1:ș"Wimp_OpenWindow",,b%:MV$=�read(mass%,1):ș"Wimp_SetCaretPosition",mass%,1,,,-1,�(MV$)
	���2:!b%=bond%:ș"Wimp_GetWindowState",,b%:�b%!28=-1:�ti(bond%,3,""):�ti(bond%,4,""):�ti(bond%,5,""):�ti(bond%,6,""):�ti(bond%,7,""):�ti(bond%,8,""):�ti(bond%,12,""):�ti(bond%,14,"")
	��!b%=bond%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%:MV$=�read(bond%,3):ș"Wimp_SetCaretPosition",bond%,3,,,-1,�(MV$)
	�N�3:!b%=temps%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%
	Ě�4:!b%=question%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%:MV$=�read(question%,3):ș"Wimp_SetCaretPosition",question%,3,,,-1,�(MV$)
	���5:!b%=units%:ș"Wimp_GetWindowState",,b%:�b%!28=-1:�selcu:!b%=units%:ș"Wimp_GetWindowState",,b%:b%!4=580:b%!8=216:b%!12=1186:b%!16=724:ș"Wimp_OpenWindow",,b%:�b%!28=-1:ș"Wimp_OpenWindow",,b%
	��6:q%=�
	��
	��adj%=1:�menu(m1%,1,0,0)
	��2:adj%=b%!8:ȎSE0% �
R�0,1,2,3,4,5:OSTA$="-999":OYEA$="-999":�ST1%=SE0%:ST1%=-1:�udt:�ST1%=SE0%:�udt

�6:STG%=�STG%:�gpno
�7:STP%=�STP%:�gpno
I�8:fi%=�"Elements:Status":�#fi%,ST1%,STG%,STP%,�qtoc(STA$),YEA$:�#fi%
(�
2�SE0%<8:�cm2
<�adj%=1:�menu(m2%,2,0,0)
F�3:adj%=b%!8:�$mi3%<>"" �
P�NN$=�cc($mi3%):�:cnt%=0:�:cnt%+=1:�NA$,NB$,NC$:NB$=�cc(NB$):NC$=�cc(NC$):�LA%=1�17:�ND$:�LA%:�NA$=NN$�NB$=NN$�NC$=NN$�cnt%>109
Z^�cnt%>109:�:cnt%=0:�:cnt%+=1:�NA$,NB$:NB$=�cc(NB$):�LA%=1�18:�ND$:�LA%:��NB$,NN$)�cnt%>109
d�cnt%<110:�filldata(cnt%)
n�
x�adj%=1:�menu(m3%,3,0,0)
��
��
�
ݤcc(ST$)
��LZ%=1��(ST$)
�I�(�ST$,LZ%,1))<=90��(�ST$,LZ%,1))>=65:�ST$,LZ%)=�(�(�ST$,LZ%,1))+32)
��LZ%
�=ST$
�>��menu(m%,n%,x%,y%):MO%=n%:ș"Wimp_CreateMenu",,m%,x%,y%:�
�
��err(S$)
�ȎPR% �
��1:�report("Can't calculate relative molecular mass- is the formula correct?","Message from Elements"):�desel(mass%,2):�tj(mass%,3,"")
�>:!b%=�:$(b%+4)=S$+�0:ș"Wimp_ReportError",b%,0,"Elements"
��
	PR%=0
�
G��report(S$,T$):!b%=�:$(b%+4)=S$+�0:ș"Wimp_ReportError",b%,16,T$:�
"U��ti(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:$(b%!28)=TX$:�
,���tj(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
6���tk(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:$(b%!32)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
@Nݤread(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:=$(b%!28)
JI��goto(goto%):�:�goto%=1:�:��LA%=1�goto%-1:�LB%=1�20:�NA$:�LB%:�LA%:�
T"��dre:�NA$:�NA$="-300":NA$="-"
^�
hݤctoq(ST$):�ST$="-":="-"
r�ST$="-400":="Subl"
|ST%=�(ST$)
��S%(1)=2:ST%=ST%+273
��S%(1)=3:ST%=(ST%*1.8)+32
��S%(1)=4:ST%=(ST%+273)*1.8
��S%(1)=5:ST%=ST%/1.25
�ST$=�(ST%)
�=ST$
�ݤqtoc(ST$)
�ST%=�(ST$)
��S%(1)=2:ST%=ST%-273
��S%(1)=3:ST%=(ST%-32)/1.8
��S%(1)=4:ST%=(ST%/1.8)-273
��S%(1)=5:ST%=ST%*1.25
�ST$=�(ST%)
=ST$
���grey(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:�b%!24�1<<22:b%!8=1<<22:b%!12=1<<22:ș"Wimp_SetIconState",,b%
�
&��xgrey(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:�b%!24�1<<22:b%!8=0:b%!12=1<<22:ș"Wimp_SetIconState",,b%
0�
:P��gpno:�LA%=118�124:�STP%=�:�setfb(table%,LA%,7,-1):��setfb(table%,LA%,1,-1)
D�LA%
NI�LA%=110�117:�STG%=�:�setfb(table%,LA%,7,-1):��setfb(table%,LA%,1,-1)
X�LA%
b�
lB��setfb(win%,icon%,fg%,bg%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=0
v%�fg%>-1:b%!8=fg%<<24:b%!12=15<<24
�'�bg%>-1:b%!8+=bg%<<28:b%!12+=15<<28
�ș"Wimp_SetIconState",,b%:�
�	��udt
���ST1%<4:�LA%=134�136:�tj(table%,LA%,""):�LA%:�LA%=137�138:!b%=table%:b%!4=LA%:b%!8=0:b%!12=2:ș"Wimp_SetIconState",,b%:�LA%:!b%=table%:b%!4=134:b%!8=0:b%!12=4:ș"Wimp_SetIconState",,b%
�<�ST1%<>0:�setfb(table%,139,1,-1):�setfb(table%,140,1,-1)
�ȎST1% �
�j�-1:�LA%=125�133:�setfb(table%,LA%,1,1):�LA%:�LA%=1�109:�setfb(table%,LA%,7,2):�LA%:�tj(table%,0,""):�
���0:�tj(table%,0,"Groups"):�LA%=125�131:�setfb(table%,LA%,-1,LA%-116):�setfb(table%,LA%,7,-1):�LA%:�setfb(table%,132,7,-1):�setfb(table%,132,-1,0):�setfb(table%,133,7,-1):�setfb(table%,133,-1,2)
�g�tj(table%,125,"Alkali metals"):�tj(table%,126,"Alkaline earth metals"):�tj(table%,127,"Group III")
ڴ�tj(table%,128,"Group IV"):�tj(table%,129,"Group V"):�tj(table%,130,"Chalcogens"):�tj(table%,131,"Halogens"):�tj(table%,132,"Noble gases"):�tj(table%,133,"Transition elements")
��LA%=1�109
�ȎLA% �
��1:�setfb(table%,LA%,-1,4)

-�3,11,19,37,55,87:�setfb(table%,LA%,-1,9)

.�4,12,20,38,56,88:�setfb(table%,LA%,-1,10)

+�5,13,31,49,81:�setfb(table%,LA%,-1,11)

 +�6,14,32,50,82:�setfb(table%,LA%,-1,12)

*+�7,15,33,51,83:�setfb(table%,LA%,-1,13)

4+�8,16,34,52,84:�setfb(table%,LA%,-1,14)

>+�9,17,35,53,85:�setfb(table%,LA%,-1,15)

H-�2,10,18,36,54,86:�setfb(table%,LA%,-1,0)

R:�setfb(table%,LA%,-1,2)

\�

f,�LA%>=57�LA%<=71:�setfb(table%,LA%,-1,1)

p-�LA%>=89�LA%<=103:�setfb(table%,LA%,-1,3)

z�LA%

�3�setfb(table%,139,7,-1):�setfb(table%,140,7,-1)

���1:�tj(table%,0,"Metals and non-metals"):�setfb(table%,131,7,2):�setfb(table%,132,7,9):�setfb(table%,133,7,14):�tj(table%,131,"Metals"):�tj(table%,132,"Metalloids"):�tj(table%,133,"Non-metals"):�LA%=125�130:�setfb(table%,LA%,1,1):�LA%

��LA%=1�109

�ȎLA% �

�M�1,2,6,7,8,9,10,15,16,17,18,34,35,36,53,54,85,86:�setfb(table%,LA%,-1,14)

�*�5,14,32,33,52:�setfb(table%,LA%,-1,9)

�:�setfb(table%,LA%,-1,2)

��

��LA%

޳�2:�tj(table%,0,"Radioactivity"):�setfb(table%,132,7,14):�setfb(table%,133,7,2):�tj(table%,132,"Radioactive"):�tj(table%,133,"Stable"):�LA%=125�131:�setfb(table%,LA%,1,1):�LA%

��LA%=1�109

�%�LA%>=84:�setfb(table%,LA%,-1,14)

�
�LA%<84 �
D�LA%=43�LA%=61:�setfb(table%,LA%,-1,14):��setfb(table%,LA%,-1,2)
�
�LA%
$��3:�tj(table%,0,"Reactivity"):�setfb(table%,131,7,0):�setfb(table%,132,7,3):�setfb(table%,133,7,5):�tj(table%,131,"Least reactive"):�tj(table%,132,""):�tj(table%,133,"Most reactive"):�LA%=125�130:�setfb(table%,LA%,1,1):�LA%
.E�:�LA%=1�109:�LB%=1�11:�NA$:�LB%:NA%=�(NA$)*10:�LB%=1�9:�NA$:�LB%
8ȎLA% �
B-�2,10,18,36,54,86:�setfb(table%,LA%,-1,0)
L
V�NA%=-3000:NA%=13
`ȎNA% �
j&�6,7,39,40:�setfb(table%,LA%,-1,5)
t*�8,32,33,34,35:�setfb(table%,LA%,-1,4)
~-�9,10,28,29,30,31:�setfb(table%,LA%,-1,3)
�.�11,12,13,25,26,27:�setfb(table%,LA%,-1,2)
�=�14,15,16,17,18,19,20,21,22,23,24:�setfb(table%,LA%,-1,1)
�:�setfb(table%,LA%,-1,2)
��
��
��LA%
�!�4:NA$=�qtoc(STA$):NA%=�(NA$)
��NA%<-273:NA%=-273
��NA%>6000:NA%=6000
�NA$=�(NA%):STA$=�ctoq(NA$)
��STA$<>OSTA$ �
���tj(table%,0,""):�setfb(table%,129,7,2):�setfb(table%,131,7,14):�setfb(table%,132,7,15):�setfb(table%,133,7,10):�tj(table%,129,"Unknown"):�tj(table%,131,"Solid"):�tj(table%,132,"Liquid"):�tj(table%,133,"Gas")
��LA%=125�128:�setfb(table%,LA%,1,1):�LA%:�setfb(table%,130,1,1):�tj(table%,135,"State at"):�tj(table%,134,STA$):NA$=�qtoc(STA$):TQ%=�(NA$):!b%=table%:b%!4=134:b%!8=4:b%!12=4:ș"Wimp_SetIconState",,b%

g�tj(table%,136,�teu):�LA%=137�138:!b%=table%:b%!4=LA%:b%!8=2:b%!12=2:ș"Wimp_SetIconState",,b%:�LA%
@�:�LA%=1�109:�LB%=1�12:�NA$:�LB%:�MP%,BP%:�LB%=1�6:�NA$:�LB%
�MP%=-300�BP%=-300 �
(�setfb(table%,LA%,-1,2)
2�
<�MP%=-400 �
F%�BP%>TQ%:�setfb(table%,LA%,-1,14)
P%�BP%<TQ%:�setfb(table%,LA%,-1,10)
Z�
d-�MP%<TQ%�BP%<TQ%:�setfb(table%,LA%,-1,10)
n.�MP%<TQ%�BP%>=TQ%:�setfb(table%,LA%,-1,15)
x/�MP%>=TQ%�BP%>=TQ%:�setfb(table%,LA%,-1,14)
��
��
��LA%:OSTA$=STA$
��
��5:NA%=�(YEA$)
��NA%<1500:NA%=1500
��NA%>1996:NA%=1996
�YEA$=�(NA%)
��YEA$<>OYEA$ �
ܨ�tj(table%,0,""):�setfb(table%,132,7,12):�setfb(table%,133,7,2):�tj(table%,132,"Discovered"):�tj(table%,133,"Undiscovered"):�LA%=125�131:�setfb(table%,LA%,1,1):�LA%
���tj(table%,135,"Elements discovered by"):�tj(table%,134,YEA$):TQ%=�(YEA$):�tj(table%,136,""):!b%=table%:b%!4=134:b%!8=4:b%!12=4:ș"Wimp_SetIconState",,b%:�LA%=137�138:!b%=table%:b%!4=LA%:b%!8=2:b%!12=2:ș"Wimp_SetIconState",,b%:�LA%
�-�:�LA%=1�109:�LB%=1�18:�NA$:�LB%:�ye%,NA$
�H�ye%=-300�TQ%>=ye%:�setfb(table%,LA%,-1,12):��setfb(table%,LA%,-1,2)
�LA%
OYEA$=YEA$
�
"�
,�
6	ݤteu
@�S%(1)=1:="�C"
J�S%(1)=2:="K"
T�S%(1)=3:="�F"
^�S%(1)=4:="�R"
h�S%(1)=5:="�r"
r\��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș"Wimp_SetIconState",,b%:�
|Z��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș"Wimp_SetIconState",,b%:�
�Uݤseld(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:=(b%!24)�(1<<21)
�E��saveunits:fi%=�"Elements:Units":�#fi%,S%(1),S%(2),S%(3):�#fi%:�
�m��selcu:�LW%=4�12:�desel(units%,LW%):�LW%:�sel(units%,S%(1)+3):�sel(units%,S%(2)+8):�sel(units%,S%(3)+10)
�:�
���domass(but%):PR%=1
�)�LA%=1�30:MD$(LA%)="":MD%(LA%)=0:�LA%
�1MM$=�read(mass%,1):MM=0:BR%=-1:BRR%=�:MDPT%=0
�MMA%=�MM$,".")
�
�MMA%>0 �
�MM1$=�MM$,MMA%-1)
�MM2$=�MM$,�(MM$)-MMA%)
�MMB%=�(MM2$)
�FMMC%=0:�:MMC%+=1:�(�MM2$,MMC%)>="A"��MM2$,MMC%)<="Z")�MMC%>�(MM2$)
MM2$=�MM2$,�(MM2$)-MMC%+1)
!MM$=MM1$+"("+MM2$+")"+�(MMB%)
�
&�LA%=1��(MM$)
0MN$=�MM$,LA%,1)
:,�BRR%=� �(MN$>="A"�MN$<="Z" � MN$="(") �
D)�LB%=BR%�MDPT%:�MD%(LB%)=0:MD%(LB%)=1
N�BRV%=0:BRV%=1
X&MD%(LB%)=MD%(LB%)*BRV%:�LB%:BRR%=�
b�
l;�MN$>="A"�MN$<="Z":MDPT%+=1:MD$(MDPT%)=MN$:MD%(MDPT%)=0
v&�MN$>="a"�MN$<="z":MD$(MDPT%)+=MN$
��MN$>="0"�MN$<="9" �
�7�BRR%=�:MD%(MDPT%)=MD%(MDPT%)*10:MD%(MDPT%)+=�(MN$)
�%�BRR%=�:BRV%=BRV%*10:BRV%+=�(MN$)
��
��MN$="(":BR%=MDPT%+1
��MN$=")":BRR%=�:BRV%=0
��LA%
�
�BRR%=� �
�)�LB%=BR%�MDPT%:�MD%(LB%)=0:MD%(LB%)=1
��BRV%=0:BRV%=1
�&MD%(LB%)=MD%(LB%)*BRV%:�LB%:BRR%=�
��
��LA%=1�MDPT%
:�:�:�NA$,NA$,NB$,NC$:�LB%=1�16:�NA$:�LB%:�NB$=MD$(LA%)
$NC=�(NC$):�MD%(LA%)=0:MD%(LA%)=1
NC=NC*MD%(LA%):MM+=NC
 �LA%
*�tj(mass%,3,�(MM))
4�desel(mass%,2)
>PR%=0:�
H��dobond
R	AB%=�
\�LA%=3�4
fNA$=�read(bond%,LA%)
pK�:�:�NB$,NC$,ND$:�LB%=1�8:�NE$:�LB%:�LB%=1�9:�NB$:�LB%:�ND$=NA$�NE$="*"
z�NE$="-300":NE$="":AB%=�
�=�NE$="*":AB%=�:��tj(bond%,LA%+2,NC$):�tj(bond%,LA%+4,NE$)
��LA%
��AB% �
�=NA$=�read(bond%,7):EA=�(NA$):NA$=�read(bond%,8):EB=�(NA$)
�?EA=EA*10:EB=EB*10:EA%=EA:EB%=EB:�EA>EB:ED%=EA-EB:�ED%=EB-EA
�>NA$=�(ED%):�(NA$)=2:NB$=�NA$,1)+"."+�NA$,1):�NB$="0."+NA$
��tj(bond%,12,NB$)
�(�:�NA$:�NA$="�":�LA%=0�ED%:�EE%:�LA%
��tj(bond%,14,�(EE%))
��
�%�tj(bond%,12,""):�tj(bond%,14,"")
��
��desel(bond%,17)
�

��newq
TY%=�(4)
$TZ%=�(109):�goto(TZ%)
.�NA$,NB$,NC$
8ȎTY% �
BA�1:QQ$="What is the chemical symbol for "+NB$:QA$=NC$:QB$=NC$
L>�2:QQ$="Which element has the symbol "+NC$:QA$=NB$:QB$=NB$
V>�3:QQ$="What is the atomic number of "+NB$:QA$=NA$:QB$=NA$
`E�4:QQ$="Which element has the atomic number "+NA$:QA$=NB$:QB$=NC$
j�
t8QQ$=QQ$+"?":�tj(question%,2,QQ$):�tj(question%,3,"")
~�
�8��udscore:�tj(question%,9,�(SCOR1%)+"/"+�(SCOR2%)):�
�	��doq
�AA$=�read(question%,3)
�'�TY%=2�TY%=4��(AA$)>3:AA$=�cvc(AA$)
��AA$=QA$�AA$=QB$ �
�B�tk(question%,7,"stick"):�tj(question%,6,"Correct."):SCOR1%+=1
��
�K�tk(question%,7,"scross"):�tj(question%,6,"Wrong. The answer was "+QA$)
��
�^SCOR2%+=1:�udscore:�newq:ș"Wimp_SetCaretPosition",question%,3,,,-1,-1:�desel(question%,1)
��
�ݤcvc(ST$)
7�ST$,1)>="a"��ST$,1)<="z":�ST$,1)=�(�(�ST$,1))-32)

�LA%=2��(ST$)
?�ST$,LA%)>="A"��ST$,LA%)<="Z":�ST$,LA%)=�(�(�ST$,LA%))+32)
�LA%
(=ST$
2:
<��1,"Hydrogen","H","1.00794",46,-1,154,-300,-300,1310,2.1,0.1,-259,-252,"14.3",4,"Henry Cavendish","Britain",1766,"Greek 'hydro' water + 'gen' make"
F��2,"Helium","He","4.0026",176,0,-300,-300,-300,2370,-300,0.1,-270,-269,"5.19",4,"William Ramsay, N Langlet, P Cleve","Britain, Sweden",1895,"Greek 'helos' - sun"
P��3,"Lithium","Li","6.941",152,1,68,-300,-300,519,1.0,0.5,180,1330,"3.39",4,"Johann Arfvedson","Sweden",1817,"Greek 'lithos' - stone"
Z��4,"Beryllium","Be","9.01218",112,2,35,-300,-300,900,1.5,1.9,1280,2477,"1.82",4,"Friedrich W�hler, A A Bussy","Germany, France",1828,"Greek 'beryllion' - beryl"
d��5,"Boron","B","10.811",88,3,23,-300,-300,799,2.0,2.3,2300,3930,"1.03",7,"Davy, Gay-Lussac, Thenard","Britain, France",1806,"Persian 'burah'"
n��6,"Carbon","C","12.011",71,4,16,-4,260,1090,2.5,2.2,3730,4830,"0.711",5,"Known to ancients",-300,-300,"Latin 'carbo' - charcoal"
x��7,"Nitrogen","N","14.0067",71,3,16,5,13,1400,3.0,0.8,-210,-196,"1.04",2,"Daniel Rutherford","Britain",1772,"Greek 'nitron' - saltpetre"
���8,"Oxygen","O","15.9994",60,-2,132,-300,-300,1310,3.5,1.1,-218,-183,"0.916",9,"Joseph Priestley, Carl W Scheele","Britain, Sweden",1774,"Greek 'oxys' acid + 'gen' make"
���9,"Fluorine","F","18.998403",60,-1,133,7,8,1680,4.0,1.1,-220,-188,"0.824",-300,"Henri Moissan","France",1886,"Latin 'fluo' - flow"
���10,"Neon","Ne","20.1797",160,0,-300,-300,-300,2080,-300,1.2,-249,-246,"1.03",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'neos' - new"
�~�11,"Sodium","Na","22.98977",185,1,97,-300,-300,494,0.9,1.0,98,890,"1.23",1,"Humphry Davy","Britain",1807,"English 'soda'"
���12,"Magnesium","Mg","24.305",160,1,82,2,66,736,1.2,1.7,650,1110,"1.03",4,"Humphry Davy","Britain",1808,"Magnesia, Thessaly, Greece"
���13,"Aluminium","Al","26.98154",142,3,51,-300,-300,577,1.5,2.7,660,2470,"0.9",3,"Hans Christian Oersted","Denmark",1825,"Latin 'alumen' - alum"
���14,"Silicon","Si","28.085",118,4,42,-4,38,786,1.8,2.3,1410,2360,"0.711",2,"J�ns Berzelius","Sweden",1823,"Latin 'silex' - flint"
Ȑ�15,"Phosphorus","P","30.9376",-300,3,44,5,35,1060,2.1,1.8,44,280,"0.757",2,"Hennig Brand","Germany",1669,"Latin from Greek - light bearing"
�|�16,"Sulphur","S","32.066",106,-2,184,4,37,1000,2.5,2.1,113,445,"0.732",7,"Known to ancients",-300,-300,"Latin 'sulfur'"
܎�17,"Chlorine","Cl","35.453",91,-1,181,5,34,1260,3.0,1.6,-101,-35,"0.477",8,"Carl Wilhelm Scheele","Sweden",1774,"Greek 'chloros' - green"
��18,"Argon","Ar","39.948",174,0,-300,1,154,1520,-300,1.4,-189,-186,"0.519",3,"William Ramsay, Baron Rayleigh","Britain",1894,"Greek 'argos' - inactive"
��19,"Potassium","K","39.0983",231,1,133,-300,-300,418,0.8,0.9,64,774,"0.753",1,"Humphry Davy","Britain",1807,"English 'potash'"
���20,"Calcium","Ca","40.08",196,2,99,-300,-300,590,1.0,1.5,850,1487,"0.653",3,"Humphry Davy","Britain",1808,"Latin 'calx' - lime"
�21,"Scandium","Sc","44.95591",160,3,73,-300,-300,632,1.3,3.0,1540,2730,"0.556",4,"Lars Nilson","Sweden",1879,"Scandinavia"
��22,"Titanium","Ti","47.88",146,4,68,-300,-300,661,1.5,4.5,1675,3260,"0.523",4,"William Gregor","Britain",1791,"Latin 'titanes' sons of the earth"
��23,"Vanadium","V","50.9415",131,3,74,5,59,648,1.6,6.0,1900,3000,"0.481",1,"Nils Sefstr�m","Sweden",1830,"Vanadis (Freya), Norse goddess"
"��24,"Chromium","Cr","51.996",125,3,63,6,52,653,1.6,7.2,1890,2482,"0.448",1,"Louis Vauquelin","France",1797,"Greek 'chroma' - colour"
,��25,"Manganese","Mn","54.938",112,2,80,3,66,716,1.5,7.2,1240,2100,"0.477",2,"Johan Gahn","Sweden",1774,"Latin 'magnes' - magnet"
6}�26,"Iron","Fe","55.847",123,2,74,3,64,762,1.8,7.9,1535,3000,"0.448",1,"Known to ancients",-300,-300,"Anglo-Saxon 'iren'"
@��27,"Cobalt","Co","58.9332",125,2,72,3,63,757,1.8,8.9,1492,2900,"0.435",4,"Georg Brandt","Sweden",1737,"German 'cobald' - goblin"
J��28,"Nickel","Ni","58.69",124,2,69,3,-300,736,1.8,8.9,1453,2730,"0.439",3,"Axel Cronstedt","Sweden",1751,"German 'kupfernickel'"
Ts�29,"Copper","Cu","63.546",128,1,96,2,72,745,1.9,8.9,1083,2595,"0.385",3,"Known to ancients",-300,-300,"Cyprus"
^~�30,"Zinc","Zn","65.39",133,2,74,-300,-300,908,1.6,7.1,420,907,"0.385",4,"Andreas Marggraf","Germany",1746,"German 'zink'"
h��31,"Gallium","Ga","69.723",121,1,81,3,62,577,1.6,5.9,30,2400,"0.381",3,"Paul �mile Lecoq de Boisbaudran","France",1875,"Latin 'gallia' - France"
r��32,"Germanium","Ge","72.61",122,4,53,-300,-300,762,1.8,5.3,937,2830,"0.322",2,"Clemens Winkler","Germany",1886,"Latin 'germania'"
|�33,"Arsenic","As","74.9216",125,3,58,5,46,966,2.0,5.7,-400,613,"0.326",9,"Known to ancients",-300,-300,"Latin 'arsenicum'"
���34,"Selenium","Se","78.96",116,-2,191,-300,-300,941,2.4,4.8,217,685,"0.322",4,"J�ns Berzelius","Sweden",1817,"Greek 'selene' - moon"
���35,"Bromine","Br","79.909",114,-1,196,5,47,1140,2.8,3.1,-7,59,"0.448",7,"Antoine J Balard, Carl J L�wig","France, Germany",1826,"Greek 'bromos' - stench"
���36,"Krypton","Kr","83.8",201,0,-300,-300,-300,1350,-300,2.2,-157,-152,"0.247",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'kryptos' - hidden"
���37,"Rubidium","Rb","85.468",246,1,147,-300,-300,402,0.8,1.5,39,688,"0.36",1,"Robert Bunsen, Gustav Kirchoff","Germany",1861,"Latin 'rubidus' - red"
���38,"Strontium","Sr","87.62",215,2,112,-300,-300,548,1.0,2.6,768,1380,"0.284",3,"A Crawford","Britain",1790,"Strontian, Scottish village"
���39,"Yttrium","Y","88.9058",181,3,89,-300,-300,636,0.2,4.3,1500,2930,"0.297",4,"Johann Gadolin","Finland",1794,"Ytterby, near Stockholm, Sweden"
�40,"Zirconium","Zr","91.22",160,4,79,-300,-300,669,1.4,6.5,1850,3580,"0.276",4,"Martin Klaproth","Germany",1789,"Persian 'zargun' - gold coloured"
̏�41,"Niobium","Nb","92.9064",143,5,69,-300,-300,653,1.6,8.6,2470,3300,"0.264",1,"Charles Hatchett","Britain",1801,"Niobe (Greek mythology)"
֏�42,"Molybdenum","Mo","95.94",136,4,70,6,62,694,1.8,10.2,2610,5560,"0.251",1,"Carl Wilhelm Scheele","Sweden",1778,"Greek 'molybdos' - lead"
��43,"Technetium","Tc","98.9",135,7,98,-300,-300,699,1.9,11.5,2200,3500,"0.243",4,"Carlo Perrier, Emilio Segr�","Italy",1937,"Greek 'technetos' - artificial"
��44,"Ruthenium","Ru","101.07",133,4,67,-300,-300,724,2.2,12.3,2500,4900,"0.238",4,"Karl Klaus","Russia",1844,"Ruthenia, Ukraine"
��45,"Rhodium","Rh","102.9055",134,3,68,-300,-300,745,2.2,12.4,1970,4500,"0.243",3,"William Wollaston","Britain",1803,"Greek 'rhodon' - rose"
���46,"Palladium","Pd","106.42",137,2,80,4,65,803,2.2,12.0,1550,3980,"0.243",3,"William Wollaston","Britain",1803,"Pallas, minor planet"
��47,"Silver","Ag","107.868",144,1,126,-300,-300,732,1.9,10.5,961,2210,"0.234",3,"Known to ancients",-300,-300,"Anglo-Saxon 'seolfor'"
��48,"Cadmium","Cd","112.41",148,2,97,-300,-300,866,1.7,8.6,321,765,"0.23",4,"Friedrich Stromeyer","Germany",1817,"Greek 'kadmeia' - calamine"
��49,"Indium","In","114.82",162,3,81,-300,-300,556,1.7,7.3,157,2000,"0.238",8,"Ferdinand Reich, H Richter","Germany",1863,"Indigo"
&z�50,"Tin","Sn","118.71",140,2,93,4,71,707,1.8,7.3,232,2270,"0.218",2,"Known to ancients",-300,-300,"Anglo-Saxon 'tin'"
0��51,"Antimony","Sb","121.75",145,3,76,5,62,833,1.9,6.6,630,1380,"0.209",9,"Known to ancients",-300,-300,"Late Latin 'antimonium'"
:��52,"Tellurium","Te","127.6",143,-2,211,-300,-300,870,2.1,6.2,450,990,"0.201",4,"Franz M�ller von Reichenstein","Romania",1782,"Latin 'tellus' - earth"
D��53,"Iodine","I","126.9045",135,-1,216,-300,-300,1010,2.5,4.9,114,184,"0.218",7,"Bernard Courtois","France",1811,"Greek 'iodes' - violet"
N��54,"Xenon","Xe","131.29",221,0,-300,-300,-300,1170,-300,3.5,-112,-108,"0.159",3,"William Ramsay, M W Travers","Britain",1898,"Greek 'xenos' - stranger"
X��55,"Caesium","Cs","132.9054",262,1,167,-300,-300,376,0.7,1.9,29,690,"0.234",1,"Gustav Kirchoff, Robert Bunsen","Germany",1860,"Latin 'caesium' - bluish grey"
b��56,"Barium","Ba","137.33",217,2,134,-300,-300,502,0.9,3.5,714,1640,"0.192",1,"Humphry Davy","Britain",1808,"Greek 'barys' - heavy"
l��57,"Lanthanum","La","138.905",187,1,139,3,102,540,1.1,6.2,920,3470,"0.201",4,"Carl Mossander","Sweden",1836,"Greek 'lanthan' - conceal"
v��58,"Cerium","Ce","140.115",183,3,103,4,92,665,1.1,6.8,795,3470,"0.184",3,"von Hisinger, Berzelius, Klaproth","Sweden, Germany",1803,"Ceres, large asteroid"
���59,"Praseodymium","Pr","140.9077",182,3,101,-300,-300,556,1.1,6.8,935,3130,"0.192",4,"C F Auer von Welsbach","Austria",1885,"Gk 'prasios' green 'didymos' twin"
���60,"Neodymium","Nd","144.24",181,3,100,-300,-300,607,1.2,7.0,1020,3030,"0.188",4,"C F Auer von Welsbach","Austria",1885,"Greek 'neos' new + 'didymos' twin"
���61,"Promethium","Pm","147",-300,3,98,-300,-300,556,1.2,-300,1030,2730,"0.184",-300,"J Marinsky, L Glendenin, C Coryell","United States",1947,"Prometheus (Greek mythology)"
���62,"Samarium","Sm","150.36",179,3,96,-300,-300,540,1.2,7.5,1070,1900,"0.197",9,"Paul �mile Lecoq de Boisbaudran","France",1879,"Samarski, Russian engineer"
�w�63,"Europium","Eu","151.96",198,3,95,2,109,548,1.1,5.2,826,1440,"0.138",1,"Eug�ne Demar�ay","France",1901,"Europe"
���64,"Gadolinium","Gd","157.25",178,3,94,-300,-300,594,1.1,8.0,1310,3000,"0.234",4,"Jean de Marignac","Switzerland",1880,"Gadolin, Finnish chemist"
���65,"Terbium","Tb","158.9253",177,3,92,-300,-300,648,1.2,8.3,1360,2800,"0.184",4,"Carl Mossander","Sweden",1843,"Ytterby, near Stockholm, Sweden"
ƚ�66,"Dysprosium","Dy","162.5",175,3,91,-300,-300,657,1.1,8.6,1410,2600,"0.172",9,"Paul �mile Lecoq de Boisbaudran","France",1886,"Greek 'dysprositos'"
А�67,"Holmium","Ho","164.9303",176,3,89,-300,-300,581,1.2,8.8,1460,2600,"0.163",4,"J L Soret","Switzerland",1878,"Latin 'homlia' - Stockholm"
ڒ�68,"Erbium","Er","167.26",173,3,88,-300,-300,589,1.2,9.2,1500,2900,"0.167",4,"Carl Mossander","Sweden",1843,"Ytterby, near Stockholm, Sweden"
��69,"Thulium","Tm","168.9342",174,3,87,-300,-300,596,1.2,9.3,1540,1730,"0.159",4,"Per Theodor Cleve","Sweden",1879,"Greek + Roman 'Thule' -northland"
��70,"Ytterbium","Yb","173.04",193,3,86,-300,-300,598,1.1,7.0,824,1430,"0.146",3,"Jean de Marignac","Switzerland",1878,"Ytterby, near Stockholm, Sweden"
���71,"Lutetium","Lu","174.967",173,3,85,-300,-300,481,1.2,9.8,1650,3330,"0.155",4,"Georges Urbain","France",1907,"Latin 'lutetia' - Paris"
��72,"Hafnium","Hf","178.49",158,4,78,-300,-300,531,1.3,13.3,2220,5400,"0.146",4,"Dirk Coster, Georg von Hevesy","Denmark",1923,"Latin 'hafnia' - Copenhagen"
��73,"Tantalum","Ta","180.9479",143,5,68,-300,-300,577,1.5,16.6,3000,5420,"0.138",1,"Anders Ekeberg","Sweden",1802,"Tantalus (Greek mythology)"
��74,"Tungsten","W","183.85",137,6,62,-300,-300,770,1.7,19.4,3410,5930,"0.134",1,"Fausto and Juan Jos� de Elhuyar","Spain",1783,"Swedish 'tungsten' - heavy stone"
 ��75,"Rhenium","Re","186.207",137,4,72,-300,-300,762,1.9,20.5,3180,5630,"0.138",4,"W Noddack, I Tacke, O Berg","Germany",1925,"German 'Rhein'"
*��76,"Osmium","Os","190.2",135,4,69,-300,-300,841,2.2,22.5,3000,5000,"0.13",4,"Smithson Tennant","Britain",1804,"Greek 'osme' - odour"
4��77,"Iridium","Ir","192.22",135,4,68,-300,-300,887,2.2,22.5,2440,5300,"0.134",3,"Smithson Tennant","Britain",1804,"Latin 'iris' - rainbow"
>��78,"Platinum","Pt","195.08",138,2,80,4,65,866,2.2,21.4,1769,4530,"0.134",3,"Julius Scaliger","Italy",1557,"Spanish 'platina' - silver"
H��79,"Gold","Au","196.9665",144,1,137,3,85,891,2.4,19.3,1063,2970,"0.13",3,"Known to ancients",-300,-300,"Anglo-Saxon 'gold'"
R��80,"Mercury","Hg","200.59",156,1,127,2,110,1010,1.9,13.6,-39,357,"0.138",9,"Known to ancients",-300,-300,"Mercury, Roman god"
\��81,"Thallium","Tl","204.383",171,1,147,-300,-300,590,1.8,11.8,304,1460,"0.13",4,"Willian Crookes","Britain",1861,"Latin 'thallos' - budding twig"
f|�82,"Lead","Pb","207.2",174,2,120,4,84,716,1.8,11.3,327,1744,"0.13",3,"Known to ancients",-300,-300,"Anglo-Saxon 'lead'"
pu�83,"Bismuth","Bi","208.9804",155,3,96,5,74,774,1.9,9.8,271,1560,"0.121",9,"Known to ancients",-300,-300,"German"
z{�84,"Polonium","Po","210",168,2,-300,6,67,812,2.0,9.4,254,960,"0.126",6,"Pierre and Marie Curie","France",1898,"Poland"
���85,"Astatine","At","210",-300,7,62,-300,-300,917,2.2,-300,302,350,-300,-300,"Corson, MacKenzie, Segr�","United States",1940,"Greek 'astatos' - unstable"
���86,"Radon","Rn","222",-300,0,-300,-300,-300,1040,-300,4.4,-71,-62,"0.092",-300,"Friedrich Ernst Dorn","Germany",1900,"Radium"
�z�87,"Francium","Fr","223",-300,1,187,-300,-300,381,0.7,-300,27,647,-300,-300,"Marguerite Perey","France",1939,"France"
���88,"Radium","Ra","226",-300,2,143,-300,-300,510,0.9,5.0,700,1140,"0.121",-300,"Pierre and Marie Curie","France",1898,"Latin 'radius' - ray"
���89,"Actinium","Ac","227",188,3,118,-300,-300,669,1.1,10.1,1050,3200,-300,3,"Andr� Debierne","France",1899,"Greek 'aktis' - a ray"
���90,"Thorium","Th","232.0381",180,4,102,-300,-300,674,1.3,11.7,1750,3850,"0.113",3,"J�ns Berzelius","Sweden",1828,"Thor, Norse god"
���91,"Protactinium","Pa","231",160,3,113,4,98,-300,1.5,15.4,1230,4030,"0.121",8,"Hahn, Meitner, Soddy, Cranston","Germany, Britain",1917,"Greek 'protos' first + actinium"
ʁ�92,"Uranium","U","238.0289",138,4,97,6,80,385,1.7,19.1,1130,3820,"0.117",9,"Martin Klaproth","Germany",1789,"Uranus, planet"
ԛ�93,"Neptunium","Np","237",-300,-300,-300,-300,-300,-300,1.3,20.4,640,-300,-300,-300,"E M Mcmillan, P H Abelson","United States",1940,"Neptune, planet"
ޠ�94,"Plutonium","Pu","242",-300,-300,-300,-300,-300,-300,1.3,19.8,640,3240,-300,-300,"Seaborg, Kennedy, McMillan, Wahl","United States",1940,"Pluto, planet"
��95,"Americium","Am","243",-300,-300,-300,-300,-300,-300,1.3,11.7,1200,2600,"0.14",-300,"Seaborg, James, Morgan, Ghiorso","United States",1945,"America"
��96,"Curium","Cm","247",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"G T Seaborg, R A James, A Ghiorso","United States",1944,"Pierre and Marie Curie"
���97,"Berkelium","Bk","249",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Thompson, Ghiorso","United States",1949,"Berkeley, California, USA"
��98,"Californium","Cf","251",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Thompson, Ghiorso, Street","United States",1950,"California, USA"
��99,"Einsteinium","Es","254",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Argonne, Los Alamos, U of Calif","United States",1952,"Albert Einstein"
��100,"Fermium","Fm","253",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Argonne, Los Alamos, U of Calif","United States",1953,"Enrico Fermi"
$��101,"Mendelevium","Md","256",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Seaborg, Harvey, Choppin etc.","United States",1955,"Mendel�ev, Russian chemist"
.��102,"Nobelium","No","253",-300,-300,-300,-300,-300,-300,1.3,-300,-300,-300,-300,-300,"Ghiorso, Seaborg, Sikkeland, Walton","United States",1958,"Alfred Nobel, Swedish chemist"
8��103,"Lawrencium","Lr","257",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Ghiorso, Sikkeland, Larsh, Latimer","United States",1961,"Lawrence, American physicist"
B��104,"Unnilquadium","Unq","261",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1964,"'Un' 1 + 'nil' 0 + 'quad' 4"
L��105,"Unnilpentium","Unp","262",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1967,"'Un' 1 + 'nil' 0 + 'pent' 5"
V��106,"Unnilhexium","Unh","263",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"University of California, Berkeley","United States",1974,"'Un' 1 + 'nil' 0 + 'hex' 6"
`��107,"Unnilseptium","Uns","262",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Nuclear Research Institute, Dubna","Russia",1976,"'Un' 1 + 'nil' 0 + 'sept' 7"
j��108,"Unniloctium","Uno","265",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Heavy Ion Research, Darmstadt","Germany",1984,"'Un' 1 + 'nil' 0 + 'oct' 8"
t��109,"Unnilennium","Une","266",-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,-300,"Heavy Ion Research, Darmstadt","Germany",1982,"'Un' 1 + 'nil' 0 + 'enn' 9"
~8�OSCLI,OSCLI,OSCLI,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*
�h�"�",0,1,1,2,4,6,9,12,15,19,22,26,30,34,39,43,47,51,55,59,63,67,70,74,76,79,82,84,86,88,89,91,92,100
�8�OSCLI,OSCLI,OSCLI,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*
�

00000000  0d 00 0a 23 ee 85 ff 22  45 52 52 4f 52 20 22 2b  |...#..."ERROR "+|
00000010  f6 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |.$+" at line "+.|
00000020  9e 3a e0 0d 00 14 0c 69  65 25 3d 32 38 38 38 0d  |.:.....ie%=2888.|
00000030  00 1e 56 de 20 62 25 20  35 32 35 39 2c 69 25 20  |..V. b% 5259,i% |
00000040  69 65 25 2c 6d 31 25 20  31 39 36 2c 6d 32 25 20  |ie%,m1% 196,m2% |
00000050  35 31 32 2c 6d 33 25 20  35 32 2c 6e 61 6d 65 25  |512,m3% 52,name%|
00000060  20 31 32 2c 66 6f 6e 74  73 25 20 32 35 36 2c 6d  | 12,fonts% 256,m|
00000070  69 25 20 34 38 2c 6d 69  32 25 20 36 32 2c 6d 69  |i% 48,mi2% 62,mi|
00000080  33 25 20 31 36 0d 00 28  14 de 4d 44 24 28 33 30  |3% 16..(..MD$(30|
00000090  29 2c 4d 44 25 28 33 30  29 0d 00 32 2f 71 25 3d  |),MD%(30)..2/q%=|
000000a0  a3 3a 4f 53 54 41 24 3d  22 2d 39 39 39 22 3a 4f  |.:OSTA$="-999":O|
000000b0  59 45 41 24 3d 22 2d 39  39 39 22 3a 43 44 25 3d  |YEA$="-999":CD%=|
000000c0  2d 31 3a 50 52 25 3d 30  0d 00 3c 20 de 53 25 28  |-1:PR%=0..< .S%(|
000000d0  33 29 3a 66 69 25 3d 8e  22 45 6c 65 6d 65 6e 74  |3):fi%=."Element|
000000e0  73 3a 55 6e 69 74 73 22  0d 00 46 3c e7 66 69 25  |s:Units"..F<.fi%|
000000f0  3c 3e 30 3a e8 23 66 69  25 2c 53 25 28 31 29 2c  |<>0:.#fi%,S%(1),|
00000100  53 25 28 32 29 2c 53 25  28 33 29 3a 8b 53 25 28  |S%(2),S%(3):.S%(|
00000110  31 29 3d 31 3a 53 25 28  32 29 3d 31 3a 53 25 28  |1)=1:S%(2)=1:S%(|
00000120  33 29 3d 31 0d 00 50 09  d9 23 66 69 25 0d 00 5a  |3)=1..P..#fi%..Z|
00000130  1a 66 69 25 3d 8e 22 45  6c 65 6d 65 6e 74 73 3a  |.fi%=."Elements:|
00000140  53 74 61 74 75 73 22 0d  00 64 56 e7 66 69 25 3c  |Status"..dV.fi%<|
00000150  3e 30 3a e8 23 66 69 25  2c 53 54 31 25 2c 53 54  |>0:.#fi%,ST1%,ST|
00000160  47 25 2c 53 54 50 25 2c  53 54 41 24 2c 59 45 41  |G%,STP%,STA$,YEA|
00000170  24 3a 8b 53 54 31 25 3d  2d 31 3a 53 54 47 25 3d  |$:.ST1%=-1:STG%=|
00000180  a3 3a 53 54 50 25 3d a3  3a 53 54 41 24 3d 22 30  |.:STP%=.:STA$="0|
00000190  22 3a 59 45 41 24 3d 22  31 39 39 30 22 0d 00 6e  |":YEA$="1990"..n|
000001a0  09 d9 23 66 69 25 0d 00  78 30 c8 99 22 57 69 6d  |..#fi%..x0.."Wim|
000001b0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 33 30  |p_Initialise",30|
000001c0  30 2c 26 34 42 35 33 34  31 35 34 2c 22 45 6c 65  |0,&4B534154,"Ele|
000001d0  6d 65 6e 74 73 22 0d 00  82 2e 66 69 25 3d 8e 22  |ments"....fi%=."|
000001e0  45 6c 65 6d 65 6e 74 73  3a 53 70 72 69 74 65 73  |Elements:Sprites|
000001f0  22 3a 73 70 73 25 3d a2  23 66 69 25 2b 34 3a d9  |":sps%=.#fi%+4:.|
00000200  23 66 69 25 0d 00 8c 0d  de 73 70 25 20 73 70 73  |#fi%.....sp% sps|
00000210  25 0d 00 96 16 21 73 70  25 3d 73 70 73 25 3a 73  |%....!sp%=sps%:s|
00000220  70 25 21 38 3d 31 36 0d  00 a0 2f c8 99 22 4f 53  |p%!8=16.../.."OS|
00000230  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 41 2c  |_SpriteOp",&10A,|
00000240  73 70 25 2c 22 45 6c 65  6d 65 6e 74 73 3a 53 70  |sp%,"Elements:Sp|
00000250  72 69 74 65 73 22 0d 00  aa 5a de 46 25 28 31 30  |rites"...Z.F%(10|
00000260  39 2c 31 29 3a 66 69 25  3d 8e 22 45 6c 65 6d 65  |9,1):fi%=."Eleme|
00000270  6e 74 73 3a 54 65 78 74  66 69 6c 65 73 22 3a 4e  |nts:Textfiles":N|
00000280  41 24 3d be 23 66 69 25  3a f5 3a 4e 41 24 3d be  |A$=.#fi%:.:NA$=.|
00000290  23 66 69 25 3a 46 25 28  bb 28 4e 41 24 29 2c 30  |#fi%:F%(.(NA$),0|
000002a0  29 3d 31 3a fd c5 23 66  69 25 3a d9 23 66 69 25  |)=1:..#fi%:.#fi%|
000002b0  0d 00 b4 4f 66 69 25 3d  8e 22 45 6c 65 6d 65 6e  |...Ofi%=."Elemen|
000002c0  74 73 3a 44 72 61 77 66  69 6c 65 73 22 3a 4e 41  |ts:Drawfiles":NA|
000002d0  24 3d be 23 66 69 25 3a  f5 3a 4e 41 24 3d be 23  |$=.#fi%:.:NA$=.#|
000002e0  66 69 25 3a 46 25 28 bb  28 4e 41 24 29 2c 31 29  |fi%:F%(.(NA$),1)|
000002f0  3d 31 3a fd c5 23 66 69  25 3a d9 23 66 69 25 0d  |=1:..#fi%:.#fi%.|
00000300  00 be 2f c8 99 22 57 69  6d 70 5f 4f 70 65 6e 54  |../.."Wimp_OpenT|
00000310  65 6d 70 6c 61 74 65 22  2c 2c 22 45 6c 65 6d 65  |emplate",,"Eleme|
00000320  6e 74 73 3a 54 65 6d 70  6c 61 74 65 73 22 0d 00  |nts:Templates"..|
00000330  c8 4e 24 6e 61 6d 65 25  3d 22 49 6e 66 6f 22 3a  |.N$name%="Info":|
00000340  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00000350  6c 61 74 65 22 2c 2c 62  25 2c 69 25 2c 69 25 2b  |late",,b%,i%,i%+|
00000360  69 65 25 2c 2d 31 2c 6e  61 6d 65 25 2c 30 20 b8  |ie%,-1,name%,0 .|
00000370  2c 2c 6e 69 25 2c 2c 2c  2c 6e 65 25 0d 00 d2 25  |,,ni%,,,,ne%...%|
00000380  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
00000390  6e 64 6f 77 22 2c 2c 62  25 20 b8 20 69 6e 66 6f  |ndow",,b% . info|
000003a0  25 0d 00 dc 52 24 6e 61  6d 65 25 3d 22 54 61 62  |%...R$name%="Tab|
000003b0  6c 65 22 3a c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |le":.."Wimp_Load|
000003c0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 25 2c 6e 69  |Template",,b%,ni|
000003d0  25 2c 69 25 2b 69 65 25  2c 2d 31 2c 6e 61 6d 65  |%,i%+ie%,-1,name|
000003e0  25 2c 6e 65 25 20 b8 2c  2c 6e 69 25 2c 2c 2c 2c  |%,ne% .,,ni%,,,,|
000003f0  6e 65 25 0d 00 e6 30 62  25 21 36 34 3d 73 70 25  |ne%...0b%!64=sp%|
00000400  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |:.."Wimp_CreateW|
00000410  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 74 61 62  |indow",,b% . tab|
00000420  6c 65 25 0d 00 f0 57 24  6e 61 6d 65 25 3d 22 53  |le%...W$name%="S|
00000430  71 75 61 72 65 22 3a c8  99 22 57 69 6d 70 5f 4c  |quare":.."Wimp_L|
00000440  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 25  |oadTemplate",,b%|
00000450  2c 6e 69 25 2c 69 25 2b  69 65 25 2c 66 6f 6e 74  |,ni%,i%+ie%,font|
00000460  73 25 2c 6e 61 6d 65 25  2c 6e 65 25 20 b8 2c 2c  |s%,name%,ne% .,,|
00000470  6e 69 25 2c 2c 2c 2c 6e  65 25 0d 00 fa 27 c8 99  |ni%,,,,ne%...'..|
00000480  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000490  6f 77 22 2c 2c 62 25 20  b8 20 73 71 75 61 72 65  |ow",,b% . square|
000004a0  25 0d 01 04 51 24 6e 61  6d 65 25 3d 22 44 61 74  |%...Q$name%="Dat|
000004b0  61 22 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |a":.."Wimp_LoadT|
000004c0  65 6d 70 6c 61 74 65 22  2c 2c 62 25 2c 6e 69 25  |emplate",,b%,ni%|
000004d0  2c 69 25 2b 69 65 25 2c  2d 31 2c 6e 61 6d 65 25  |,i%+ie%,-1,name%|
000004e0  2c 6e 65 25 20 b8 2c 2c  6e 69 25 2c 2c 2c 2c 6e  |,ne% .,,ni%,,,,n|
000004f0  65 25 0d 01 0e 2f 62 25  21 36 34 3d 73 70 25 3a  |e%.../b%!64=sp%:|
00000500  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
00000510  6e 64 6f 77 22 2c 2c 62  25 20 b8 20 64 61 74 61  |ndow",,b% . data|
00000520  25 0d 01 18 52 24 6e 61  6d 65 25 3d 22 53 74 61  |%...R$name%="Sta|
00000530  74 65 22 3a c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |te":.."Wimp_Load|
00000540  54 65 6d 70 6c 61 74 65  22 2c 2c 62 25 2c 6e 69  |Template",,b%,ni|
00000550  25 2c 69 25 2b 69 65 25  2c 2d 31 2c 6e 61 6d 65  |%,i%+ie%,-1,name|
00000560  25 2c 6e 65 25 20 b8 2c  2c 6e 69 25 2c 2c 2c 2c  |%,ne% .,,ni%,,,,|
00000570  6e 65 25 0d 01 22 26 c8  99 22 57 69 6d 70 5f 43  |ne%.."&.."Wimp_C|
00000580  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |reateWindow",,b%|
00000590  20 b8 20 73 74 61 74 65  25 0d 01 2c 51 24 6e 61  | . state%..,Q$na|
000005a0  6d 65 25 3d 22 59 65 61  72 22 3a c8 99 22 57 69  |me%="Year":.."Wi|
000005b0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000005c0  2c 2c 62 25 2c 6e 69 25  2c 69 25 2b 69 65 25 2c  |,,b%,ni%,i%+ie%,|
000005d0  2d 31 2c 6e 61 6d 65 25  2c 6e 65 25 20 b8 2c 2c  |-1,name%,ne% .,,|
000005e0  6e 69 25 2c 2c 2c 2c 6e  65 25 0d 01 36 25 c8 99  |ni%,,,,ne%..6%..|
000005f0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000600  6f 77 22 2c 2c 62 25 20  b8 20 79 65 61 72 25 0d  |ow",,b% . year%.|
00000610  01 40 52 24 6e 61 6d 65  25 3d 22 55 6e 69 74 73  |.@R$name%="Units|
00000620  22 3a c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |":.."Wimp_LoadTe|
00000630  6d 70 6c 61 74 65 22 2c  2c 62 25 2c 6e 69 25 2c  |mplate",,b%,ni%,|
00000640  69 25 2b 69 65 25 2c 2d  31 2c 6e 61 6d 65 25 2c  |i%+ie%,-1,name%,|
00000650  6e 65 25 20 b8 2c 2c 6e  69 25 2c 2c 2c 2c 6e 65  |ne% .,,ni%,,,,ne|
00000660  25 0d 01 4a 30 62 25 21  36 34 3d 73 70 25 3a c8  |%..J0b%!64=sp%:.|
00000670  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00000680  64 6f 77 22 2c 2c 62 25  20 b8 20 75 6e 69 74 73  |dow",,b% . units|
00000690  25 0d 01 54 51 24 6e 61  6d 65 25 3d 22 4d 61 73  |%..TQ$name%="Mas|
000006a0  73 22 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |s":.."Wimp_LoadT|
000006b0  65 6d 70 6c 61 74 65 22  2c 2c 62 25 2c 6e 69 25  |emplate",,b%,ni%|
000006c0  2c 69 25 2b 69 65 25 2c  2d 31 2c 6e 61 6d 65 25  |,i%+ie%,-1,name%|
000006d0  2c 6e 65 25 20 b8 2c 2c  6e 69 25 2c 2c 2c 2c 6e  |,ne% .,,ni%,,,,n|
000006e0  65 25 0d 01 5e 25 c8 99  22 57 69 6d 70 5f 43 72  |e%..^%.."Wimp_Cr|
000006f0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |eateWindow",,b% |
00000700  b8 20 6d 61 73 73 25 0d  01 68 51 24 6e 61 6d 65  |. mass%..hQ$name|
00000710  25 3d 22 62 6f 6e 64 22  3a c8 99 22 57 69 6d 70  |%="bond":.."Wimp|
00000720  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000730  62 25 2c 6e 69 25 2c 69  25 2b 69 65 25 2c 2d 31  |b%,ni%,i%+ie%,-1|
00000740  2c 6e 61 6d 65 25 2c 6e  65 25 20 b8 2c 2c 6e 69  |,name%,ne% .,,ni|
00000750  25 2c 2c 2c 2c 6e 65 25  0d 01 72 25 c8 99 22 57  |%,,,,ne%..r%.."W|
00000760  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000770  22 2c 2c 62 25 20 b8 20  62 6f 6e 64 25 0d 01 7c  |",,b% . bond%..||
00000780  52 24 6e 61 6d 65 25 3d  22 54 65 6d 70 73 22 3a  |R$name%="Temps":|
00000790  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
000007a0  6c 61 74 65 22 2c 2c 62  25 2c 6e 69 25 2c 69 25  |late",,b%,ni%,i%|
000007b0  2b 69 65 25 2c 2d 31 2c  6e 61 6d 65 25 2c 6e 65  |+ie%,-1,name%,ne|
000007c0  25 20 b8 2c 2c 6e 69 25  2c 2c 2c 2c 6e 65 25 0d  |% .,,ni%,,,,ne%.|
000007d0  01 86 30 62 25 21 36 34  3d 73 70 25 3a c8 99 22  |..0b%!64=sp%:.."|
000007e0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000007f0  77 22 2c 2c 62 25 20 b8  20 74 65 6d 70 73 25 0d  |w",,b% . temps%.|
00000800  01 90 55 24 6e 61 6d 65  25 3d 22 51 75 65 73 74  |..U$name%="Quest|
00000810  69 6f 6e 22 3a c8 99 22  57 69 6d 70 5f 4c 6f 61  |ion":.."Wimp_Loa|
00000820  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 25 2c 6e  |dTemplate",,b%,n|
00000830  69 25 2c 69 25 2b 69 65  25 2c 2d 31 2c 6e 61 6d  |i%,i%+ie%,-1,nam|
00000840  65 25 2c 6e 65 25 20 b8  2c 2c 6e 69 25 2c 2c 2c  |e%,ne% .,,ni%,,,|
00000850  2c 6e 65 25 0d 01 9a 33  62 25 21 36 34 3d 73 70  |,ne%...3b%!64=sp|
00000860  25 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |%:.."Wimp_Create|
00000870  57 69 6e 64 6f 77 22 2c  2c 62 25 20 b8 20 71 75  |Window",,b% . qu|
00000880  65 73 74 69 6f 6e 25 0d  01 a4 1a c8 99 22 57 69  |estion%......"Wi|
00000890  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
000008a0  22 0d 01 ae 0e e3 4c 41  25 3d 31 b8 31 30 39 0d  |".....LA%=1.109.|
000008b0  01 b8 0e f3 4e 2c 4e 41  24 2c 4e 41 24 0d 01 c2  |....N,NA$,NA$...|
000008c0  17 f2 74 69 28 74 61 62  6c 65 25 2c 4c 41 25 2c  |..ti(table%,LA%,|
000008d0  4e 41 24 29 0d 01 cc 17  e3 4c 42 25 3d 31 b8 31  |NA$).....LB%=1.1|
000008e0  37 3a f3 4e 41 24 3a ed  4c 42 25 0d 01 d6 08 ed  |7:.NA$:.LB%.....|
000008f0  4c 41 25 0d 01 e0 3a 53  54 41 24 3d a4 63 74 6f  |LA%...:STA$=.cto|
00000900  71 28 53 54 41 24 29 3a  f2 74 69 28 73 74 61 74  |q(STA$):.ti(stat|
00000910  65 25 2c 30 2c 53 54 41  24 29 3a f2 74 69 28 73  |e%,0,STA$):.ti(s|
00000920  74 61 74 65 25 2c 31 2c  a4 74 65 75 29 0d 01 ea  |tate%,1,.teu)...|
00000930  15 f2 74 69 28 79 65 61  72 25 2c 30 2c 59 45 41  |..ti(year%,0,YEA|
00000940  24 29 0d 01 f4 09 f2 67  70 6e 6f 0d 01 fe 0a f2  |$).....gpno.....|
00000950  73 65 6c 63 75 0d 02 08  08 f2 75 64 74 0d 02 12  |selcu.....udt...|
00000960  96 51 51 25 3d 91 2f 31  30 30 30 3a 51 51 25 3d  |.QQ%=./1000:QQ%=|
00000970  51 51 25 2a 31 30 30 30  3a 51 52 25 3d 91 2d 51  |QQ%*1000:QR%=.-Q|
00000980  51 25 3a e3 4c 41 25 3d  31 b8 51 52 25 3a 51 51  |Q%:.LA%=1.QR%:QQ|
00000990  25 3d b3 28 34 29 3a ed  4c 41 25 3a 53 43 4f 52  |%=.(4):.LA%:SCOR|
000009a0  31 25 3d 30 3a 53 43 4f  52 32 25 3d 30 3a f2 6e  |1%=0:SCOR2%=0:.n|
000009b0  65 77 71 3a f2 74 69 28  71 75 65 73 74 69 6f 6e  |ewq:.ti(question|
000009c0  25 2c 36 2c 22 22 29 3a  f2 74 69 28 71 75 65 73  |%,6,""):.ti(ques|
000009d0  74 69 6f 6e 25 2c 39 2c  22 30 2f 30 22 29 3a f2  |tion%,9,"0/0"):.|
000009e0  74 6b 28 71 75 65 73 74  69 6f 6e 25 2c 37 2c 22  |tk(question%,7,"|
000009f0  73 22 29 0d 02 1c 69 21  62 25 3d 2d 31 3a 62 25  |s")...i!b%=-1:b%|
00000a00  21 34 3d 30 3a 62 25 21  38 3d 30 3a 62 25 21 31  |!4=0:b%!8=0:b%!1|
00000a10  32 3d 36 38 3a 62 25 21  31 36 3d 36 38 3a 62 25  |2=68:b%!16=68:b%|
00000a20  21 32 30 3d 26 33 30 30  32 3a 24 28 62 25 2b 32  |!20=&3002:$(b%+2|
00000a30  34 29 3d 22 21 65 6c 65  6d 65 6e 74 73 22 3a c8  |4)="!elements":.|
00000a40  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00000a50  6e 22 2c 2c 62 25 20 b8  20 69 62 25 0d 02 26 12  |n",,b% . ib%..&.|
00000a60  f2 63 6d 31 3a f2 63 6d  32 3a f2 63 6d 33 0d 02  |.cm1:.cm2:.cm3..|
00000a70  30 13 ee 85 f2 65 72 72  28 f6 24 2b c3 28 9e 29  |0....err(.$+.(.)|
00000a80  29 0d 02 3a 09 c8 95 ac  71 25 0d 02 44 1b c8 99  |)..:....q%..D...|
00000a90  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 31 2c 62 25  |"Wimp_Poll",1,b%|
00000aa0  20 b8 20 72 25 0d 02 4e  0a c8 8e 72 25 20 ca 0d  | . r%..N...r% ..|
00000ab0  02 58 1e c9 32 3a c8 99  22 57 69 6d 70 5f 4f 70  |.X..2:.."Wimp_Op|
00000ac0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 02 62  |enWindow",,b%..b|
00000ad0  1f c9 33 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..3:.."Wimp_Clos|
00000ae0  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 02 6c 2c  |eWindow",,b%..l,|
00000af0  c9 34 3a e7 21 62 25 3d  73 71 75 61 72 65 25 3a  |.4:.!b%=square%:|
00000b00  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000b10  64 6f 77 22 2c 2c 62 25  0d 02 76 14 c9 36 3a f2  |dow",,b%..v..6:.|
00000b20  63 6c 69 63 6b 28 62 25  21 31 32 29 0d 02 80 1b  |click(b%!12)....|
00000b30  c9 38 3a f2 6b 65 79 28  21 62 25 2c 62 25 21 34  |.8:.key(!b%,b%!4|
00000b40  2c 62 25 21 32 34 29 0d  02 8a 0a c9 39 3a f2 6d  |,b%!24).....9:.m|
00000b50  73 0d 02 94 0e c9 31 37  2c 31 38 3a f2 72 6d 0d  |s.....17,18:.rm.|
00000b60  02 9e 05 cb 0d 02 a8 05  ce 0d 02 b2 16 c8 99 22  |..............."|
00000b70  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00000b80  02 bc 05 e0 0d 02 c6 08  dd f2 72 6d 0d 02 d0 0d  |..........rm....|
00000b90  c8 8e 62 25 21 31 36 20  ca 0d 02 da 0b c9 30 3a  |..b%!16 ......0:|
00000ba0  71 25 3d b9 0d 02 e4 05  cb 0d 02 ee 05 e1 0d 02  |q%=.............|
00000bb0  f8 66 dd f2 63 6d 31 3a  24 6d 69 32 25 3d 22 4d  |.f..cm1:$mi2%="M|
00000bc0  6f 6c 65 63 75 6c 61 72  20 6d 61 73 73 2e 2e 2e  |olecular mass...|
00000bd0  22 3a 24 28 6d 69 32 25  2b 32 30 29 3d 22 49 6f  |":$(mi2%+20)="Io|
00000be0  6e 69 63 20 63 68 61 72  61 63 74 65 72 2e 2e 2e  |nic character...|
00000bf0  22 3a 24 28 6d 69 32 25  2b 34 30 29 3d 22 54 65  |":$(mi2%+40)="Te|
00000c00  6d 70 65 72 61 74 75 72  65 20 73 63 61 6c 65 73  |mperature scales|
00000c10  2e 2e 2e 22 0d 03 02 b9  24 6d 31 25 3d 22 45 6c  |..."....$m1%="El|
00000c20  65 6d 65 6e 74 73 22 3a  6d 31 25 21 31 32 3d 26  |ements":m1%!12=&|
00000c30  37 30 32 30 37 3a 6d 31  25 21 31 36 3d 33 35 32  |70207:m1%!16=352|
00000c40  3a 6d 31 25 21 32 30 3d  34 34 3a 6d 31 25 21 32  |:m1%!20=44:m1%!2|
00000c50  34 3d 30 3a 6d 31 25 21  32 38 3d 30 3a 6d 31 25  |4=0:m1%!28=0:m1%|
00000c60  21 33 32 3d 69 6e 66 6f  25 3a 6d 31 25 21 33 36  |!32=info%:m1%!36|
00000c70  3d 26 37 30 30 30 30 32  31 3a 24 28 6d 31 25 2b  |=&7000021:$(m1%+|
00000c80  34 30 29 3d 22 49 6e 66  6f 22 3a 6d 31 25 21 35  |40)="Info":m1%!5|
00000c90  32 3d 30 3a 6d 31 25 21  35 36 3d 2d 31 3a 6d 31  |2=0:m1%!56=-1:m1|
00000ca0  25 21 36 30 3d 26 37 30  30 30 31 32 31 3a 6d 31  |%!60=&7000121:m1|
00000cb0  25 21 36 34 3d 6d 69 32  25 3a 6d 31 25 21 36 38  |%!64=mi2%:m1%!68|
00000cc0  3d 2d 31 3a 6d 31 25 21  37 32 3d 32 30 0d 03 0c  |=-1:m1%!72=20...|
00000cd0  ab 6d 31 25 21 37 36 3d  30 3a 6d 31 25 21 38 30  |.m1%!76=0:m1%!80|
00000ce0  3d 2d 31 3a 6d 31 25 21  38 34 3d 26 37 30 30 30  |=-1:m1%!84=&7000|
00000cf0  31 32 31 3a 6d 31 25 21  38 38 3d 6d 69 32 25 2b  |121:m1%!88=mi2%+|
00000d00  32 30 3a 6d 31 25 21 39  32 3d 2d 31 3a 6d 31 25  |20:m1%!92=-1:m1%|
00000d10  21 39 36 3d 32 30 3a 6d  31 25 21 31 30 30 3d 30  |!96=20:m1%!100=0|
00000d20  3a 6d 31 25 21 31 30 34  3d 2d 31 3a 6d 31 25 21  |:m1%!104=-1:m1%!|
00000d30  31 30 38 3d 26 37 30 30  30 31 32 31 3a 6d 31 25  |108=&7000121:m1%|
00000d40  21 31 31 32 3d 6d 69 32  25 2b 34 30 3a 6d 31 25  |!112=mi2%+40:m1%|
00000d50  21 31 31 36 3d 2d 31 3a  6d 31 25 21 31 32 30 3d  |!116=-1:m1%!120=|
00000d60  32 32 3a 6d 31 25 21 31  32 34 3d 26 30 3a 6d 31  |22:m1%!124=&0:m1|
00000d70  25 21 31 32 38 3d 2d 31  0d 03 16 a1 6d 31 25 21  |%!128=-1....m1%!|
00000d80  31 33 32 3d 26 37 30 30  30 30 32 31 3a 24 28 6d  |132=&7000021:$(m|
00000d90  31 25 2b 31 33 36 29 3d  22 51 75 69 7a 2e 2e 2e  |1%+136)="Quiz...|
00000da0  22 3a 6d 31 25 21 31 34  38 3d 30 3a 6d 31 25 21  |":m1%!148=0:m1%!|
00000db0  31 35 32 3d 2d 31 3a 6d  31 25 21 31 35 36 3d 26  |152=-1:m1%!156=&|
00000dc0  37 30 30 30 30 32 31 3a  24 28 6d 31 25 2b 31 36  |7000021:$(m1%+16|
00000dd0  30 29 3d 22 55 6e 69 74  73 2e 2e 2e 22 3a 6d 31  |0)="Units...":m1|
00000de0  25 21 31 37 32 3d 26 38  30 3a 6d 31 25 21 31 37  |%!172=&80:m1%!17|
00000df0  36 3d 2d 31 3a 6d 31 25  21 31 38 30 3d 26 37 30  |6=-1:m1%!180=&70|
00000e00  30 30 30 32 31 3a 24 28  6d 31 25 2b 31 38 34 29  |00021:$(m1%+184)|
00000e10  3d 22 51 75 69 74 22 3a  e1 0d 03 20 09 dd f2 63  |="Quit":... ...c|
00000e20  6d 32 0d 03 2a 4d 24 6d  69 25 3d 22 52 61 64 69  |m2..*M$mi%="Radi|
00000e30  6f 61 63 74 69 76 69 74  79 22 3a 24 28 6d 69 25  |oactivity":$(mi%|
00000e40  2b 31 36 29 3d 22 47 72  6f 75 70 20 6e 75 6d 62  |+16)="Group numb|
00000e50  65 72 73 22 3a 24 28 6d  69 25 2b 33 32 29 3d 22  |ers":$(mi%+32)="|
00000e60  50 65 72 69 6f 64 20 6e  75 6d 62 65 72 73 22 0d  |Period numbers".|
00000e70  03 34 3f 24 6d 32 25 3d  22 45 6c 65 6d 65 6e 74  |.4?$m2%="Element|
00000e80  73 22 3a 6d 32 25 21 31  32 3d 26 37 30 32 30 37  |s":m2%!12=&70207|
00000e90  3a 6d 32 25 21 31 36 3d  32 34 30 3a 6d 32 25 21  |:m2%!16=240:m2%!|
00000ea0  32 30 3d 34 34 3a 6d 32  25 21 32 34 3d 30 0d 03  |20=44:m2%!24=0..|
00000eb0  3e 0b 70 74 72 25 3d 32  38 0d 03 48 1a f2 6d 32  |>.ptr%=28..H..m2|
00000ec0  28 31 2c 30 2c 2d 31 2c  22 47 72 6f 75 70 73 22  |(1,0,-1,"Groups"|
00000ed0  2c 30 29 0d 03 52 1a f2  6d 32 28 31 2c 31 2c 2d  |,0)..R..m2(1,1,-|
00000ee0  31 2c 22 4d 65 74 61 6c  73 22 2c 30 29 0d 03 5c  |1,"Metals",0)..\|
00000ef0  16 f2 6d 32 28 31 2c 32  2c 2d 31 2c 22 22 2c 6d  |..m2(1,2,-1,"",m|
00000f00  69 25 29 0d 03 66 1e f2  6d 32 28 31 2c 33 2c 2d  |i%)..f..m2(1,3,-|
00000f10  31 2c 22 52 65 61 63 74  69 76 69 74 79 22 2c 30  |1,"Reactivity",0|
00000f20  29 0d 03 70 1d f2 6d 32  28 31 2c 34 2c 73 74 61  |)..p..m2(1,4,sta|
00000f30  74 65 25 2c 22 53 74 61  74 65 22 2c 30 29 0d 03  |te%,"State",0)..|
00000f40  7a 1b f2 6d 32 28 31 2c  35 2c 79 65 61 72 25 2c  |z..m2(1,5,year%,|
00000f50  22 59 65 61 72 22 2c 30  29 0d 03 84 19 f2 6d 32  |"Year",0).....m2|
00000f60  28 32 2c 30 2c 2d 31 2c  22 22 2c 6d 69 25 2b 31  |(2,0,-1,"",mi%+1|
00000f70  36 29 0d 03 8e 19 f2 6d  32 28 33 2c 30 2c 2d 31  |6).....m2(3,0,-1|
00000f80  2c 22 22 2c 6d 69 25 2b  33 32 29 0d 03 98 20 f2  |,"",mi%+32)... .|
00000f90  6d 32 28 34 2c 2d 31 2c  2d 31 2c 22 53 61 76 65  |m2(4,-1,-1,"Save|
00000fa0  20 73 74 61 74 75 73 22  2c 30 29 0d 03 a2 05 e1  | status",0).....|
00000fb0  0d 03 ac 21 dd f2 6d 32  28 74 79 70 25 2c 6d 6e  |...!..m2(typ%,mn|
00000fc0  6f 25 2c 73 6d 68 25 2c  4e 41 24 2c 6d 69 31 25  |o%,smh%,NA$,mi1%|
00000fd0  29 0d 03 b6 0c c8 8e 74  79 70 25 20 ca 0d 03 c0  |)......typ% ....|
00000fe0  2e c9 31 3a e7 53 54 31  25 3d 6d 6e 6f 25 3a 21  |..1:.ST1%=mno%:!|
00000ff0  28 6d 32 25 2b 70 74 72  25 29 3d 31 3a 8b 21 28  |(m2%+ptr%)=1:.!(|
00001000  6d 32 25 2b 70 74 72 25  29 3d 30 0d 03 ca 2b c9  |m2%+ptr%)=0...+.|
00001010  32 3a e7 53 54 47 25 3d  b9 3a 21 28 6d 32 25 2b  |2:.STG%=.:!(m2%+|
00001020  70 74 72 25 29 3d 31 3a  8b 21 28 6d 32 25 2b 70  |ptr%)=1:.!(m2%+p|
00001030  74 72 25 29 3d 30 0d 03  d4 2b c9 33 3a e7 53 54  |tr%)=0...+.3:.ST|
00001040  50 25 3d b9 3a 21 28 6d  32 25 2b 70 74 72 25 29  |P%=.:!(m2%+ptr%)|
00001050  3d 31 3a 8b 21 28 6d 32  25 2b 70 74 72 25 29 3d  |=1:.!(m2%+ptr%)=|
00001060  30 0d 03 de 16 c9 34 3a  21 28 6d 32 25 2b 70 74  |0.....4:!(m2%+pt|
00001070  72 25 29 3d 26 38 30 0d  03 e8 05 cb 0d 03 f2 21  |r%)=&80........!|
00001080  e7 6d 6e 6f 25 3d 35 84  74 79 70 25 3d 33 3a 21  |.mno%=5.typ%=3:!|
00001090  28 6d 32 25 2b 70 74 72  25 29 2b 3d 32 0d 03 fc  |(m2%+ptr%)+=2...|
000010a0  16 21 28 6d 32 25 2b 70  74 72 25 2b 34 29 3d 73  |.!(m2%+ptr%+4)=s|
000010b0  6d 68 25 0d 04 06 3b e7  4e 41 24 3d 22 22 3a 21  |mh%...;.NA$="":!|
000010c0  28 6d 32 25 2b 70 74 72  25 2b 38 29 3d 26 37 30  |(m2%+ptr%+8)=&70|
000010d0  30 30 31 32 31 3a 8b 3a  21 28 6d 32 25 2b 70 74  |00121:.:!(m2%+pt|
000010e0  72 25 2b 38 29 3d 26 37  30 30 30 30 32 31 0d 04  |r%+8)=&7000021..|
000010f0  10 58 e7 4e 41 24 3c 3e  22 22 3a 24 28 6d 32 25  |.X.NA$<>"":$(m2%|
00001100  2b 70 74 72 25 2b 31 32  29 3d 4e 41 24 3a 8b 21  |+ptr%+12)=NA$:.!|
00001110  28 6d 32 25 2b 70 74 72  25 2b 31 32 29 3d 6d 69  |(m2%+ptr%+12)=mi|
00001120  31 25 3a 21 28 6d 32 25  2b 70 74 72 25 2b 31 36  |1%:!(m2%+ptr%+16|
00001130  29 3d 2d 31 3a 21 28 6d  32 25 2b 70 74 72 25 2b  |)=-1:!(m2%+ptr%+|
00001140  32 30 29 3d 31 36 0d 04  1a 0c 70 74 72 25 2b 3d  |20)=16....ptr%+=|
00001150  32 34 0d 04 24 05 e1 0d  04 2e 8a dd f2 63 6d 33  |24..$........cm3|
00001160  3a 24 6d 33 25 3d 22 47  6f 20 74 6f 3a 22 3a 6d  |:$m3%="Go to:":m|
00001170  33 25 21 31 32 3d 26 37  30 32 30 37 3a 6d 33 25  |3%!12=&70207:m3%|
00001180  21 31 36 3d 32 30 38 3a  6d 33 25 21 32 30 3d 34  |!16=208:m3%!20=4|
00001190  34 3a 6d 33 25 21 32 34  3d 30 3a 6d 33 25 21 32  |4:m3%!24=0:m3%!2|
000011a0  38 3d 26 38 34 3a 6d 33  25 21 33 32 3d 2d 31 3a  |8=&84:m3%!32=-1:|
000011b0  6d 33 25 21 33 36 3d 26  37 30 30 30 31 32 31 3a  |m3%!36=&7000121:|
000011c0  6d 33 25 21 34 30 3d 6d  69 33 25 3a 6d 33 25 21  |m3%!40=mi3%:m3%!|
000011d0  34 34 3d 2d 31 3a 6d 33  25 21 34 38 3d 31 36 3a  |44=-1:m3%!48=16:|
000011e0  e1 0d 04 38 1a dd f2 6b  65 79 28 77 69 6e 25 2c  |...8...key(win%,|
000011f0  69 63 6f 6e 25 2c 6b 65  79 25 29 0d 04 42 28 e7  |icon%,key%)..B(.|
00001200  6b 65 79 25 3c 3e 31 33  3a c8 99 22 57 69 6d 70  |key%<>13:.."Wimp|
00001210  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 6b 65 79  |_ProcessKey",key|
00001220  25 3a e1 0d 04 4c 0d c8  8e 20 77 69 6e 25 20 ca  |%:...L... win% .|
00001230  0d 04 56 16 c9 73 74 61  74 65 25 3a e7 69 63 6f  |..V..state%:.ico|
00001240  6e 25 3d 30 20 8c 0d 04  60 19 e7 53 54 31 25 3c  |n%=0 ...`..ST1%<|
00001250  3e 34 3a 4f 53 54 41 24  3d 22 2d 39 39 39 22 0d  |>4:OSTA$="-999".|
00001260  04 6a 38 53 54 31 25 3d  34 3a 53 54 41 24 3d a4  |.j8ST1%=4:STA$=.|
00001270  72 65 61 64 28 73 74 61  74 65 25 2c 30 29 3a f2  |read(state%,0):.|
00001280  75 64 74 3a f2 6d 65 6e  75 28 30 2c 30 2c 30 2c  |udt:.menu(0,0,0,|
00001290  30 29 3a f2 63 6d 32 0d  04 74 05 cd 0d 04 7e 15  |0):.cm2..t....~.|
000012a0  c9 79 65 61 72 25 3a e7  69 63 6f 6e 25 3d 30 20  |.year%:.icon%=0 |
000012b0  8c 0d 04 88 19 e7 53 54  31 25 3c 3e 35 3a 4f 59  |......ST1%<>5:OY|
000012c0  45 41 24 3d 22 2d 39 39  39 22 0d 04 92 37 53 54  |EA$="-999"...7ST|
000012d0  31 25 3d 35 3a 59 45 41  24 3d a4 72 65 61 64 28  |1%=5:YEA$=.read(|
000012e0  79 65 61 72 25 2c 30 29  3a f2 75 64 74 3a f2 6d  |year%,0):.udt:.m|
000012f0  65 6e 75 28 30 2c 30 2c  30 2c 30 29 3a f2 63 6d  |enu(0,0,0,0):.cm|
00001300  32 0d 04 9c 05 cd 0d 04  a6 23 c9 6d 61 73 73 25  |2........#.mass%|
00001310  3a f2 73 65 6c 28 6d 61  73 73 25 2c 32 29 3a f2  |:.sel(mass%,2):.|
00001320  64 6f 6d 61 73 73 28 34  29 0d 04 b0 21 c9 62 6f  |domass(4)...!.bo|
00001330  6e 64 25 3a f2 73 65 6c  28 62 6f 6e 64 25 2c 31  |nd%:.sel(bond%,1|
00001340  37 29 3a f2 64 6f 62 6f  6e 64 0d 04 ba 25 c9 71  |7):.dobond...%.q|
00001350  75 65 73 74 69 6f 6e 25  3a f2 73 65 6c 28 71 75  |uestion%:.sel(qu|
00001360  65 73 74 69 6f 6e 25 2c  31 29 3a f2 64 6f 71 0d  |estion%,1):.doq.|
00001370  04 c4 20 7f 3a c8 99 22  57 69 6d 70 5f 50 72 6f  |.. .:.."Wimp_Pro|
00001380  63 65 73 73 4b 65 79 22  2c 6b 65 79 25 3a e1 0d  |cessKey",key%:..|
00001390  04 ce 05 cb 0d 04 d8 05  e1 0d 04 e2 11 dd f2 63  |...............c|
000013a0  6c 69 63 6b 28 77 69 6e  25 29 0d 04 ec 0c c8 8e  |lick(win%)......|
000013b0  77 69 6e 25 20 ca 0d 04  f6 1f c9 74 61 62 6c 65  |win% ......table|
000013c0  25 3a f2 74 61 62 6c 65  63 28 62 25 21 38 2c 62  |%:.tablec(b%!8,b|
000013d0  25 21 31 36 29 0d 05 00  1d c9 64 61 74 61 25 3a  |%!16).....data%:|
000013e0  f2 64 61 74 61 63 28 62  25 21 38 2c 62 25 21 31  |.datac(b%!8,b%!1|
000013f0  36 29 0d 05 0a 12 c9 2d  32 3a f2 69 62 63 28 62  |6).....-2:.ibc(b|
00001400  25 21 38 29 0d 05 14 1e  c9 75 6e 69 74 73 25 3a  |%!8).....units%:|
00001410  f2 75 6e 69 74 63 28 62  25 21 38 2c 62 25 21 31  |.unitc(b%!8,b%!1|
00001420  36 29 0d 05 1e 21 c9 6d  61 73 73 25 3a e7 62 25  |6)...!.mass%:.b%|
00001430  21 31 36 3d 32 3a f2 64  6f 6d 61 73 73 28 62 25  |!16=2:.domass(b%|
00001440  21 38 29 0d 05 28 1c c9  62 6f 6e 64 25 3a e7 62  |!8)..(..bond%:.b|
00001450  25 21 31 36 3d 31 37 3a  f2 64 6f 62 6f 6e 64 0d  |%!16=17:.dobond.|
00001460  05 32 1c c9 71 75 65 73  74 69 6f 6e 25 3a e7 62  |.2..question%:.b|
00001470  25 21 31 36 3d 31 3a f2  64 6f 71 0d 05 3c 28 e7  |%!16=1:.doq..<(.|
00001480  62 25 21 31 36 3d 31 30  3a 53 43 4f 52 31 25 3d  |b%!16=10:SCOR1%=|
00001490  30 3a 53 43 4f 52 32 25  3d 30 3a f2 75 64 73 63  |0:SCOR2%=0:.udsc|
000014a0  6f 72 65 0d 05 46 05 cb  0d 05 50 05 e1 0d 05 5a  |ore..F....P....Z|
000014b0  0f dd f2 69 62 63 28 62  75 74 25 29 0d 05 64 0c  |...ibc(but%)..d.|
000014c0  c8 8e 62 75 74 25 20 ca  0d 05 6e 4e c9 34 3a 21  |..but% ...nN.4:!|
000014d0  62 25 3d 74 61 62 6c 65  25 3a c8 99 22 57 69 6d  |b%=table%:.."Wim|
000014e0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000014f0  22 2c 2c 62 25 3a 62 25  21 32 38 3d 2d 31 3a c8  |",,b%:b%!28=-1:.|
00001500  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00001510  77 22 2c 2c 62 25 0d 05  78 24 c9 32 3a f2 6d 65  |w",,b%..x$.2:.me|
00001520  6e 75 28 6d 31 25 2c 31  2c 21 62 25 2d 36 34 2c  |nu(m1%,1,!b%-64,|
00001530  39 36 2b 28 34 34 2a 37  29 29 0d 05 82 14 c9 31  |96+(44*7)).....1|
00001540  3a e7 43 44 25 3d 2d 31  3a 43 44 25 3d 31 0d 05  |:.CD%=-1:CD%=1..|
00001550  8c 7e f2 66 69 6c 6c 64  61 74 61 28 43 44 25 29  |.~.filldata(CD%)|
00001560  3a 21 62 25 3d 64 61 74  61 25 3a c8 99 22 57 69  |:!b%=data%:.."Wi|
00001570  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00001580  65 22 2c 2c 62 25 3a 62  25 21 34 3d 33 36 3a 62  |e",,b%:b%!4=36:b|
00001590  25 21 38 3d 35 32 3a 62  25 21 31 32 3d 31 32 34  |%!8=52:b%!12=124|
000015a0  32 3a 62 25 21 31 36 3d  39 36 38 3a 62 25 21 32  |2:b%!16=968:b%!2|
000015b0  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
000015c0  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 05 96 05  |nWindow",,b%....|
000015d0  cb 0d 05 a0 05 e1 0d 05  aa 17 dd f2 75 6e 69 74  |............unit|
000015e0  63 28 62 75 74 25 2c 69  63 6f 6e 25 29 0d 05 b4  |c(but%,icon%)...|
000015f0  46 e7 62 75 74 25 3d 31  80 28 69 63 6f 6e 25 3e  |F.but%=1.(icon%>|
00001600  33 80 69 63 6f 6e 25 3c  31 33 29 80 ac a4 73 65  |3.icon%<13)...se|
00001610  6c 64 28 75 6e 69 74 73  25 2c 69 63 6f 6e 25 29  |ld(units%,icon%)|
00001620  3a f2 73 65 6c 28 75 6e  69 74 73 25 2c 69 63 6f  |:.sel(units%,ico|
00001630  6e 25 29 0d 05 be 18 e7  69 63 6f 6e 25 3c 31 35  |n%).....icon%<15|
00001640  84 69 63 6f 6e 25 3e 31  36 3a e1 0d 05 c8 14 53  |.icon%>16:.....S|
00001650  54 41 24 3d a4 71 74 6f  63 28 53 54 41 24 29 0d  |TA$=.qtoc(STA$).|
00001660  05 d2 2b e3 4c 5a 25 3d  34 b8 38 3a e7 a4 73 65  |..+.LZ%=4.8:..se|
00001670  6c 64 28 75 6e 69 74 73  25 2c 4c 5a 25 29 3a 53  |ld(units%,LZ%):S|
00001680  25 28 31 29 3d 4c 5a 25  2d 33 0d 05 dc 08 ed 4c  |%(1)=LZ%-3.....L|
00001690  5a 25 0d 05 e6 2c e3 4c  5a 25 3d 39 b8 31 30 3a  |Z%...,.LZ%=9.10:|
000016a0  e7 a4 73 65 6c 64 28 75  6e 69 74 73 25 2c 4c 5a  |..seld(units%,LZ|
000016b0  25 29 3a 53 25 28 32 29  3d 4c 5a 25 2d 38 0d 05  |%):S%(2)=LZ%-8..|
000016c0  f0 08 ed 4c 5a 25 0d 05  fa 2e e3 4c 5a 25 3d 31  |...LZ%.....LZ%=1|
000016d0  31 b8 31 32 3a e7 a4 73  65 6c 64 28 75 6e 69 74  |1.12:..seld(unit|
000016e0  73 25 2c 4c 5a 25 29 3a  53 25 28 33 29 3d 4c 5a  |s%,LZ%):S%(3)=LZ|
000016f0  25 2d 31 30 0d 06 04 08  ed 4c 5a 25 0d 06 0e 18  |%-10.....LZ%....|
00001700  e7 69 63 6f 6e 25 3d 31  36 3a f2 73 61 76 65 75  |.icon%=16:.saveu|
00001710  6e 69 74 73 0d 06 18 30  e7 62 75 74 25 3c 3e 31  |nits...0.but%<>1|
00001720  3a 21 62 25 3d 75 6e 69  74 73 25 3a c8 99 22 57  |:!b%=units%:.."W|
00001730  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00001740  2c 2c 62 25 0d 06 22 19  e7 43 44 25 3e 30 3a f2  |,,b%.."..CD%>0:.|
00001750  66 69 6c 6c 64 61 74 61  28 43 44 25 29 0d 06 2c  |filldata(CD%)..,|
00001760  47 53 54 41 24 3d a4 63  74 6f 71 28 53 54 41 24  |GSTA$=.ctoq(STA$|
00001770  29 3a f2 74 69 28 73 74  61 74 65 25 2c 30 2c 53  |):.ti(state%,0,S|
00001780  54 41 24 29 3a f2 74 69  28 73 74 61 74 65 25 2c  |TA$):.ti(state%,|
00001790  31 2c a4 74 65 75 29 3a  e7 53 54 31 25 3d 34 3a  |1,.teu):.ST1%=4:|
000017a0  f2 75 64 74 0d 06 36 05  e1 0d 06 40 18 dd f2 74  |.udt..6....@...t|
000017b0  61 62 6c 65 63 28 62 75  74 25 2c 69 63 6f 6e 25  |ablec(but%,icon%|
000017c0  29 0d 06 4a 0c c8 8e 62  75 74 25 20 ca 0d 06 54  |)..J...but% ...T|
000017d0  58 c9 32 3a 4d 4f 41 25  3d 21 62 25 2d 36 34 3a  |X.2:MOA%=!b%-64:|
000017e0  4d 4f 42 25 3d 62 25 21  34 3a f2 74 69 28 73 74  |MOB%=b%!4:.ti(st|
000017f0  61 74 65 25 2c 30 2c 53  54 41 24 29 3a f2 74 69  |ate%,0,STA$):.ti|
00001800  28 79 65 61 72 25 2c 30  2c 59 45 41 24 29 3a f2  |(year%,0,YEA$):.|
00001810  6d 65 6e 75 28 6d 32 25  2c 32 2c 4d 4f 41 25 2c  |menu(m2%,2,MOA%,|
00001820  4d 4f 42 25 29 0d 06 5e  1d c9 31 3a e7 69 63 6f  |MOB%)..^..1:.ico|
00001830  6e 25 3e 3d 31 80 69 63  6f 6e 25 3c 3d 31 30 39  |n%>=1.icon%<=109|
00001840  20 8c 0d 06 68 10 f2 67  6f 74 6f 28 69 63 6f 6e  | ...h..goto(icon|
00001850  25 29 0d 06 72 11 e3 4c  41 25 3d 30 b8 33 3a f3  |%)..r..LA%=0.3:.|
00001860  4e 41 24 0d 06 7c 18 f2  74 69 28 73 71 75 61 72  |NA$..|..ti(squar|
00001870  65 25 2c 4c 41 25 2c 4e  41 24 29 0d 06 86 08 ed  |e%,LA%,NA$).....|
00001880  4c 41 25 0d 06 90 a6 c8  99 22 57 69 6d 70 5f 47  |LA%......"Wimp_G|
00001890  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000018a0  62 25 3a 6d 78 25 3d 21  62 25 3a 6d 79 25 3d 62  |b%:mx%=!b%:my%=b|
000018b0  25 21 34 3a 21 62 25 3d  73 71 75 61 72 65 25 3a  |%!4:!b%=square%:|
000018c0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
000018d0  77 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 34  |wState",,b%:b%!4|
000018e0  3d 6d 78 25 2d 31 30 30  3a 62 25 21 38 3d 6d 79  |=mx%-100:b%!8=my|
000018f0  25 2d 31 30 30 3a 62 25  21 31 32 3d 6d 78 25 2b  |%-100:b%!12=mx%+|
00001900  31 30 30 3a 62 25 21 31  36 3d 6d 79 25 2b 31 30  |100:b%!16=my%+10|
00001910  30 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |0:.."Wimp_OpenWi|
00001920  6e 64 6f 77 22 2c 2c 62  25 0d 06 9a 05 cc 0d 06  |ndow",,b%.......|
00001930  a4 30 e7 69 63 6f 6e 25  3d 31 33 37 20 80 20 53  |.0.icon%=137 . S|
00001940  54 31 25 3d 34 3a 53 54  41 24 3d c3 28 bb 28 53  |T1%=4:STA$=.(.(S|
00001950  54 41 24 29 2d 31 30 30  29 3a f2 75 64 74 0d 06  |TA$)-100):.udt..|
00001960  ae 30 e7 69 63 6f 6e 25  3d 31 33 38 20 80 20 53  |.0.icon%=138 . S|
00001970  54 31 25 3d 34 3a 53 54  41 24 3d c3 28 bb 28 53  |T1%=4:STA$=.(.(S|
00001980  54 41 24 29 2b 31 30 30  29 3a f2 75 64 74 0d 06  |TA$)+100):.udt..|
00001990  b8 2f e7 69 63 6f 6e 25  3d 31 33 37 20 80 20 53  |./.icon%=137 . S|
000019a0  54 31 25 3d 35 3a 59 45  41 24 3d c3 28 bb 28 59  |T1%=5:YEA$=.(.(Y|
000019b0  45 41 24 29 2d 32 35 29  3a f2 75 64 74 0d 06 c2  |EA$)-25):.udt...|
000019c0  2f e7 69 63 6f 6e 25 3d  31 33 38 20 80 20 53 54  |/.icon%=138 . ST|
000019d0  31 25 3d 35 3a 59 45 41  24 3d c3 28 bb 28 59 45  |1%=5:YEA$=.(.(YE|
000019e0  41 24 29 2b 32 35 29 3a  f2 75 64 74 0d 06 cc 05  |A$)+25):.udt....|
000019f0  cd 0d 06 d6 98 c9 34 3a  e7 69 63 6f 6e 25 3e 3d  |......4:.icon%>=|
00001a00  31 80 69 63 6f 6e 25 3c  3d 31 30 39 3a f2 66 69  |1.icon%<=109:.fi|
00001a10  6c 6c 64 61 74 61 28 69  63 6f 6e 25 29 3a 21 62  |lldata(icon%):!b|
00001a20  25 3d 64 61 74 61 25 3a  c8 99 22 57 69 6d 70 5f  |%=data%:.."Wimp_|
00001a30  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001a40  2c 62 25 3a 62 25 21 34  3d 33 36 3a 62 25 21 38  |,b%:b%!4=36:b%!8|
00001a50  3d 35 32 3a 62 25 21 31  32 3d 31 32 34 32 3a 62  |=52:b%!12=1242:b|
00001a60  25 21 31 36 3d 39 36 38  3a 62 25 21 32 38 3d 2d  |%!16=968:b%!28=-|
00001a70  31 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |1:.."Wimp_OpenWi|
00001a80  6e 64 6f 77 22 2c 2c 62  25 0d 06 e0 30 e7 69 63  |ndow",,b%...0.ic|
00001a90  6f 6e 25 3d 31 33 37 20  80 20 53 54 31 25 3d 34  |on%=137 . ST1%=4|
00001aa0  3a 53 54 41 24 3d c3 28  bb 28 53 54 41 24 29 2b  |:STA$=.(.(STA$)+|
00001ab0  31 30 30 29 3a f2 75 64  74 0d 06 ea 30 e7 69 63  |100):.udt...0.ic|
00001ac0  6f 6e 25 3d 31 33 38 20  80 20 53 54 31 25 3d 34  |on%=138 . ST1%=4|
00001ad0  3a 53 54 41 24 3d c3 28  bb 28 53 54 41 24 29 2d  |:STA$=.(.(STA$)-|
00001ae0  31 30 30 29 3a f2 75 64  74 0d 06 f4 2f e7 69 63  |100):.udt.../.ic|
00001af0  6f 6e 25 3d 31 33 37 20  80 20 53 54 31 25 3d 35  |on%=137 . ST1%=5|
00001b00  3a 59 45 41 24 3d c3 28  bb 28 59 45 41 24 29 2b  |:YEA$=.(.(YEA$)+|
00001b10  32 35 29 3a f2 75 64 74  0d 06 fe 2f e7 69 63 6f  |25):.udt.../.ico|
00001b20  6e 25 3d 31 33 38 20 80  20 53 54 31 25 3d 35 3a  |n%=138 . ST1%=5:|
00001b30  59 45 41 24 3d c3 28 bb  28 59 45 41 24 29 2d 32  |YEA$=.(.(YEA$)-2|
00001b40  35 29 3a f2 75 64 74 0d  07 08 05 cb 0d 07 12 05  |5):.udt.........|
00001b50  e1 0d 07 1c 17 dd f2 64  61 74 61 63 28 62 75 74  |.......datac(but|
00001b60  25 2c 69 63 6f 6e 25 29  0d 07 26 0c c8 8e 62 75  |%,icon%)..&...bu|
00001b70  74 25 20 ca 0d 07 30 12  c9 31 2c 34 3a c8 8e 69  |t% ...0..1,4:..i|
00001b80  63 6f 6e 25 20 ca 0d 07  3a 18 c9 36 30 3a f2 66  |con% ...:..60:.f|
00001b90  69 6c 6c 64 61 74 61 28  43 44 25 2d 31 29 0d 07  |illdata(CD%-1)..|
00001ba0  44 18 c9 36 31 3a f2 66  69 6c 6c 64 61 74 61 28  |D..61:.filldata(|
00001bb0  43 44 25 2b 31 29 0d 07  4e 73 c9 36 32 3a f2 67  |CD%+1)..Ns.62:.g|
00001bc0  6f 74 6f 28 43 44 25 29  3a f3 4e 41 24 3a f3 4e  |oto(CD%):.NA$:.N|
00001bd0  41 24 3a c8 99 22 58 4f  53 5f 43 4c 49 22 2c 22  |A$:.."XOS_CLI","|
00001be0  46 69 6c 65 72 5f 52 75  6e 20 45 6c 65 6d 65 6e  |Filer_Run Elemen|
00001bf0  74 73 3a 54 65 78 74 2b  2e 22 2b 4e 41 24 3a c8  |ts:Text+."+NA$:.|
00001c00  99 22 58 4f 53 5f 43 4c  49 22 2c 22 46 69 6c 65  |."XOS_CLI","File|
00001c10  72 5f 52 75 6e 20 45 6c  65 6d 65 6e 74 73 3a 54  |r_Run Elements:T|
00001c20  65 78 74 2e 22 2b 4e 41  24 0d 07 58 73 c9 36 33  |ext."+NA$..Xs.63|
00001c30  3a f2 67 6f 74 6f 28 43  44 25 29 3a f3 4e 41 24  |:.goto(CD%):.NA$|
00001c40  3a f3 4e 41 24 3a c8 99  22 58 4f 53 5f 43 4c 49  |:.NA$:.."XOS_CLI|
00001c50  22 2c 22 46 69 6c 65 72  5f 52 75 6e 20 45 6c 65  |","Filer_Run Ele|
00001c60  6d 65 6e 74 73 3a 44 72  61 77 2b 2e 22 2b 4e 41  |ments:Draw+."+NA|
00001c70  24 3a c8 99 22 58 4f 53  5f 43 4c 49 22 2c 22 46  |$:.."XOS_CLI","F|
00001c80  69 6c 65 72 5f 52 75 6e  20 45 6c 65 6d 65 6e 74  |iler_Run Element|
00001c90  73 3a 44 72 61 77 2e 22  2b 4e 41 24 0d 07 62 05  |s:Draw."+NA$..b.|
00001ca0  cb 0d 07 6c 2a c9 32 3a  24 6d 69 33 25 3d 22 22  |...l*.2:$mi3%=""|
00001cb0  3a f2 6d 65 6e 75 28 6d  33 25 2c 33 2c 21 62 25  |:.menu(m3%,3,!b%|
00001cc0  2d 34 2c 62 25 21 34 2b  33 32 29 0d 07 76 05 cb  |-4,b%!4+32)..v..|
00001cd0  0d 07 80 05 e1 0d 07 8a  15 dd f2 66 69 6c 6c 64  |...........filld|
00001ce0  61 74 61 28 69 63 6f 6e  25 29 0d 07 94 0d 43 44  |ata(icon%)....CD|
00001cf0  25 3d 69 63 6f 6e 25 0d  07 9e 29 f2 74 6a 28 64  |%=icon%...).tj(d|
00001d00  61 74 61 25 2c 33 38 2c  a4 74 65 75 29 3a f2 74  |ata%,38,.teu):.t|
00001d10  6a 28 64 61 74 61 25 2c  34 32 2c a4 74 65 75 29  |j(data%,42,.teu)|
00001d20  0d 07 a8 3b e7 53 25 28  32 29 3d 31 3a f2 74 6a  |...;.S%(2)=1:.tj|
00001d30  28 64 61 74 61 25 2c 33  33 2c 22 6b 67 20 6d 97  |(data%,33,"kg m.|
00001d40  b3 22 29 3a 8b f2 74 6a  28 64 61 74 61 25 2c 33  |."):..tj(data%,3|
00001d50  33 2c 22 67 20 63 6d 97  b3 22 29 0d 07 b2 42 e7  |3,"g cm..")...B.|
00001d60  53 25 28 33 29 3d 31 3a  f2 74 6a 28 64 61 74 61  |S%(3)=1:.tj(data|
00001d70  25 2c 33 35 2c 22 4a 20  6b 67 97 b9 20 4b 97 b9  |%,35,"J kg.. K..|
00001d80  22 29 3a 8b f2 74 6a 28  64 61 74 61 25 2c 33 35  |"):..tj(data%,35|
00001d90  2c 22 4a 20 67 97 b9 20  4b 97 b9 22 29 0d 07 bc  |,"J g.. K..")...|
00001da0  1c f2 74 6a 28 64 61 74  61 25 2c 32 35 2c 22 6b  |..tj(data%,25,"k|
00001db0  4a 20 6d 6f 6c 97 b9 22  29 0d 07 c6 10 f2 67 6f  |J mol..").....go|
00001dc0  74 6f 28 69 63 6f 6e 25  29 0d 07 d0 72 f2 64 72  |to(icon%)...r.dr|
00001dd0  65 3a f2 74 6a 28 64 61  74 61 25 2c 31 2c 4e 41  |e:.tj(data%,1,NA|
00001de0  24 29 3a f2 64 72 65 3a  f2 74 6a 28 64 61 74 61  |$):.dre:.tj(data|
00001df0  25 2c 33 2c 4e 41 24 29  3a f2 64 72 65 3a f2 74  |%,3,NA$):.dre:.t|
00001e00  6a 28 64 61 74 61 25 2c  35 2c 4e 41 24 29 3a f2  |j(data%,5,NA$):.|
00001e10  64 72 65 3a f2 74 6a 28  64 61 74 61 25 2c 37 2c  |dre:.tj(data%,7,|
00001e20  4e 41 24 29 3a f2 64 72  65 3a f2 74 6a 28 64 61  |NA$):.dre:.tj(da|
00001e30  74 61 25 2c 31 30 2c 4e  41 24 29 0d 07 da 36 f2  |ta%,10,NA$)...6.|
00001e40  64 72 65 3a e7 bb 28 4e  41 24 29 3c 30 3a 4e 41  |dre:..(NA$)<0:NA|
00001e50  25 3d bb 28 4e 41 24 29  3a 4e 41 25 3d 30 2d 4e  |%=.(NA$):NA%=0-N|
00001e60  41 25 3a 4e 41 24 3d c3  28 4e 41 25 29 2b 22 2d  |A%:NA$=.(NA%)+"-|
00001e70  22 0d 07 e4 2c f2 74 6a  28 64 61 74 61 25 2c 32  |"...,.tj(data%,2|
00001e80  30 2c 4e 41 24 29 3a f2  64 72 65 3a f2 74 6a 28  |0,NA$):.dre:.tj(|
00001e90  64 61 74 61 25 2c 31 36  2c 4e 41 24 29 0d 07 ee  |data%,16,NA$)...|
00001ea0  36 f2 64 72 65 3a e7 bb  28 4e 41 24 29 3c 30 3a  |6.dre:..(NA$)<0:|
00001eb0  4e 41 25 3d bb 28 4e 41  24 29 3a 4e 41 25 3d 30  |NA%=.(NA$):NA%=0|
00001ec0  2d 4e 41 25 3a 4e 41 24  3d c3 28 4e 41 25 29 2b  |-NA%:NA$=.(NA%)+|
00001ed0  22 2d 22 0d 07 f8 2c f2  74 6a 28 64 61 74 61 25  |"-"...,.tj(data%|
00001ee0  2c 32 31 2c 4e 41 24 29  3a f2 64 72 65 3a f2 74  |,21,NA$):.dre:.t|
00001ef0  6a 28 64 61 74 61 25 2c  31 38 2c 4e 41 24 29 0d  |j(data%,18,NA$).|
00001f00  08 02 1a f2 64 72 65 3a  f2 74 6a 28 64 61 74 61  |....dre:.tj(data|
00001f10  25 2c 32 34 2c 4e 41 24  29 0d 08 0c 1a f2 64 72  |%,24,NA$).....dr|
00001f20  65 3a f2 74 6a 28 64 61  74 61 25 2c 32 37 2c 4e  |e:.tj(data%,27,N|
00001f30  41 24 29 0d 08 16 35 f2  64 72 65 3a e7 53 25 28  |A$)...5.dre:.S%(|
00001f40  32 29 3d 31 80 4e 41 24  3c 3e 22 2d 22 3a 4e 41  |2)=1.NA$<>"-":NA|
00001f50  25 3d bb 28 4e 41 24 29  2a 31 30 30 30 3a 4e 41  |%=.(NA$)*1000:NA|
00001f60  24 3d c3 28 4e 41 25 29  0d 08 20 15 f2 74 6a 28  |$=.(NA%).. ..tj(|
00001f70  64 61 74 61 25 2c 33 32  2c 4e 41 24 29 0d 08 2a  |data%,32,NA$)..*|
00001f80  34 f2 64 72 65 3a 4d 50  25 3d bb 28 4e 41 24 29  |4.dre:MP%=.(NA$)|
00001f90  3a 4e 41 24 3d a4 63 74  6f 71 28 4e 41 24 29 3a  |:NA$=.ctoq(NA$):|
00001fa0  f2 74 6a 28 64 61 74 61  25 2c 33 37 2c 4e 41 24  |.tj(data%,37,NA$|
00001fb0  29 0d 08 34 34 f2 64 72  65 3a 42 50 25 3d bb 28  |)..44.dre:BP%=.(|
00001fc0  4e 41 24 29 3a 4e 41 24  3d a4 63 74 6f 71 28 4e  |NA$):NA$=.ctoq(N|
00001fd0  41 24 29 3a f2 74 6a 28  64 61 74 61 25 2c 34 31  |A$):.tj(data%,41|
00001fe0  2c 4e 41 24 29 0d 08 3e  0f e7 4e 41 24 3c 3e 22  |,NA$)..>..NA$<>"|
00001ff0  2d 22 20 8c 0d 08 48 3b  e7 4d 50 25 3c 32 35 80  |-" ...H;.MP%<25.|
00002000  42 50 25 3c 32 35 3a f2  74 6a 28 64 61 74 61 25  |BP%<25:.tj(data%|
00002010  2c 34 36 2c 22 47 61 73  22 29 3a f2 74 6b 28 64  |,46,"Gas"):.tk(d|
00002020  61 74 61 25 2c 34 37 2c  22 53 47 61 73 22 29 0d  |ata%,47,"SGas").|
00002030  08 52 4b e7 4d 50 25 3c  32 35 80 42 50 25 3e 32  |.RK.MP%<25.BP%>2|
00002040  35 80 69 63 6f 6e 25 3c  3e 33 33 3a f2 74 6a 28  |5.icon%<>33:.tj(|
00002050  64 61 74 61 25 2c 34 36  2c 22 4c 69 71 75 69 64  |data%,46,"Liquid|
00002060  22 29 3a f2 74 6b 28 64  61 74 61 25 2c 34 37 2c  |"):.tk(data%,47,|
00002070  22 53 4c 69 71 75 69 64  22 29 0d 08 5c 3f e7 4d  |"SLiquid")..\?.M|
00002080  50 25 3e 32 35 80 42 50  25 3e 32 35 3a f2 74 6a  |P%>25.BP%>25:.tj|
00002090  28 64 61 74 61 25 2c 34  36 2c 22 53 6f 6c 69 64  |(data%,46,"Solid|
000020a0  22 29 3a f2 74 6b 28 64  61 74 61 25 2c 34 37 2c  |"):.tk(data%,47,|
000020b0  22 53 53 6f 6c 69 64 22  29 0d 08 66 05 cc 0d 08  |"SSolid")..f....|
000020c0  70 61 e7 4d 50 25 3e 30  3a f2 74 6a 28 64 61 74  |pa.MP%>0:.tj(dat|
000020d0  61 25 2c 34 36 2c 22 53  6f 6c 69 64 22 29 3a f2  |a%,46,"Solid"):.|
000020e0  74 6b 28 64 61 74 61 25  2c 34 37 2c 22 53 73 6f  |tk(data%,47,"Sso|
000020f0  6c 69 64 22 29 3a 8b f2  74 6a 28 64 61 74 61 25  |lid"):..tj(data%|
00002100  2c 34 36 2c 22 2d 22 29  3a f2 74 6b 28 64 61 74  |,46,"-"):.tk(dat|
00002110  61 25 2c 34 37 2c 22 53  42 6c 61 6e 6b 22 29 0d  |a%,47,"SBlank").|
00002120  08 7a 05 cd 0d 08 84 3a  e7 69 63 6f 6e 25 3d 33  |.z.....:.icon%=3|
00002130  33 3a f2 74 6a 28 64 61  74 61 25 2c 34 36 2c 22  |3:.tj(data%,46,"|
00002140  53 6f 6c 69 64 22 29 3a  f2 74 6b 28 64 61 74 61  |Solid"):.tk(data|
00002150  25 2c 34 37 2c 22 53 53  6f 6c 69 64 22 29 0d 08  |%,47,"SSolid")..|
00002160  8e 47 f2 64 72 65 3a e7  53 25 28 33 29 3d 31 80  |.G.dre:.S%(3)=1.|
00002170  4e 41 24 3c 3e 22 2d 22  3a 4e 41 3d bb 28 4e 41  |NA$<>"-":NA=.(NA|
00002180  24 29 2a 31 30 30 30 3a  4e 41 24 3d c3 28 4e 41  |$)*1000:NA$=.(NA|
00002190  29 3a e7 69 63 6f 6e 25  3d 34 32 3a 4e 41 24 3d  |):.icon%=42:NA$=|
000021a0  22 32 35 31 22 0d 08 98  15 f2 74 6a 28 64 61 74  |"251".....tj(dat|
000021b0  61 25 2c 33 34 2c 4e 41  24 29 0d 08 a2 85 f2 64  |a%,34,NA$).....d|
000021c0  72 65 3a 4e 41 24 3d a4  63 72 79 73 28 4e 41 24  |re:NA$=.crys(NA$|
000021d0  29 3a f2 74 6a 28 64 61  74 61 25 2c 34 39 2c 4e  |):.tj(data%,49,N|
000021e0  41 24 29 3a f2 64 72 65  3a f2 74 6a 28 64 61 74  |A$):.dre:.tj(dat|
000021f0  61 25 2c 35 32 2c 4e 41  24 29 3a f2 64 72 65 3a  |a%,52,NA$):.dre:|
00002200  f2 74 6a 28 64 61 74 61  25 2c 35 34 2c 4e 41 24  |.tj(data%,54,NA$|
00002210  29 3a f2 64 72 65 3a f2  74 6a 28 64 61 74 61 25  |):.dre:.tj(data%|
00002220  2c 35 36 2c 4e 41 24 29  3a f2 64 72 65 3a f2 74  |,56,NA$):.dre:.t|
00002230  6a 28 64 61 74 61 25 2c  35 38 2c 4e 41 24 29 0d  |j(data%,58,NA$).|
00002240  08 ac 2e e7 69 63 6f 6e  25 3d 31 3a f2 67 72 65  |....icon%=1:.gre|
00002250  79 28 64 61 74 61 25 2c  36 30 29 3a 8b f2 78 67  |y(data%,60):..xg|
00002260  72 65 79 28 64 61 74 61  25 2c 36 30 29 0d 08 b6  |rey(data%,60)...|
00002270  30 e7 69 63 6f 6e 25 3d  31 30 39 3a f2 67 72 65  |0.icon%=109:.gre|
00002280  79 28 64 61 74 61 25 2c  36 31 29 3a 8b f2 78 67  |y(data%,61):..xg|
00002290  72 65 79 28 64 61 74 61  25 2c 36 31 29 0d 08 c0  |rey(data%,61)...|
000022a0  34 e7 46 25 28 69 63 6f  6e 25 2c 30 29 3d 30 3a  |4.F%(icon%,0)=0:|
000022b0  f2 67 72 65 79 28 64 61  74 61 25 2c 36 32 29 3a  |.grey(data%,62):|
000022c0  8b f2 78 67 72 65 79 28  64 61 74 61 25 2c 36 32  |..xgrey(data%,62|
000022d0  29 0d 08 ca 34 e7 46 25  28 69 63 6f 6e 25 2c 31  |)...4.F%(icon%,1|
000022e0  29 3d 30 3a f2 67 72 65  79 28 64 61 74 61 25 2c  |)=0:.grey(data%,|
000022f0  36 33 29 3a 8b f2 78 67  72 65 79 28 64 61 74 61  |63):..xgrey(data|
00002300  25 2c 36 33 29 0d 08 d4  05 e1 0d 08 de 0f dd a4  |%,63)...........|
00002310  63 72 79 73 28 4e 41 24  29 0d 08 e8 11 e7 4e 41  |crys(NA$).....NA|
00002320  24 3d 22 2d 22 3a 3d 22  2d 22 0d 08 f2 0e c8 8e  |$="-":="-"......|
00002330  bb 28 4e 41 24 29 20 ca  0d 08 fc 1c c9 31 3a 3d  |.(NA$) ......1:=|
00002340  22 42 6f 64 79 2d 63 65  6e 74 72 65 64 20 63 75  |"Body-centred cu|
00002350  62 69 63 22 0d 09 06 1b  c9 32 3a 3d 22 44 69 61  |bic".....2:="Dia|
00002360  6d 6f 6e 64 20 73 74 72  75 63 74 75 72 65 22 0d  |mond structure".|
00002370  09 10 1c c9 33 3a 3d 22  46 61 63 65 2d 63 65 6e  |....3:="Face-cen|
00002380  74 72 65 64 20 63 75 62  69 63 22 0d 09 1a 20 c9  |tred cubic"... .|
00002390  34 3a 3d 22 48 65 78 61  67 6f 6e 61 6c 20 63 6c  |4:="Hexagonal cl|
000023a0  6f 73 65 2d 70 61 63 6b  65 64 22 0d 09 24 13 c9  |ose-packed"..$..|
000023b0  35 3a 3d 22 48 65 78 61  67 6f 6e 61 6c 22 0d 09  |5:="Hexagonal"..|
000023c0  2e 14 c9 36 3a 3d 22 4d  6f 6e 6f 63 6c 69 6e 69  |...6:="Monoclini|
000023d0  63 22 0d 09 38 16 c9 37  3a 3d 22 4f 72 74 68 6f  |c"..8..7:="Ortho|
000023e0  72 68 6f 6d 62 69 63 22  0d 09 42 14 c9 38 3a 3d  |rhombic"..B..8:=|
000023f0  22 54 65 74 72 65 67 6f  6e 61 6c 22 0d 09 4c 11  |"Tetregonal"..L.|
00002400  c9 39 3a 3d 22 52 68 6f  6d 62 69 63 22 0d 09 56  |.9:="Rhombic"..V|
00002410  05 cb 0d 09 60 08 dd f2  6d 73 0d 09 6a 0c 53 45  |....`...ms..j.SE|
00002420  30 25 3d 21 62 25 0d 09  74 1f c8 99 22 57 69 6d  |0%=!b%..t..."Wim|
00002430  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00002440  22 2c 2c 62 25 0d 09 7e  0b c8 8e 4d 4f 25 20 ca  |",,b%..~...MO% .|
00002450  0d 09 88 19 c9 31 3a 61  64 6a 25 3d 62 25 21 38  |.....1:adj%=b%!8|
00002460  3a c8 8e 53 45 30 25 20  ca 0d 09 92 7c c9 31 3a  |:..SE0% ....|.1:|
00002470  21 62 25 3d 6d 61 73 73  25 3a c8 99 22 57 69 6d  |!b%=mass%:.."Wim|
00002480  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00002490  22 2c 2c 62 25 3a e7 62  25 21 32 38 3d 2d 31 3a  |",,b%:.b%!28=-1:|
000024a0  f2 74 69 28 6d 61 73 73  25 2c 31 2c 22 22 29 3a  |.ti(mass%,1,""):|
000024b0  f2 74 69 28 6d 61 73 73  25 2c 33 2c 22 22 29 3a  |.ti(mass%,3,""):|
000024c0  21 62 25 3d 6d 61 73 73  25 3a c8 99 22 57 69 6d  |!b%=mass%:.."Wim|
000024d0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000024e0  22 2c 2c 62 25 0d 09 9c  65 62 25 21 32 38 3d 2d  |",,b%...eb%!28=-|
000024f0  31 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |1:.."Wimp_OpenWi|
00002500  6e 64 6f 77 22 2c 2c 62  25 3a 4d 56 24 3d a4 72  |ndow",,b%:MV$=.r|
00002510  65 61 64 28 6d 61 73 73  25 2c 31 29 3a c8 99 22  |ead(mass%,1):.."|
00002520  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00002530  69 74 69 6f 6e 22 2c 6d  61 73 73 25 2c 31 2c 2c  |ition",mass%,1,,|
00002540  2c 2d 31 2c a9 28 4d 56  24 29 0d 09 a6 b8 c9 32  |,-1,.(MV$).....2|
00002550  3a 21 62 25 3d 62 6f 6e  64 25 3a c8 99 22 57 69  |:!b%=bond%:.."Wi|
00002560  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002570  65 22 2c 2c 62 25 3a e7  62 25 21 32 38 3d 2d 31  |e",,b%:.b%!28=-1|
00002580  3a f2 74 69 28 62 6f 6e  64 25 2c 33 2c 22 22 29  |:.ti(bond%,3,"")|
00002590  3a f2 74 69 28 62 6f 6e  64 25 2c 34 2c 22 22 29  |:.ti(bond%,4,"")|
000025a0  3a f2 74 69 28 62 6f 6e  64 25 2c 35 2c 22 22 29  |:.ti(bond%,5,"")|
000025b0  3a f2 74 69 28 62 6f 6e  64 25 2c 36 2c 22 22 29  |:.ti(bond%,6,"")|
000025c0  3a f2 74 69 28 62 6f 6e  64 25 2c 37 2c 22 22 29  |:.ti(bond%,7,"")|
000025d0  3a f2 74 69 28 62 6f 6e  64 25 2c 38 2c 22 22 29  |:.ti(bond%,8,"")|
000025e0  3a f2 74 69 28 62 6f 6e  64 25 2c 31 32 2c 22 22  |:.ti(bond%,12,""|
000025f0  29 3a f2 74 69 28 62 6f  6e 64 25 2c 31 34 2c 22  |):.ti(bond%,14,"|
00002600  22 29 0d 09 b0 8b 21 62  25 3d 62 6f 6e 64 25 3a  |")....!b%=bond%:|
00002610  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00002620  77 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 32  |wState",,b%:b%!2|
00002630  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
00002640  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 3a 4d 56 24  |nWindow",,b%:MV$|
00002650  3d a4 72 65 61 64 28 62  6f 6e 64 25 2c 33 29 3a  |=.read(bond%,3):|
00002660  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00002670  50 6f 73 69 74 69 6f 6e  22 2c 62 6f 6e 64 25 2c  |Position",bond%,|
00002680  33 2c 2c 2c 2d 31 2c a9  28 4d 56 24 29 0d 09 ba  |3,,,-1,.(MV$)...|
00002690  4e c9 33 3a 21 62 25 3d  74 65 6d 70 73 25 3a c8  |N.3:!b%=temps%:.|
000026a0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000026b0  53 74 61 74 65 22 2c 2c  62 25 3a 62 25 21 32 38  |State",,b%:b%!28|
000026c0  3d 2d 31 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |=-1:.."Wimp_Open|
000026d0  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 09 c4 9a c9  |Window",,b%.....|
000026e0  34 3a 21 62 25 3d 71 75  65 73 74 69 6f 6e 25 3a  |4:!b%=question%:|
000026f0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00002700  77 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 32  |wState",,b%:b%!2|
00002710  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
00002720  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 3a 4d 56 24  |nWindow",,b%:MV$|
00002730  3d a4 72 65 61 64 28 71  75 65 73 74 69 6f 6e 25  |=.read(question%|
00002740  2c 33 29 3a c8 99 22 57  69 6d 70 5f 53 65 74 43  |,3):.."Wimp_SetC|
00002750  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 71 75  |aretPosition",qu|
00002760  65 73 74 69 6f 6e 25 2c  33 2c 2c 2c 2d 31 2c a9  |estion%,3,,,-1,.|
00002770  28 4d 56 24 29 0d 09 ce  c6 c9 35 3a 21 62 25 3d  |(MV$).....5:!b%=|
00002780  75 6e 69 74 73 25 3a c8  99 22 57 69 6d 70 5f 47  |units%:.."Wimp_G|
00002790  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000027a0  62 25 3a e7 62 25 21 32  38 3d 2d 31 3a f2 73 65  |b%:.b%!28=-1:.se|
000027b0  6c 63 75 3a 21 62 25 3d  75 6e 69 74 73 25 3a c8  |lcu:!b%=units%:.|
000027c0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000027d0  53 74 61 74 65 22 2c 2c  62 25 3a 62 25 21 34 3d  |State",,b%:b%!4=|
000027e0  35 38 30 3a 62 25 21 38  3d 32 31 36 3a 62 25 21  |580:b%!8=216:b%!|
000027f0  31 32 3d 31 31 38 36 3a  62 25 21 31 36 3d 37 32  |12=1186:b%!16=72|
00002800  34 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |4:.."Wimp_OpenWi|
00002810  6e 64 6f 77 22 2c 2c 62  25 3a 8b 62 25 21 32 38  |ndow",,b%:.b%!28|
00002820  3d 2d 31 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |=-1:.."Wimp_Open|
00002830  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 09 d8 0b c9  |Window",,b%.....|
00002840  36 3a 71 25 3d b9 0d 09  e2 05 cb 0d 09 ec 1c e7  |6:q%=...........|
00002850  61 64 6a 25 3d 31 3a f2  6d 65 6e 75 28 6d 31 25  |adj%=1:.menu(m1%|
00002860  2c 31 2c 30 2c 30 29 0d  09 f6 19 c9 32 3a 61 64  |,1,0,0).....2:ad|
00002870  6a 25 3d 62 25 21 38 3a  c8 8e 53 45 30 25 20 ca  |j%=b%!8:..SE0% .|
00002880  0d 0a 00 52 c9 30 2c 31  2c 32 2c 33 2c 34 2c 35  |...R.0,1,2,3,4,5|
00002890  3a 4f 53 54 41 24 3d 22  2d 39 39 39 22 3a 4f 59  |:OSTA$="-999":OY|
000028a0  45 41 24 3d 22 2d 39 39  39 22 3a e7 53 54 31 25  |EA$="-999":.ST1%|
000028b0  3d 53 45 30 25 3a 53 54  31 25 3d 2d 31 3a f2 75  |=SE0%:ST1%=-1:.u|
000028c0  64 74 3a 8b 53 54 31 25  3d 53 45 30 25 3a f2 75  |dt:.ST1%=SE0%:.u|
000028d0  64 74 0d 0a 0a 17 c9 36  3a 53 54 47 25 3d ac 53  |dt.....6:STG%=.S|
000028e0  54 47 25 3a f2 67 70 6e  6f 0d 0a 14 17 c9 37 3a  |TG%:.gpno.....7:|
000028f0  53 54 50 25 3d ac 53 54  50 25 3a f2 67 70 6e 6f  |STP%=.STP%:.gpno|
00002900  0d 0a 1e 49 c9 38 3a 66  69 25 3d ae 22 45 6c 65  |...I.8:fi%=."Ele|
00002910  6d 65 6e 74 73 3a 53 74  61 74 75 73 22 3a f1 23  |ments:Status":.#|
00002920  66 69 25 2c 53 54 31 25  2c 53 54 47 25 2c 53 54  |fi%,ST1%,STG%,ST|
00002930  50 25 2c a4 71 74 6f 63  28 53 54 41 24 29 2c 59  |P%,.qtoc(STA$),Y|
00002940  45 41 24 3a d9 23 66 69  25 0d 0a 28 05 cb 0d 0a  |EA$:.#fi%..(....|
00002950  32 10 e7 53 45 30 25 3c  38 3a f2 63 6d 32 0d 0a  |2..SE0%<8:.cm2..|
00002960  3c 1c e7 61 64 6a 25 3d  31 3a f2 6d 65 6e 75 28  |<..adj%=1:.menu(|
00002970  6d 32 25 2c 32 2c 30 2c  30 29 0d 0a 46 1d c9 33  |m2%,2,0,0)..F..3|
00002980  3a 61 64 6a 25 3d 62 25  21 38 3a e7 24 6d 69 33  |:adj%=b%!8:.$mi3|
00002990  25 3c 3e 22 22 20 8c 0d  0a 50 82 4e 4e 24 3d a4  |%<>"" ...P.NN$=.|
000029a0  63 63 28 24 6d 69 33 25  29 3a f7 3a 63 6e 74 25  |cc($mi3%):.:cnt%|
000029b0  3d 30 3a f5 3a 63 6e 74  25 2b 3d 31 3a f3 4e 41  |=0:.:cnt%+=1:.NA|
000029c0  24 2c 4e 42 24 2c 4e 43  24 3a 4e 42 24 3d a4 63  |$,NB$,NC$:NB$=.c|
000029d0  63 28 4e 42 24 29 3a 4e  43 24 3d a4 63 63 28 4e  |c(NB$):NC$=.cc(N|
000029e0  43 24 29 3a e3 4c 41 25  3d 31 b8 31 37 3a f3 4e  |C$):.LA%=1.17:.N|
000029f0  44 24 3a ed 4c 41 25 3a  fd 4e 41 24 3d 4e 4e 24  |D$:.LA%:.NA$=NN$|
00002a00  84 4e 42 24 3d 4e 4e 24  84 4e 43 24 3d 4e 4e 24  |.NB$=NN$.NC$=NN$|
00002a10  84 63 6e 74 25 3e 31 30  39 0d 0a 5a 5e e7 63 6e  |.cnt%>109..Z^.cn|
00002a20  74 25 3e 31 30 39 3a f7  3a 63 6e 74 25 3d 30 3a  |t%>109:.:cnt%=0:|
00002a30  f5 3a 63 6e 74 25 2b 3d  31 3a f3 4e 41 24 2c 4e  |.:cnt%+=1:.NA$,N|
00002a40  42 24 3a 4e 42 24 3d a4  63 63 28 4e 42 24 29 3a  |B$:NB$=.cc(NB$):|
00002a50  e3 4c 41 25 3d 31 b8 31  38 3a f3 4e 44 24 3a ed  |.LA%=1.18:.ND$:.|
00002a60  4c 41 25 3a fd a7 4e 42  24 2c 4e 4e 24 29 84 63  |LA%:..NB$,NN$).c|
00002a70  6e 74 25 3e 31 30 39 0d  0a 64 1d e7 63 6e 74 25  |nt%>109..d..cnt%|
00002a80  3c 31 31 30 3a f2 66 69  6c 6c 64 61 74 61 28 63  |<110:.filldata(c|
00002a90  6e 74 25 29 0d 0a 6e 05  cd 0d 0a 78 1c e7 61 64  |nt%)..n....x..ad|
00002aa0  6a 25 3d 31 3a f2 6d 65  6e 75 28 6d 33 25 2c 33  |j%=1:.menu(m3%,3|
00002ab0  2c 30 2c 30 29 0d 0a 82  05 cb 0d 0a 8c 05 e1 0d  |,0,0)...........|
00002ac0  0a 96 0d dd a4 63 63 28  53 54 24 29 0d 0a a0 11  |.....cc(ST$)....|
00002ad0  e3 4c 5a 25 3d 31 b8 a9  28 53 54 24 29 0d 0a aa  |.LZ%=1..(ST$)...|
00002ae0  49 e7 97 28 c1 53 54 24  2c 4c 5a 25 2c 31 29 29  |I..(.ST$,LZ%,1))|
00002af0  3c 3d 39 30 80 97 28 c1  53 54 24 2c 4c 5a 25 2c  |<=90..(.ST$,LZ%,|
00002b00  31 29 29 3e 3d 36 35 3a  c1 53 54 24 2c 4c 5a 25  |1))>=65:.ST$,LZ%|
00002b10  29 3d bd 28 97 28 c1 53  54 24 2c 4c 5a 25 2c 31  |)=.(.(.ST$,LZ%,1|
00002b20  29 29 2b 33 32 29 0d 0a  b4 08 ed 4c 5a 25 0d 0a  |))+32).....LZ%..|
00002b30  be 08 3d 53 54 24 0d 0a  c8 3e dd f2 6d 65 6e 75  |..=ST$...>..menu|
00002b40  28 6d 25 2c 6e 25 2c 78  25 2c 79 25 29 3a 4d 4f  |(m%,n%,x%,y%):MO|
00002b50  25 3d 6e 25 3a c8 99 22  57 69 6d 70 5f 43 72 65  |%=n%:.."Wimp_Cre|
00002b60  61 74 65 4d 65 6e 75 22  2c 2c 6d 25 2c 78 25 2c  |ateMenu",,m%,x%,|
00002b70  79 25 3a e1 0d 0a d2 0d  dd f2 65 72 72 28 53 24  |y%:.......err(S$|
00002b80  29 0d 0a dc 0b c8 8e 50  52 25 20 ca 0d 0a e6 8a  |)......PR% .....|
00002b90  c9 31 3a f2 72 65 70 6f  72 74 28 22 43 61 6e 27  |.1:.report("Can'|
00002ba0  74 20 63 61 6c 63 75 6c  61 74 65 20 72 65 6c 61  |t calculate rela|
00002bb0  74 69 76 65 20 6d 6f 6c  65 63 75 6c 61 72 20 6d  |tive molecular m|
00002bc0  61 73 73 2d 20 69 73 20  74 68 65 20 66 6f 72 6d  |ass- is the form|
00002bd0  75 6c 61 20 63 6f 72 72  65 63 74 3f 22 2c 22 4d  |ula correct?","M|
00002be0  65 73 73 61 67 65 20 66  72 6f 6d 20 45 6c 65 6d  |essage from Elem|
00002bf0  65 6e 74 73 22 29 3a f2  64 65 73 65 6c 28 6d 61  |ents"):.desel(ma|
00002c00  73 73 25 2c 32 29 3a f2  74 6a 28 6d 61 73 73 25  |ss%,2):.tj(mass%|
00002c10  2c 33 2c 22 22 29 0d 0a  f0 3e 7f 3a 21 62 25 3d  |,3,"")...>.:!b%=|
00002c20  9f 3a 24 28 62 25 2b 34  29 3d 53 24 2b bd 30 3a  |.:$(b%+4)=S$+.0:|
00002c30  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
00002c40  72 6f 72 22 2c 62 25 2c  30 2c 22 45 6c 65 6d 65  |ror",b%,0,"Eleme|
00002c50  6e 74 73 22 0d 0a fa 05  cb 0d 0b 04 09 50 52 25  |nts".........PR%|
00002c60  3d 30 0d 0b 0e 05 e1 0d  0b 18 47 dd f2 72 65 70  |=0........G..rep|
00002c70  6f 72 74 28 53 24 2c 54  24 29 3a 21 62 25 3d 9f  |ort(S$,T$):!b%=.|
00002c80  3a 24 28 62 25 2b 34 29  3d 53 24 2b bd 30 3a c8  |:$(b%+4)=S$+.0:.|
00002c90  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
00002ca0  6f 72 22 2c 62 25 2c 31  36 2c 54 24 3a e1 0d 0b  |or",b%,16,T$:...|
00002cb0  22 55 dd f2 74 69 28 77  69 6e 25 2c 69 63 6f 6e  |"U..ti(win%,icon|
00002cc0  25 2c 54 58 24 29 3a 21  62 25 3d 77 69 6e 25 3a  |%,TX$):!b%=win%:|
00002cd0  62 25 21 34 3d 69 63 6f  6e 25 3a c8 99 22 57 69  |b%!4=icon%:.."Wi|
00002ce0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00002cf0  2c 2c 62 25 3a 24 28 62  25 21 32 38 29 3d 54 58  |,,b%:$(b%!28)=TX|
00002d00  24 3a e1 0d 0b 2c 92 dd  f2 74 6a 28 77 69 6e 25  |$:...,...tj(win%|
00002d10  2c 69 63 6f 6e 25 2c 54  58 24 29 3a 21 62 25 3d  |,icon%,TX$):!b%=|
00002d20  77 69 6e 25 3a 62 25 21  34 3d 69 63 6f 6e 25 3a  |win%:b%!4=icon%:|
00002d30  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00002d40  74 61 74 65 22 2c 2c 62  25 3a 24 28 62 25 21 32  |tate",,b%:$(b%!2|
00002d50  38 29 3d 54 58 24 3a 21  62 25 3d 77 69 6e 25 3a  |8)=TX$:!b%=win%:|
00002d60  62 25 21 34 3d 69 63 6f  6e 25 3a 62 25 21 38 3d  |b%!4=icon%:b%!8=|
00002d70  30 3a 62 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |0:b%!12=0:.."Wim|
00002d80  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00002d90  2c 62 25 3a e1 0d 0b 36  92 dd f2 74 6b 28 77 69  |,b%:...6...tk(wi|
00002da0  6e 25 2c 69 63 6f 6e 25  2c 54 58 24 29 3a 21 62  |n%,icon%,TX$):!b|
00002db0  25 3d 77 69 6e 25 3a 62  25 21 34 3d 69 63 6f 6e  |%=win%:b%!4=icon|
00002dc0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00002dd0  6e 53 74 61 74 65 22 2c  2c 62 25 3a 24 28 62 25  |nState",,b%:$(b%|
00002de0  21 33 32 29 3d 54 58 24  3a 21 62 25 3d 77 69 6e  |!32)=TX$:!b%=win|
00002df0  25 3a 62 25 21 34 3d 69  63 6f 6e 25 3a 62 25 21  |%:b%!4=icon%:b%!|
00002e00  38 3d 30 3a 62 25 21 31  32 3d 30 3a c8 99 22 57  |8=0:b%!12=0:.."W|
00002e10  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002e20  22 2c 2c 62 25 3a e1 0d  0b 40 4e dd a4 72 65 61  |",,b%:...@N..rea|
00002e30  64 28 77 69 6e 25 2c 69  63 6f 6e 25 29 3a 21 62  |d(win%,icon%):!b|
00002e40  25 3d 77 69 6e 25 3a 62  25 21 34 3d 69 63 6f 6e  |%=win%:b%!4=icon|
00002e50  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00002e60  6e 53 74 61 74 65 22 2c  2c 62 25 3a 3d 24 28 62  |nState",,b%:=$(b|
00002e70  25 21 32 38 29 0d 0b 4a  49 dd f2 67 6f 74 6f 28  |%!28)..JI..goto(|
00002e80  67 6f 74 6f 25 29 3a f7  3a e7 67 6f 74 6f 25 3d  |goto%):.:.goto%=|
00002e90  31 3a e1 3a 8b e3 4c 41  25 3d 31 b8 67 6f 74 6f  |1:.:..LA%=1.goto|
00002ea0  25 2d 31 3a e3 4c 42 25  3d 31 b8 32 30 3a f3 4e  |%-1:.LB%=1.20:.N|
00002eb0  41 24 3a ed 4c 42 25 3a  ed 4c 41 25 3a e1 0d 0b  |A$:.LB%:.LA%:...|
00002ec0  54 22 dd f2 64 72 65 3a  f3 4e 41 24 3a e7 4e 41  |T"..dre:.NA$:.NA|
00002ed0  24 3d 22 2d 33 30 30 22  3a 4e 41 24 3d 22 2d 22  |$="-300":NA$="-"|
00002ee0  0d 0b 5e 05 e1 0d 0b 68  1d dd a4 63 74 6f 71 28  |..^....h...ctoq(|
00002ef0  53 54 24 29 3a e7 53 54  24 3d 22 2d 22 3a 3d 22  |ST$):.ST$="-":="|
00002f00  2d 22 0d 0b 72 17 e7 53  54 24 3d 22 2d 34 30 30  |-"..r..ST$="-400|
00002f10  22 3a 3d 22 53 75 62 6c  22 0d 0b 7c 0e 53 54 25  |":="Subl"..|.ST%|
00002f20  3d bb 28 53 54 24 29 0d  0b 86 18 e7 53 25 28 31  |=.(ST$).....S%(1|
00002f30  29 3d 32 3a 53 54 25 3d  53 54 25 2b 32 37 33 0d  |)=2:ST%=ST%+273.|
00002f40  0b 90 1d e7 53 25 28 31  29 3d 33 3a 53 54 25 3d  |....S%(1)=3:ST%=|
00002f50  28 53 54 25 2a 31 2e 38  29 2b 33 32 0d 0b 9a 1e  |(ST%*1.8)+32....|
00002f60  e7 53 25 28 31 29 3d 34  3a 53 54 25 3d 28 53 54  |.S%(1)=4:ST%=(ST|
00002f70  25 2b 32 37 33 29 2a 31  2e 38 0d 0b a4 19 e7 53  |%+273)*1.8.....S|
00002f80  25 28 31 29 3d 35 3a 53  54 25 3d 53 54 25 2f 31  |%(1)=5:ST%=ST%/1|
00002f90  2e 32 35 0d 0b ae 0e 53  54 24 3d c3 28 53 54 25  |.25....ST$=.(ST%|
00002fa0  29 0d 0b b8 08 3d 53 54  24 0d 0b c2 0f dd a4 71  |)....=ST$......q|
00002fb0  74 6f 63 28 53 54 24 29  0d 0b cc 0e 53 54 25 3d  |toc(ST$)....ST%=|
00002fc0  bb 28 53 54 24 29 0d 0b  d6 18 e7 53 25 28 31 29  |.(ST$).....S%(1)|
00002fd0  3d 32 3a 53 54 25 3d 53  54 25 2d 32 37 33 0d 0b  |=2:ST%=ST%-273..|
00002fe0  e0 1d e7 53 25 28 31 29  3d 33 3a 53 54 25 3d 28  |...S%(1)=3:ST%=(|
00002ff0  53 54 25 2d 33 32 29 2f  31 2e 38 0d 0b ea 1e e7  |ST%-32)/1.8.....|
00003000  53 25 28 31 29 3d 34 3a  53 54 25 3d 28 53 54 25  |S%(1)=4:ST%=(ST%|
00003010  2f 31 2e 38 29 2d 32 37  33 0d 0b f4 19 e7 53 25  |/1.8)-273.....S%|
00003020  28 31 29 3d 35 3a 53 54  25 3d 53 54 25 2a 31 2e  |(1)=5:ST%=ST%*1.|
00003030  32 35 0d 0b fe 0e 53 54  24 3d c3 28 53 54 25 29  |25....ST$=.(ST%)|
00003040  0d 0c 08 08 3d 53 54 24  0d 0c 12 83 dd f2 67 72  |....=ST$......gr|
00003050  65 79 28 77 69 6e 25 2c  69 63 6f 6e 25 29 3a 21  |ey(win%,icon%):!|
00003060  62 25 3d 77 69 6e 25 3a  62 25 21 34 3d 69 63 6f  |b%=win%:b%!4=ico|
00003070  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |n%:.."Wimp_GetIc|
00003080  6f 6e 53 74 61 74 65 22  2c 2c 62 25 3a e7 ac 62  |onState",,b%:..b|
00003090  25 21 32 34 80 31 3c 3c  32 32 3a 62 25 21 38 3d  |%!24.1<<22:b%!8=|
000030a0  31 3c 3c 32 32 3a 62 25  21 31 32 3d 31 3c 3c 32  |1<<22:b%!12=1<<2|
000030b0  32 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |2:.."Wimp_SetIco|
000030c0  6e 53 74 61 74 65 22 2c  2c 62 25 0d 0c 1c 05 e1  |nState",,b%.....|
000030d0  0d 0c 26 7f dd f2 78 67  72 65 79 28 77 69 6e 25  |..&...xgrey(win%|
000030e0  2c 69 63 6f 6e 25 29 3a  21 62 25 3d 77 69 6e 25  |,icon%):!b%=win%|
000030f0  3a 62 25 21 34 3d 69 63  6f 6e 25 3a c8 99 22 57  |:b%!4=icon%:.."W|
00003100  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00003110  22 2c 2c 62 25 3a e7 62  25 21 32 34 80 31 3c 3c  |",,b%:.b%!24.1<<|
00003120  32 32 3a 62 25 21 38 3d  30 3a 62 25 21 31 32 3d  |22:b%!8=0:b%!12=|
00003130  31 3c 3c 32 32 3a c8 99  22 57 69 6d 70 5f 53 65  |1<<22:.."Wimp_Se|
00003140  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 0d  |tIconState",,b%.|
00003150  0c 30 05 e1 0d 0c 3a 50  dd f2 67 70 6e 6f 3a e3  |.0....:P..gpno:.|
00003160  4c 41 25 3d 31 31 38 b8  31 32 34 3a e7 53 54 50  |LA%=118.124:.STP|
00003170  25 3d b9 3a f2 73 65 74  66 62 28 74 61 62 6c 65  |%=.:.setfb(table|
00003180  25 2c 4c 41 25 2c 37 2c  2d 31 29 3a 8b f2 73 65  |%,LA%,7,-1):..se|
00003190  74 66 62 28 74 61 62 6c  65 25 2c 4c 41 25 2c 31  |tfb(table%,LA%,1|
000031a0  2c 2d 31 29 0d 0c 44 08  ed 4c 41 25 0d 0c 4e 49  |,-1)..D..LA%..NI|
000031b0  e3 4c 41 25 3d 31 31 30  b8 31 31 37 3a e7 53 54  |.LA%=110.117:.ST|
000031c0  47 25 3d b9 3a f2 73 65  74 66 62 28 74 61 62 6c  |G%=.:.setfb(tabl|
000031d0  65 25 2c 4c 41 25 2c 37  2c 2d 31 29 3a 8b f2 73  |e%,LA%,7,-1):..s|
000031e0  65 74 66 62 28 74 61 62  6c 65 25 2c 4c 41 25 2c  |etfb(table%,LA%,|
000031f0  31 2c 2d 31 29 0d 0c 58  08 ed 4c 41 25 0d 0c 62  |1,-1)..X..LA%..b|
00003200  05 e1 0d 0c 6c 42 dd f2  73 65 74 66 62 28 77 69  |....lB..setfb(wi|
00003210  6e 25 2c 69 63 6f 6e 25  2c 66 67 25 2c 62 67 25  |n%,icon%,fg%,bg%|
00003220  29 3a 21 62 25 3d 77 69  6e 25 3a 62 25 21 34 3d  |):!b%=win%:b%!4=|
00003230  69 63 6f 6e 25 3a 62 25  21 38 3d 30 3a 62 25 21  |icon%:b%!8=0:b%!|
00003240  31 32 3d 30 0d 0c 76 25  e7 66 67 25 3e 2d 31 3a  |12=0..v%.fg%>-1:|
00003250  62 25 21 38 3d 66 67 25  3c 3c 32 34 3a 62 25 21  |b%!8=fg%<<24:b%!|
00003260  31 32 3d 31 35 3c 3c 32  34 0d 0c 80 27 e7 62 67  |12=15<<24...'.bg|
00003270  25 3e 2d 31 3a 62 25 21  38 2b 3d 62 67 25 3c 3c  |%>-1:b%!8+=bg%<<|
00003280  32 38 3a 62 25 21 31 32  2b 3d 31 35 3c 3c 32 38  |28:b%!12+=15<<28|
00003290  0d 0c 8a 1f c8 99 22 57  69 6d 70 5f 53 65 74 49  |......"Wimp_SetI|
000032a0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a e1 0d  |conState",,b%:..|
000032b0  0c 94 09 dd f2 75 64 74  0d 0c 9e bc e7 53 54 31  |.....udt.....ST1|
000032c0  25 3c 34 3a e3 4c 41 25  3d 31 33 34 b8 31 33 36  |%<4:.LA%=134.136|
000032d0  3a f2 74 6a 28 74 61 62  6c 65 25 2c 4c 41 25 2c  |:.tj(table%,LA%,|
000032e0  22 22 29 3a ed 4c 41 25  3a e3 4c 41 25 3d 31 33  |""):.LA%:.LA%=13|
000032f0  37 b8 31 33 38 3a 21 62  25 3d 74 61 62 6c 65 25  |7.138:!b%=table%|
00003300  3a 62 25 21 34 3d 4c 41  25 3a 62 25 21 38 3d 30  |:b%!4=LA%:b%!8=0|
00003310  3a 62 25 21 31 32 3d 32  3a c8 99 22 57 69 6d 70  |:b%!12=2:.."Wimp|
00003320  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003330  62 25 3a ed 4c 41 25 3a  21 62 25 3d 74 61 62 6c  |b%:.LA%:!b%=tabl|
00003340  65 25 3a 62 25 21 34 3d  31 33 34 3a 62 25 21 38  |e%:b%!4=134:b%!8|
00003350  3d 30 3a 62 25 21 31 32  3d 34 3a c8 99 22 57 69  |=0:b%!12=4:.."Wi|
00003360  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003370  2c 2c 62 25 0d 0c a8 3c  e7 53 54 31 25 3c 3e 30  |,,b%...<.ST1%<>0|
00003380  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 31  |:.setfb(table%,1|
00003390  33 39 2c 31 2c 2d 31 29  3a f2 73 65 74 66 62 28  |39,1,-1):.setfb(|
000033a0  74 61 62 6c 65 25 2c 31  34 30 2c 31 2c 2d 31 29  |table%,140,1,-1)|
000033b0  0d 0c b2 0c c8 8e 53 54  31 25 20 ca 0d 0c bc 6a  |......ST1% ....j|
000033c0  c9 2d 31 3a e3 4c 41 25  3d 31 32 35 b8 31 33 33  |.-1:.LA%=125.133|
000033d0  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 4c  |:.setfb(table%,L|
000033e0  41 25 2c 31 2c 31 29 3a  ed 4c 41 25 3a e3 4c 41  |A%,1,1):.LA%:.LA|
000033f0  25 3d 31 b8 31 30 39 3a  f2 73 65 74 66 62 28 74  |%=1.109:.setfb(t|
00003400  61 62 6c 65 25 2c 4c 41  25 2c 37 2c 32 29 3a ed  |able%,LA%,7,2):.|
00003410  4c 41 25 3a f2 74 6a 28  74 61 62 6c 65 25 2c 30  |LA%:.tj(table%,0|
00003420  2c 22 22 29 3a e1 0d 0c  c6 c5 c9 30 3a f2 74 6a  |,""):......0:.tj|
00003430  28 74 61 62 6c 65 25 2c  30 2c 22 47 72 6f 75 70  |(table%,0,"Group|
00003440  73 22 29 3a e3 4c 41 25  3d 31 32 35 b8 31 33 31  |s"):.LA%=125.131|
00003450  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 4c  |:.setfb(table%,L|
00003460  41 25 2c 2d 31 2c 4c 41  25 2d 31 31 36 29 3a f2  |A%,-1,LA%-116):.|
00003470  73 65 74 66 62 28 74 61  62 6c 65 25 2c 4c 41 25  |setfb(table%,LA%|
00003480  2c 37 2c 2d 31 29 3a ed  4c 41 25 3a f2 73 65 74  |,7,-1):.LA%:.set|
00003490  66 62 28 74 61 62 6c 65  25 2c 31 33 32 2c 37 2c  |fb(table%,132,7,|
000034a0  2d 31 29 3a f2 73 65 74  66 62 28 74 61 62 6c 65  |-1):.setfb(table|
000034b0  25 2c 31 33 32 2c 2d 31  2c 30 29 3a f2 73 65 74  |%,132,-1,0):.set|
000034c0  66 62 28 74 61 62 6c 65  25 2c 31 33 33 2c 37 2c  |fb(table%,133,7,|
000034d0  2d 31 29 3a f2 73 65 74  66 62 28 74 61 62 6c 65  |-1):.setfb(table|
000034e0  25 2c 31 33 33 2c 2d 31  2c 32 29 0d 0c d0 67 f2  |%,133,-1,2)...g.|
000034f0  74 6a 28 74 61 62 6c 65  25 2c 31 32 35 2c 22 41  |tj(table%,125,"A|
00003500  6c 6b 61 6c 69 20 6d 65  74 61 6c 73 22 29 3a f2  |lkali metals"):.|
00003510  74 6a 28 74 61 62 6c 65  25 2c 31 32 36 2c 22 41  |tj(table%,126,"A|
00003520  6c 6b 61 6c 69 6e 65 20  65 61 72 74 68 20 6d 65  |lkaline earth me|
00003530  74 61 6c 73 22 29 3a f2  74 6a 28 74 61 62 6c 65  |tals"):.tj(table|
00003540  25 2c 31 32 37 2c 22 47  72 6f 75 70 20 49 49 49  |%,127,"Group III|
00003550  22 29 0d 0c da b4 f2 74  6a 28 74 61 62 6c 65 25  |").....tj(table%|
00003560  2c 31 32 38 2c 22 47 72  6f 75 70 20 49 56 22 29  |,128,"Group IV")|
00003570  3a f2 74 6a 28 74 61 62  6c 65 25 2c 31 32 39 2c  |:.tj(table%,129,|
00003580  22 47 72 6f 75 70 20 56  22 29 3a f2 74 6a 28 74  |"Group V"):.tj(t|
00003590  61 62 6c 65 25 2c 31 33  30 2c 22 43 68 61 6c 63  |able%,130,"Chalc|
000035a0  6f 67 65 6e 73 22 29 3a  f2 74 6a 28 74 61 62 6c  |ogens"):.tj(tabl|
000035b0  65 25 2c 31 33 31 2c 22  48 61 6c 6f 67 65 6e 73  |e%,131,"Halogens|
000035c0  22 29 3a f2 74 6a 28 74  61 62 6c 65 25 2c 31 33  |"):.tj(table%,13|
000035d0  32 2c 22 4e 6f 62 6c 65  20 67 61 73 65 73 22 29  |2,"Noble gases")|
000035e0  3a f2 74 6a 28 74 61 62  6c 65 25 2c 31 33 33 2c  |:.tj(table%,133,|
000035f0  22 54 72 61 6e 73 69 74  69 6f 6e 20 65 6c 65 6d  |"Transition elem|
00003600  65 6e 74 73 22 29 0d 0c  e4 0e e3 4c 41 25 3d 31  |ents").....LA%=1|
00003610  b8 31 30 39 0d 0c ee 0b  c8 8e 4c 41 25 20 ca 0d  |.109......LA% ..|
00003620  0c f8 1e c9 31 3a f2 73  65 74 66 62 28 74 61 62  |....1:.setfb(tab|
00003630  6c 65 25 2c 4c 41 25 2c  2d 31 2c 34 29 0d 0d 02  |le%,LA%,-1,4)...|
00003640  2d c9 33 2c 31 31 2c 31  39 2c 33 37 2c 35 35 2c  |-.3,11,19,37,55,|
00003650  38 37 3a f2 73 65 74 66  62 28 74 61 62 6c 65 25  |87:.setfb(table%|
00003660  2c 4c 41 25 2c 2d 31 2c  39 29 0d 0d 0c 2e c9 34  |,LA%,-1,9).....4|
00003670  2c 31 32 2c 32 30 2c 33  38 2c 35 36 2c 38 38 3a  |,12,20,38,56,88:|
00003680  f2 73 65 74 66 62 28 74  61 62 6c 65 25 2c 4c 41  |.setfb(table%,LA|
00003690  25 2c 2d 31 2c 31 30 29  0d 0d 16 2b c9 35 2c 31  |%,-1,10)...+.5,1|
000036a0  33 2c 33 31 2c 34 39 2c  38 31 3a f2 73 65 74 66  |3,31,49,81:.setf|
000036b0  62 28 74 61 62 6c 65 25  2c 4c 41 25 2c 2d 31 2c  |b(table%,LA%,-1,|
000036c0  31 31 29 0d 0d 20 2b c9  36 2c 31 34 2c 33 32 2c  |11).. +.6,14,32,|
000036d0  35 30 2c 38 32 3a f2 73  65 74 66 62 28 74 61 62  |50,82:.setfb(tab|
000036e0  6c 65 25 2c 4c 41 25 2c  2d 31 2c 31 32 29 0d 0d  |le%,LA%,-1,12)..|
000036f0  2a 2b c9 37 2c 31 35 2c  33 33 2c 35 31 2c 38 33  |*+.7,15,33,51,83|
00003700  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 4c  |:.setfb(table%,L|
00003710  41 25 2c 2d 31 2c 31 33  29 0d 0d 34 2b c9 38 2c  |A%,-1,13)..4+.8,|
00003720  31 36 2c 33 34 2c 35 32  2c 38 34 3a f2 73 65 74  |16,34,52,84:.set|
00003730  66 62 28 74 61 62 6c 65  25 2c 4c 41 25 2c 2d 31  |fb(table%,LA%,-1|
00003740  2c 31 34 29 0d 0d 3e 2b  c9 39 2c 31 37 2c 33 35  |,14)..>+.9,17,35|
00003750  2c 35 33 2c 38 35 3a f2  73 65 74 66 62 28 74 61  |,53,85:.setfb(ta|
00003760  62 6c 65 25 2c 4c 41 25  2c 2d 31 2c 31 35 29 0d  |ble%,LA%,-1,15).|
00003770  0d 48 2d c9 32 2c 31 30  2c 31 38 2c 33 36 2c 35  |.H-.2,10,18,36,5|
00003780  34 2c 38 36 3a f2 73 65  74 66 62 28 74 61 62 6c  |4,86:.setfb(tabl|
00003790  65 25 2c 4c 41 25 2c 2d  31 2c 30 29 0d 0d 52 1d  |e%,LA%,-1,0)..R.|
000037a0  7f 3a f2 73 65 74 66 62  28 74 61 62 6c 65 25 2c  |.:.setfb(table%,|
000037b0  4c 41 25 2c 2d 31 2c 32  29 0d 0d 5c 05 cb 0d 0d  |LA%,-1,2)..\....|
000037c0  66 2c e7 4c 41 25 3e 3d  35 37 80 4c 41 25 3c 3d  |f,.LA%>=57.LA%<=|
000037d0  37 31 3a f2 73 65 74 66  62 28 74 61 62 6c 65 25  |71:.setfb(table%|
000037e0  2c 4c 41 25 2c 2d 31 2c  31 29 0d 0d 70 2d e7 4c  |,LA%,-1,1)..p-.L|
000037f0  41 25 3e 3d 38 39 80 4c  41 25 3c 3d 31 30 33 3a  |A%>=89.LA%<=103:|
00003800  f2 73 65 74 66 62 28 74  61 62 6c 65 25 2c 4c 41  |.setfb(table%,LA|
00003810  25 2c 2d 31 2c 33 29 0d  0d 7a 08 ed 4c 41 25 0d  |%,-1,3)..z..LA%.|
00003820  0d 84 33 f2 73 65 74 66  62 28 74 61 62 6c 65 25  |..3.setfb(table%|
00003830  2c 31 33 39 2c 37 2c 2d  31 29 3a f2 73 65 74 66  |,139,7,-1):.setf|
00003840  62 28 74 61 62 6c 65 25  2c 31 34 30 2c 37 2c 2d  |b(table%,140,7,-|
00003850  31 29 0d 0d 8e ee c9 31  3a f2 74 6a 28 74 61 62  |1).....1:.tj(tab|
00003860  6c 65 25 2c 30 2c 22 4d  65 74 61 6c 73 20 61 6e  |le%,0,"Metals an|
00003870  64 20 6e 6f 6e 2d 6d 65  74 61 6c 73 22 29 3a f2  |d non-metals"):.|
00003880  73 65 74 66 62 28 74 61  62 6c 65 25 2c 31 33 31  |setfb(table%,131|
00003890  2c 37 2c 32 29 3a f2 73  65 74 66 62 28 74 61 62  |,7,2):.setfb(tab|
000038a0  6c 65 25 2c 31 33 32 2c  37 2c 39 29 3a f2 73 65  |le%,132,7,9):.se|
000038b0  74 66 62 28 74 61 62 6c  65 25 2c 31 33 33 2c 37  |tfb(table%,133,7|
000038c0  2c 31 34 29 3a f2 74 6a  28 74 61 62 6c 65 25 2c  |,14):.tj(table%,|
000038d0  31 33 31 2c 22 4d 65 74  61 6c 73 22 29 3a f2 74  |131,"Metals"):.t|
000038e0  6a 28 74 61 62 6c 65 25  2c 31 33 32 2c 22 4d 65  |j(table%,132,"Me|
000038f0  74 61 6c 6c 6f 69 64 73  22 29 3a f2 74 6a 28 74  |talloids"):.tj(t|
00003900  61 62 6c 65 25 2c 31 33  33 2c 22 4e 6f 6e 2d 6d  |able%,133,"Non-m|
00003910  65 74 61 6c 73 22 29 3a  e3 4c 41 25 3d 31 32 35  |etals"):.LA%=125|
00003920  b8 31 33 30 3a f2 73 65  74 66 62 28 74 61 62 6c  |.130:.setfb(tabl|
00003930  65 25 2c 4c 41 25 2c 31  2c 31 29 3a ed 4c 41 25  |e%,LA%,1,1):.LA%|
00003940  0d 0d 98 0e e3 4c 41 25  3d 31 b8 31 30 39 0d 0d  |.....LA%=1.109..|
00003950  a2 0b c8 8e 4c 41 25 20  ca 0d 0d ac 4d c9 31 2c  |....LA% ....M.1,|
00003960  32 2c 36 2c 37 2c 38 2c  39 2c 31 30 2c 31 35 2c  |2,6,7,8,9,10,15,|
00003970  31 36 2c 31 37 2c 31 38  2c 33 34 2c 33 35 2c 33  |16,17,18,34,35,3|
00003980  36 2c 35 33 2c 35 34 2c  38 35 2c 38 36 3a f2 73  |6,53,54,85,86:.s|
00003990  65 74 66 62 28 74 61 62  6c 65 25 2c 4c 41 25 2c  |etfb(table%,LA%,|
000039a0  2d 31 2c 31 34 29 0d 0d  b6 2a c9 35 2c 31 34 2c  |-1,14)...*.5,14,|
000039b0  33 32 2c 33 33 2c 35 32  3a f2 73 65 74 66 62 28  |32,33,52:.setfb(|
000039c0  74 61 62 6c 65 25 2c 4c  41 25 2c 2d 31 2c 39 29  |table%,LA%,-1,9)|
000039d0  0d 0d c0 1d 7f 3a f2 73  65 74 66 62 28 74 61 62  |.....:.setfb(tab|
000039e0  6c 65 25 2c 4c 41 25 2c  2d 31 2c 32 29 0d 0d ca  |le%,LA%,-1,2)...|
000039f0  05 cb 0d 0d d4 08 ed 4c  41 25 0d 0d de b3 c9 32  |.......LA%.....2|
00003a00  3a f2 74 6a 28 74 61 62  6c 65 25 2c 30 2c 22 52  |:.tj(table%,0,"R|
00003a10  61 64 69 6f 61 63 74 69  76 69 74 79 22 29 3a f2  |adioactivity"):.|
00003a20  73 65 74 66 62 28 74 61  62 6c 65 25 2c 31 33 32  |setfb(table%,132|
00003a30  2c 37 2c 31 34 29 3a f2  73 65 74 66 62 28 74 61  |,7,14):.setfb(ta|
00003a40  62 6c 65 25 2c 31 33 33  2c 37 2c 32 29 3a f2 74  |ble%,133,7,2):.t|
00003a50  6a 28 74 61 62 6c 65 25  2c 31 33 32 2c 22 52 61  |j(table%,132,"Ra|
00003a60  64 69 6f 61 63 74 69 76  65 22 29 3a f2 74 6a 28  |dioactive"):.tj(|
00003a70  74 61 62 6c 65 25 2c 31  33 33 2c 22 53 74 61 62  |table%,133,"Stab|
00003a80  6c 65 22 29 3a e3 4c 41  25 3d 31 32 35 b8 31 33  |le"):.LA%=125.13|
00003a90  31 3a f2 73 65 74 66 62  28 74 61 62 6c 65 25 2c  |1:.setfb(table%,|
00003aa0  4c 41 25 2c 31 2c 31 29  3a ed 4c 41 25 0d 0d e8  |LA%,1,1):.LA%...|
00003ab0  0e e3 4c 41 25 3d 31 b8  31 30 39 0d 0d f2 25 e7  |..LA%=1.109...%.|
00003ac0  4c 41 25 3e 3d 38 34 3a  f2 73 65 74 66 62 28 74  |LA%>=84:.setfb(t|
00003ad0  61 62 6c 65 25 2c 4c 41  25 2c 2d 31 2c 31 34 29  |able%,LA%,-1,14)|
00003ae0  0d 0d fc 0d e7 4c 41 25  3c 38 34 20 8c 0d 0e 06  |.....LA%<84 ....|
00003af0  44 e7 4c 41 25 3d 34 33  84 4c 41 25 3d 36 31 3a  |D.LA%=43.LA%=61:|
00003b00  f2 73 65 74 66 62 28 74  61 62 6c 65 25 2c 4c 41  |.setfb(table%,LA|
00003b10  25 2c 2d 31 2c 31 34 29  3a 8b f2 73 65 74 66 62  |%,-1,14):..setfb|
00003b20  28 74 61 62 6c 65 25 2c  4c 41 25 2c 2d 31 2c 32  |(table%,LA%,-1,2|
00003b30  29 0d 0e 10 05 cd 0d 0e  1a 08 ed 4c 41 25 0d 0e  |)..........LA%..|
00003b40  24 e3 c9 33 3a f2 74 6a  28 74 61 62 6c 65 25 2c  |$..3:.tj(table%,|
00003b50  30 2c 22 52 65 61 63 74  69 76 69 74 79 22 29 3a  |0,"Reactivity"):|
00003b60  f2 73 65 74 66 62 28 74  61 62 6c 65 25 2c 31 33  |.setfb(table%,13|
00003b70  31 2c 37 2c 30 29 3a f2  73 65 74 66 62 28 74 61  |1,7,0):.setfb(ta|
00003b80  62 6c 65 25 2c 31 33 32  2c 37 2c 33 29 3a f2 73  |ble%,132,7,3):.s|
00003b90  65 74 66 62 28 74 61 62  6c 65 25 2c 31 33 33 2c  |etfb(table%,133,|
00003ba0  37 2c 35 29 3a f2 74 6a  28 74 61 62 6c 65 25 2c  |7,5):.tj(table%,|
00003bb0  31 33 31 2c 22 4c 65 61  73 74 20 72 65 61 63 74  |131,"Least react|
00003bc0  69 76 65 22 29 3a f2 74  6a 28 74 61 62 6c 65 25  |ive"):.tj(table%|
00003bd0  2c 31 33 32 2c 22 22 29  3a f2 74 6a 28 74 61 62  |,132,""):.tj(tab|
00003be0  6c 65 25 2c 31 33 33 2c  22 4d 6f 73 74 20 72 65  |le%,133,"Most re|
00003bf0  61 63 74 69 76 65 22 29  3a e3 4c 41 25 3d 31 32  |active"):.LA%=12|
00003c00  35 b8 31 33 30 3a f2 73  65 74 66 62 28 74 61 62  |5.130:.setfb(tab|
00003c10  6c 65 25 2c 4c 41 25 2c  31 2c 31 29 3a ed 4c 41  |le%,LA%,1,1):.LA|
00003c20  25 0d 0e 2e 45 f7 3a e3  4c 41 25 3d 31 b8 31 30  |%...E.:.LA%=1.10|
00003c30  39 3a e3 4c 42 25 3d 31  b8 31 31 3a f3 4e 41 24  |9:.LB%=1.11:.NA$|
00003c40  3a ed 4c 42 25 3a 4e 41  25 3d bb 28 4e 41 24 29  |:.LB%:NA%=.(NA$)|
00003c50  2a 31 30 3a e3 4c 42 25  3d 31 b8 39 3a f3 4e 41  |*10:.LB%=1.9:.NA|
00003c60  24 3a ed 4c 42 25 0d 0e  38 0b c8 8e 4c 41 25 20  |$:.LB%..8...LA% |
00003c70  ca 0d 0e 42 2d c9 32 2c  31 30 2c 31 38 2c 33 36  |...B-.2,10,18,36|
00003c80  2c 35 34 2c 38 36 3a f2  73 65 74 66 62 28 74 61  |,54,86:.setfb(ta|
00003c90  62 6c 65 25 2c 4c 41 25  2c 2d 31 2c 30 29 0d 0e  |ble%,LA%,-1,0)..|
00003ca0  4c 05 7f 0d 0e 56 15 e7  4e 41 25 3d 2d 33 30 30  |L....V..NA%=-300|
00003cb0  30 3a 4e 41 25 3d 31 33  0d 0e 60 0b c8 8e 4e 41  |0:NA%=13..`...NA|
00003cc0  25 20 ca 0d 0e 6a 26 c9  36 2c 37 2c 33 39 2c 34  |% ...j&.6,7,39,4|
00003cd0  30 3a f2 73 65 74 66 62  28 74 61 62 6c 65 25 2c  |0:.setfb(table%,|
00003ce0  4c 41 25 2c 2d 31 2c 35  29 0d 0e 74 2a c9 38 2c  |LA%,-1,5)..t*.8,|
00003cf0  33 32 2c 33 33 2c 33 34  2c 33 35 3a f2 73 65 74  |32,33,34,35:.set|
00003d00  66 62 28 74 61 62 6c 65  25 2c 4c 41 25 2c 2d 31  |fb(table%,LA%,-1|
00003d10  2c 34 29 0d 0e 7e 2d c9  39 2c 31 30 2c 32 38 2c  |,4)..~-.9,10,28,|
00003d20  32 39 2c 33 30 2c 33 31  3a f2 73 65 74 66 62 28  |29,30,31:.setfb(|
00003d30  74 61 62 6c 65 25 2c 4c  41 25 2c 2d 31 2c 33 29  |table%,LA%,-1,3)|
00003d40  0d 0e 88 2e c9 31 31 2c  31 32 2c 31 33 2c 32 35  |.....11,12,13,25|
00003d50  2c 32 36 2c 32 37 3a f2  73 65 74 66 62 28 74 61  |,26,27:.setfb(ta|
00003d60  62 6c 65 25 2c 4c 41 25  2c 2d 31 2c 32 29 0d 0e  |ble%,LA%,-1,2)..|
00003d70  92 3d c9 31 34 2c 31 35  2c 31 36 2c 31 37 2c 31  |.=.14,15,16,17,1|
00003d80  38 2c 31 39 2c 32 30 2c  32 31 2c 32 32 2c 32 33  |8,19,20,21,22,23|
00003d90  2c 32 34 3a f2 73 65 74  66 62 28 74 61 62 6c 65  |,24:.setfb(table|
00003da0  25 2c 4c 41 25 2c 2d 31  2c 31 29 0d 0e 9c 1d 7f  |%,LA%,-1,1).....|
00003db0  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 4c  |:.setfb(table%,L|
00003dc0  41 25 2c 2d 31 2c 32 29  0d 0e a6 05 cb 0d 0e b0  |A%,-1,2)........|
00003dd0  05 cb 0d 0e ba 08 ed 4c  41 25 0d 0e c4 21 c9 34  |.......LA%...!.4|
00003de0  3a 4e 41 24 3d a4 71 74  6f 63 28 53 54 41 24 29  |:NA$=.qtoc(STA$)|
00003df0  3a 4e 41 25 3d bb 28 4e  41 24 29 0d 0e ce 16 e7  |:NA%=.(NA$).....|
00003e00  4e 41 25 3c 2d 32 37 33  3a 4e 41 25 3d 2d 32 37  |NA%<-273:NA%=-27|
00003e10  33 0d 0e d8 16 e7 4e 41  25 3e 36 30 30 30 3a 4e  |3.....NA%>6000:N|
00003e20  41 25 3d 36 30 30 30 0d  0e e2 1e 4e 41 24 3d c3  |A%=6000....NA$=.|
00003e30  28 4e 41 25 29 3a 53 54  41 24 3d a4 63 74 6f 71  |(NA%):STA$=.ctoq|
00003e40  28 4e 41 24 29 0d 0e ec  12 e7 53 54 41 24 3c 3e  |(NA$).....STA$<>|
00003e50  4f 53 54 41 24 20 8c 0d  0e f6 d4 f2 74 6a 28 74  |OSTA$ ......tj(t|
00003e60  61 62 6c 65 25 2c 30 2c  22 22 29 3a f2 73 65 74  |able%,0,""):.set|
00003e70  66 62 28 74 61 62 6c 65  25 2c 31 32 39 2c 37 2c  |fb(table%,129,7,|
00003e80  32 29 3a f2 73 65 74 66  62 28 74 61 62 6c 65 25  |2):.setfb(table%|
00003e90  2c 31 33 31 2c 37 2c 31  34 29 3a f2 73 65 74 66  |,131,7,14):.setf|
00003ea0  62 28 74 61 62 6c 65 25  2c 31 33 32 2c 37 2c 31  |b(table%,132,7,1|
00003eb0  35 29 3a f2 73 65 74 66  62 28 74 61 62 6c 65 25  |5):.setfb(table%|
00003ec0  2c 31 33 33 2c 37 2c 31  30 29 3a f2 74 6a 28 74  |,133,7,10):.tj(t|
00003ed0  61 62 6c 65 25 2c 31 32  39 2c 22 55 6e 6b 6e 6f  |able%,129,"Unkno|
00003ee0  77 6e 22 29 3a f2 74 6a  28 74 61 62 6c 65 25 2c  |wn"):.tj(table%,|
00003ef0  31 33 31 2c 22 53 6f 6c  69 64 22 29 3a f2 74 6a  |131,"Solid"):.tj|
00003f00  28 74 61 62 6c 65 25 2c  31 33 32 2c 22 4c 69 71  |(table%,132,"Liq|
00003f10  75 69 64 22 29 3a f2 74  6a 28 74 61 62 6c 65 25  |uid"):.tj(table%|
00003f20  2c 31 33 33 2c 22 47 61  73 22 29 0d 0f 00 cb e3  |,133,"Gas").....|
00003f30  4c 41 25 3d 31 32 35 b8  31 32 38 3a f2 73 65 74  |LA%=125.128:.set|
00003f40  66 62 28 74 61 62 6c 65  25 2c 4c 41 25 2c 31 2c  |fb(table%,LA%,1,|
00003f50  31 29 3a ed 4c 41 25 3a  f2 73 65 74 66 62 28 74  |1):.LA%:.setfb(t|
00003f60  61 62 6c 65 25 2c 31 33  30 2c 31 2c 31 29 3a f2  |able%,130,1,1):.|
00003f70  74 6a 28 74 61 62 6c 65  25 2c 31 33 35 2c 22 53  |tj(table%,135,"S|
00003f80  74 61 74 65 20 61 74 22  29 3a f2 74 6a 28 74 61  |tate at"):.tj(ta|
00003f90  62 6c 65 25 2c 31 33 34  2c 53 54 41 24 29 3a 4e  |ble%,134,STA$):N|
00003fa0  41 24 3d a4 71 74 6f 63  28 53 54 41 24 29 3a 54  |A$=.qtoc(STA$):T|
00003fb0  51 25 3d bb 28 4e 41 24  29 3a 21 62 25 3d 74 61  |Q%=.(NA$):!b%=ta|
00003fc0  62 6c 65 25 3a 62 25 21  34 3d 31 33 34 3a 62 25  |ble%:b%!4=134:b%|
00003fd0  21 38 3d 34 3a 62 25 21  31 32 3d 34 3a c8 99 22  |!8=4:b%!12=4:.."|
00003fe0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00003ff0  65 22 2c 2c 62 25 0d 0f  0a 67 f2 74 6a 28 74 61  |e",,b%...g.tj(ta|
00004000  62 6c 65 25 2c 31 33 36  2c a4 74 65 75 29 3a e3  |ble%,136,.teu):.|
00004010  4c 41 25 3d 31 33 37 b8  31 33 38 3a 21 62 25 3d  |LA%=137.138:!b%=|
00004020  74 61 62 6c 65 25 3a 62  25 21 34 3d 4c 41 25 3a  |table%:b%!4=LA%:|
00004030  62 25 21 38 3d 32 3a 62  25 21 31 32 3d 32 3a c8  |b%!8=2:b%!12=2:.|
00004040  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004050  61 74 65 22 2c 2c 62 25  3a ed 4c 41 25 0d 0f 14  |ate",,b%:.LA%...|
00004060  40 f7 3a e3 4c 41 25 3d  31 b8 31 30 39 3a e3 4c  |@.:.LA%=1.109:.L|
00004070  42 25 3d 31 b8 31 32 3a  f3 4e 41 24 3a ed 4c 42  |B%=1.12:.NA$:.LB|
00004080  25 3a f3 4d 50 25 2c 42  50 25 3a e3 4c 42 25 3d  |%:.MP%,BP%:.LB%=|
00004090  31 b8 36 3a f3 4e 41 24  3a ed 4c 42 25 0d 0f 1e  |1.6:.NA$:.LB%...|
000040a0  18 e7 4d 50 25 3d 2d 33  30 30 84 42 50 25 3d 2d  |..MP%=-300.BP%=-|
000040b0  33 30 30 20 8c 0d 0f 28  1b f2 73 65 74 66 62 28  |300 ...(..setfb(|
000040c0  74 61 62 6c 65 25 2c 4c  41 25 2c 2d 31 2c 32 29  |table%,LA%,-1,2)|
000040d0  0d 0f 32 05 cc 0d 0f 3c  0f e7 4d 50 25 3d 2d 34  |..2....<..MP%=-4|
000040e0  30 30 20 8c 0d 0f 46 25  e7 42 50 25 3e 54 51 25  |00 ...F%.BP%>TQ%|
000040f0  3a f2 73 65 74 66 62 28  74 61 62 6c 65 25 2c 4c  |:.setfb(table%,L|
00004100  41 25 2c 2d 31 2c 31 34  29 0d 0f 50 25 e7 42 50  |A%,-1,14)..P%.BP|
00004110  25 3c 54 51 25 3a f2 73  65 74 66 62 28 74 61 62  |%<TQ%:.setfb(tab|
00004120  6c 65 25 2c 4c 41 25 2c  2d 31 2c 31 30 29 0d 0f  |le%,LA%,-1,10)..|
00004130  5a 05 cc 0d 0f 64 2d e7  4d 50 25 3c 54 51 25 80  |Z....d-.MP%<TQ%.|
00004140  42 50 25 3c 54 51 25 3a  f2 73 65 74 66 62 28 74  |BP%<TQ%:.setfb(t|
00004150  61 62 6c 65 25 2c 4c 41  25 2c 2d 31 2c 31 30 29  |able%,LA%,-1,10)|
00004160  0d 0f 6e 2e e7 4d 50 25  3c 54 51 25 80 42 50 25  |..n..MP%<TQ%.BP%|
00004170  3e 3d 54 51 25 3a f2 73  65 74 66 62 28 74 61 62  |>=TQ%:.setfb(tab|
00004180  6c 65 25 2c 4c 41 25 2c  2d 31 2c 31 35 29 0d 0f  |le%,LA%,-1,15)..|
00004190  78 2f e7 4d 50 25 3e 3d  54 51 25 80 42 50 25 3e  |x/.MP%>=TQ%.BP%>|
000041a0  3d 54 51 25 3a f2 73 65  74 66 62 28 74 61 62 6c  |=TQ%:.setfb(tabl|
000041b0  65 25 2c 4c 41 25 2c 2d  31 2c 31 34 29 0d 0f 82  |e%,LA%,-1,14)...|
000041c0  05 cd 0d 0f 8c 05 cd 0d  0f 96 13 ed 4c 41 25 3a  |............LA%:|
000041d0  4f 53 54 41 24 3d 53 54  41 24 0d 0f a0 05 cd 0d  |OSTA$=STA$......|
000041e0  0f aa 12 c9 35 3a 4e 41  25 3d bb 28 59 45 41 24  |....5:NA%=.(YEA$|
000041f0  29 0d 0f b4 16 e7 4e 41  25 3c 31 35 30 30 3a 4e  |).....NA%<1500:N|
00004200  41 25 3d 31 35 30 30 0d  0f be 16 e7 4e 41 25 3e  |A%=1500.....NA%>|
00004210  31 39 39 36 3a 4e 41 25  3d 31 39 39 36 0d 0f c8  |1996:NA%=1996...|
00004220  0f 59 45 41 24 3d c3 28  4e 41 25 29 0d 0f d2 12  |.YEA$=.(NA%)....|
00004230  e7 59 45 41 24 3c 3e 4f  59 45 41 24 20 8c 0d 0f  |.YEA$<>OYEA$ ...|
00004240  dc a8 f2 74 6a 28 74 61  62 6c 65 25 2c 30 2c 22  |...tj(table%,0,"|
00004250  22 29 3a f2 73 65 74 66  62 28 74 61 62 6c 65 25  |"):.setfb(table%|
00004260  2c 31 33 32 2c 37 2c 31  32 29 3a f2 73 65 74 66  |,132,7,12):.setf|
00004270  62 28 74 61 62 6c 65 25  2c 31 33 33 2c 37 2c 32  |b(table%,133,7,2|
00004280  29 3a f2 74 6a 28 74 61  62 6c 65 25 2c 31 33 32  |):.tj(table%,132|
00004290  2c 22 44 69 73 63 6f 76  65 72 65 64 22 29 3a f2  |,"Discovered"):.|
000042a0  74 6a 28 74 61 62 6c 65  25 2c 31 33 33 2c 22 55  |tj(table%,133,"U|
000042b0  6e 64 69 73 63 6f 76 65  72 65 64 22 29 3a e3 4c  |ndiscovered"):.L|
000042c0  41 25 3d 31 32 35 b8 31  33 31 3a f2 73 65 74 66  |A%=125.131:.setf|
000042d0  62 28 74 61 62 6c 65 25  2c 4c 41 25 2c 31 2c 31  |b(table%,LA%,1,1|
000042e0  29 3a ed 4c 41 25 0d 0f  e6 ec f2 74 6a 28 74 61  |):.LA%.....tj(ta|
000042f0  62 6c 65 25 2c 31 33 35  2c 22 45 6c 65 6d 65 6e  |ble%,135,"Elemen|
00004300  74 73 20 64 69 73 63 6f  76 65 72 65 64 20 62 79  |ts discovered by|
00004310  22 29 3a f2 74 6a 28 74  61 62 6c 65 25 2c 31 33  |"):.tj(table%,13|
00004320  34 2c 59 45 41 24 29 3a  54 51 25 3d bb 28 59 45  |4,YEA$):TQ%=.(YE|
00004330  41 24 29 3a f2 74 6a 28  74 61 62 6c 65 25 2c 31  |A$):.tj(table%,1|
00004340  33 36 2c 22 22 29 3a 21  62 25 3d 74 61 62 6c 65  |36,""):!b%=table|
00004350  25 3a 62 25 21 34 3d 31  33 34 3a 62 25 21 38 3d  |%:b%!4=134:b%!8=|
00004360  34 3a 62 25 21 31 32 3d  34 3a c8 99 22 57 69 6d  |4:b%!12=4:.."Wim|
00004370  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00004380  2c 62 25 3a e3 4c 41 25  3d 31 33 37 b8 31 33 38  |,b%:.LA%=137.138|
00004390  3a 21 62 25 3d 74 61 62  6c 65 25 3a 62 25 21 34  |:!b%=table%:b%!4|
000043a0  3d 4c 41 25 3a 62 25 21  38 3d 32 3a 62 25 21 31  |=LA%:b%!8=2:b%!1|
000043b0  32 3d 32 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=2:.."Wimp_SetI|
000043c0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a ed 4c  |conState",,b%:.L|
000043d0  41 25 0d 0f f0 2d f7 3a  e3 4c 41 25 3d 31 b8 31  |A%...-.:.LA%=1.1|
000043e0  30 39 3a e3 4c 42 25 3d  31 b8 31 38 3a f3 4e 41  |09:.LB%=1.18:.NA|
000043f0  24 3a ed 4c 42 25 3a f3  79 65 25 2c 4e 41 24 0d  |$:.LB%:.ye%,NA$.|
00004400  0f fa 48 e7 79 65 25 3d  2d 33 30 30 84 54 51 25  |..H.ye%=-300.TQ%|
00004410  3e 3d 79 65 25 3a f2 73  65 74 66 62 28 74 61 62  |>=ye%:.setfb(tab|
00004420  6c 65 25 2c 4c 41 25 2c  2d 31 2c 31 32 29 3a 8b  |le%,LA%,-1,12):.|
00004430  f2 73 65 74 66 62 28 74  61 62 6c 65 25 2c 4c 41  |.setfb(table%,LA|
00004440  25 2c 2d 31 2c 32 29 0d  10 04 08 ed 4c 41 25 0d  |%,-1,2).....LA%.|
00004450  10 0e 0e 4f 59 45 41 24  3d 59 45 41 24 0d 10 18  |...OYEA$=YEA$...|
00004460  05 cd 0d 10 22 05 cb 0d  10 2c 05 e1 0d 10 36 09  |...."....,....6.|
00004470  dd a4 74 65 75 0d 10 40  12 e7 53 25 28 31 29 3d  |..teu..@..S%(1)=|
00004480  31 3a 3d 22 b0 43 22 0d  10 4a 11 e7 53 25 28 31  |1:=".C"..J..S%(1|
00004490  29 3d 32 3a 3d 22 4b 22  0d 10 54 12 e7 53 25 28  |)=2:="K"..T..S%(|
000044a0  31 29 3d 33 3a 3d 22 b0  46 22 0d 10 5e 12 e7 53  |1)=3:=".F"..^..S|
000044b0  25 28 31 29 3d 34 3a 3d  22 b0 52 22 0d 10 68 12  |%(1)=4:=".R"..h.|
000044c0  e7 53 25 28 31 29 3d 35  3a 3d 22 b0 72 22 0d 10  |.S%(1)=5:=".r"..|
000044d0  72 5c dd f2 73 65 6c 28  77 69 6e 25 2c 69 63 6f  |r\..sel(win%,ico|
000044e0  6e 25 29 3a 21 62 25 3d  77 69 6e 25 3a 62 25 21  |n%):!b%=win%:b%!|
000044f0  34 3d 69 63 6f 6e 25 3a  62 25 21 38 3d 31 3c 3c  |4=icon%:b%!8=1<<|
00004500  32 31 3a 62 25 21 31 32  3d 31 3c 3c 32 31 3a c8  |21:b%!12=1<<21:.|
00004510  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00004520  61 74 65 22 2c 2c 62 25  3a e1 0d 10 7c 5a dd f2  |ate",,b%:...|Z..|
00004530  64 65 73 65 6c 28 77 69  6e 25 2c 69 63 6f 6e 25  |desel(win%,icon%|
00004540  29 3a 21 62 25 3d 77 69  6e 25 3a 62 25 21 34 3d  |):!b%=win%:b%!4=|
00004550  69 63 6f 6e 25 3a 62 25  21 38 3d 30 3a 62 25 21  |icon%:b%!8=0:b%!|
00004560  31 32 3d 31 3c 3c 32 31  3a c8 99 22 57 69 6d 70  |12=1<<21:.."Wimp|
00004570  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004580  62 25 3a e1 0d 10 86 55  dd a4 73 65 6c 64 28 77  |b%:....U..seld(w|
00004590  69 6e 25 2c 69 63 6f 6e  25 29 3a 21 62 25 3d 77  |in%,icon%):!b%=w|
000045a0  69 6e 25 3a 62 25 21 34  3d 69 63 6f 6e 25 3a c8  |in%:b%!4=icon%:.|
000045b0  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
000045c0  61 74 65 22 2c 2c 62 25  3a 3d 28 62 25 21 32 34  |ate",,b%:=(b%!24|
000045d0  29 80 28 31 3c 3c 32 31  29 0d 10 90 45 dd f2 73  |).(1<<21)...E..s|
000045e0  61 76 65 75 6e 69 74 73  3a 66 69 25 3d ae 22 45  |aveunits:fi%=."E|
000045f0  6c 65 6d 65 6e 74 73 3a  55 6e 69 74 73 22 3a f1  |lements:Units":.|
00004600  23 66 69 25 2c 53 25 28  31 29 2c 53 25 28 32 29  |#fi%,S%(1),S%(2)|
00004610  2c 53 25 28 33 29 3a d9  23 66 69 25 3a e1 0d 10  |,S%(3):.#fi%:...|
00004620  9a 6d dd f2 73 65 6c 63  75 3a e3 4c 57 25 3d 34  |.m..selcu:.LW%=4|
00004630  b8 31 32 3a f2 64 65 73  65 6c 28 75 6e 69 74 73  |.12:.desel(units|
00004640  25 2c 4c 57 25 29 3a ed  4c 57 25 3a f2 73 65 6c  |%,LW%):.LW%:.sel|
00004650  28 75 6e 69 74 73 25 2c  53 25 28 31 29 2b 33 29  |(units%,S%(1)+3)|
00004660  3a f2 73 65 6c 28 75 6e  69 74 73 25 2c 53 25 28  |:.sel(units%,S%(|
00004670  32 29 2b 38 29 3a f2 73  65 6c 28 75 6e 69 74 73  |2)+8):.sel(units|
00004680  25 2c 53 25 28 33 29 2b  31 30 29 0d 10 a4 06 3a  |%,S%(3)+10)....:|
00004690  e1 0d 10 ae 18 dd f2 64  6f 6d 61 73 73 28 62 75  |.......domass(bu|
000046a0  74 25 29 3a 50 52 25 3d  31 0d 10 b8 29 e3 4c 41  |t%):PR%=1...).LA|
000046b0  25 3d 31 b8 33 30 3a 4d  44 24 28 4c 41 25 29 3d  |%=1.30:MD$(LA%)=|
000046c0  22 22 3a 4d 44 25 28 4c  41 25 29 3d 30 3a ed 4c  |"":MD%(LA%)=0:.L|
000046d0  41 25 0d 10 c2 31 4d 4d  24 3d a4 72 65 61 64 28  |A%...1MM$=.read(|
000046e0  6d 61 73 73 25 2c 31 29  3a 4d 4d 3d 30 3a 42 52  |mass%,1):MM=0:BR|
000046f0  25 3d 2d 31 3a 42 52 52  25 3d a3 3a 4d 44 50 54  |%=-1:BRR%=.:MDPT|
00004700  25 3d 30 0d 10 cc 12 4d  4d 41 25 3d a7 4d 4d 24  |%=0....MMA%=.MM$|
00004710  2c 22 2e 22 29 0d 10 d6  0d e7 4d 4d 41 25 3e 30  |,".").....MMA%>0|
00004720  20 8c 0d 10 e0 15 4d 4d  31 24 3d c0 4d 4d 24 2c  | .....MM1$=.MM$,|
00004730  4d 4d 41 25 2d 31 29 0d  10 ea 1a 4d 4d 32 24 3d  |MMA%-1)....MM2$=|
00004740  c2 4d 4d 24 2c a9 28 4d  4d 24 29 2d 4d 4d 41 25  |.MM$,.(MM$)-MMA%|
00004750  29 0d 10 f4 10 4d 4d 42  25 3d bb 28 4d 4d 32 24  |)....MMB%=.(MM2$|
00004760  29 0d 10 fe 46 4d 4d 43  25 3d 30 3a f5 3a 4d 4d  |)...FMMC%=0:.:MM|
00004770  43 25 2b 3d 31 3a fd 28  c1 4d 4d 32 24 2c 4d 4d  |C%+=1:.(.MM2$,MM|
00004780  43 25 29 3e 3d 22 41 22  80 c1 4d 4d 32 24 2c 4d  |C%)>="A"..MM2$,M|
00004790  4d 43 25 29 3c 3d 22 5a  22 29 84 4d 4d 43 25 3e  |MC%)<="Z").MMC%>|
000047a0  a9 28 4d 4d 32 24 29 0d  11 08 1e 4d 4d 32 24 3d  |.(MM2$)....MM2$=|
000047b0  c2 4d 4d 32 24 2c a9 28  4d 4d 32 24 29 2d 4d 4d  |.MM2$,.(MM2$)-MM|
000047c0  43 25 2b 31 29 0d 11 12  21 4d 4d 24 3d 4d 4d 31  |C%+1)...!MM$=MM1|
000047d0  24 2b 22 28 22 2b 4d 4d  32 24 2b 22 29 22 2b c3  |$+"("+MM2$+")"+.|
000047e0  28 4d 4d 42 25 29 0d 11  1c 05 cd 0d 11 26 11 e3  |(MMB%).......&..|
000047f0  4c 41 25 3d 31 b8 a9 28  4d 4d 24 29 0d 11 30 13  |LA%=1..(MM$)..0.|
00004800  4d 4e 24 3d c1 4d 4d 24  2c 4c 41 25 2c 31 29 0d  |MN$=.MM$,LA%,1).|
00004810  11 3a 2c e7 42 52 52 25  3d b9 20 80 28 4d 4e 24  |.:,.BRR%=. .(MN$|
00004820  3e 3d 22 41 22 80 4d 4e  24 3c 3d 22 5a 22 20 84  |>="A".MN$<="Z" .|
00004830  20 4d 4e 24 3d 22 28 22  29 20 8c 0d 11 44 29 e3  | MN$="(") ...D).|
00004840  4c 42 25 3d 42 52 25 b8  4d 44 50 54 25 3a e7 4d  |LB%=BR%.MDPT%:.M|
00004850  44 25 28 4c 42 25 29 3d  30 3a 4d 44 25 28 4c 42  |D%(LB%)=0:MD%(LB|
00004860  25 29 3d 31 0d 11 4e 12  e7 42 52 56 25 3d 30 3a  |%)=1..N..BRV%=0:|
00004870  42 52 56 25 3d 31 0d 11  58 26 4d 44 25 28 4c 42  |BRV%=1..X&MD%(LB|
00004880  25 29 3d 4d 44 25 28 4c  42 25 29 2a 42 52 56 25  |%)=MD%(LB%)*BRV%|
00004890  3a ed 4c 42 25 3a 42 52  52 25 3d a3 0d 11 62 05  |:.LB%:BRR%=...b.|
000048a0  cd 0d 11 6c 3b e7 4d 4e  24 3e 3d 22 41 22 80 4d  |...l;.MN$>="A".M|
000048b0  4e 24 3c 3d 22 5a 22 3a  4d 44 50 54 25 2b 3d 31  |N$<="Z":MDPT%+=1|
000048c0  3a 4d 44 24 28 4d 44 50  54 25 29 3d 4d 4e 24 3a  |:MD$(MDPT%)=MN$:|
000048d0  4d 44 25 28 4d 44 50 54  25 29 3d 30 0d 11 76 26  |MD%(MDPT%)=0..v&|
000048e0  e7 4d 4e 24 3e 3d 22 61  22 80 4d 4e 24 3c 3d 22  |.MN$>="a".MN$<="|
000048f0  7a 22 3a 4d 44 24 28 4d  44 50 54 25 29 2b 3d 4d  |z":MD$(MDPT%)+=M|
00004900  4e 24 0d 11 80 18 e7 4d  4e 24 3e 3d 22 30 22 80  |N$.....MN$>="0".|
00004910  4d 4e 24 3c 3d 22 39 22  20 8c 0d 11 8a 37 e7 42  |MN$<="9" ....7.B|
00004920  52 52 25 3d a3 3a 4d 44  25 28 4d 44 50 54 25 29  |RR%=.:MD%(MDPT%)|
00004930  3d 4d 44 25 28 4d 44 50  54 25 29 2a 31 30 3a 4d  |=MD%(MDPT%)*10:M|
00004940  44 25 28 4d 44 50 54 25  29 2b 3d bb 28 4d 4e 24  |D%(MDPT%)+=.(MN$|
00004950  29 0d 11 94 25 e7 42 52  52 25 3d b9 3a 42 52 56  |)...%.BRR%=.:BRV|
00004960  25 3d 42 52 56 25 2a 31  30 3a 42 52 56 25 2b 3d  |%=BRV%*10:BRV%+=|
00004970  bb 28 4d 4e 24 29 0d 11  9e 05 cd 0d 11 a8 18 e7  |.(MN$)..........|
00004980  4d 4e 24 3d 22 28 22 3a  42 52 25 3d 4d 44 50 54  |MN$="(":BR%=MDPT|
00004990  25 2b 31 0d 11 b2 1a e7  4d 4e 24 3d 22 29 22 3a  |%+1.....MN$=")":|
000049a0  42 52 52 25 3d b9 3a 42  52 56 25 3d 30 0d 11 bc  |BRR%=.:BRV%=0...|
000049b0  08 ed 4c 41 25 0d 11 c6  0d e7 42 52 52 25 3d b9  |..LA%.....BRR%=.|
000049c0  20 8c 0d 11 d0 29 e3 4c  42 25 3d 42 52 25 b8 4d  | ....).LB%=BR%.M|
000049d0  44 50 54 25 3a e7 4d 44  25 28 4c 42 25 29 3d 30  |DPT%:.MD%(LB%)=0|
000049e0  3a 4d 44 25 28 4c 42 25  29 3d 31 0d 11 da 12 e7  |:MD%(LB%)=1.....|
000049f0  42 52 56 25 3d 30 3a 42  52 56 25 3d 31 0d 11 e4  |BRV%=0:BRV%=1...|
00004a00  26 4d 44 25 28 4c 42 25  29 3d 4d 44 25 28 4c 42  |&MD%(LB%)=MD%(LB|
00004a10  25 29 2a 42 52 56 25 3a  ed 4c 42 25 3a 42 52 52  |%)*BRV%:.LB%:BRR|
00004a20  25 3d a3 0d 11 ee 05 cd  0d 11 f8 10 e3 4c 41 25  |%=...........LA%|
00004a30  3d 31 b8 4d 44 50 54 25  0d 12 02 3a f7 3a f5 3a  |=1.MDPT%...:.:.:|
00004a40  f3 4e 41 24 2c 4e 41 24  2c 4e 42 24 2c 4e 43 24  |.NA$,NA$,NB$,NC$|
00004a50  3a e3 4c 42 25 3d 31 b8  31 36 3a f3 4e 41 24 3a  |:.LB%=1.16:.NA$:|
00004a60  ed 4c 42 25 3a fd 4e 42  24 3d 4d 44 24 28 4c 41  |.LB%:.NB$=MD$(LA|
00004a70  25 29 0d 12 0c 24 4e 43  3d bb 28 4e 43 24 29 3a  |%)...$NC=.(NC$):|
00004a80  e7 4d 44 25 28 4c 41 25  29 3d 30 3a 4d 44 25 28  |.MD%(LA%)=0:MD%(|
00004a90  4c 41 25 29 3d 31 0d 12  16 19 4e 43 3d 4e 43 2a  |LA%)=1....NC=NC*|
00004aa0  4d 44 25 28 4c 41 25 29  3a 4d 4d 2b 3d 4e 43 0d  |MD%(LA%):MM+=NC.|
00004ab0  12 20 08 ed 4c 41 25 0d  12 2a 16 f2 74 6a 28 6d  |. ..LA%..*..tj(m|
00004ac0  61 73 73 25 2c 33 2c c3  28 4d 4d 29 29 0d 12 34  |ass%,3,.(MM))..4|
00004ad0  13 f2 64 65 73 65 6c 28  6d 61 73 73 25 2c 32 29  |..desel(mass%,2)|
00004ae0  0d 12 3e 0b 50 52 25 3d  30 3a e1 0d 12 48 0c dd  |..>.PR%=0:...H..|
00004af0  f2 64 6f 62 6f 6e 64 0d  12 52 09 41 42 25 3d a3  |.dobond..R.AB%=.|
00004b00  0d 12 5c 0c e3 4c 41 25  3d 33 b8 34 0d 12 66 18  |..\..LA%=3.4..f.|
00004b10  4e 41 24 3d a4 72 65 61  64 28 62 6f 6e 64 25 2c  |NA$=.read(bond%,|
00004b20  4c 41 25 29 0d 12 70 4b  f7 3a f5 3a f3 4e 42 24  |LA%)..pK.:.:.NB$|
00004b30  2c 4e 43 24 2c 4e 44 24  3a e3 4c 42 25 3d 31 b8  |,NC$,ND$:.LB%=1.|
00004b40  38 3a f3 4e 45 24 3a ed  4c 42 25 3a e3 4c 42 25  |8:.NE$:.LB%:.LB%|
00004b50  3d 31 b8 39 3a f3 4e 42  24 3a ed 4c 42 25 3a fd  |=1.9:.NB$:.LB%:.|
00004b60  4e 44 24 3d 4e 41 24 84  4e 45 24 3d 22 2a 22 0d  |ND$=NA$.NE$="*".|
00004b70  12 7a 1c e7 4e 45 24 3d  22 2d 33 30 30 22 3a 4e  |.z..NE$="-300":N|
00004b80  45 24 3d 22 22 3a 41 42  25 3d b9 0d 12 84 3d e7  |E$="":AB%=....=.|
00004b90  4e 45 24 3d 22 2a 22 3a  41 42 25 3d b9 3a 8b f2  |NE$="*":AB%=.:..|
00004ba0  74 6a 28 62 6f 6e 64 25  2c 4c 41 25 2b 32 2c 4e  |tj(bond%,LA%+2,N|
00004bb0  43 24 29 3a f2 74 6a 28  62 6f 6e 64 25 2c 4c 41  |C$):.tj(bond%,LA|
00004bc0  25 2b 34 2c 4e 45 24 29  0d 12 8e 08 ed 4c 41 25  |%+4,NE$).....LA%|
00004bd0  0d 12 98 0b e7 ac 41 42  25 20 8c 0d 12 a2 3d 4e  |......AB% ....=N|
00004be0  41 24 3d a4 72 65 61 64  28 62 6f 6e 64 25 2c 37  |A$=.read(bond%,7|
00004bf0  29 3a 45 41 3d bb 28 4e  41 24 29 3a 4e 41 24 3d  |):EA=.(NA$):NA$=|
00004c00  a4 72 65 61 64 28 62 6f  6e 64 25 2c 38 29 3a 45  |.read(bond%,8):E|
00004c10  42 3d bb 28 4e 41 24 29  0d 12 ac 3f 45 41 3d 45  |B=.(NA$)...?EA=E|
00004c20  41 2a 31 30 3a 45 42 3d  45 42 2a 31 30 3a 45 41  |A*10:EB=EB*10:EA|
00004c30  25 3d 45 41 3a 45 42 25  3d 45 42 3a e7 45 41 3e  |%=EA:EB%=EB:.EA>|
00004c40  45 42 3a 45 44 25 3d 45  41 2d 45 42 3a 8b 45 44  |EB:ED%=EA-EB:.ED|
00004c50  25 3d 45 42 2d 45 41 0d  12 b6 3e 4e 41 24 3d c3  |%=EB-EA...>NA$=.|
00004c60  28 45 44 25 29 3a e7 a9  28 4e 41 24 29 3d 32 3a  |(ED%):..(NA$)=2:|
00004c70  4e 42 24 3d c0 4e 41 24  2c 31 29 2b 22 2e 22 2b  |NB$=.NA$,1)+"."+|
00004c80  c2 4e 41 24 2c 31 29 3a  8b 4e 42 24 3d 22 30 2e  |.NA$,1):.NB$="0.|
00004c90  22 2b 4e 41 24 0d 12 c0  15 f2 74 6a 28 62 6f 6e  |"+NA$.....tj(bon|
00004ca0  64 25 2c 31 32 2c 4e 42  24 29 0d 12 ca 28 f5 3a  |d%,12,NB$)...(.:|
00004cb0  f3 4e 41 24 3a fd 4e 41  24 3d 22 fe 22 3a e3 4c  |.NA$:.NA$=".":.L|
00004cc0  41 25 3d 30 b8 45 44 25  3a f3 45 45 25 3a ed 4c  |A%=0.ED%:.EE%:.L|
00004cd0  41 25 0d 12 d4 18 f2 74  6a 28 62 6f 6e 64 25 2c  |A%.....tj(bond%,|
00004ce0  31 34 2c c3 28 45 45 25  29 29 0d 12 de 05 cc 0d  |14,.(EE%))......|
00004cf0  12 e8 25 f2 74 6a 28 62  6f 6e 64 25 2c 31 32 2c  |..%.tj(bond%,12,|
00004d00  22 22 29 3a f2 74 6a 28  62 6f 6e 64 25 2c 31 34  |""):.tj(bond%,14|
00004d10  2c 22 22 29 0d 12 f2 05  cd 0d 12 fc 14 f2 64 65  |,"")..........de|
00004d20  73 65 6c 28 62 6f 6e 64  25 2c 31 37 29 0d 13 06  |sel(bond%,17)...|
00004d30  05 e1 0d 13 10 0a dd f2  6e 65 77 71 0d 13 1a 0c  |........newq....|
00004d40  54 59 25 3d b3 28 34 29  0d 13 24 19 54 5a 25 3d  |TY%=.(4)..$.TZ%=|
00004d50  b3 28 31 30 39 29 3a f2  67 6f 74 6f 28 54 5a 25  |.(109):.goto(TZ%|
00004d60  29 0d 13 2e 10 f3 4e 41  24 2c 4e 42 24 2c 4e 43  |).....NA$,NB$,NC|
00004d70  24 0d 13 38 0b c8 8e 54  59 25 20 ca 0d 13 42 41  |$..8...TY% ...BA|
00004d80  c9 31 3a 51 51 24 3d 22  57 68 61 74 20 69 73 20  |.1:QQ$="What is |
00004d90  74 68 65 20 63 68 65 6d  69 63 61 6c 20 73 79 6d  |the chemical sym|
00004da0  62 6f 6c 20 66 6f 72 20  22 2b 4e 42 24 3a 51 41  |bol for "+NB$:QA|
00004db0  24 3d 4e 43 24 3a 51 42  24 3d 4e 43 24 0d 13 4c  |$=NC$:QB$=NC$..L|
00004dc0  3e c9 32 3a 51 51 24 3d  22 57 68 69 63 68 20 65  |>.2:QQ$="Which e|
00004dd0  6c 65 6d 65 6e 74 20 68  61 73 20 74 68 65 20 73  |lement has the s|
00004de0  79 6d 62 6f 6c 20 22 2b  4e 43 24 3a 51 41 24 3d  |ymbol "+NC$:QA$=|
00004df0  4e 42 24 3a 51 42 24 3d  4e 42 24 0d 13 56 3e c9  |NB$:QB$=NB$..V>.|
00004e00  33 3a 51 51 24 3d 22 57  68 61 74 20 69 73 20 74  |3:QQ$="What is t|
00004e10  68 65 20 61 74 6f 6d 69  63 20 6e 75 6d 62 65 72  |he atomic number|
00004e20  20 6f 66 20 22 2b 4e 42  24 3a 51 41 24 3d 4e 41  | of "+NB$:QA$=NA|
00004e30  24 3a 51 42 24 3d 4e 41  24 0d 13 60 45 c9 34 3a  |$:QB$=NA$..`E.4:|
00004e40  51 51 24 3d 22 57 68 69  63 68 20 65 6c 65 6d 65  |QQ$="Which eleme|
00004e50  6e 74 20 68 61 73 20 74  68 65 20 61 74 6f 6d 69  |nt has the atomi|
00004e60  63 20 6e 75 6d 62 65 72  20 22 2b 4e 41 24 3a 51  |c number "+NA$:Q|
00004e70  41 24 3d 4e 42 24 3a 51  42 24 3d 4e 43 24 0d 13  |A$=NB$:QB$=NC$..|
00004e80  6a 05 cb 0d 13 74 38 51  51 24 3d 51 51 24 2b 22  |j....t8QQ$=QQ$+"|
00004e90  3f 22 3a f2 74 6a 28 71  75 65 73 74 69 6f 6e 25  |?":.tj(question%|
00004ea0  2c 32 2c 51 51 24 29 3a  f2 74 6a 28 71 75 65 73  |,2,QQ$):.tj(ques|
00004eb0  74 69 6f 6e 25 2c 33 2c  22 22 29 0d 13 7e 05 e1  |tion%,3,"")..~..|
00004ec0  0d 13 88 38 dd f2 75 64  73 63 6f 72 65 3a f2 74  |...8..udscore:.t|
00004ed0  6a 28 71 75 65 73 74 69  6f 6e 25 2c 39 2c c3 28  |j(question%,9,.(|
00004ee0  53 43 4f 52 31 25 29 2b  22 2f 22 2b c3 28 53 43  |SCOR1%)+"/"+.(SC|
00004ef0  4f 52 32 25 29 29 3a e1  0d 13 92 09 dd f2 64 6f  |OR2%)):.......do|
00004f00  71 0d 13 9c 1a 41 41 24  3d a4 72 65 61 64 28 71  |q....AA$=.read(q|
00004f10  75 65 73 74 69 6f 6e 25  2c 33 29 0d 13 a6 27 e7  |uestion%,3)...'.|
00004f20  54 59 25 3d 32 84 54 59  25 3d 34 80 a9 28 41 41  |TY%=2.TY%=4..(AA|
00004f30  24 29 3e 33 3a 41 41 24  3d a4 63 76 63 28 41 41  |$)>3:AA$=.cvc(AA|
00004f40  24 29 0d 13 b0 16 e7 41  41 24 3d 51 41 24 84 41  |$).....AA$=QA$.A|
00004f50  41 24 3d 51 42 24 20 8c  0d 13 ba 42 f2 74 6b 28  |A$=QB$ ....B.tk(|
00004f60  71 75 65 73 74 69 6f 6e  25 2c 37 2c 22 73 74 69  |question%,7,"sti|
00004f70  63 6b 22 29 3a f2 74 6a  28 71 75 65 73 74 69 6f  |ck"):.tj(questio|
00004f80  6e 25 2c 36 2c 22 43 6f  72 72 65 63 74 2e 22 29  |n%,6,"Correct.")|
00004f90  3a 53 43 4f 52 31 25 2b  3d 31 0d 13 c4 05 cc 0d  |:SCOR1%+=1......|
00004fa0  13 ce 4b f2 74 6b 28 71  75 65 73 74 69 6f 6e 25  |..K.tk(question%|
00004fb0  2c 37 2c 22 73 63 72 6f  73 73 22 29 3a f2 74 6a  |,7,"scross"):.tj|
00004fc0  28 71 75 65 73 74 69 6f  6e 25 2c 36 2c 22 57 72  |(question%,6,"Wr|
00004fd0  6f 6e 67 2e 20 54 68 65  20 61 6e 73 77 65 72 20  |ong. The answer |
00004fe0  77 61 73 20 22 2b 51 41  24 29 0d 13 d8 05 cd 0d  |was "+QA$)......|
00004ff0  13 e2 5e 53 43 4f 52 32  25 2b 3d 31 3a f2 75 64  |..^SCOR2%+=1:.ud|
00005000  73 63 6f 72 65 3a f2 6e  65 77 71 3a c8 99 22 57  |score:.newq:.."W|
00005010  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00005020  74 69 6f 6e 22 2c 71 75  65 73 74 69 6f 6e 25 2c  |tion",question%,|
00005030  33 2c 2c 2c 2d 31 2c 2d  31 3a f2 64 65 73 65 6c  |3,,,-1,-1:.desel|
00005040  28 71 75 65 73 74 69 6f  6e 25 2c 31 29 0d 13 ec  |(question%,1)...|
00005050  05 e1 0d 13 f6 0e dd a4  63 76 63 28 53 54 24 29  |........cvc(ST$)|
00005060  0d 14 00 37 e7 c0 53 54  24 2c 31 29 3e 3d 22 61  |...7..ST$,1)>="a|
00005070  22 80 c0 53 54 24 2c 31  29 3c 3d 22 7a 22 3a c0  |"..ST$,1)<="z":.|
00005080  53 54 24 2c 31 29 3d bd  28 97 28 c0 53 54 24 2c  |ST$,1)=.(.(.ST$,|
00005090  31 29 29 2d 33 32 29 0d  14 0a 11 e3 4c 41 25 3d  |1))-32).....LA%=|
000050a0  32 b8 a9 28 53 54 24 29  0d 14 14 3f e7 c1 53 54  |2..(ST$)...?..ST|
000050b0  24 2c 4c 41 25 29 3e 3d  22 41 22 80 c1 53 54 24  |$,LA%)>="A"..ST$|
000050c0  2c 4c 41 25 29 3c 3d 22  5a 22 3a c1 53 54 24 2c  |,LA%)<="Z":.ST$,|
000050d0  4c 41 25 29 3d bd 28 97  28 c1 53 54 24 2c 4c 41  |LA%)=.(.(.ST$,LA|
000050e0  25 29 29 2b 33 32 29 0d  14 1e 08 ed 4c 41 25 0d  |%))+32).....LA%.|
000050f0  14 28 08 3d 53 54 24 0d  14 32 05 3a 0d 14 3c 97  |.(.=ST$..2.:..<.|
00005100  dc 31 2c 22 48 79 64 72  6f 67 65 6e 22 2c 22 48  |.1,"Hydrogen","H|
00005110  22 2c 22 31 2e 30 30 37  39 34 22 2c 34 36 2c 2d  |","1.00794",46,-|
00005120  31 2c 31 35 34 2c 2d 33  30 30 2c 2d 33 30 30 2c  |1,154,-300,-300,|
00005130  31 33 31 30 2c 32 2e 31  2c 30 2e 31 2c 2d 32 35  |1310,2.1,0.1,-25|
00005140  39 2c 2d 32 35 32 2c 22  31 34 2e 33 22 2c 34 2c  |9,-252,"14.3",4,|
00005150  22 48 65 6e 72 79 20 43  61 76 65 6e 64 69 73 68  |"Henry Cavendish|
00005160  22 2c 22 42 72 69 74 61  69 6e 22 2c 31 37 36 36  |","Britain",1766|
00005170  2c 22 47 72 65 65 6b 20  27 68 79 64 72 6f 27 20  |,"Greek 'hydro' |
00005180  77 61 74 65 72 20 2b 20  27 67 65 6e 27 20 6d 61  |water + 'gen' ma|
00005190  6b 65 22 0d 14 46 a5 dc  32 2c 22 48 65 6c 69 75  |ke"..F..2,"Heliu|
000051a0  6d 22 2c 22 48 65 22 2c  22 34 2e 30 30 32 36 22  |m","He","4.0026"|
000051b0  2c 31 37 36 2c 30 2c 2d  33 30 30 2c 2d 33 30 30  |,176,0,-300,-300|
000051c0  2c 2d 33 30 30 2c 32 33  37 30 2c 2d 33 30 30 2c  |,-300,2370,-300,|
000051d0  30 2e 31 2c 2d 32 37 30  2c 2d 32 36 39 2c 22 35  |0.1,-270,-269,"5|
000051e0  2e 31 39 22 2c 34 2c 22  57 69 6c 6c 69 61 6d 20  |.19",4,"William |
000051f0  52 61 6d 73 61 79 2c 20  4e 20 4c 61 6e 67 6c 65  |Ramsay, N Langle|
00005200  74 2c 20 50 20 43 6c 65  76 65 22 2c 22 42 72 69  |t, P Cleve","Bri|
00005210  74 61 69 6e 2c 20 53 77  65 64 65 6e 22 2c 31 38  |tain, Sweden",18|
00005220  39 35 2c 22 47 72 65 65  6b 20 27 68 65 6c 6f 73  |95,"Greek 'helos|
00005230  27 20 2d 20 73 75 6e 22  0d 14 50 88 dc 33 2c 22  |' - sun"..P..3,"|
00005240  4c 69 74 68 69 75 6d 22  2c 22 4c 69 22 2c 22 36  |Lithium","Li","6|
00005250  2e 39 34 31 22 2c 31 35  32 2c 31 2c 36 38 2c 2d  |.941",152,1,68,-|
00005260  33 30 30 2c 2d 33 30 30  2c 35 31 39 2c 31 2e 30  |300,-300,519,1.0|
00005270  2c 30 2e 35 2c 31 38 30  2c 31 33 33 30 2c 22 33  |,0.5,180,1330,"3|
00005280  2e 33 39 22 2c 34 2c 22  4a 6f 68 61 6e 6e 20 41  |.39",4,"Johann A|
00005290  72 66 76 65 64 73 6f 6e  22 2c 22 53 77 65 64 65  |rfvedson","Swede|
000052a0  6e 22 2c 31 38 31 37 2c  22 47 72 65 65 6b 20 27  |n",1817,"Greek '|
000052b0  6c 69 74 68 6f 73 27 20  2d 20 73 74 6f 6e 65 22  |lithos' - stone"|
000052c0  0d 14 5a a4 dc 34 2c 22  42 65 72 79 6c 6c 69 75  |..Z..4,"Berylliu|
000052d0  6d 22 2c 22 42 65 22 2c  22 39 2e 30 31 32 31 38  |m","Be","9.01218|
000052e0  22 2c 31 31 32 2c 32 2c  33 35 2c 2d 33 30 30 2c  |",112,2,35,-300,|
000052f0  2d 33 30 30 2c 39 30 30  2c 31 2e 35 2c 31 2e 39  |-300,900,1.5,1.9|
00005300  2c 31 32 38 30 2c 32 34  37 37 2c 22 31 2e 38 32  |,1280,2477,"1.82|
00005310  22 2c 34 2c 22 46 72 69  65 64 72 69 63 68 20 57  |",4,"Friedrich W|
00005320  d6 68 6c 65 72 2c 20 41  20 41 20 42 75 73 73 79  |.hler, A A Bussy|
00005330  22 2c 22 47 65 72 6d 61  6e 79 2c 20 46 72 61 6e  |","Germany, Fran|
00005340  63 65 22 2c 31 38 32 38  2c 22 47 72 65 65 6b 20  |ce",1828,"Greek |
00005350  27 62 65 72 79 6c 6c 69  6f 6e 27 20 2d 20 62 65  |'beryllion' - be|
00005360  72 79 6c 22 0d 14 64 91  dc 35 2c 22 42 6f 72 6f  |ryl"..d..5,"Boro|
00005370  6e 22 2c 22 42 22 2c 22  31 30 2e 38 31 31 22 2c  |n","B","10.811",|
00005380  38 38 2c 33 2c 32 33 2c  2d 33 30 30 2c 2d 33 30  |88,3,23,-300,-30|
00005390  30 2c 37 39 39 2c 32 2e  30 2c 32 2e 33 2c 32 33  |0,799,2.0,2.3,23|
000053a0  30 30 2c 33 39 33 30 2c  22 31 2e 30 33 22 2c 37  |00,3930,"1.03",7|
000053b0  2c 22 44 61 76 79 2c 20  47 61 79 2d 4c 75 73 73  |,"Davy, Gay-Luss|
000053c0  61 63 2c 20 54 68 65 6e  61 72 64 22 2c 22 42 72  |ac, Thenard","Br|
000053d0  69 74 61 69 6e 2c 20 46  72 61 6e 63 65 22 2c 31  |itain, France",1|
000053e0  38 30 36 2c 22 50 65 72  73 69 61 6e 20 27 62 75  |806,"Persian 'bu|
000053f0  72 61 68 27 22 0d 14 6e  85 dc 36 2c 22 43 61 72  |rah'"..n..6,"Car|
00005400  62 6f 6e 22 2c 22 43 22  2c 22 31 32 2e 30 31 31  |bon","C","12.011|
00005410  22 2c 37 31 2c 34 2c 31  36 2c 2d 34 2c 32 36 30  |",71,4,16,-4,260|
00005420  2c 31 30 39 30 2c 32 2e  35 2c 32 2e 32 2c 33 37  |,1090,2.5,2.2,37|
00005430  33 30 2c 34 38 33 30 2c  22 30 2e 37 31 31 22 2c  |30,4830,"0.711",|
00005440  35 2c 22 4b 6e 6f 77 6e  20 74 6f 20 61 6e 63 69  |5,"Known to anci|
00005450  65 6e 74 73 22 2c 2d 33  30 30 2c 2d 33 30 30 2c  |ents",-300,-300,|
00005460  22 4c 61 74 69 6e 20 27  63 61 72 62 6f 27 20 2d  |"Latin 'carbo' -|
00005470  20 63 68 61 72 63 6f 61  6c 22 0d 14 78 8c dc 37  | charcoal"..x..7|
00005480  2c 22 4e 69 74 72 6f 67  65 6e 22 2c 22 4e 22 2c  |,"Nitrogen","N",|
00005490  22 31 34 2e 30 30 36 37  22 2c 37 31 2c 33 2c 31  |"14.0067",71,3,1|
000054a0  36 2c 35 2c 31 33 2c 31  34 30 30 2c 33 2e 30 2c  |6,5,13,1400,3.0,|
000054b0  30 2e 38 2c 2d 32 31 30  2c 2d 31 39 36 2c 22 31  |0.8,-210,-196,"1|
000054c0  2e 30 34 22 2c 32 2c 22  44 61 6e 69 65 6c 20 52  |.04",2,"Daniel R|
000054d0  75 74 68 65 72 66 6f 72  64 22 2c 22 42 72 69 74  |utherford","Brit|
000054e0  61 69 6e 22 2c 31 37 37  32 2c 22 47 72 65 65 6b  |ain",1772,"Greek|
000054f0  20 27 6e 69 74 72 6f 6e  27 20 2d 20 73 61 6c 74  | 'nitron' - salt|
00005500  70 65 74 72 65 22 0d 14  82 ad dc 38 2c 22 4f 78  |petre".....8,"Ox|
00005510  79 67 65 6e 22 2c 22 4f  22 2c 22 31 35 2e 39 39  |ygen","O","15.99|
00005520  39 34 22 2c 36 30 2c 2d  32 2c 31 33 32 2c 2d 33  |94",60,-2,132,-3|
00005530  30 30 2c 2d 33 30 30 2c  31 33 31 30 2c 33 2e 35  |00,-300,1310,3.5|
00005540  2c 31 2e 31 2c 2d 32 31  38 2c 2d 31 38 33 2c 22  |,1.1,-218,-183,"|
00005550  30 2e 39 31 36 22 2c 39  2c 22 4a 6f 73 65 70 68  |0.916",9,"Joseph|
00005560  20 50 72 69 65 73 74 6c  65 79 2c 20 43 61 72 6c  | Priestley, Carl|
00005570  20 57 20 53 63 68 65 65  6c 65 22 2c 22 42 72 69  | W Scheele","Bri|
00005580  74 61 69 6e 2c 20 53 77  65 64 65 6e 22 2c 31 37  |tain, Sweden",17|
00005590  37 34 2c 22 47 72 65 65  6b 20 27 6f 78 79 73 27  |74,"Greek 'oxys'|
000055a0  20 61 63 69 64 20 2b 20  27 67 65 6e 27 20 6d 61  | acid + 'gen' ma|
000055b0  6b 65 22 0d 14 8c 87 dc  39 2c 22 46 6c 75 6f 72  |ke".....9,"Fluor|
000055c0  69 6e 65 22 2c 22 46 22  2c 22 31 38 2e 39 39 38  |ine","F","18.998|
000055d0  34 30 33 22 2c 36 30 2c  2d 31 2c 31 33 33 2c 37  |403",60,-1,133,7|
000055e0  2c 38 2c 31 36 38 30 2c  34 2e 30 2c 31 2e 31 2c  |,8,1680,4.0,1.1,|
000055f0  2d 32 32 30 2c 2d 31 38  38 2c 22 30 2e 38 32 34  |-220,-188,"0.824|
00005600  22 2c 2d 33 30 30 2c 22  48 65 6e 72 69 20 4d 6f  |",-300,"Henri Mo|
00005610  69 73 73 61 6e 22 2c 22  46 72 61 6e 63 65 22 2c  |issan","France",|
00005620  31 38 38 36 2c 22 4c 61  74 69 6e 20 27 66 6c 75  |1886,"Latin 'flu|
00005630  6f 27 20 2d 20 66 6c 6f  77 22 0d 14 96 95 dc 31  |o' - flow".....1|
00005640  30 2c 22 4e 65 6f 6e 22  2c 22 4e 65 22 2c 22 32  |0,"Neon","Ne","2|
00005650  30 2e 31 37 39 37 22 2c  31 36 30 2c 30 2c 2d 33  |0.1797",160,0,-3|
00005660  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 32 30 38  |00,-300,-300,208|
00005670  30 2c 2d 33 30 30 2c 31  2e 32 2c 2d 32 34 39 2c  |0,-300,1.2,-249,|
00005680  2d 32 34 36 2c 22 31 2e  30 33 22 2c 33 2c 22 57  |-246,"1.03",3,"W|
00005690  69 6c 6c 69 61 6d 20 52  61 6d 73 61 79 2c 20 4d  |illiam Ramsay, M|
000056a0  20 57 20 54 72 61 76 65  72 73 22 2c 22 42 72 69  | W Travers","Bri|
000056b0  74 61 69 6e 22 2c 31 38  39 38 2c 22 47 72 65 65  |tain",1898,"Gree|
000056c0  6b 20 27 6e 65 6f 73 27  20 2d 20 6e 65 77 22 0d  |k 'neos' - new".|
000056d0  14 a0 7e dc 31 31 2c 22  53 6f 64 69 75 6d 22 2c  |..~.11,"Sodium",|
000056e0  22 4e 61 22 2c 22 32 32  2e 39 38 39 37 37 22 2c  |"Na","22.98977",|
000056f0  31 38 35 2c 31 2c 39 37  2c 2d 33 30 30 2c 2d 33  |185,1,97,-300,-3|
00005700  30 30 2c 34 39 34 2c 30  2e 39 2c 31 2e 30 2c 39  |00,494,0.9,1.0,9|
00005710  38 2c 38 39 30 2c 22 31  2e 32 33 22 2c 31 2c 22  |8,890,"1.23",1,"|
00005720  48 75 6d 70 68 72 79 20  44 61 76 79 22 2c 22 42  |Humphry Davy","B|
00005730  72 69 74 61 69 6e 22 2c  31 38 30 37 2c 22 45 6e  |ritain",1807,"En|
00005740  67 6c 69 73 68 20 27 73  6f 64 61 27 22 0d 14 aa  |glish 'soda'"...|
00005750  88 dc 31 32 2c 22 4d 61  67 6e 65 73 69 75 6d 22  |..12,"Magnesium"|
00005760  2c 22 4d 67 22 2c 22 32  34 2e 33 30 35 22 2c 31  |,"Mg","24.305",1|
00005770  36 30 2c 31 2c 38 32 2c  32 2c 36 36 2c 37 33 36  |60,1,82,2,66,736|
00005780  2c 31 2e 32 2c 31 2e 37  2c 36 35 30 2c 31 31 31  |,1.2,1.7,650,111|
00005790  30 2c 22 31 2e 30 33 22  2c 34 2c 22 48 75 6d 70  |0,"1.03",4,"Hump|
000057a0  68 72 79 20 44 61 76 79  22 2c 22 42 72 69 74 61  |hry Davy","Brita|
000057b0  69 6e 22 2c 31 38 30 38  2c 22 4d 61 67 6e 65 73  |in",1808,"Magnes|
000057c0  69 61 2c 20 54 68 65 73  73 61 6c 79 2c 20 47 72  |ia, Thessaly, Gr|
000057d0  65 65 63 65 22 0d 14 b4  93 dc 31 33 2c 22 41 6c  |eece".....13,"Al|
000057e0  75 6d 69 6e 69 75 6d 22  2c 22 41 6c 22 2c 22 32  |uminium","Al","2|
000057f0  36 2e 39 38 31 35 34 22  2c 31 34 32 2c 33 2c 35  |6.98154",142,3,5|
00005800  31 2c 2d 33 30 30 2c 2d  33 30 30 2c 35 37 37 2c  |1,-300,-300,577,|
00005810  31 2e 35 2c 32 2e 37 2c  36 36 30 2c 32 34 37 30  |1.5,2.7,660,2470|
00005820  2c 22 30 2e 39 22 2c 33  2c 22 48 61 6e 73 20 43  |,"0.9",3,"Hans C|
00005830  68 72 69 73 74 69 61 6e  20 4f 65 72 73 74 65 64  |hristian Oersted|
00005840  22 2c 22 44 65 6e 6d 61  72 6b 22 2c 31 38 32 35  |","Denmark",1825|
00005850  2c 22 4c 61 74 69 6e 20  27 61 6c 75 6d 65 6e 27  |,"Latin 'alumen'|
00005860  20 2d 20 61 6c 75 6d 22  0d 14 be 85 dc 31 34 2c  | - alum".....14,|
00005870  22 53 69 6c 69 63 6f 6e  22 2c 22 53 69 22 2c 22  |"Silicon","Si","|
00005880  32 38 2e 30 38 35 22 2c  31 31 38 2c 34 2c 34 32  |28.085",118,4,42|
00005890  2c 2d 34 2c 33 38 2c 37  38 36 2c 31 2e 38 2c 32  |,-4,38,786,1.8,2|
000058a0  2e 33 2c 31 34 31 30 2c  32 33 36 30 2c 22 30 2e  |.3,1410,2360,"0.|
000058b0  37 31 31 22 2c 32 2c 22  4a d6 6e 73 20 42 65 72  |711",2,"J.ns Ber|
000058c0  7a 65 6c 69 75 73 22 2c  22 53 77 65 64 65 6e 22  |zelius","Sweden"|
000058d0  2c 31 38 32 33 2c 22 4c  61 74 69 6e 20 27 73 69  |,1823,"Latin 'si|
000058e0  6c 65 78 27 20 2d 20 66  6c 69 6e 74 22 0d 14 c8  |lex' - flint"...|
000058f0  90 dc 31 35 2c 22 50 68  6f 73 70 68 6f 72 75 73  |..15,"Phosphorus|
00005900  22 2c 22 50 22 2c 22 33  30 2e 39 33 37 36 22 2c  |","P","30.9376",|
00005910  2d 33 30 30 2c 33 2c 34  34 2c 35 2c 33 35 2c 31  |-300,3,44,5,35,1|
00005920  30 36 30 2c 32 2e 31 2c  31 2e 38 2c 34 34 2c 32  |060,2.1,1.8,44,2|
00005930  38 30 2c 22 30 2e 37 35  37 22 2c 32 2c 22 48 65  |80,"0.757",2,"He|
00005940  6e 6e 69 67 20 42 72 61  6e 64 22 2c 22 47 65 72  |nnig Brand","Ger|
00005950  6d 61 6e 79 22 2c 31 36  36 39 2c 22 4c 61 74 69  |many",1669,"Lati|
00005960  6e 20 66 72 6f 6d 20 47  72 65 65 6b 20 2d 20 6c  |n from Greek - l|
00005970  69 67 68 74 20 62 65 61  72 69 6e 67 22 0d 14 d2  |ight bearing"...|
00005980  7c dc 31 36 2c 22 53 75  6c 70 68 75 72 22 2c 22  ||.16,"Sulphur","|
00005990  53 22 2c 22 33 32 2e 30  36 36 22 2c 31 30 36 2c  |S","32.066",106,|
000059a0  2d 32 2c 31 38 34 2c 34  2c 33 37 2c 31 30 30 30  |-2,184,4,37,1000|
000059b0  2c 32 2e 35 2c 32 2e 31  2c 31 31 33 2c 34 34 35  |,2.5,2.1,113,445|
000059c0  2c 22 30 2e 37 33 32 22  2c 37 2c 22 4b 6e 6f 77  |,"0.732",7,"Know|
000059d0  6e 20 74 6f 20 61 6e 63  69 65 6e 74 73 22 2c 2d  |n to ancients",-|
000059e0  33 30 30 2c 2d 33 30 30  2c 22 4c 61 74 69 6e 20  |300,-300,"Latin |
000059f0  27 73 75 6c 66 75 72 27  22 0d 14 dc 8e dc 31 37  |'sulfur'".....17|
00005a00  2c 22 43 68 6c 6f 72 69  6e 65 22 2c 22 43 6c 22  |,"Chlorine","Cl"|
00005a10  2c 22 33 35 2e 34 35 33  22 2c 39 31 2c 2d 31 2c  |,"35.453",91,-1,|
00005a20  31 38 31 2c 35 2c 33 34  2c 31 32 36 30 2c 33 2e  |181,5,34,1260,3.|
00005a30  30 2c 31 2e 36 2c 2d 31  30 31 2c 2d 33 35 2c 22  |0,1.6,-101,-35,"|
00005a40  30 2e 34 37 37 22 2c 38  2c 22 43 61 72 6c 20 57  |0.477",8,"Carl W|
00005a50  69 6c 68 65 6c 6d 20 53  63 68 65 65 6c 65 22 2c  |ilhelm Scheele",|
00005a60  22 53 77 65 64 65 6e 22  2c 31 37 37 34 2c 22 47  |"Sweden",1774,"G|
00005a70  72 65 65 6b 20 27 63 68  6c 6f 72 6f 73 27 20 2d  |reek 'chloros' -|
00005a80  20 67 72 65 65 6e 22 0d  14 e6 9b dc 31 38 2c 22  | green".....18,"|
00005a90  41 72 67 6f 6e 22 2c 22  41 72 22 2c 22 33 39 2e  |Argon","Ar","39.|
00005aa0  39 34 38 22 2c 31 37 34  2c 30 2c 2d 33 30 30 2c  |948",174,0,-300,|
00005ab0  31 2c 31 35 34 2c 31 35  32 30 2c 2d 33 30 30 2c  |1,154,1520,-300,|
00005ac0  31 2e 34 2c 2d 31 38 39  2c 2d 31 38 36 2c 22 30  |1.4,-189,-186,"0|
00005ad0  2e 35 31 39 22 2c 33 2c  22 57 69 6c 6c 69 61 6d  |.519",3,"William|
00005ae0  20 52 61 6d 73 61 79 2c  20 42 61 72 6f 6e 20 52  | Ramsay, Baron R|
00005af0  61 79 6c 65 69 67 68 22  2c 22 42 72 69 74 61 69  |ayleigh","Britai|
00005b00  6e 22 2c 31 38 39 34 2c  22 47 72 65 65 6b 20 27  |n",1894,"Greek '|
00005b10  61 72 67 6f 73 27 20 2d  20 69 6e 61 63 74 69 76  |argos' - inactiv|
00005b20  65 22 0d 14 f0 83 dc 31  39 2c 22 50 6f 74 61 73  |e".....19,"Potas|
00005b30  73 69 75 6d 22 2c 22 4b  22 2c 22 33 39 2e 30 39  |sium","K","39.09|
00005b40  38 33 22 2c 32 33 31 2c  31 2c 31 33 33 2c 2d 33  |83",231,1,133,-3|
00005b50  30 30 2c 2d 33 30 30 2c  34 31 38 2c 30 2e 38 2c  |00,-300,418,0.8,|
00005b60  30 2e 39 2c 36 34 2c 37  37 34 2c 22 30 2e 37 35  |0.9,64,774,"0.75|
00005b70  33 22 2c 31 2c 22 48 75  6d 70 68 72 79 20 44 61  |3",1,"Humphry Da|
00005b80  76 79 22 2c 22 42 72 69  74 61 69 6e 22 2c 31 38  |vy","Britain",18|
00005b90  30 37 2c 22 45 6e 67 6c  69 73 68 20 27 70 6f 74  |07,"English 'pot|
00005ba0  61 73 68 27 22 0d 14 fa  84 dc 32 30 2c 22 43 61  |ash'".....20,"Ca|
00005bb0  6c 63 69 75 6d 22 2c 22  43 61 22 2c 22 34 30 2e  |lcium","Ca","40.|
00005bc0  30 38 22 2c 31 39 36 2c  32 2c 39 39 2c 2d 33 30  |08",196,2,99,-30|
00005bd0  30 2c 2d 33 30 30 2c 35  39 30 2c 31 2e 30 2c 31  |0,-300,590,1.0,1|
00005be0  2e 35 2c 38 35 30 2c 31  34 38 37 2c 22 30 2e 36  |.5,850,1487,"0.6|
00005bf0  35 33 22 2c 33 2c 22 48  75 6d 70 68 72 79 20 44  |53",3,"Humphry D|
00005c00  61 76 79 22 2c 22 42 72  69 74 61 69 6e 22 2c 31  |avy","Britain",1|
00005c10  38 30 38 2c 22 4c 61 74  69 6e 20 27 63 61 6c 78  |808,"Latin 'calx|
00005c20  27 20 2d 20 6c 69 6d 65  22 0d 15 04 7f dc 32 31  |' - lime".....21|
00005c30  2c 22 53 63 61 6e 64 69  75 6d 22 2c 22 53 63 22  |,"Scandium","Sc"|
00005c40  2c 22 34 34 2e 39 35 35  39 31 22 2c 31 36 30 2c  |,"44.95591",160,|
00005c50  33 2c 37 33 2c 2d 33 30  30 2c 2d 33 30 30 2c 36  |3,73,-300,-300,6|
00005c60  33 32 2c 31 2e 33 2c 33  2e 30 2c 31 35 34 30 2c  |32,1.3,3.0,1540,|
00005c70  32 37 33 30 2c 22 30 2e  35 35 36 22 2c 34 2c 22  |2730,"0.556",4,"|
00005c80  4c 61 72 73 20 4e 69 6c  73 6f 6e 22 2c 22 53 77  |Lars Nilson","Sw|
00005c90  65 64 65 6e 22 2c 31 38  37 39 2c 22 53 63 61 6e  |eden",1879,"Scan|
00005ca0  64 69 6e 61 76 69 61 22  0d 15 0e 96 dc 32 32 2c  |dinavia".....22,|
00005cb0  22 54 69 74 61 6e 69 75  6d 22 2c 22 54 69 22 2c  |"Titanium","Ti",|
00005cc0  22 34 37 2e 38 38 22 2c  31 34 36 2c 34 2c 36 38  |"47.88",146,4,68|
00005cd0  2c 2d 33 30 30 2c 2d 33  30 30 2c 36 36 31 2c 31  |,-300,-300,661,1|
00005ce0  2e 35 2c 34 2e 35 2c 31  36 37 35 2c 33 32 36 30  |.5,4.5,1675,3260|
00005cf0  2c 22 30 2e 35 32 33 22  2c 34 2c 22 57 69 6c 6c  |,"0.523",4,"Will|
00005d00  69 61 6d 20 47 72 65 67  6f 72 22 2c 22 42 72 69  |iam Gregor","Bri|
00005d10  74 61 69 6e 22 2c 31 37  39 31 2c 22 4c 61 74 69  |tain",1791,"Lati|
00005d20  6e 20 27 74 69 74 61 6e  65 73 27 20 73 6f 6e 73  |n 'titanes' sons|
00005d30  20 6f 66 20 74 68 65 20  65 61 72 74 68 22 0d 15  | of the earth"..|
00005d40  18 8d dc 32 33 2c 22 56  61 6e 61 64 69 75 6d 22  |...23,"Vanadium"|
00005d50  2c 22 56 22 2c 22 35 30  2e 39 34 31 35 22 2c 31  |,"V","50.9415",1|
00005d60  33 31 2c 33 2c 37 34 2c  35 2c 35 39 2c 36 34 38  |31,3,74,5,59,648|
00005d70  2c 31 2e 36 2c 36 2e 30  2c 31 39 30 30 2c 33 30  |,1.6,6.0,1900,30|
00005d80  30 30 2c 22 30 2e 34 38  31 22 2c 31 2c 22 4e 69  |00,"0.481",1,"Ni|
00005d90  6c 73 20 53 65 66 73 74  72 d6 6d 22 2c 22 53 77  |ls Sefstr.m","Sw|
00005da0  65 64 65 6e 22 2c 31 38  33 30 2c 22 56 61 6e 61  |eden",1830,"Vana|
00005db0  64 69 73 20 28 46 72 65  79 61 29 2c 20 4e 6f 72  |dis (Freya), Nor|
00005dc0  73 65 20 67 6f 64 64 65  73 73 22 0d 15 22 88 dc  |se goddess".."..|
00005dd0  32 34 2c 22 43 68 72 6f  6d 69 75 6d 22 2c 22 43  |24,"Chromium","C|
00005de0  72 22 2c 22 35 31 2e 39  39 36 22 2c 31 32 35 2c  |r","51.996",125,|
00005df0  33 2c 36 33 2c 36 2c 35  32 2c 36 35 33 2c 31 2e  |3,63,6,52,653,1.|
00005e00  36 2c 37 2e 32 2c 31 38  39 30 2c 32 34 38 32 2c  |6,7.2,1890,2482,|
00005e10  22 30 2e 34 34 38 22 2c  31 2c 22 4c 6f 75 69 73  |"0.448",1,"Louis|
00005e20  20 56 61 75 71 75 65 6c  69 6e 22 2c 22 46 72 61  | Vauquelin","Fra|
00005e30  6e 63 65 22 2c 31 37 39  37 2c 22 47 72 65 65 6b  |nce",1797,"Greek|
00005e40  20 27 63 68 72 6f 6d 61  27 20 2d 20 63 6f 6c 6f  | 'chroma' - colo|
00005e50  75 72 22 0d 15 2c 84 dc  32 35 2c 22 4d 61 6e 67  |ur"..,..25,"Mang|
00005e60  61 6e 65 73 65 22 2c 22  4d 6e 22 2c 22 35 34 2e  |anese","Mn","54.|
00005e70  39 33 38 22 2c 31 31 32  2c 32 2c 38 30 2c 33 2c  |938",112,2,80,3,|
00005e80  36 36 2c 37 31 36 2c 31  2e 35 2c 37 2e 32 2c 31  |66,716,1.5,7.2,1|
00005e90  32 34 30 2c 32 31 30 30  2c 22 30 2e 34 37 37 22  |240,2100,"0.477"|
00005ea0  2c 32 2c 22 4a 6f 68 61  6e 20 47 61 68 6e 22 2c  |,2,"Johan Gahn",|
00005eb0  22 53 77 65 64 65 6e 22  2c 31 37 37 34 2c 22 4c  |"Sweden",1774,"L|
00005ec0  61 74 69 6e 20 27 6d 61  67 6e 65 73 27 20 2d 20  |atin 'magnes' - |
00005ed0  6d 61 67 6e 65 74 22 0d  15 36 7d dc 32 36 2c 22  |magnet"..6}.26,"|
00005ee0  49 72 6f 6e 22 2c 22 46  65 22 2c 22 35 35 2e 38  |Iron","Fe","55.8|
00005ef0  34 37 22 2c 31 32 33 2c  32 2c 37 34 2c 33 2c 36  |47",123,2,74,3,6|
00005f00  34 2c 37 36 32 2c 31 2e  38 2c 37 2e 39 2c 31 35  |4,762,1.8,7.9,15|
00005f10  33 35 2c 33 30 30 30 2c  22 30 2e 34 34 38 22 2c  |35,3000,"0.448",|
00005f20  31 2c 22 4b 6e 6f 77 6e  20 74 6f 20 61 6e 63 69  |1,"Known to anci|
00005f30  65 6e 74 73 22 2c 2d 33  30 30 2c 2d 33 30 30 2c  |ents",-300,-300,|
00005f40  22 41 6e 67 6c 6f 2d 53  61 78 6f 6e 20 27 69 72  |"Anglo-Saxon 'ir|
00005f50  65 6e 27 22 0d 15 40 85  dc 32 37 2c 22 43 6f 62  |en'"..@..27,"Cob|
00005f60  61 6c 74 22 2c 22 43 6f  22 2c 22 35 38 2e 39 33  |alt","Co","58.93|
00005f70  33 32 22 2c 31 32 35 2c  32 2c 37 32 2c 33 2c 36  |32",125,2,72,3,6|
00005f80  33 2c 37 35 37 2c 31 2e  38 2c 38 2e 39 2c 31 34  |3,757,1.8,8.9,14|
00005f90  39 32 2c 32 39 30 30 2c  22 30 2e 34 33 35 22 2c  |92,2900,"0.435",|
00005fa0  34 2c 22 47 65 6f 72 67  20 42 72 61 6e 64 74 22  |4,"Georg Brandt"|
00005fb0  2c 22 53 77 65 64 65 6e  22 2c 31 37 33 37 2c 22  |,"Sweden",1737,"|
00005fc0  47 65 72 6d 61 6e 20 27  63 6f 62 61 6c 64 27 20  |German 'cobald' |
00005fd0  2d 20 67 6f 62 6c 69 6e  22 0d 15 4a 84 dc 32 38  |- goblin"..J..28|
00005fe0  2c 22 4e 69 63 6b 65 6c  22 2c 22 4e 69 22 2c 22  |,"Nickel","Ni","|
00005ff0  35 38 2e 36 39 22 2c 31  32 34 2c 32 2c 36 39 2c  |58.69",124,2,69,|
00006000  33 2c 2d 33 30 30 2c 37  33 36 2c 31 2e 38 2c 38  |3,-300,736,1.8,8|
00006010  2e 39 2c 31 34 35 33 2c  32 37 33 30 2c 22 30 2e  |.9,1453,2730,"0.|
00006020  34 33 39 22 2c 33 2c 22  41 78 65 6c 20 43 72 6f  |439",3,"Axel Cro|
00006030  6e 73 74 65 64 74 22 2c  22 53 77 65 64 65 6e 22  |nstedt","Sweden"|
00006040  2c 31 37 35 31 2c 22 47  65 72 6d 61 6e 20 27 6b  |,1751,"German 'k|
00006050  75 70 66 65 72 6e 69 63  6b 65 6c 27 22 0d 15 54  |upfernickel'"..T|
00006060  73 dc 32 39 2c 22 43 6f  70 70 65 72 22 2c 22 43  |s.29,"Copper","C|
00006070  75 22 2c 22 36 33 2e 35  34 36 22 2c 31 32 38 2c  |u","63.546",128,|
00006080  31 2c 39 36 2c 32 2c 37  32 2c 37 34 35 2c 31 2e  |1,96,2,72,745,1.|
00006090  39 2c 38 2e 39 2c 31 30  38 33 2c 32 35 39 35 2c  |9,8.9,1083,2595,|
000060a0  22 30 2e 33 38 35 22 2c  33 2c 22 4b 6e 6f 77 6e  |"0.385",3,"Known|
000060b0  20 74 6f 20 61 6e 63 69  65 6e 74 73 22 2c 2d 33  | to ancients",-3|
000060c0  30 30 2c 2d 33 30 30 2c  22 43 79 70 72 75 73 22  |00,-300,"Cyprus"|
000060d0  0d 15 5e 7e dc 33 30 2c  22 5a 69 6e 63 22 2c 22  |..^~.30,"Zinc","|
000060e0  5a 6e 22 2c 22 36 35 2e  33 39 22 2c 31 33 33 2c  |Zn","65.39",133,|
000060f0  32 2c 37 34 2c 2d 33 30  30 2c 2d 33 30 30 2c 39  |2,74,-300,-300,9|
00006100  30 38 2c 31 2e 36 2c 37  2e 31 2c 34 32 30 2c 39  |08,1.6,7.1,420,9|
00006110  30 37 2c 22 30 2e 33 38  35 22 2c 34 2c 22 41 6e  |07,"0.385",4,"An|
00006120  64 72 65 61 73 20 4d 61  72 67 67 72 61 66 22 2c  |dreas Marggraf",|
00006130  22 47 65 72 6d 61 6e 79  22 2c 31 37 34 36 2c 22  |"Germany",1746,"|
00006140  47 65 72 6d 61 6e 20 27  7a 69 6e 6b 27 22 0d 15  |German 'zink'"..|
00006150  68 95 dc 33 31 2c 22 47  61 6c 6c 69 75 6d 22 2c  |h..31,"Gallium",|
00006160  22 47 61 22 2c 22 36 39  2e 37 32 33 22 2c 31 32  |"Ga","69.723",12|
00006170  31 2c 31 2c 38 31 2c 33  2c 36 32 2c 35 37 37 2c  |1,1,81,3,62,577,|
00006180  31 2e 36 2c 35 2e 39 2c  33 30 2c 32 34 30 30 2c  |1.6,5.9,30,2400,|
00006190  22 30 2e 33 38 31 22 2c  33 2c 22 50 61 75 6c 20  |"0.381",3,"Paul |
000061a0  c9 6d 69 6c 65 20 4c 65  63 6f 71 20 64 65 20 42  |.mile Lecoq de B|
000061b0  6f 69 73 62 61 75 64 72  61 6e 22 2c 22 46 72 61  |oisbaudran","Fra|
000061c0  6e 63 65 22 2c 31 38 37  35 2c 22 4c 61 74 69 6e  |nce",1875,"Latin|
000061d0  20 27 67 61 6c 6c 69 61  27 20 2d 20 46 72 61 6e  | 'gallia' - Fran|
000061e0  63 65 22 0d 15 72 86 dc  33 32 2c 22 47 65 72 6d  |ce"..r..32,"Germ|
000061f0  61 6e 69 75 6d 22 2c 22  47 65 22 2c 22 37 32 2e  |anium","Ge","72.|
00006200  36 31 22 2c 31 32 32 2c  34 2c 35 33 2c 2d 33 30  |61",122,4,53,-30|
00006210  30 2c 2d 33 30 30 2c 37  36 32 2c 31 2e 38 2c 35  |0,-300,762,1.8,5|
00006220  2e 33 2c 39 33 37 2c 32  38 33 30 2c 22 30 2e 33  |.3,937,2830,"0.3|
00006230  32 32 22 2c 32 2c 22 43  6c 65 6d 65 6e 73 20 57  |22",2,"Clemens W|
00006240  69 6e 6b 6c 65 72 22 2c  22 47 65 72 6d 61 6e 79  |inkler","Germany|
00006250  22 2c 31 38 38 36 2c 22  4c 61 74 69 6e 20 27 67  |",1886,"Latin 'g|
00006260  65 72 6d 61 6e 69 61 27  22 0d 15 7c 7f dc 33 33  |ermania'"..|..33|
00006270  2c 22 41 72 73 65 6e 69  63 22 2c 22 41 73 22 2c  |,"Arsenic","As",|
00006280  22 37 34 2e 39 32 31 36  22 2c 31 32 35 2c 33 2c  |"74.9216",125,3,|
00006290  35 38 2c 35 2c 34 36 2c  39 36 36 2c 32 2e 30 2c  |58,5,46,966,2.0,|
000062a0  35 2e 37 2c 2d 34 30 30  2c 36 31 33 2c 22 30 2e  |5.7,-400,613,"0.|
000062b0  33 32 36 22 2c 39 2c 22  4b 6e 6f 77 6e 20 74 6f  |326",9,"Known to|
000062c0  20 61 6e 63 69 65 6e 74  73 22 2c 2d 33 30 30 2c  | ancients",-300,|
000062d0  2d 33 30 30 2c 22 4c 61  74 69 6e 20 27 61 72 73  |-300,"Latin 'ars|
000062e0  65 6e 69 63 75 6d 27 22  0d 15 86 89 dc 33 34 2c  |enicum'".....34,|
000062f0  22 53 65 6c 65 6e 69 75  6d 22 2c 22 53 65 22 2c  |"Selenium","Se",|
00006300  22 37 38 2e 39 36 22 2c  31 31 36 2c 2d 32 2c 31  |"78.96",116,-2,1|
00006310  39 31 2c 2d 33 30 30 2c  2d 33 30 30 2c 39 34 31  |91,-300,-300,941|
00006320  2c 32 2e 34 2c 34 2e 38  2c 32 31 37 2c 36 38 35  |,2.4,4.8,217,685|
00006330  2c 22 30 2e 33 32 32 22  2c 34 2c 22 4a d6 6e 73  |,"0.322",4,"J.ns|
00006340  20 42 65 72 7a 65 6c 69  75 73 22 2c 22 53 77 65  | Berzelius","Swe|
00006350  64 65 6e 22 2c 31 38 31  37 2c 22 47 72 65 65 6b  |den",1817,"Greek|
00006360  20 27 73 65 6c 65 6e 65  27 20 2d 20 6d 6f 6f 6e  | 'selene' - moon|
00006370  22 0d 15 90 9e dc 33 35  2c 22 42 72 6f 6d 69 6e  |".....35,"Bromin|
00006380  65 22 2c 22 42 72 22 2c  22 37 39 2e 39 30 39 22  |e","Br","79.909"|
00006390  2c 31 31 34 2c 2d 31 2c  31 39 36 2c 35 2c 34 37  |,114,-1,196,5,47|
000063a0  2c 31 31 34 30 2c 32 2e  38 2c 33 2e 31 2c 2d 37  |,1140,2.8,3.1,-7|
000063b0  2c 35 39 2c 22 30 2e 34  34 38 22 2c 37 2c 22 41  |,59,"0.448",7,"A|
000063c0  6e 74 6f 69 6e 65 20 4a  20 42 61 6c 61 72 64 2c  |ntoine J Balard,|
000063d0  20 43 61 72 6c 20 4a 20  4c d6 77 69 67 22 2c 22  | Carl J L.wig","|
000063e0  46 72 61 6e 63 65 2c 20  47 65 72 6d 61 6e 79 22  |France, Germany"|
000063f0  2c 31 38 32 36 2c 22 47  72 65 65 6b 20 27 62 72  |,1826,"Greek 'br|
00006400  6f 6d 6f 73 27 20 2d 20  73 74 65 6e 63 68 22 0d  |omos' - stench".|
00006410  15 9a 9c dc 33 36 2c 22  4b 72 79 70 74 6f 6e 22  |....36,"Krypton"|
00006420  2c 22 4b 72 22 2c 22 38  33 2e 38 22 2c 32 30 31  |,"Kr","83.8",201|
00006430  2c 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |,0,-300,-300,-30|
00006440  30 2c 31 33 35 30 2c 2d  33 30 30 2c 32 2e 32 2c  |0,1350,-300,2.2,|
00006450  2d 31 35 37 2c 2d 31 35  32 2c 22 30 2e 32 34 37  |-157,-152,"0.247|
00006460  22 2c 33 2c 22 57 69 6c  6c 69 61 6d 20 52 61 6d  |",3,"William Ram|
00006470  73 61 79 2c 20 4d 20 57  20 54 72 61 76 65 72 73  |say, M W Travers|
00006480  22 2c 22 42 72 69 74 61  69 6e 22 2c 31 38 39 38  |","Britain",1898|
00006490  2c 22 47 72 65 65 6b 20  27 6b 72 79 70 74 6f 73  |,"Greek 'kryptos|
000064a0  27 20 2d 20 68 69 64 64  65 6e 22 0d 15 a4 98 dc  |' - hidden".....|
000064b0  33 37 2c 22 52 75 62 69  64 69 75 6d 22 2c 22 52  |37,"Rubidium","R|
000064c0  62 22 2c 22 38 35 2e 34  36 38 22 2c 32 34 36 2c  |b","85.468",246,|
000064d0  31 2c 31 34 37 2c 2d 33  30 30 2c 2d 33 30 30 2c  |1,147,-300,-300,|
000064e0  34 30 32 2c 30 2e 38 2c  31 2e 35 2c 33 39 2c 36  |402,0.8,1.5,39,6|
000064f0  38 38 2c 22 30 2e 33 36  22 2c 31 2c 22 52 6f 62  |88,"0.36",1,"Rob|
00006500  65 72 74 20 42 75 6e 73  65 6e 2c 20 47 75 73 74  |ert Bunsen, Gust|
00006510  61 76 20 4b 69 72 63 68  6f 66 66 22 2c 22 47 65  |av Kirchoff","Ge|
00006520  72 6d 61 6e 79 22 2c 31  38 36 31 2c 22 4c 61 74  |rmany",1861,"Lat|
00006530  69 6e 20 27 72 75 62 69  64 75 73 27 20 2d 20 72  |in 'rubidus' - r|
00006540  65 64 22 0d 15 ae 8d dc  33 38 2c 22 53 74 72 6f  |ed".....38,"Stro|
00006550  6e 74 69 75 6d 22 2c 22  53 72 22 2c 22 38 37 2e  |ntium","Sr","87.|
00006560  36 32 22 2c 32 31 35 2c  32 2c 31 31 32 2c 2d 33  |62",215,2,112,-3|
00006570  30 30 2c 2d 33 30 30 2c  35 34 38 2c 31 2e 30 2c  |00,-300,548,1.0,|
00006580  32 2e 36 2c 37 36 38 2c  31 33 38 30 2c 22 30 2e  |2.6,768,1380,"0.|
00006590  32 38 34 22 2c 33 2c 22  41 20 43 72 61 77 66 6f  |284",3,"A Crawfo|
000065a0  72 64 22 2c 22 42 72 69  74 61 69 6e 22 2c 31 37  |rd","Britain",17|
000065b0  39 30 2c 22 53 74 72 6f  6e 74 69 61 6e 2c 20 53  |90,"Strontian, S|
000065c0  63 6f 74 74 69 73 68 20  76 69 6c 6c 61 67 65 22  |cottish village"|
000065d0  0d 15 b8 94 dc 33 39 2c  22 59 74 74 72 69 75 6d  |.....39,"Yttrium|
000065e0  22 2c 22 59 22 2c 22 38  38 2e 39 30 35 38 22 2c  |","Y","88.9058",|
000065f0  31 38 31 2c 33 2c 38 39  2c 2d 33 30 30 2c 2d 33  |181,3,89,-300,-3|
00006600  30 30 2c 36 33 36 2c 30  2e 32 2c 34 2e 33 2c 31  |00,636,0.2,4.3,1|
00006610  35 30 30 2c 32 39 33 30  2c 22 30 2e 32 39 37 22  |500,2930,"0.297"|
00006620  2c 34 2c 22 4a 6f 68 61  6e 6e 20 47 61 64 6f 6c  |,4,"Johann Gadol|
00006630  69 6e 22 2c 22 46 69 6e  6c 61 6e 64 22 2c 31 37  |in","Finland",17|
00006640  39 34 2c 22 59 74 74 65  72 62 79 2c 20 6e 65 61  |94,"Ytterby, nea|
00006650  72 20 53 74 6f 63 6b 68  6f 6c 6d 2c 20 53 77 65  |r Stockholm, Swe|
00006660  64 65 6e 22 0d 15 c2 97  dc 34 30 2c 22 5a 69 72  |den".....40,"Zir|
00006670  63 6f 6e 69 75 6d 22 2c  22 5a 72 22 2c 22 39 31  |conium","Zr","91|
00006680  2e 32 32 22 2c 31 36 30  2c 34 2c 37 39 2c 2d 33  |.22",160,4,79,-3|
00006690  30 30 2c 2d 33 30 30 2c  36 36 39 2c 31 2e 34 2c  |00,-300,669,1.4,|
000066a0  36 2e 35 2c 31 38 35 30  2c 33 35 38 30 2c 22 30  |6.5,1850,3580,"0|
000066b0  2e 32 37 36 22 2c 34 2c  22 4d 61 72 74 69 6e 20  |.276",4,"Martin |
000066c0  4b 6c 61 70 72 6f 74 68  22 2c 22 47 65 72 6d 61  |Klaproth","Germa|
000066d0  6e 79 22 2c 31 37 38 39  2c 22 50 65 72 73 69 61  |ny",1789,"Persia|
000066e0  6e 20 27 7a 61 72 67 75  6e 27 20 2d 20 67 6f 6c  |n 'zargun' - gol|
000066f0  64 20 63 6f 6c 6f 75 72  65 64 22 0d 15 cc 8f dc  |d coloured".....|
00006700  34 31 2c 22 4e 69 6f 62  69 75 6d 22 2c 22 4e 62  |41,"Niobium","Nb|
00006710  22 2c 22 39 32 2e 39 30  36 34 22 2c 31 34 33 2c  |","92.9064",143,|
00006720  35 2c 36 39 2c 2d 33 30  30 2c 2d 33 30 30 2c 36  |5,69,-300,-300,6|
00006730  35 33 2c 31 2e 36 2c 38  2e 36 2c 32 34 37 30 2c  |53,1.6,8.6,2470,|
00006740  33 33 30 30 2c 22 30 2e  32 36 34 22 2c 31 2c 22  |3300,"0.264",1,"|
00006750  43 68 61 72 6c 65 73 20  48 61 74 63 68 65 74 74  |Charles Hatchett|
00006760  22 2c 22 42 72 69 74 61  69 6e 22 2c 31 38 30 31  |","Britain",1801|
00006770  2c 22 4e 69 6f 62 65 20  28 47 72 65 65 6b 20 6d  |,"Niobe (Greek m|
00006780  79 74 68 6f 6c 6f 67 79  29 22 0d 15 d6 8f dc 34  |ythology)".....4|
00006790  32 2c 22 4d 6f 6c 79 62  64 65 6e 75 6d 22 2c 22  |2,"Molybdenum","|
000067a0  4d 6f 22 2c 22 39 35 2e  39 34 22 2c 31 33 36 2c  |Mo","95.94",136,|
000067b0  34 2c 37 30 2c 36 2c 36  32 2c 36 39 34 2c 31 2e  |4,70,6,62,694,1.|
000067c0  38 2c 31 30 2e 32 2c 32  36 31 30 2c 35 35 36 30  |8,10.2,2610,5560|
000067d0  2c 22 30 2e 32 35 31 22  2c 31 2c 22 43 61 72 6c  |,"0.251",1,"Carl|
000067e0  20 57 69 6c 68 65 6c 6d  20 53 63 68 65 65 6c 65  | Wilhelm Scheele|
000067f0  22 2c 22 53 77 65 64 65  6e 22 2c 31 37 37 38 2c  |","Sweden",1778,|
00006800  22 47 72 65 65 6b 20 27  6d 6f 6c 79 62 64 6f 73  |"Greek 'molybdos|
00006810  27 20 2d 20 6c 65 61 64  22 0d 15 e0 a0 dc 34 33  |' - lead".....43|
00006820  2c 22 54 65 63 68 6e 65  74 69 75 6d 22 2c 22 54  |,"Technetium","T|
00006830  63 22 2c 22 39 38 2e 39  22 2c 31 33 35 2c 37 2c  |c","98.9",135,7,|
00006840  39 38 2c 2d 33 30 30 2c  2d 33 30 30 2c 36 39 39  |98,-300,-300,699|
00006850  2c 31 2e 39 2c 31 31 2e  35 2c 32 32 30 30 2c 33  |,1.9,11.5,2200,3|
00006860  35 30 30 2c 22 30 2e 32  34 33 22 2c 34 2c 22 43  |500,"0.243",4,"C|
00006870  61 72 6c 6f 20 50 65 72  72 69 65 72 2c 20 45 6d  |arlo Perrier, Em|
00006880  69 6c 69 6f 20 53 65 67  72 e8 22 2c 22 49 74 61  |ilio Segr.","Ita|
00006890  6c 79 22 2c 31 39 33 37  2c 22 47 72 65 65 6b 20  |ly",1937,"Greek |
000068a0  27 74 65 63 68 6e 65 74  6f 73 27 20 2d 20 61 72  |'technetos' - ar|
000068b0  74 69 66 69 63 69 61 6c  22 0d 15 ea 84 dc 34 34  |tificial".....44|
000068c0  2c 22 52 75 74 68 65 6e  69 75 6d 22 2c 22 52 75  |,"Ruthenium","Ru|
000068d0  22 2c 22 31 30 31 2e 30  37 22 2c 31 33 33 2c 34  |","101.07",133,4|
000068e0  2c 36 37 2c 2d 33 30 30  2c 2d 33 30 30 2c 37 32  |,67,-300,-300,72|
000068f0  34 2c 32 2e 32 2c 31 32  2e 33 2c 32 35 30 30 2c  |4,2.2,12.3,2500,|
00006900  34 39 30 30 2c 22 30 2e  32 33 38 22 2c 34 2c 22  |4900,"0.238",4,"|
00006910  4b 61 72 6c 20 4b 6c 61  75 73 22 2c 22 52 75 73  |Karl Klaus","Rus|
00006920  73 69 61 22 2c 31 38 34  34 2c 22 52 75 74 68 65  |sia",1844,"Ruthe|
00006930  6e 69 61 2c 20 55 6b 72  61 69 6e 65 22 0d 15 f4  |nia, Ukraine"...|
00006940  90 dc 34 35 2c 22 52 68  6f 64 69 75 6d 22 2c 22  |..45,"Rhodium","|
00006950  52 68 22 2c 22 31 30 32  2e 39 30 35 35 22 2c 31  |Rh","102.9055",1|
00006960  33 34 2c 33 2c 36 38 2c  2d 33 30 30 2c 2d 33 30  |34,3,68,-300,-30|
00006970  30 2c 37 34 35 2c 32 2e  32 2c 31 32 2e 34 2c 31  |0,745,2.2,12.4,1|
00006980  39 37 30 2c 34 35 30 30  2c 22 30 2e 32 34 33 22  |970,4500,"0.243"|
00006990  2c 33 2c 22 57 69 6c 6c  69 61 6d 20 57 6f 6c 6c  |,3,"William Woll|
000069a0  61 73 74 6f 6e 22 2c 22  42 72 69 74 61 69 6e 22  |aston","Britain"|
000069b0  2c 31 38 30 33 2c 22 47  72 65 65 6b 20 27 72 68  |,1803,"Greek 'rh|
000069c0  6f 64 6f 6e 27 20 2d 20  72 6f 73 65 22 0d 15 fe  |odon' - rose"...|
000069d0  8a dc 34 36 2c 22 50 61  6c 6c 61 64 69 75 6d 22  |..46,"Palladium"|
000069e0  2c 22 50 64 22 2c 22 31  30 36 2e 34 32 22 2c 31  |,"Pd","106.42",1|
000069f0  33 37 2c 32 2c 38 30 2c  34 2c 36 35 2c 38 30 33  |37,2,80,4,65,803|
00006a00  2c 32 2e 32 2c 31 32 2e  30 2c 31 35 35 30 2c 33  |,2.2,12.0,1550,3|
00006a10  39 38 30 2c 22 30 2e 32  34 33 22 2c 33 2c 22 57  |980,"0.243",3,"W|
00006a20  69 6c 6c 69 61 6d 20 57  6f 6c 6c 61 73 74 6f 6e  |illiam Wollaston|
00006a30  22 2c 22 42 72 69 74 61  69 6e 22 2c 31 38 30 33  |","Britain",1803|
00006a40  2c 22 50 61 6c 6c 61 73  2c 20 6d 69 6e 6f 72 20  |,"Pallas, minor |
00006a50  70 6c 61 6e 65 74 22 0d  16 08 89 dc 34 37 2c 22  |planet".....47,"|
00006a60  53 69 6c 76 65 72 22 2c  22 41 67 22 2c 22 31 30  |Silver","Ag","10|
00006a70  37 2e 38 36 38 22 2c 31  34 34 2c 31 2c 31 32 36  |7.868",144,1,126|
00006a80  2c 2d 33 30 30 2c 2d 33  30 30 2c 37 33 32 2c 31  |,-300,-300,732,1|
00006a90  2e 39 2c 31 30 2e 35 2c  39 36 31 2c 32 32 31 30  |.9,10.5,961,2210|
00006aa0  2c 22 30 2e 32 33 34 22  2c 33 2c 22 4b 6e 6f 77  |,"0.234",3,"Know|
00006ab0  6e 20 74 6f 20 61 6e 63  69 65 6e 74 73 22 2c 2d  |n to ancients",-|
00006ac0  33 30 30 2c 2d 33 30 30  2c 22 41 6e 67 6c 6f 2d  |300,-300,"Anglo-|
00006ad0  53 61 78 6f 6e 20 27 73  65 6f 6c 66 6f 72 27 22  |Saxon 'seolfor'"|
00006ae0  0d 16 12 91 dc 34 38 2c  22 43 61 64 6d 69 75 6d  |.....48,"Cadmium|
00006af0  22 2c 22 43 64 22 2c 22  31 31 32 2e 34 31 22 2c  |","Cd","112.41",|
00006b00  31 34 38 2c 32 2c 39 37  2c 2d 33 30 30 2c 2d 33  |148,2,97,-300,-3|
00006b10  30 30 2c 38 36 36 2c 31  2e 37 2c 38 2e 36 2c 33  |00,866,1.7,8.6,3|
00006b20  32 31 2c 37 36 35 2c 22  30 2e 32 33 22 2c 34 2c  |21,765,"0.23",4,|
00006b30  22 46 72 69 65 64 72 69  63 68 20 53 74 72 6f 6d  |"Friedrich Strom|
00006b40  65 79 65 72 22 2c 22 47  65 72 6d 61 6e 79 22 2c  |eyer","Germany",|
00006b50  31 38 31 37 2c 22 47 72  65 65 6b 20 27 6b 61 64  |1817,"Greek 'kad|
00006b60  6d 65 69 61 27 20 2d 20  63 61 6c 61 6d 69 6e 65  |meia' - calamine|
00006b70  22 0d 16 1c 85 dc 34 39  2c 22 49 6e 64 69 75 6d  |".....49,"Indium|
00006b80  22 2c 22 49 6e 22 2c 22  31 31 34 2e 38 32 22 2c  |","In","114.82",|
00006b90  31 36 32 2c 33 2c 38 31  2c 2d 33 30 30 2c 2d 33  |162,3,81,-300,-3|
00006ba0  30 30 2c 35 35 36 2c 31  2e 37 2c 37 2e 33 2c 31  |00,556,1.7,7.3,1|
00006bb0  35 37 2c 32 30 30 30 2c  22 30 2e 32 33 38 22 2c  |57,2000,"0.238",|
00006bc0  38 2c 22 46 65 72 64 69  6e 61 6e 64 20 52 65 69  |8,"Ferdinand Rei|
00006bd0  63 68 2c 20 48 20 52 69  63 68 74 65 72 22 2c 22  |ch, H Richter","|
00006be0  47 65 72 6d 61 6e 79 22  2c 31 38 36 33 2c 22 49  |Germany",1863,"I|
00006bf0  6e 64 69 67 6f 22 0d 16  26 7a dc 35 30 2c 22 54  |ndigo"..&z.50,"T|
00006c00  69 6e 22 2c 22 53 6e 22  2c 22 31 31 38 2e 37 31  |in","Sn","118.71|
00006c10  22 2c 31 34 30 2c 32 2c  39 33 2c 34 2c 37 31 2c  |",140,2,93,4,71,|
00006c20  37 30 37 2c 31 2e 38 2c  37 2e 33 2c 32 33 32 2c  |707,1.8,7.3,232,|
00006c30  32 32 37 30 2c 22 30 2e  32 31 38 22 2c 32 2c 22  |2270,"0.218",2,"|
00006c40  4b 6e 6f 77 6e 20 74 6f  20 61 6e 63 69 65 6e 74  |Known to ancient|
00006c50  73 22 2c 2d 33 30 30 2c  2d 33 30 30 2c 22 41 6e  |s",-300,-300,"An|
00006c60  67 6c 6f 2d 53 61 78 6f  6e 20 27 74 69 6e 27 22  |glo-Saxon 'tin'"|
00006c70  0d 16 30 85 dc 35 31 2c  22 41 6e 74 69 6d 6f 6e  |..0..51,"Antimon|
00006c80  79 22 2c 22 53 62 22 2c  22 31 32 31 2e 37 35 22  |y","Sb","121.75"|
00006c90  2c 31 34 35 2c 33 2c 37  36 2c 35 2c 36 32 2c 38  |,145,3,76,5,62,8|
00006ca0  33 33 2c 31 2e 39 2c 36  2e 36 2c 36 33 30 2c 31  |33,1.9,6.6,630,1|
00006cb0  33 38 30 2c 22 30 2e 32  30 39 22 2c 39 2c 22 4b  |380,"0.209",9,"K|
00006cc0  6e 6f 77 6e 20 74 6f 20  61 6e 63 69 65 6e 74 73  |nown to ancients|
00006cd0  22 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 4c 61 74  |",-300,-300,"Lat|
00006ce0  65 20 4c 61 74 69 6e 20  27 61 6e 74 69 6d 6f 6e  |e Latin 'antimon|
00006cf0  69 75 6d 27 22 0d 16 3a  9b dc 35 32 2c 22 54 65  |ium'"..:..52,"Te|
00006d00  6c 6c 75 72 69 75 6d 22  2c 22 54 65 22 2c 22 31  |llurium","Te","1|
00006d10  32 37 2e 36 22 2c 31 34  33 2c 2d 32 2c 32 31 31  |27.6",143,-2,211|
00006d20  2c 2d 33 30 30 2c 2d 33  30 30 2c 38 37 30 2c 32  |,-300,-300,870,2|
00006d30  2e 31 2c 36 2e 32 2c 34  35 30 2c 39 39 30 2c 22  |.1,6.2,450,990,"|
00006d40  30 2e 32 30 31 22 2c 34  2c 22 46 72 61 6e 7a 20  |0.201",4,"Franz |
00006d50  4d dc 6c 6c 65 72 20 76  6f 6e 20 52 65 69 63 68  |M.ller von Reich|
00006d60  65 6e 73 74 65 69 6e 22  2c 22 52 6f 6d 61 6e 69  |enstein","Romani|
00006d70  61 22 2c 31 37 38 32 2c  22 4c 61 74 69 6e 20 27  |a",1782,"Latin '|
00006d80  74 65 6c 6c 75 73 27 20  2d 20 65 61 72 74 68 22  |tellus' - earth"|
00006d90  0d 16 44 8d dc 35 33 2c  22 49 6f 64 69 6e 65 22  |..D..53,"Iodine"|
00006da0  2c 22 49 22 2c 22 31 32  36 2e 39 30 34 35 22 2c  |,"I","126.9045",|
00006db0  31 33 35 2c 2d 31 2c 32  31 36 2c 2d 33 30 30 2c  |135,-1,216,-300,|
00006dc0  2d 33 30 30 2c 31 30 31  30 2c 32 2e 35 2c 34 2e  |-300,1010,2.5,4.|
00006dd0  39 2c 31 31 34 2c 31 38  34 2c 22 30 2e 32 31 38  |9,114,184,"0.218|
00006de0  22 2c 37 2c 22 42 65 72  6e 61 72 64 20 43 6f 75  |",7,"Bernard Cou|
00006df0  72 74 6f 69 73 22 2c 22  46 72 61 6e 63 65 22 2c  |rtois","France",|
00006e00  31 38 31 31 2c 22 47 72  65 65 6b 20 27 69 6f 64  |1811,"Greek 'iod|
00006e10  65 73 27 20 2d 20 76 69  6f 6c 65 74 22 0d 16 4e  |es' - violet"..N|
00006e20  9c dc 35 34 2c 22 58 65  6e 6f 6e 22 2c 22 58 65  |..54,"Xenon","Xe|
00006e30  22 2c 22 31 33 31 2e 32  39 22 2c 32 32 31 2c 30  |","131.29",221,0|
00006e40  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00006e50  31 31 37 30 2c 2d 33 30  30 2c 33 2e 35 2c 2d 31  |1170,-300,3.5,-1|
00006e60  31 32 2c 2d 31 30 38 2c  22 30 2e 31 35 39 22 2c  |12,-108,"0.159",|
00006e70  33 2c 22 57 69 6c 6c 69  61 6d 20 52 61 6d 73 61  |3,"William Ramsa|
00006e80  79 2c 20 4d 20 57 20 54  72 61 76 65 72 73 22 2c  |y, M W Travers",|
00006e90  22 42 72 69 74 61 69 6e  22 2c 31 38 39 38 2c 22  |"Britain",1898,"|
00006ea0  47 72 65 65 6b 20 27 78  65 6e 6f 73 27 20 2d 20  |Greek 'xenos' - |
00006eb0  73 74 72 61 6e 67 65 72  22 0d 16 58 a2 dc 35 35  |stranger"..X..55|
00006ec0  2c 22 43 61 65 73 69 75  6d 22 2c 22 43 73 22 2c  |,"Caesium","Cs",|
00006ed0  22 31 33 32 2e 39 30 35  34 22 2c 32 36 32 2c 31  |"132.9054",262,1|
00006ee0  2c 31 36 37 2c 2d 33 30  30 2c 2d 33 30 30 2c 33  |,167,-300,-300,3|
00006ef0  37 36 2c 30 2e 37 2c 31  2e 39 2c 32 39 2c 36 39  |76,0.7,1.9,29,69|
00006f00  30 2c 22 30 2e 32 33 34  22 2c 31 2c 22 47 75 73  |0,"0.234",1,"Gus|
00006f10  74 61 76 20 4b 69 72 63  68 6f 66 66 2c 20 52 6f  |tav Kirchoff, Ro|
00006f20  62 65 72 74 20 42 75 6e  73 65 6e 22 2c 22 47 65  |bert Bunsen","Ge|
00006f30  72 6d 61 6e 79 22 2c 31  38 36 30 2c 22 4c 61 74  |rmany",1860,"Lat|
00006f40  69 6e 20 27 63 61 65 73  69 75 6d 27 20 2d 20 62  |in 'caesium' - b|
00006f50  6c 75 69 73 68 20 67 72  65 79 22 0d 16 62 87 dc  |luish grey"..b..|
00006f60  35 36 2c 22 42 61 72 69  75 6d 22 2c 22 42 61 22  |56,"Barium","Ba"|
00006f70  2c 22 31 33 37 2e 33 33  22 2c 32 31 37 2c 32 2c  |,"137.33",217,2,|
00006f80  31 33 34 2c 2d 33 30 30  2c 2d 33 30 30 2c 35 30  |134,-300,-300,50|
00006f90  32 2c 30 2e 39 2c 33 2e  35 2c 37 31 34 2c 31 36  |2,0.9,3.5,714,16|
00006fa0  34 30 2c 22 30 2e 31 39  32 22 2c 31 2c 22 48 75  |40,"0.192",1,"Hu|
00006fb0  6d 70 68 72 79 20 44 61  76 79 22 2c 22 42 72 69  |mphry Davy","Bri|
00006fc0  74 61 69 6e 22 2c 31 38  30 38 2c 22 47 72 65 65  |tain",1808,"Gree|
00006fd0  6b 20 27 62 61 72 79 73  27 20 2d 20 68 65 61 76  |k 'barys' - heav|
00006fe0  79 22 0d 16 6c 8c dc 35  37 2c 22 4c 61 6e 74 68  |y"..l..57,"Lanth|
00006ff0  61 6e 75 6d 22 2c 22 4c  61 22 2c 22 31 33 38 2e  |anum","La","138.|
00007000  39 30 35 22 2c 31 38 37  2c 31 2c 31 33 39 2c 33  |905",187,1,139,3|
00007010  2c 31 30 32 2c 35 34 30  2c 31 2e 31 2c 36 2e 32  |,102,540,1.1,6.2|
00007020  2c 39 32 30 2c 33 34 37  30 2c 22 30 2e 32 30 31  |,920,3470,"0.201|
00007030  22 2c 34 2c 22 43 61 72  6c 20 4d 6f 73 73 61 6e  |",4,"Carl Mossan|
00007040  64 65 72 22 2c 22 53 77  65 64 65 6e 22 2c 31 38  |der","Sweden",18|
00007050  33 36 2c 22 47 72 65 65  6b 20 27 6c 61 6e 74 68  |36,"Greek 'lanth|
00007060  61 6e 27 20 2d 20 63 6f  6e 63 65 61 6c 22 0d 16  |an' - conceal"..|
00007070  76 a0 dc 35 38 2c 22 43  65 72 69 75 6d 22 2c 22  |v..58,"Cerium","|
00007080  43 65 22 2c 22 31 34 30  2e 31 31 35 22 2c 31 38  |Ce","140.115",18|
00007090  33 2c 33 2c 31 30 33 2c  34 2c 39 32 2c 36 36 35  |3,3,103,4,92,665|
000070a0  2c 31 2e 31 2c 36 2e 38  2c 37 39 35 2c 33 34 37  |,1.1,6.8,795,347|
000070b0  30 2c 22 30 2e 31 38 34  22 2c 33 2c 22 76 6f 6e  |0,"0.184",3,"von|
000070c0  20 48 69 73 69 6e 67 65  72 2c 20 42 65 72 7a 65  | Hisinger, Berze|
000070d0  6c 69 75 73 2c 20 4b 6c  61 70 72 6f 74 68 22 2c  |lius, Klaproth",|
000070e0  22 53 77 65 64 65 6e 2c  20 47 65 72 6d 61 6e 79  |"Sweden, Germany|
000070f0  22 2c 31 38 30 33 2c 22  43 65 72 65 73 2c 20 6c  |",1803,"Ceres, l|
00007100  61 72 67 65 20 61 73 74  65 72 6f 69 64 22 0d 16  |arge asteroid"..|
00007110  80 a4 dc 35 39 2c 22 50  72 61 73 65 6f 64 79 6d  |...59,"Praseodym|
00007120  69 75 6d 22 2c 22 50 72  22 2c 22 31 34 30 2e 39  |ium","Pr","140.9|
00007130  30 37 37 22 2c 31 38 32  2c 33 2c 31 30 31 2c 2d  |077",182,3,101,-|
00007140  33 30 30 2c 2d 33 30 30  2c 35 35 36 2c 31 2e 31  |300,-300,556,1.1|
00007150  2c 36 2e 38 2c 39 33 35  2c 33 31 33 30 2c 22 30  |,6.8,935,3130,"0|
00007160  2e 31 39 32 22 2c 34 2c  22 43 20 46 20 41 75 65  |.192",4,"C F Aue|
00007170  72 20 76 6f 6e 20 57 65  6c 73 62 61 63 68 22 2c  |r von Welsbach",|
00007180  22 41 75 73 74 72 69 61  22 2c 31 38 38 35 2c 22  |"Austria",1885,"|
00007190  47 6b 20 27 70 72 61 73  69 6f 73 27 20 67 72 65  |Gk 'prasios' gre|
000071a0  65 6e 20 27 64 69 64 79  6d 6f 73 27 20 74 77 69  |en 'didymos' twi|
000071b0  6e 22 0d 16 8a a0 dc 36  30 2c 22 4e 65 6f 64 79  |n".....60,"Neody|
000071c0  6d 69 75 6d 22 2c 22 4e  64 22 2c 22 31 34 34 2e  |mium","Nd","144.|
000071d0  32 34 22 2c 31 38 31 2c  33 2c 31 30 30 2c 2d 33  |24",181,3,100,-3|
000071e0  30 30 2c 2d 33 30 30 2c  36 30 37 2c 31 2e 32 2c  |00,-300,607,1.2,|
000071f0  37 2e 30 2c 31 30 32 30  2c 33 30 33 30 2c 22 30  |7.0,1020,3030,"0|
00007200  2e 31 38 38 22 2c 34 2c  22 43 20 46 20 41 75 65  |.188",4,"C F Aue|
00007210  72 20 76 6f 6e 20 57 65  6c 73 62 61 63 68 22 2c  |r von Welsbach",|
00007220  22 41 75 73 74 72 69 61  22 2c 31 38 38 35 2c 22  |"Austria",1885,"|
00007230  47 72 65 65 6b 20 27 6e  65 6f 73 27 20 6e 65 77  |Greek 'neos' new|
00007240  20 2b 20 27 64 69 64 79  6d 6f 73 27 20 74 77 69  | + 'didymos' twi|
00007250  6e 22 0d 16 94 b0 dc 36  31 2c 22 50 72 6f 6d 65  |n".....61,"Prome|
00007260  74 68 69 75 6d 22 2c 22  50 6d 22 2c 22 31 34 37  |thium","Pm","147|
00007270  22 2c 2d 33 30 30 2c 33  2c 39 38 2c 2d 33 30 30  |",-300,3,98,-300|
00007280  2c 2d 33 30 30 2c 35 35  36 2c 31 2e 32 2c 2d 33  |,-300,556,1.2,-3|
00007290  30 30 2c 31 30 33 30 2c  32 37 33 30 2c 22 30 2e  |00,1030,2730,"0.|
000072a0  31 38 34 22 2c 2d 33 30  30 2c 22 4a 20 4d 61 72  |184",-300,"J Mar|
000072b0  69 6e 73 6b 79 2c 20 4c  20 47 6c 65 6e 64 65 6e  |insky, L Glenden|
000072c0  69 6e 2c 20 43 20 43 6f  72 79 65 6c 6c 22 2c 22  |in, C Coryell","|
000072d0  55 6e 69 74 65 64 20 53  74 61 74 65 73 22 2c 31  |United States",1|
000072e0  39 34 37 2c 22 50 72 6f  6d 65 74 68 65 75 73 20  |947,"Prometheus |
000072f0  28 47 72 65 65 6b 20 6d  79 74 68 6f 6c 6f 67 79  |(Greek mythology|
00007300  29 22 0d 16 9e a0 dc 36  32 2c 22 53 61 6d 61 72  |)".....62,"Samar|
00007310  69 75 6d 22 2c 22 53 6d  22 2c 22 31 35 30 2e 33  |ium","Sm","150.3|
00007320  36 22 2c 31 37 39 2c 33  2c 39 36 2c 2d 33 30 30  |6",179,3,96,-300|
00007330  2c 2d 33 30 30 2c 35 34  30 2c 31 2e 32 2c 37 2e  |,-300,540,1.2,7.|
00007340  35 2c 31 30 37 30 2c 31  39 30 30 2c 22 30 2e 31  |5,1070,1900,"0.1|
00007350  39 37 22 2c 39 2c 22 50  61 75 6c 20 c9 6d 69 6c  |97",9,"Paul .mil|
00007360  65 20 4c 65 63 6f 71 20  64 65 20 42 6f 69 73 62  |e Lecoq de Boisb|
00007370  61 75 64 72 61 6e 22 2c  22 46 72 61 6e 63 65 22  |audran","France"|
00007380  2c 31 38 37 39 2c 22 53  61 6d 61 72 73 6b 69 2c  |,1879,"Samarski,|
00007390  20 52 75 73 73 69 61 6e  20 65 6e 67 69 6e 65 65  | Russian enginee|
000073a0  72 22 0d 16 a8 77 dc 36  33 2c 22 45 75 72 6f 70  |r"...w.63,"Europ|
000073b0  69 75 6d 22 2c 22 45 75  22 2c 22 31 35 31 2e 39  |ium","Eu","151.9|
000073c0  36 22 2c 31 39 38 2c 33  2c 39 35 2c 32 2c 31 30  |6",198,3,95,2,10|
000073d0  39 2c 35 34 38 2c 31 2e  31 2c 35 2e 32 2c 38 32  |9,548,1.1,5.2,82|
000073e0  36 2c 31 34 34 30 2c 22  30 2e 31 33 38 22 2c 31  |6,1440,"0.138",1|
000073f0  2c 22 45 75 67 e8 6e 65  20 44 65 6d 61 72 e7 61  |,"Eug.ne Demar.a|
00007400  79 22 2c 22 46 72 61 6e  63 65 22 2c 31 39 30 31  |y","France",1901|
00007410  2c 22 45 75 72 6f 70 65  22 0d 16 b2 96 dc 36 34  |,"Europe".....64|
00007420  2c 22 47 61 64 6f 6c 69  6e 69 75 6d 22 2c 22 47  |,"Gadolinium","G|
00007430  64 22 2c 22 31 35 37 2e  32 35 22 2c 31 37 38 2c  |d","157.25",178,|
00007440  33 2c 39 34 2c 2d 33 30  30 2c 2d 33 30 30 2c 35  |3,94,-300,-300,5|
00007450  39 34 2c 31 2e 31 2c 38  2e 30 2c 31 33 31 30 2c  |94,1.1,8.0,1310,|
00007460  33 30 30 30 2c 22 30 2e  32 33 34 22 2c 34 2c 22  |3000,"0.234",4,"|
00007470  4a 65 61 6e 20 64 65 20  4d 61 72 69 67 6e 61 63  |Jean de Marignac|
00007480  22 2c 22 53 77 69 74 7a  65 72 6c 61 6e 64 22 2c  |","Switzerland",|
00007490  31 38 38 30 2c 22 47 61  64 6f 6c 69 6e 2c 20 46  |1880,"Gadolin, F|
000074a0  69 6e 6e 69 73 68 20 63  68 65 6d 69 73 74 22 0d  |innish chemist".|
000074b0  16 bc 95 dc 36 35 2c 22  54 65 72 62 69 75 6d 22  |....65,"Terbium"|
000074c0  2c 22 54 62 22 2c 22 31  35 38 2e 39 32 35 33 22  |,"Tb","158.9253"|
000074d0  2c 31 37 37 2c 33 2c 39  32 2c 2d 33 30 30 2c 2d  |,177,3,92,-300,-|
000074e0  33 30 30 2c 36 34 38 2c  31 2e 32 2c 38 2e 33 2c  |300,648,1.2,8.3,|
000074f0  31 33 36 30 2c 32 38 30  30 2c 22 30 2e 31 38 34  |1360,2800,"0.184|
00007500  22 2c 34 2c 22 43 61 72  6c 20 4d 6f 73 73 61 6e  |",4,"Carl Mossan|
00007510  64 65 72 22 2c 22 53 77  65 64 65 6e 22 2c 31 38  |der","Sweden",18|
00007520  34 33 2c 22 59 74 74 65  72 62 79 2c 20 6e 65 61  |43,"Ytterby, nea|
00007530  72 20 53 74 6f 63 6b 68  6f 6c 6d 2c 20 53 77 65  |r Stockholm, Swe|
00007540  64 65 6e 22 0d 16 c6 9a  dc 36 36 2c 22 44 79 73  |den".....66,"Dys|
00007550  70 72 6f 73 69 75 6d 22  2c 22 44 79 22 2c 22 31  |prosium","Dy","1|
00007560  36 32 2e 35 22 2c 31 37  35 2c 33 2c 39 31 2c 2d  |62.5",175,3,91,-|
00007570  33 30 30 2c 2d 33 30 30  2c 36 35 37 2c 31 2e 31  |300,-300,657,1.1|
00007580  2c 38 2e 36 2c 31 34 31  30 2c 32 36 30 30 2c 22  |,8.6,1410,2600,"|
00007590  30 2e 31 37 32 22 2c 39  2c 22 50 61 75 6c 20 c9  |0.172",9,"Paul .|
000075a0  6d 69 6c 65 20 4c 65 63  6f 71 20 64 65 20 42 6f  |mile Lecoq de Bo|
000075b0  69 73 62 61 75 64 72 61  6e 22 2c 22 46 72 61 6e  |isbaudran","Fran|
000075c0  63 65 22 2c 31 38 38 36  2c 22 47 72 65 65 6b 20  |ce",1886,"Greek |
000075d0  27 64 79 73 70 72 6f 73  69 74 6f 73 27 22 0d 16  |'dysprositos'"..|
000075e0  d0 90 dc 36 37 2c 22 48  6f 6c 6d 69 75 6d 22 2c  |...67,"Holmium",|
000075f0  22 48 6f 22 2c 22 31 36  34 2e 39 33 30 33 22 2c  |"Ho","164.9303",|
00007600  31 37 36 2c 33 2c 38 39  2c 2d 33 30 30 2c 2d 33  |176,3,89,-300,-3|
00007610  30 30 2c 35 38 31 2c 31  2e 32 2c 38 2e 38 2c 31  |00,581,1.2,8.8,1|
00007620  34 36 30 2c 32 36 30 30  2c 22 30 2e 31 36 33 22  |460,2600,"0.163"|
00007630  2c 34 2c 22 4a 20 4c 20  53 6f 72 65 74 22 2c 22  |,4,"J L Soret","|
00007640  53 77 69 74 7a 65 72 6c  61 6e 64 22 2c 31 38 37  |Switzerland",187|
00007650  38 2c 22 4c 61 74 69 6e  20 27 68 6f 6d 6c 69 61  |8,"Latin 'homlia|
00007660  27 20 2d 20 53 74 6f 63  6b 68 6f 6c 6d 22 0d 16  |' - Stockholm"..|
00007670  da 92 dc 36 38 2c 22 45  72 62 69 75 6d 22 2c 22  |...68,"Erbium","|
00007680  45 72 22 2c 22 31 36 37  2e 32 36 22 2c 31 37 33  |Er","167.26",173|
00007690  2c 33 2c 38 38 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,3,88,-300,-300,|
000076a0  35 38 39 2c 31 2e 32 2c  39 2e 32 2c 31 35 30 30  |589,1.2,9.2,1500|
000076b0  2c 32 39 30 30 2c 22 30  2e 31 36 37 22 2c 34 2c  |,2900,"0.167",4,|
000076c0  22 43 61 72 6c 20 4d 6f  73 73 61 6e 64 65 72 22  |"Carl Mossander"|
000076d0  2c 22 53 77 65 64 65 6e  22 2c 31 38 34 33 2c 22  |,"Sweden",1843,"|
000076e0  59 74 74 65 72 62 79 2c  20 6e 65 61 72 20 53 74  |Ytterby, near St|
000076f0  6f 63 6b 68 6f 6c 6d 2c  20 53 77 65 64 65 6e 22  |ockholm, Sweden"|
00007700  0d 16 e4 99 dc 36 39 2c  22 54 68 75 6c 69 75 6d  |.....69,"Thulium|
00007710  22 2c 22 54 6d 22 2c 22  31 36 38 2e 39 33 34 32  |","Tm","168.9342|
00007720  22 2c 31 37 34 2c 33 2c  38 37 2c 2d 33 30 30 2c  |",174,3,87,-300,|
00007730  2d 33 30 30 2c 35 39 36  2c 31 2e 32 2c 39 2e 33  |-300,596,1.2,9.3|
00007740  2c 31 35 34 30 2c 31 37  33 30 2c 22 30 2e 31 35  |,1540,1730,"0.15|
00007750  39 22 2c 34 2c 22 50 65  72 20 54 68 65 6f 64 6f  |9",4,"Per Theodo|
00007760  72 20 43 6c 65 76 65 22  2c 22 53 77 65 64 65 6e  |r Cleve","Sweden|
00007770  22 2c 31 38 37 39 2c 22  47 72 65 65 6b 20 2b 20  |",1879,"Greek + |
00007780  52 6f 6d 61 6e 20 27 54  68 75 6c 65 27 20 2d 6e  |Roman 'Thule' -n|
00007790  6f 72 74 68 6c 61 6e 64  22 0d 16 ee 9b dc 37 30  |orthland".....70|
000077a0  2c 22 59 74 74 65 72 62  69 75 6d 22 2c 22 59 62  |,"Ytterbium","Yb|
000077b0  22 2c 22 31 37 33 2e 30  34 22 2c 31 39 33 2c 33  |","173.04",193,3|
000077c0  2c 38 36 2c 2d 33 30 30  2c 2d 33 30 30 2c 35 39  |,86,-300,-300,59|
000077d0  38 2c 31 2e 31 2c 37 2e  30 2c 38 32 34 2c 31 34  |8,1.1,7.0,824,14|
000077e0  33 30 2c 22 30 2e 31 34  36 22 2c 33 2c 22 4a 65  |30,"0.146",3,"Je|
000077f0  61 6e 20 64 65 20 4d 61  72 69 67 6e 61 63 22 2c  |an de Marignac",|
00007800  22 53 77 69 74 7a 65 72  6c 61 6e 64 22 2c 31 38  |"Switzerland",18|
00007810  37 38 2c 22 59 74 74 65  72 62 79 2c 20 6e 65 61  |78,"Ytterby, nea|
00007820  72 20 53 74 6f 63 6b 68  6f 6c 6d 2c 20 53 77 65  |r Stockholm, Swe|
00007830  64 65 6e 22 0d 16 f8 8d  dc 37 31 2c 22 4c 75 74  |den".....71,"Lut|
00007840  65 74 69 75 6d 22 2c 22  4c 75 22 2c 22 31 37 34  |etium","Lu","174|
00007850  2e 39 36 37 22 2c 31 37  33 2c 33 2c 38 35 2c 2d  |.967",173,3,85,-|
00007860  33 30 30 2c 2d 33 30 30  2c 34 38 31 2c 31 2e 32  |300,-300,481,1.2|
00007870  2c 39 2e 38 2c 31 36 35  30 2c 33 33 33 30 2c 22  |,9.8,1650,3330,"|
00007880  30 2e 31 35 35 22 2c 34  2c 22 47 65 6f 72 67 65  |0.155",4,"George|
00007890  73 20 55 72 62 61 69 6e  22 2c 22 46 72 61 6e 63  |s Urbain","Franc|
000078a0  65 22 2c 31 39 30 37 2c  22 4c 61 74 69 6e 20 27  |e",1907,"Latin '|
000078b0  6c 75 74 65 74 69 61 27  20 2d 20 50 61 72 69 73  |lutetia' - Paris|
000078c0  22 0d 17 02 a0 dc 37 32  2c 22 48 61 66 6e 69 75  |".....72,"Hafniu|
000078d0  6d 22 2c 22 48 66 22 2c  22 31 37 38 2e 34 39 22  |m","Hf","178.49"|
000078e0  2c 31 35 38 2c 34 2c 37  38 2c 2d 33 30 30 2c 2d  |,158,4,78,-300,-|
000078f0  33 30 30 2c 35 33 31 2c  31 2e 33 2c 31 33 2e 33  |300,531,1.3,13.3|
00007900  2c 32 32 32 30 2c 35 34  30 30 2c 22 30 2e 31 34  |,2220,5400,"0.14|
00007910  36 22 2c 34 2c 22 44 69  72 6b 20 43 6f 73 74 65  |6",4,"Dirk Coste|
00007920  72 2c 20 47 65 6f 72 67  20 76 6f 6e 20 48 65 76  |r, Georg von Hev|
00007930  65 73 79 22 2c 22 44 65  6e 6d 61 72 6b 22 2c 31  |esy","Denmark",1|
00007940  39 32 33 2c 22 4c 61 74  69 6e 20 27 68 61 66 6e  |923,"Latin 'hafn|
00007950  69 61 27 20 2d 20 43 6f  70 65 6e 68 61 67 65 6e  |ia' - Copenhagen|
00007960  22 0d 17 0c 92 dc 37 33  2c 22 54 61 6e 74 61 6c  |".....73,"Tantal|
00007970  75 6d 22 2c 22 54 61 22  2c 22 31 38 30 2e 39 34  |um","Ta","180.94|
00007980  37 39 22 2c 31 34 33 2c  35 2c 36 38 2c 2d 33 30  |79",143,5,68,-30|
00007990  30 2c 2d 33 30 30 2c 35  37 37 2c 31 2e 35 2c 31  |0,-300,577,1.5,1|
000079a0  36 2e 36 2c 33 30 30 30  2c 35 34 32 30 2c 22 30  |6.6,3000,5420,"0|
000079b0  2e 31 33 38 22 2c 31 2c  22 41 6e 64 65 72 73 20  |.138",1,"Anders |
000079c0  45 6b 65 62 65 72 67 22  2c 22 53 77 65 64 65 6e  |Ekeberg","Sweden|
000079d0  22 2c 31 38 30 32 2c 22  54 61 6e 74 61 6c 75 73  |",1802,"Tantalus|
000079e0  20 28 47 72 65 65 6b 20  6d 79 74 68 6f 6c 6f 67  | (Greek mytholog|
000079f0  79 29 22 0d 17 16 a5 dc  37 34 2c 22 54 75 6e 67  |y)".....74,"Tung|
00007a00  73 74 65 6e 22 2c 22 57  22 2c 22 31 38 33 2e 38  |sten","W","183.8|
00007a10  35 22 2c 31 33 37 2c 36  2c 36 32 2c 2d 33 30 30  |5",137,6,62,-300|
00007a20  2c 2d 33 30 30 2c 37 37  30 2c 31 2e 37 2c 31 39  |,-300,770,1.7,19|
00007a30  2e 34 2c 33 34 31 30 2c  35 39 33 30 2c 22 30 2e  |.4,3410,5930,"0.|
00007a40  31 33 34 22 2c 31 2c 22  46 61 75 73 74 6f 20 61  |134",1,"Fausto a|
00007a50  6e 64 20 4a 75 61 6e 20  4a 6f 73 e9 20 64 65 20  |nd Juan Jos. de |
00007a60  45 6c 68 75 79 61 72 22  2c 22 53 70 61 69 6e 22  |Elhuyar","Spain"|
00007a70  2c 31 37 38 33 2c 22 53  77 65 64 69 73 68 20 27  |,1783,"Swedish '|
00007a80  74 75 6e 67 73 74 65 6e  27 20 2d 20 68 65 61 76  |tungsten' - heav|
00007a90  79 20 73 74 6f 6e 65 22  0d 17 20 91 dc 37 35 2c  |y stone".. ..75,|
00007aa0  22 52 68 65 6e 69 75 6d  22 2c 22 52 65 22 2c 22  |"Rhenium","Re","|
00007ab0  31 38 36 2e 32 30 37 22  2c 31 33 37 2c 34 2c 37  |186.207",137,4,7|
00007ac0  32 2c 2d 33 30 30 2c 2d  33 30 30 2c 37 36 32 2c  |2,-300,-300,762,|
00007ad0  31 2e 39 2c 32 30 2e 35  2c 33 31 38 30 2c 35 36  |1.9,20.5,3180,56|
00007ae0  33 30 2c 22 30 2e 31 33  38 22 2c 34 2c 22 57 20  |30,"0.138",4,"W |
00007af0  4e 6f 64 64 61 63 6b 2c  20 49 20 54 61 63 6b 65  |Noddack, I Tacke|
00007b00  2c 20 4f 20 42 65 72 67  22 2c 22 47 65 72 6d 61  |, O Berg","Germa|
00007b10  6e 79 22 2c 31 39 32 35  2c 22 47 65 72 6d 61 6e  |ny",1925,"German|
00007b20  20 27 52 68 65 69 6e 27  22 0d 17 2a 89 dc 37 36  | 'Rhein'"..*..76|
00007b30  2c 22 4f 73 6d 69 75 6d  22 2c 22 4f 73 22 2c 22  |,"Osmium","Os","|
00007b40  31 39 30 2e 32 22 2c 31  33 35 2c 34 2c 36 39 2c  |190.2",135,4,69,|
00007b50  2d 33 30 30 2c 2d 33 30  30 2c 38 34 31 2c 32 2e  |-300,-300,841,2.|
00007b60  32 2c 32 32 2e 35 2c 33  30 30 30 2c 35 30 30 30  |2,22.5,3000,5000|
00007b70  2c 22 30 2e 31 33 22 2c  34 2c 22 53 6d 69 74 68  |,"0.13",4,"Smith|
00007b80  73 6f 6e 20 54 65 6e 6e  61 6e 74 22 2c 22 42 72  |son Tennant","Br|
00007b90  69 74 61 69 6e 22 2c 31  38 30 34 2c 22 47 72 65  |itain",1804,"Gre|
00007ba0  65 6b 20 27 6f 73 6d 65  27 20 2d 20 6f 64 6f 75  |ek 'osme' - odou|
00007bb0  72 22 0d 17 34 8e dc 37  37 2c 22 49 72 69 64 69  |r"..4..77,"Iridi|
00007bc0  75 6d 22 2c 22 49 72 22  2c 22 31 39 32 2e 32 32  |um","Ir","192.22|
00007bd0  22 2c 31 33 35 2c 34 2c  36 38 2c 2d 33 30 30 2c  |",135,4,68,-300,|
00007be0  2d 33 30 30 2c 38 38 37  2c 32 2e 32 2c 32 32 2e  |-300,887,2.2,22.|
00007bf0  35 2c 32 34 34 30 2c 35  33 30 30 2c 22 30 2e 31  |5,2440,5300,"0.1|
00007c00  33 34 22 2c 33 2c 22 53  6d 69 74 68 73 6f 6e 20  |34",3,"Smithson |
00007c10  54 65 6e 6e 61 6e 74 22  2c 22 42 72 69 74 61 69  |Tennant","Britai|
00007c20  6e 22 2c 31 38 30 34 2c  22 4c 61 74 69 6e 20 27  |n",1804,"Latin '|
00007c30  69 72 69 73 27 20 2d 20  72 61 69 6e 62 6f 77 22  |iris' - rainbow"|
00007c40  0d 17 3e 8b dc 37 38 2c  22 50 6c 61 74 69 6e 75  |..>..78,"Platinu|
00007c50  6d 22 2c 22 50 74 22 2c  22 31 39 35 2e 30 38 22  |m","Pt","195.08"|
00007c60  2c 31 33 38 2c 32 2c 38  30 2c 34 2c 36 35 2c 38  |,138,2,80,4,65,8|
00007c70  36 36 2c 32 2e 32 2c 32  31 2e 34 2c 31 37 36 39  |66,2.2,21.4,1769|
00007c80  2c 34 35 33 30 2c 22 30  2e 31 33 34 22 2c 33 2c  |,4530,"0.134",3,|
00007c90  22 4a 75 6c 69 75 73 20  53 63 61 6c 69 67 65 72  |"Julius Scaliger|
00007ca0  22 2c 22 49 74 61 6c 79  22 2c 31 35 35 37 2c 22  |","Italy",1557,"|
00007cb0  53 70 61 6e 69 73 68 20  27 70 6c 61 74 69 6e 61  |Spanish 'platina|
00007cc0  27 20 2d 20 73 69 6c 76  65 72 22 0d 17 48 80 dc  |' - silver"..H..|
00007cd0  37 39 2c 22 47 6f 6c 64  22 2c 22 41 75 22 2c 22  |79,"Gold","Au","|
00007ce0  31 39 36 2e 39 36 36 35  22 2c 31 34 34 2c 31 2c  |196.9665",144,1,|
00007cf0  31 33 37 2c 33 2c 38 35  2c 38 39 31 2c 32 2e 34  |137,3,85,891,2.4|
00007d00  2c 31 39 2e 33 2c 31 30  36 33 2c 32 39 37 30 2c  |,19.3,1063,2970,|
00007d10  22 30 2e 31 33 22 2c 33  2c 22 4b 6e 6f 77 6e 20  |"0.13",3,"Known |
00007d20  74 6f 20 61 6e 63 69 65  6e 74 73 22 2c 2d 33 30  |to ancients",-30|
00007d30  30 2c 2d 33 30 30 2c 22  41 6e 67 6c 6f 2d 53 61  |0,-300,"Anglo-Sa|
00007d40  78 6f 6e 20 27 67 6f 6c  64 27 22 0d 17 52 82 dc  |xon 'gold'"..R..|
00007d50  38 30 2c 22 4d 65 72 63  75 72 79 22 2c 22 48 67  |80,"Mercury","Hg|
00007d60  22 2c 22 32 30 30 2e 35  39 22 2c 31 35 36 2c 31  |","200.59",156,1|
00007d70  2c 31 32 37 2c 32 2c 31  31 30 2c 31 30 31 30 2c  |,127,2,110,1010,|
00007d80  31 2e 39 2c 31 33 2e 36  2c 2d 33 39 2c 33 35 37  |1.9,13.6,-39,357|
00007d90  2c 22 30 2e 31 33 38 22  2c 39 2c 22 4b 6e 6f 77  |,"0.138",9,"Know|
00007da0  6e 20 74 6f 20 61 6e 63  69 65 6e 74 73 22 2c 2d  |n to ancients",-|
00007db0  33 30 30 2c 2d 33 30 30  2c 22 4d 65 72 63 75 72  |300,-300,"Mercur|
00007dc0  79 2c 20 52 6f 6d 61 6e  20 67 6f 64 22 0d 17 5c  |y, Roman god"..\|
00007dd0  96 dc 38 31 2c 22 54 68  61 6c 6c 69 75 6d 22 2c  |..81,"Thallium",|
00007de0  22 54 6c 22 2c 22 32 30  34 2e 33 38 33 22 2c 31  |"Tl","204.383",1|
00007df0  37 31 2c 31 2c 31 34 37  2c 2d 33 30 30 2c 2d 33  |71,1,147,-300,-3|
00007e00  30 30 2c 35 39 30 2c 31  2e 38 2c 31 31 2e 38 2c  |00,590,1.8,11.8,|
00007e10  33 30 34 2c 31 34 36 30  2c 22 30 2e 31 33 22 2c  |304,1460,"0.13",|
00007e20  34 2c 22 57 69 6c 6c 69  61 6e 20 43 72 6f 6f 6b  |4,"Willian Crook|
00007e30  65 73 22 2c 22 42 72 69  74 61 69 6e 22 2c 31 38  |es","Britain",18|
00007e40  36 31 2c 22 4c 61 74 69  6e 20 27 74 68 61 6c 6c  |61,"Latin 'thall|
00007e50  6f 73 27 20 2d 20 62 75  64 64 69 6e 67 20 74 77  |os' - budding tw|
00007e60  69 67 22 0d 17 66 7c dc  38 32 2c 22 4c 65 61 64  |ig"..f|.82,"Lead|
00007e70  22 2c 22 50 62 22 2c 22  32 30 37 2e 32 22 2c 31  |","Pb","207.2",1|
00007e80  37 34 2c 32 2c 31 32 30  2c 34 2c 38 34 2c 37 31  |74,2,120,4,84,71|
00007e90  36 2c 31 2e 38 2c 31 31  2e 33 2c 33 32 37 2c 31  |6,1.8,11.3,327,1|
00007ea0  37 34 34 2c 22 30 2e 31  33 22 2c 33 2c 22 4b 6e  |744,"0.13",3,"Kn|
00007eb0  6f 77 6e 20 74 6f 20 61  6e 63 69 65 6e 74 73 22  |own to ancients"|
00007ec0  2c 2d 33 30 30 2c 2d 33  30 30 2c 22 41 6e 67 6c  |,-300,-300,"Angl|
00007ed0  6f 2d 53 61 78 6f 6e 20  27 6c 65 61 64 27 22 0d  |o-Saxon 'lead'".|
00007ee0  17 70 75 dc 38 33 2c 22  42 69 73 6d 75 74 68 22  |.pu.83,"Bismuth"|
00007ef0  2c 22 42 69 22 2c 22 32  30 38 2e 39 38 30 34 22  |,"Bi","208.9804"|
00007f00  2c 31 35 35 2c 33 2c 39  36 2c 35 2c 37 34 2c 37  |,155,3,96,5,74,7|
00007f10  37 34 2c 31 2e 39 2c 39  2e 38 2c 32 37 31 2c 31  |74,1.9,9.8,271,1|
00007f20  35 36 30 2c 22 30 2e 31  32 31 22 2c 39 2c 22 4b  |560,"0.121",9,"K|
00007f30  6e 6f 77 6e 20 74 6f 20  61 6e 63 69 65 6e 74 73  |nown to ancients|
00007f40  22 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 47 65 72  |",-300,-300,"Ger|
00007f50  6d 61 6e 22 0d 17 7a 7b  dc 38 34 2c 22 50 6f 6c  |man"..z{.84,"Pol|
00007f60  6f 6e 69 75 6d 22 2c 22  50 6f 22 2c 22 32 31 30  |onium","Po","210|
00007f70  22 2c 31 36 38 2c 32 2c  2d 33 30 30 2c 36 2c 36  |",168,2,-300,6,6|
00007f80  37 2c 38 31 32 2c 32 2e  30 2c 39 2e 34 2c 32 35  |7,812,2.0,9.4,25|
00007f90  34 2c 39 36 30 2c 22 30  2e 31 32 36 22 2c 36 2c  |4,960,"0.126",6,|
00007fa0  22 50 69 65 72 72 65 20  61 6e 64 20 4d 61 72 69  |"Pierre and Mari|
00007fb0  65 20 43 75 72 69 65 22  2c 22 46 72 61 6e 63 65  |e Curie","France|
00007fc0  22 2c 31 38 39 38 2c 22  50 6f 6c 61 6e 64 22 0d  |",1898,"Poland".|
00007fd0  17 84 9d dc 38 35 2c 22  41 73 74 61 74 69 6e 65  |....85,"Astatine|
00007fe0  22 2c 22 41 74 22 2c 22  32 31 30 22 2c 2d 33 30  |","At","210",-30|
00007ff0  30 2c 37 2c 36 32 2c 2d  33 30 30 2c 2d 33 30 30  |0,7,62,-300,-300|
00008000  2c 39 31 37 2c 32 2e 32  2c 2d 33 30 30 2c 33 30  |,917,2.2,-300,30|
00008010  32 2c 33 35 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |2,350,-300,-300,|
00008020  22 43 6f 72 73 6f 6e 2c  20 4d 61 63 4b 65 6e 7a  |"Corson, MacKenz|
00008030  69 65 2c 20 53 65 67 72  e8 22 2c 22 55 6e 69 74  |ie, Segr.","Unit|
00008040  65 64 20 53 74 61 74 65  73 22 2c 31 39 34 30 2c  |ed States",1940,|
00008050  22 47 72 65 65 6b 20 27  61 73 74 61 74 6f 73 27  |"Greek 'astatos'|
00008060  20 2d 20 75 6e 73 74 61  62 6c 65 22 0d 17 8e 82  | - unstable"....|
00008070  dc 38 36 2c 22 52 61 64  6f 6e 22 2c 22 52 6e 22  |.86,"Radon","Rn"|
00008080  2c 22 32 32 32 22 2c 2d  33 30 30 2c 30 2c 2d 33  |,"222",-300,0,-3|
00008090  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 31 30 34  |00,-300,-300,104|
000080a0  30 2c 2d 33 30 30 2c 34  2e 34 2c 2d 37 31 2c 2d  |0,-300,4.4,-71,-|
000080b0  36 32 2c 22 30 2e 30 39  32 22 2c 2d 33 30 30 2c  |62,"0.092",-300,|
000080c0  22 46 72 69 65 64 72 69  63 68 20 45 72 6e 73 74  |"Friedrich Ernst|
000080d0  20 44 6f 72 6e 22 2c 22  47 65 72 6d 61 6e 79 22  | Dorn","Germany"|
000080e0  2c 31 39 30 30 2c 22 52  61 64 69 75 6d 22 0d 17  |,1900,"Radium"..|
000080f0  98 7a dc 38 37 2c 22 46  72 61 6e 63 69 75 6d 22  |.z.87,"Francium"|
00008100  2c 22 46 72 22 2c 22 32  32 33 22 2c 2d 33 30 30  |,"Fr","223",-300|
00008110  2c 31 2c 31 38 37 2c 2d  33 30 30 2c 2d 33 30 30  |,1,187,-300,-300|
00008120  2c 33 38 31 2c 30 2e 37  2c 2d 33 30 30 2c 32 37  |,381,0.7,-300,27|
00008130  2c 36 34 37 2c 2d 33 30  30 2c 2d 33 30 30 2c 22  |,647,-300,-300,"|
00008140  4d 61 72 67 75 65 72 69  74 65 20 50 65 72 65 79  |Marguerite Perey|
00008150  22 2c 22 46 72 61 6e 63  65 22 2c 31 39 33 39 2c  |","France",1939,|
00008160  22 46 72 61 6e 63 65 22  0d 17 a2 90 dc 38 38 2c  |"France".....88,|
00008170  22 52 61 64 69 75 6d 22  2c 22 52 61 22 2c 22 32  |"Radium","Ra","2|
00008180  32 36 22 2c 2d 33 30 30  2c 32 2c 31 34 33 2c 2d  |26",-300,2,143,-|
00008190  33 30 30 2c 2d 33 30 30  2c 35 31 30 2c 30 2e 39  |300,-300,510,0.9|
000081a0  2c 35 2e 30 2c 37 30 30  2c 31 31 34 30 2c 22 30  |,5.0,700,1140,"0|
000081b0  2e 31 32 31 22 2c 2d 33  30 30 2c 22 50 69 65 72  |.121",-300,"Pier|
000081c0  72 65 20 61 6e 64 20 4d  61 72 69 65 20 43 75 72  |re and Marie Cur|
000081d0  69 65 22 2c 22 46 72 61  6e 63 65 22 2c 31 38 39  |ie","France",189|
000081e0  38 2c 22 4c 61 74 69 6e  20 27 72 61 64 69 75 73  |8,"Latin 'radius|
000081f0  27 20 2d 20 72 61 79 22  0d 17 ac 86 dc 38 39 2c  |' - ray".....89,|
00008200  22 41 63 74 69 6e 69 75  6d 22 2c 22 41 63 22 2c  |"Actinium","Ac",|
00008210  22 32 32 37 22 2c 31 38  38 2c 33 2c 31 31 38 2c  |"227",188,3,118,|
00008220  2d 33 30 30 2c 2d 33 30  30 2c 36 36 39 2c 31 2e  |-300,-300,669,1.|
00008230  31 2c 31 30 2e 31 2c 31  30 35 30 2c 33 32 30 30  |1,10.1,1050,3200|
00008240  2c 2d 33 30 30 2c 33 2c  22 41 6e 64 72 e9 20 44  |,-300,3,"Andr. D|
00008250  65 62 69 65 72 6e 65 22  2c 22 46 72 61 6e 63 65  |ebierne","France|
00008260  22 2c 31 38 39 39 2c 22  47 72 65 65 6b 20 27 61  |",1899,"Greek 'a|
00008270  6b 74 69 73 27 20 2d 20  61 20 72 61 79 22 0d 17  |ktis' - a ray"..|
00008280  b6 87 dc 39 30 2c 22 54  68 6f 72 69 75 6d 22 2c  |...90,"Thorium",|
00008290  22 54 68 22 2c 22 32 33  32 2e 30 33 38 31 22 2c  |"Th","232.0381",|
000082a0  31 38 30 2c 34 2c 31 30  32 2c 2d 33 30 30 2c 2d  |180,4,102,-300,-|
000082b0  33 30 30 2c 36 37 34 2c  31 2e 33 2c 31 31 2e 37  |300,674,1.3,11.7|
000082c0  2c 31 37 35 30 2c 33 38  35 30 2c 22 30 2e 31 31  |,1750,3850,"0.11|
000082d0  33 22 2c 33 2c 22 4a d6  6e 73 20 42 65 72 7a 65  |3",3,"J.ns Berze|
000082e0  6c 69 75 73 22 2c 22 53  77 65 64 65 6e 22 2c 31  |lius","Sweden",1|
000082f0  38 32 38 2c 22 54 68 6f  72 2c 20 4e 6f 72 73 65  |828,"Thor, Norse|
00008300  20 67 6f 64 22 0d 17 c0  ad dc 39 31 2c 22 50 72  | god".....91,"Pr|
00008310  6f 74 61 63 74 69 6e 69  75 6d 22 2c 22 50 61 22  |otactinium","Pa"|
00008320  2c 22 32 33 31 22 2c 31  36 30 2c 33 2c 31 31 33  |,"231",160,3,113|
00008330  2c 34 2c 39 38 2c 2d 33  30 30 2c 31 2e 35 2c 31  |,4,98,-300,1.5,1|
00008340  35 2e 34 2c 31 32 33 30  2c 34 30 33 30 2c 22 30  |5.4,1230,4030,"0|
00008350  2e 31 32 31 22 2c 38 2c  22 48 61 68 6e 2c 20 4d  |.121",8,"Hahn, M|
00008360  65 69 74 6e 65 72 2c 20  53 6f 64 64 79 2c 20 43  |eitner, Soddy, C|
00008370  72 61 6e 73 74 6f 6e 22  2c 22 47 65 72 6d 61 6e  |ranston","German|
00008380  79 2c 20 42 72 69 74 61  69 6e 22 2c 31 39 31 37  |y, Britain",1917|
00008390  2c 22 47 72 65 65 6b 20  27 70 72 6f 74 6f 73 27  |,"Greek 'protos'|
000083a0  20 66 69 72 73 74 20 2b  20 61 63 74 69 6e 69 75  | first + actiniu|
000083b0  6d 22 0d 17 ca 81 dc 39  32 2c 22 55 72 61 6e 69  |m".....92,"Urani|
000083c0  75 6d 22 2c 22 55 22 2c  22 32 33 38 2e 30 32 38  |um","U","238.028|
000083d0  39 22 2c 31 33 38 2c 34  2c 39 37 2c 36 2c 38 30  |9",138,4,97,6,80|
000083e0  2c 33 38 35 2c 31 2e 37  2c 31 39 2e 31 2c 31 31  |,385,1.7,19.1,11|
000083f0  33 30 2c 33 38 32 30 2c  22 30 2e 31 31 37 22 2c  |30,3820,"0.117",|
00008400  39 2c 22 4d 61 72 74 69  6e 20 4b 6c 61 70 72 6f  |9,"Martin Klapro|
00008410  74 68 22 2c 22 47 65 72  6d 61 6e 79 22 2c 31 37  |th","Germany",17|
00008420  38 39 2c 22 55 72 61 6e  75 73 2c 20 70 6c 61 6e  |89,"Uranus, plan|
00008430  65 74 22 0d 17 d4 9b dc  39 33 2c 22 4e 65 70 74  |et".....93,"Nept|
00008440  75 6e 69 75 6d 22 2c 22  4e 70 22 2c 22 32 33 37  |unium","Np","237|
00008450  22 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |",-300,-300,-300|
00008460  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008470  31 2e 33 2c 32 30 2e 34  2c 36 34 30 2c 2d 33 30  |1.3,20.4,640,-30|
00008480  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 45 20 4d  |0,-300,-300,"E M|
00008490  20 4d 63 6d 69 6c 6c 61  6e 2c 20 50 20 48 20 41  | Mcmillan, P H A|
000084a0  62 65 6c 73 6f 6e 22 2c  22 55 6e 69 74 65 64 20  |belson","United |
000084b0  53 74 61 74 65 73 22 2c  31 39 34 30 2c 22 4e 65  |States",1940,"Ne|
000084c0  70 74 75 6e 65 2c 20 70  6c 61 6e 65 74 22 0d 17  |ptune, planet"..|
000084d0  de a0 dc 39 34 2c 22 50  6c 75 74 6f 6e 69 75 6d  |...94,"Plutonium|
000084e0  22 2c 22 50 75 22 2c 22  32 34 32 22 2c 2d 33 30  |","Pu","242",-30|
000084f0  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008500  2c 2d 33 30 30 2c 2d 33  30 30 2c 31 2e 33 2c 31  |,-300,-300,1.3,1|
00008510  39 2e 38 2c 36 34 30 2c  33 32 34 30 2c 2d 33 30  |9.8,640,3240,-30|
00008520  30 2c 2d 33 30 30 2c 22  53 65 61 62 6f 72 67 2c  |0,-300,"Seaborg,|
00008530  20 4b 65 6e 6e 65 64 79  2c 20 4d 63 4d 69 6c 6c  | Kennedy, McMill|
00008540  61 6e 2c 20 57 61 68 6c  22 2c 22 55 6e 69 74 65  |an, Wahl","Unite|
00008550  64 20 53 74 61 74 65 73  22 2c 31 39 34 30 2c 22  |d States",1940,"|
00008560  50 6c 75 74 6f 2c 20 70  6c 61 6e 65 74 22 0d 17  |Pluto, planet"..|
00008570  e8 9c dc 39 35 2c 22 41  6d 65 72 69 63 69 75 6d  |...95,"Americium|
00008580  22 2c 22 41 6d 22 2c 22  32 34 33 22 2c 2d 33 30  |","Am","243",-30|
00008590  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
000085a0  2c 2d 33 30 30 2c 2d 33  30 30 2c 31 2e 33 2c 31  |,-300,-300,1.3,1|
000085b0  31 2e 37 2c 31 32 30 30  2c 32 36 30 30 2c 22 30  |1.7,1200,2600,"0|
000085c0  2e 31 34 22 2c 2d 33 30  30 2c 22 53 65 61 62 6f  |.14",-300,"Seabo|
000085d0  72 67 2c 20 4a 61 6d 65  73 2c 20 4d 6f 72 67 61  |rg, James, Morga|
000085e0  6e 2c 20 47 68 69 6f 72  73 6f 22 2c 22 55 6e 69  |n, Ghiorso","Uni|
000085f0  74 65 64 20 53 74 61 74  65 73 22 2c 31 39 34 35  |ted States",1945|
00008600  2c 22 41 6d 65 72 69 63  61 22 0d 17 f2 a8 dc 39  |,"America".....9|
00008610  36 2c 22 43 75 72 69 75  6d 22 2c 22 43 6d 22 2c  |6,"Curium","Cm",|
00008620  22 32 34 37 22 2c 2d 33  30 30 2c 2d 33 30 30 2c  |"247",-300,-300,|
00008630  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |-300,-300,-300,-|
00008640  33 30 30 2c 31 2e 33 2c  2d 33 30 30 2c 2d 33 30  |300,1.3,-300,-30|
00008650  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008660  2c 22 47 20 54 20 53 65  61 62 6f 72 67 2c 20 52  |,"G T Seaborg, R|
00008670  20 41 20 4a 61 6d 65 73  2c 20 41 20 47 68 69 6f  | A James, A Ghio|
00008680  72 73 6f 22 2c 22 55 6e  69 74 65 64 20 53 74 61  |rso","United Sta|
00008690  74 65 73 22 2c 31 39 34  34 2c 22 50 69 65 72 72  |tes",1944,"Pierr|
000086a0  65 20 61 6e 64 20 4d 61  72 69 65 20 43 75 72 69  |e and Marie Curi|
000086b0  65 22 0d 17 fc a7 dc 39  37 2c 22 42 65 72 6b 65  |e".....97,"Berke|
000086c0  6c 69 75 6d 22 2c 22 42  6b 22 2c 22 32 34 39 22  |lium","Bk","249"|
000086d0  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
000086e0  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 31  |-300,-300,-300,1|
000086f0  2e 33 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |.3,-300,-300,-30|
00008700  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 53 65 61  |0,-300,-300,"Sea|
00008710  62 6f 72 67 2c 20 54 68  6f 6d 70 73 6f 6e 2c 20  |borg, Thompson, |
00008720  47 68 69 6f 72 73 6f 22  2c 22 55 6e 69 74 65 64  |Ghiorso","United|
00008730  20 53 74 61 74 65 73 22  2c 31 39 34 39 2c 22 42  | States",1949,"B|
00008740  65 72 6b 65 6c 65 79 2c  20 43 61 6c 69 66 6f 72  |erkeley, Califor|
00008750  6e 69 61 2c 20 55 53 41  22 0d 18 06 a7 dc 39 38  |nia, USA".....98|
00008760  2c 22 43 61 6c 69 66 6f  72 6e 69 75 6d 22 2c 22  |,"Californium","|
00008770  43 66 22 2c 22 32 35 31  22 2c 2d 33 30 30 2c 2d  |Cf","251",-300,-|
00008780  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008790  30 30 2c 2d 33 30 30 2c  31 2e 33 2c 2d 33 30 30  |00,-300,1.3,-300|
000087a0  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
000087b0  2d 33 30 30 2c 22 53 65  61 62 6f 72 67 2c 20 54  |-300,"Seaborg, T|
000087c0  68 6f 6d 70 73 6f 6e 2c  20 47 68 69 6f 72 73 6f  |hompson, Ghiorso|
000087d0  2c 20 53 74 72 65 65 74  22 2c 22 55 6e 69 74 65  |, Street","Unite|
000087e0  64 20 53 74 61 74 65 73  22 2c 31 39 35 30 2c 22  |d States",1950,"|
000087f0  43 61 6c 69 66 6f 72 6e  69 61 2c 20 55 53 41 22  |California, USA"|
00008800  0d 18 10 a4 dc 39 39 2c  22 45 69 6e 73 74 65 69  |.....99,"Einstei|
00008810  6e 69 75 6d 22 2c 22 45  73 22 2c 22 32 35 34 22  |nium","Es","254"|
00008820  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008830  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 31  |-300,-300,-300,1|
00008840  2e 33 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |.3,-300,-300,-30|
00008850  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 41 72 67  |0,-300,-300,"Arg|
00008860  6f 6e 6e 65 2c 20 4c 6f  73 20 41 6c 61 6d 6f 73  |onne, Los Alamos|
00008870  2c 20 55 20 6f 66 20 43  61 6c 69 66 22 2c 22 55  |, U of Calif","U|
00008880  6e 69 74 65 64 20 53 74  61 74 65 73 22 2c 31 39  |nited States",19|
00008890  35 32 2c 22 41 6c 62 65  72 74 20 45 69 6e 73 74  |52,"Albert Einst|
000088a0  65 69 6e 22 0d 18 1a 9e  dc 31 30 30 2c 22 46 65  |ein".....100,"Fe|
000088b0  72 6d 69 75 6d 22 2c 22  46 6d 22 2c 22 32 35 33  |rmium","Fm","253|
000088c0  22 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |",-300,-300,-300|
000088d0  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
000088e0  31 2e 33 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |1.3,-300,-300,-3|
000088f0  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 22 41 72  |00,-300,-300,"Ar|
00008900  67 6f 6e 6e 65 2c 20 4c  6f 73 20 41 6c 61 6d 6f  |gonne, Los Alamo|
00008910  73 2c 20 55 20 6f 66 20  43 61 6c 69 66 22 2c 22  |s, U of Calif","|
00008920  55 6e 69 74 65 64 20 53  74 61 74 65 73 22 2c 31  |United States",1|
00008930  39 35 33 2c 22 45 6e 72  69 63 6f 20 46 65 72 6d  |953,"Enrico Ferm|
00008940  69 22 0d 18 24 ae dc 31  30 31 2c 22 4d 65 6e 64  |i"..$..101,"Mend|
00008950  65 6c 65 76 69 75 6d 22  2c 22 4d 64 22 2c 22 32  |elevium","Md","2|
00008960  35 36 22 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |56",-300,-300,-3|
00008970  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |00,-300,-300,-30|
00008980  30 2c 31 2e 33 2c 2d 33  30 30 2c 2d 33 30 30 2c  |0,1.3,-300,-300,|
00008990  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 22  |-300,-300,-300,"|
000089a0  53 65 61 62 6f 72 67 2c  20 48 61 72 76 65 79 2c  |Seaborg, Harvey,|
000089b0  20 43 68 6f 70 70 69 6e  20 65 74 63 2e 22 2c 22  | Choppin etc.","|
000089c0  55 6e 69 74 65 64 20 53  74 61 74 65 73 22 2c 31  |United States",1|
000089d0  39 35 35 2c 22 4d 65 6e  64 65 6c e9 65 76 2c 20  |955,"Mendel.ev, |
000089e0  52 75 73 73 69 61 6e 20  63 68 65 6d 69 73 74 22  |Russian chemist"|
000089f0  0d 18 2e b4 dc 31 30 32  2c 22 4e 6f 62 65 6c 69  |.....102,"Nobeli|
00008a00  75 6d 22 2c 22 4e 6f 22  2c 22 32 35 33 22 2c 2d  |um","No","253",-|
00008a10  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008a20  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 31 2e 33  |00,-300,-300,1.3|
00008a30  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008a40  2d 33 30 30 2c 2d 33 30  30 2c 22 47 68 69 6f 72  |-300,-300,"Ghior|
00008a50  73 6f 2c 20 53 65 61 62  6f 72 67 2c 20 53 69 6b  |so, Seaborg, Sik|
00008a60  6b 65 6c 61 6e 64 2c 20  57 61 6c 74 6f 6e 22 2c  |keland, Walton",|
00008a70  22 55 6e 69 74 65 64 20  53 74 61 74 65 73 22 2c  |"United States",|
00008a80  31 39 35 38 2c 22 41 6c  66 72 65 64 20 4e 6f 62  |1958,"Alfred Nob|
00008a90  65 6c 2c 20 53 77 65 64  69 73 68 20 63 68 65 6d  |el, Swedish chem|
00008aa0  69 73 74 22 0d 18 38 b5  dc 31 30 33 2c 22 4c 61  |ist"..8..103,"La|
00008ab0  77 72 65 6e 63 69 75 6d  22 2c 22 4c 72 22 2c 22  |wrencium","Lr","|
00008ac0  32 35 37 22 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |257",-300,-300,-|
00008ad0  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008ae0  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |00,-300,-300,-30|
00008af0  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008b00  2c 22 47 68 69 6f 72 73  6f 2c 20 53 69 6b 6b 65  |,"Ghiorso, Sikke|
00008b10  6c 61 6e 64 2c 20 4c 61  72 73 68 2c 20 4c 61 74  |land, Larsh, Lat|
00008b20  69 6d 65 72 22 2c 22 55  6e 69 74 65 64 20 53 74  |imer","United St|
00008b30  61 74 65 73 22 2c 31 39  36 31 2c 22 4c 61 77 72  |ates",1961,"Lawr|
00008b40  65 6e 63 65 2c 20 41 6d  65 72 69 63 61 6e 20 70  |ence, American p|
00008b50  68 79 73 69 63 69 73 74  22 0d 18 42 af dc 31 30  |hysicist"..B..10|
00008b60  34 2c 22 55 6e 6e 69 6c  71 75 61 64 69 75 6d 22  |4,"Unnilquadium"|
00008b70  2c 22 55 6e 71 22 2c 22  32 36 31 22 2c 2d 33 30  |,"Unq","261",-30|
00008b80  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008b90  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008ba0  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |-300,-300,-300,-|
00008bb0  33 30 30 2c 2d 33 30 30  2c 22 4e 75 63 6c 65 61  |300,-300,"Nuclea|
00008bc0  72 20 52 65 73 65 61 72  63 68 20 49 6e 73 74 69  |r Research Insti|
00008bd0  74 75 74 65 2c 20 44 75  62 6e 61 22 2c 22 52 75  |tute, Dubna","Ru|
00008be0  73 73 69 61 22 2c 31 39  36 34 2c 22 27 55 6e 27  |ssia",1964,"'Un'|
00008bf0  20 31 20 2b 20 27 6e 69  6c 27 20 30 20 2b 20 27  | 1 + 'nil' 0 + '|
00008c00  71 75 61 64 27 20 34 22  0d 18 4c af dc 31 30 35  |quad' 4"..L..105|
00008c10  2c 22 55 6e 6e 69 6c 70  65 6e 74 69 75 6d 22 2c  |,"Unnilpentium",|
00008c20  22 55 6e 70 22 2c 22 32  36 32 22 2c 2d 33 30 30  |"Unp","262",-300|
00008c30  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008c40  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |-300,-300,-300,-|
00008c50  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008c60  30 30 2c 2d 33 30 30 2c  22 4e 75 63 6c 65 61 72  |00,-300,"Nuclear|
00008c70  20 52 65 73 65 61 72 63  68 20 49 6e 73 74 69 74  | Research Instit|
00008c80  75 74 65 2c 20 44 75 62  6e 61 22 2c 22 52 75 73  |ute, Dubna","Rus|
00008c90  73 69 61 22 2c 31 39 36  37 2c 22 27 55 6e 27 20  |sia",1967,"'Un' |
00008ca0  31 20 2b 20 27 6e 69 6c  27 20 30 20 2b 20 27 70  |1 + 'nil' 0 + 'p|
00008cb0  65 6e 74 27 20 35 22 0d  18 56 b5 dc 31 30 36 2c  |ent' 5"..V..106,|
00008cc0  22 55 6e 6e 69 6c 68 65  78 69 75 6d 22 2c 22 55  |"Unnilhexium","U|
00008cd0  6e 68 22 2c 22 32 36 33  22 2c 2d 33 30 30 2c 2d  |nh","263",-300,-|
00008ce0  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008cf0  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |00,-300,-300,-30|
00008d00  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008d10  2c 2d 33 30 30 2c 22 55  6e 69 76 65 72 73 69 74  |,-300,"Universit|
00008d20  79 20 6f 66 20 43 61 6c  69 66 6f 72 6e 69 61 2c  |y of California,|
00008d30  20 42 65 72 6b 65 6c 65  79 22 2c 22 55 6e 69 74  | Berkeley","Unit|
00008d40  65 64 20 53 74 61 74 65  73 22 2c 31 39 37 34 2c  |ed States",1974,|
00008d50  22 27 55 6e 27 20 31 20  2b 20 27 6e 69 6c 27 20  |"'Un' 1 + 'nil' |
00008d60  30 20 2b 20 27 68 65 78  27 20 36 22 0d 18 60 af  |0 + 'hex' 6"..`.|
00008d70  dc 31 30 37 2c 22 55 6e  6e 69 6c 73 65 70 74 69  |.107,"Unnilsepti|
00008d80  75 6d 22 2c 22 55 6e 73  22 2c 22 32 36 32 22 2c  |um","Uns","262",|
00008d90  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |-300,-300,-300,-|
00008da0  33 30 30 2c 2d 33 30 30  2c 2d 33 30 30 2c 2d 33  |300,-300,-300,-3|
00008db0  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |00,-300,-300,-30|
00008dc0  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 22 4e 75 63  |0,-300,-300,"Nuc|
00008dd0  6c 65 61 72 20 52 65 73  65 61 72 63 68 20 49 6e  |lear Research In|
00008de0  73 74 69 74 75 74 65 2c  20 44 75 62 6e 61 22 2c  |stitute, Dubna",|
00008df0  22 52 75 73 73 69 61 22  2c 31 39 37 36 2c 22 27  |"Russia",1976,"'|
00008e00  55 6e 27 20 31 20 2b 20  27 6e 69 6c 27 20 30 20  |Un' 1 + 'nil' 0 |
00008e10  2b 20 27 73 65 70 74 27  20 37 22 0d 18 6a aa dc  |+ 'sept' 7"..j..|
00008e20  31 30 38 2c 22 55 6e 6e  69 6c 6f 63 74 69 75 6d  |108,"Unniloctium|
00008e30  22 2c 22 55 6e 6f 22 2c  22 32 36 35 22 2c 2d 33  |","Uno","265",-3|
00008e40  30 30 2c 2d 33 30 30 2c  2d 33 30 30 2c 2d 33 30  |00,-300,-300,-30|
00008e50  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008e60  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008e70  2d 33 30 30 2c 2d 33 30  30 2c 22 48 65 61 76 79  |-300,-300,"Heavy|
00008e80  20 49 6f 6e 20 52 65 73  65 61 72 63 68 2c 20 44  | Ion Research, D|
00008e90  61 72 6d 73 74 61 64 74  22 2c 22 47 65 72 6d 61  |armstadt","Germa|
00008ea0  6e 79 22 2c 31 39 38 34  2c 22 27 55 6e 27 20 31  |ny",1984,"'Un' 1|
00008eb0  20 2b 20 27 6e 69 6c 27  20 30 20 2b 20 27 6f 63  | + 'nil' 0 + 'oc|
00008ec0  74 27 20 38 22 0d 18 74  aa dc 31 30 39 2c 22 55  |t' 8"..t..109,"U|
00008ed0  6e 6e 69 6c 65 6e 6e 69  75 6d 22 2c 22 55 6e 65  |nnilennium","Une|
00008ee0  22 2c 22 32 36 36 22 2c  2d 33 30 30 2c 2d 33 30  |","266",-300,-30|
00008ef0  30 2c 2d 33 30 30 2c 2d  33 30 30 2c 2d 33 30 30  |0,-300,-300,-300|
00008f00  2c 2d 33 30 30 2c 2d 33  30 30 2c 2d 33 30 30 2c  |,-300,-300,-300,|
00008f10  2d 33 30 30 2c 2d 33 30  30 2c 2d 33 30 30 2c 2d  |-300,-300,-300,-|
00008f20  33 30 30 2c 22 48 65 61  76 79 20 49 6f 6e 20 52  |300,"Heavy Ion R|
00008f30  65 73 65 61 72 63 68 2c  20 44 61 72 6d 73 74 61  |esearch, Darmsta|
00008f40  64 74 22 2c 22 47 65 72  6d 61 6e 79 22 2c 31 39  |dt","Germany",19|
00008f50  38 32 2c 22 27 55 6e 27  20 31 20 2b 20 27 6e 69  |82,"'Un' 1 + 'ni|
00008f60  6c 27 20 30 20 2b 20 27  65 6e 6e 27 20 39 22 0d  |l' 0 + 'enn' 9".|
00008f70  18 7e 38 dc 4f 53 43 4c  49 2c 4f 53 43 4c 49 2c  |.~8.OSCLI,OSCLI,|
00008f80  4f 53 43 4c 49 2c 2a 2c  2a 2c 2a 2c 2a 2c 2a 2c  |OSCLI,*,*,*,*,*,|
00008f90  2a 2c 2a 2c 2a 2c 2a 2c  2a 2c 2a 2c 2a 2c 2a 2c  |*,*,*,*,*,*,*,*,|
00008fa0  2a 2c 2a 2c 2a 2c 2a 0d  18 88 68 dc 22 fe 22 2c  |*,*,*,*...h.".",|
00008fb0  30 2c 31 2c 31 2c 32 2c  34 2c 36 2c 39 2c 31 32  |0,1,1,2,4,6,9,12|
00008fc0  2c 31 35 2c 31 39 2c 32  32 2c 32 36 2c 33 30 2c  |,15,19,22,26,30,|
00008fd0  33 34 2c 33 39 2c 34 33  2c 34 37 2c 35 31 2c 35  |34,39,43,47,51,5|
00008fe0  35 2c 35 39 2c 36 33 2c  36 37 2c 37 30 2c 37 34  |5,59,63,67,70,74|
00008ff0  2c 37 36 2c 37 39 2c 38  32 2c 38 34 2c 38 36 2c  |,76,79,82,84,86,|
00009000  38 38 2c 38 39 2c 39 31  2c 39 32 2c 31 30 30 0d  |88,89,91,92,100.|
00009010  18 92 38 dc 4f 53 43 4c  49 2c 4f 53 43 4c 49 2c  |..8.OSCLI,OSCLI,|
00009020  4f 53 43 4c 49 2c 2a 2c  2a 2c 2a 2c 2a 2c 2a 2c  |OSCLI,*,*,*,*,*,|
00009030  2a 2c 2a 2c 2a 2c 2a 2c  2a 2c 2a 2c 2a 2c 2a 2c  |*,*,*,*,*,*,*,*,|
00009040  2a 2c 2a 2c 2a 2c 2a 0d  ff                       |*,*,*,*..|
00009049

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .