home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / pt1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  175 lines
  1. 0 poke53280,5:poke53281,5:print""
  2. 1 dimvt$(24):dimht$(40):vt$(1)="":ht$(1)=""
  3. 2 fori=2to24:vt$(i)=vt$(i-1)+"":next
  4. 3 fori=2to40:ht$(i)=ht$(i-1)+"":next
  5. 770 printchr$(147);
  6. 853 rempoke-16302,0
  7. 856 remcall37888
  8. 890 remscale=1
  9. 893 remhcolor=3
  10. 896 tx=10:ty=1:bx=31:by=4
  11. 897 print"[147]";:ifpeek(2)=232then1339
  12. 898 ifpeek(2)<>232thenpoke2,232
  13. 900 gosub4000
  14. 930 printvt$(2)ht$(12);
  15. 933 print"[212]he [208]eriodic [212]able"
  16. 936 printvt$(3)ht$(15);
  17. 939 print"of [197]lements"
  18. 970 printvt$(6)ht$(19);
  19. 973 print"by"
  20. 974 print"             [211]uzie [196]e[205]oss"
  21. 1010 printvt$(10)ht$(5);
  22. 1013 print"[193]n informative program about the"
  23. 1050 printvt$(11)ht$(5);
  24. 1053 print"periodic table and its chemical"
  25. 1090 printvt$(12)ht$(5);
  26. 1093 print"elements."
  27. 1130 printvt$(16)ht$(6);
  28. 1133 print"[204]oadstar is not public domain."
  29. 1170 printvt$(18)ht$(3);
  30. 1173 print"[208]lease respect the author's rights."
  31. 1210 printvt$(22)ht$(5);
  32. 1213 print"[195]opyright 1986 by [211]uzie [196]e[205]oss"
  33. 1250 printvt$(24)ht$(8);
  34. 1253 print"[208]ress a key for the menu";
  35. 1256 poke198,0:wait198,1:geta$
  36. 1290 rem*page2
  37. 1330 print"[147]";
  38. 1333 rempoke-16302,0
  39. 1336 remscale=3
  40. 1339 tx=17:bx=22:ty=1:by=3:gosub4000
  41. 1342 printvt$(2)ht$(18);
  42. 1345 print"[205]enu"
  43. 1370 remscale=1
  44. 1373 printvt$(5)ht$(6);
  45. 1376 print"1. [194]ackground information"
  46. 1410 printvt$(7)ht$(6);
  47. 1413 print"2. [208]eriodic table"
  48. 1450 printvt$(9)ht$(6);
  49. 1453 print"3. [194]reakdown of table 1[193]-6[193]"
  50. 1490 printvt$(11)ht$(6);
  51. 1493 print"4. [194]reakdown of table 7[193],8[193],3[194]-8[194]"
  52. 1530 printvt$(13)ht$(6);
  53. 1533 print"5. [194]reakdown of table 1[194],2[194],[210]are"
  54. 1536 printvt$(14)ht$(9);
  55. 1539 print"earth metals"
  56. 1570 printvt$(16)ht$(6);
  57. 1573 print"6. [209]uit"
  58. 1610 remscale=2
  59. 1613 printvt$(21)ht$(7);
  60. 1616 print"[195]hoose one [?]";
  61. 1619 geta$
  62. 1650 ifa$<"1"ora$>"6"then1619
  63. 1690 ifa$>"1"anda$<"6"thenprint:printa$"  [204]oading..."
  64. 1730 ifa$="1"then2170
  65. 1770 ifa$="2"thenf$="pt2":goto5000
  66. 1810 ifa$="3"thenf$="pt3":goto5000
  67. 1850 ifa$="4"thenf$="pt4":goto5000
  68. 1890 ifa$="5"thenf$="pt5":goto5000
  69. 1930 print"[147]";
  70. 1933 rempoke-16302,0
  71. 1970 tx=9:bx=31:ty=11:by=13:gosub4000
  72. 1973 printvt$(12)ht$(10);
  73. 1976 print"[210]eturning to [204]oadstar"
  74. 2053 print
  75. 2054 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  76. 2055 ifer<>63thenend
  77. 2056 print"[147]":load"hello connect",8
  78. 2090 end
  79. 2130 rem*backgroundinfo
  80. 2170 print"[147]";
  81. 2173 rempoke-16302,0
  82. 2176 remscale=1
  83. 2179 remhcolor=3
  84. 2210 printvt$(2)ht$(1);
  85. 2213 print"[212]he periodic table of elements, created"
  86. 2250 printvt$(3)ht$(1);
  87. 2253 print"by [196]mitri [201]vanovich [205]endeleev, a"
  88. 2290 printvt$(4)ht$(1);
  89. 2293 print"[210]ussian chemist, arranges the chemical"
  90. 2330 printvt$(5)ht$(1);
  91. 2333 print"elements according to their atomic"
  92. 2370 printvt$(6)ht$(1);
  93. 2373 print"numbers.  [212]o understand the information"
  94. 2410 printvt$(7)ht$(1);
  95. 2413 print"in this program, a few terms must be"
  96. 2450 printvt$(8)ht$(1);
  97. 2453 print"defined."
  98. 2490 printchr$(18);
  99. 2493 printvt$(11)ht$(1);
  100. 2496 print"[193][212][207][205][201][195] [206][213][205][194][197][210][146]";
  101. 2499 rem
  102. 2502 print"-is equal to the number of"
  103. 2530 printvt$(12)ht$(6);
  104. 2533 print"protons."
  105. 2570 printchr$(18);
  106. 2573 printvt$(15);
  107. 2576 print"[208][210][207][212][207][206][211][146]";
  108. 2579 rem
  109. 2582 print"-positively charged particles."
  110. 2610 printchr$(18);
  111. 2613 printvt$(18);
  112. 2616 print"[197][204][197][195][212][210][207][206][211][146]";
  113. 2619 rem
  114. 2622 print"-negatively charged particles."
  115. 2650 printvt$(19)ht$(6);
  116. 2653 print"[213]sually (but not always) the same"
  117. 2690 printvt$(20)ht$(6);
  118. 2693 print"number as protons."
  119. 2730 printvt$(24)ht$(9);
  120. 2733 print"[208]ress a key to continue";
  121. 2736 poke198,0:wait198,1:geta$
  122. 2770 print"[147]";
  123. 2773 rempoke-16302,0
  124. 2810 printchr$(18);
  125. 2813 printvt$(2)ht$(1);
  126. 2816 print"[207][216][201][196][193][212][201][207][206] [206][213][205][194][197][210][146]";
  127. 2819 rem
  128. 2822 print"-tells the possible"
  129. 2850 printvt$(3)ht$(6);
  130. 2853 print"number of electrons in the outer"
  131. 2890 printvt$(4)ht$(6);
  132. 2893 print"level (positive) or number of"
  133. 2930 printvt$(5)ht$(6);
  134. 2933 print"electrons needed in the outer"
  135. 2970 printvt$(6)ht$(6);
  136. 2973 print"level (negative)."
  137. 3010 printchr$(18);
  138. 3013 printvt$(9)ht$(1);
  139. 3016 print"[193][212][207][205][201][195] [215][197][201][199][200][212][146]";
  140. 3019 rem
  141. 3022 print"-the weight of the atom"
  142. 3050 printht$(6);
  143. 3053 print"compared to an atom of carbon 12."
  144. 3090 printht$(6);
  145. 3093 print"[193]lso, it is equal to the number of"
  146. 3130 printht$(6);
  147. 3133 print"protons and neutrons added"
  148. 3170 printht$(6);
  149. 3173 print"together."
  150. 3210 printvt$(18);
  151. 3213 print"[201]f at any time you find yourself bored,"
  152. 3250 remhplot0,147
  153. 3253 print"confused, or just wanting to quit,"
  154. 3290 remhplot0,157
  155. 3293 print"press <[209]>."
  156. 3330 printvt$(24)ht$(9);
  157. 3333 print"[208]ress a key for the menu";
  158. 3336 poke198,0:wait198,1:geta$
  159. 3370 goto1330
  160. 4000 fori=tx+1tobx-1
  161. 4005 printvt$(ty)ht$(i)"[162][146]"
  162. 4010 printvt$(by)ht$(bx-i+tx)"[162]"
  163. 4020 next:printvt$(ty)ht$(bx)"[187][146]"
  164. 4030 printvt$(by)ht$(tx)"[188][146]"
  165. 4040 fori=ty+1toby-1
  166. 4050 printvt$(i)ht$(bx)"[161][146]"
  167. 4060 printvt$(by-i+ty)ht$(tx)"[161]"
  168. 4070 next:printvt$(ty)ht$(tx)"[172][146]"
  169. 4080 printvt$(by)ht$(bx)"[190][146]"
  170. 4090 return
  171. 5000 rem loader
  172. 5010 poke53280,5:poke53281,5:print"[147]"
  173. 5020 print"load"chr$(34)f$chr$(34)",8":print"run"
  174. 5030 poke631,13:poke632,13:poke198,2:end
  175.