home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / chemistry (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  43 lines
  1. 5 poke53280,12:poke53281,12:print"[147][144][208]lease wait...[204]oading a file."chr$(9)chr$(14)chr$(8)
  2. 10 dime$(105),s$(105),a(105),r(105,7)
  3. 20 open4,8,4,"0:periodic table,s,r"
  4. 30 input#4,i:fork=1toi:input#4,e$(k),s$(k),a(k):print".";:forj=1to7:input#4,r(k,j)
  5. 40 nextj,k:close4
  6. 50 print"[147]":print"[145][212]ype in an element's number, name,
  7. 60 [153]"or symbol and right$ will display all the"
  8. 70 [153]"facts about it."
  9. 80 [153]"(NULL)ype 'end' to quit."
  10. 90 [153]:[153]:[153]"left$it any key to continue."
  11. 100 [161]a$:[139]a$[178]""[167]100
  12. 110 [153]"load(NULL)ow enter number, name, or symbol."
  13. 115 [159]1,0:[132]1,a$:[160]1
  14. 120 [139]a$[178]"end"[167]400
  15. 130 [139]a$[178]""[167][153]"on":[137]110
  16. 140 a[178][198](a$):[139]a[177]192[175]a[179]219[167]200
  17. 150 [139]a[177]64[175]a[179]91[167][153]:[153]"you need a capital letter!":[137]115
  18. 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
  19. 170 [137]300
  20. 200 i[178]0:[139][195](a$)[179]3[167]240
  21. 210 i[178]i[170]1:[139]e$(i)[178]a$[167]230
  22. 220 [139]i[179]103[167]210
  23. 225 [153]:[153]"not found":[137]115
  24. 230 a[178]i:[137]300
  25. 240 i[178]i[170]1:[139]s$(i)[178]a$[167]270
  26. 250 [139]i[179]103[167]240
  27. 260 [153]:[153]"not found":[137]115
  28. 270 a[178]i:[137]300
  29. 300 [153]"load";[163]11);"sys                    wait":[129]i[178]1[164]9
  30. 310 [153][163]11)" wait"[163]30)" wait":[130]:[153][163]11);"sys                    wait"
  31. 320 [153]""[163]12)a:[153]:[153][163]13)"stop"e$(a):[153]:[153][163]13)"open"s$(a)
  32. 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]")"
  33. 340 [153]:[153][163]12)"poke"i$
  34. 350 [153]"clr";
  35. 360 [129]i[178]1[164]7:m$[178][196](r(a,i)):[139][195](m$)[179]3[167]m$[178]" "[170]m$
  36. 370 [153][163]26)m$:[130]i:[153]"";[163]9)"stopleft$it any key to continue."
  37. 380 [161]a$:[139]a$[178]""[167]380
  38. 390 [137]110
  39. 400 [137]63000
  40. 63000 [143]    connect back to l.s.
  41. 63002 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  42. 63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]
  43.