shell"savefont >chem_dia.ft_" shell"loadfont 109 then 2 gosub SearchElement locate 15,15:print ele$ 3 locate 4,2:input"Periode : ",peri if peri<1 or peri>7 then 3 4 locate 5,2:input"Gruppe (H/N+Zahl) : ",grup$ lgr$=left$(grup$,1) if lgr$="H" or lgr$="h" or lgr$="N" or lgr$="n" then else 4 shell"loadfont ZERO.DAT" shell"ECHO indem sie mit diesem Text berschrieben und DANN gelscht wurde >>ZERO.DAT" shell"move ZERO.DAT chem_dia.ft_ >NUL" shell"del chem_dia.ft_ >NUL" end PrintCover: locate 1,1 color 0,3:print" Chemie-Diagramm written by RoboCop INDUSTRIES " locate 25,1 print" (C)1995 by RoboCop INDUSTRIES "; return PrintChem: locate 2,1 print" Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ" print" Ȼ " print" ͼ ͼ Ȼ " print" Ȼ " print" Ŀ " print" ɻ ɻ " print" ͻ ͼ ɼ " print" ɼ " print" Ŀ Ŀ ɼ " print" ɼ " print" ͼ ͼ ͼ ͼ ͼ ͼ ͼ"; return PrintDia: locate 14,1 print" Ŀ Ŀ Ŀ" print" ͻ " print" ͻ " print" " print" " print" " print" ͻ " print" " print" " print" " print" ͼ ͼ ͼ ͼ"; return SearchElement: 5 read b,ele$,bez$,zust$,eneg,atu,s(1),s(2),s(3),s(4),s(5),s(6),s(7) if b=ordn then return if b=0 and b$="XXX" then restore goto 5 data 1,H,Wasserstoff,gasfrmig,2.1,1.008,1,0,0,0,0,0,0 data 2,He,Helium,gasfrmig,,4,2,0,0,0,0,0,0 data 3,Li,Lithium,fest,1,6.94,2,1,0,0,0,0,0 data 4,Be,Beryllium,fest,1.5,9.01,2,2,0,0,0,0,0 data 5,B,Bor,2,10.81,2,3,0,0,0,0,0 data 6,C,Kohlenstoff,2.5,12.01,2,4,0,0,0,0,0