5 POKE53280,12:POKE53281,12:PRINT"[147][144][208]LEASE WAIT...[204]OADING A FILE."CHR$(9)CHR$(14)CHR$(8)
10 DIME$(105),S$(105),A(105),R(105,7)
20 OPEN4,8,4,"0:PERIODIC TABLE,S,R"
30 INPUT#4,I:FORK=1TOI:INPUT#4,E$(K),S$(K),A(K):PRINT".";:FORJ=1TO7:INPUT#4,R(K,J)
40 NEXTJ,K:CLOSE4
50 PRINT"[147]":PRINT"[145][212]YPE IN AN ELEMENT'S NUMBER, NAME,
60 [153]"OR SYMBOL AND RIGHT$ WILL DISPLAY ALL THE"
70 [153]"FACTS ABOUT IT."
80 [153]"(null)YPE 'END' TO QUIT."
90 [153]:[153]:[153]"LEFT$IT ANY KEY TO CONTINUE."
100 [161]A$:[139]A$[178]""[167]100
110 [153]"LOAD(null)OW ENTER NUMBER, NAME, OR SYMBOL."
115 [159]1,0:[132]1,A$:[160]1
120 [139]A$[178]"END"[167]400
130 [139]A$[178]""[167][153]"ON":[137]110
140 A[178][198](A$):[139]A[177]192[175]A[179]219[167]200
150 [139]A[177]64[175]A[179]91[167][153]:[153]"YOU NEED A CAPITAL LETTER!":[137]115
160 A[178][197](A$):A[178][181](A):[139]A[179]1[176]A[177]103[167][153]"(null)RY AGAIN.":[153]:[153]:[137]115
170 [137]300
200 I[178]0:[139][195](A$)[179]3[167]240
210 I[178]I[170]1:[139]E$(I)[178]A$[167]230
220 [139]I[179]103[167]210
225 [153]:[153]"NOT FOUND":[137]115
230 A[178]I:[137]300
240 I[178]I[170]1:[139]S$(I)[178]A$[167]270
250 [139]I[179]103[167]240
260 [153]:[153]"NOT FOUND":[137]115
270 A[178]I:[137]300
300 [153]"LOAD";[163]11);"SYS                    WAIT":[129]I[178]1[164]9
310 [153][163]11)" WAIT"[163]30)" WAIT":[130]:[153][163]11);"SYS                    WAIT"
320 [153]""[163]12)A:[153]:[153][163]13)"STOP"E$(A):[153]:[153][163]13)"OPEN"S$(A)
330 I[178]A(A):I$[178][196](I):[139]I[178][181](I)[167]I$[178][201](I$,[195](I$)[171]1):I$[178]" ("[170]I$[170]")"
340 [153]:[153][163]12)"POKE"I$
350 [153]"CLR";
360 [129]I[178]1[164]7:M$[178][196](R(A,I)):[139][195](M$)[179]3[167]M$[178]" "[170]M$
370 [153][163]26)M$:[130]I:[153]"";[163]9)"STOPLEFT$IT ANY KEY TO CONTINUE."
380 [161]A$:[139]A$[178]""[167]380
390 [137]110
400 [137]63000
63000 [143]    CONNECT BACK TO L.S.
63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]