home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / watr.pierwiastk. (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  6KB  |  315 lines
  1. 10 poke 53280,0:poke53281,0:poke646,1
  2. 20 printchr$(147)
  3. 30 print"      piotr stachowiak przedstawia "
  4. 40 print"           program pod tytu\em"
  5. 50 print"            ,     ,,           ,       "
  6. 60 print"       wartosciowosc pierwiastkow      "
  7. 70 print""
  8. 80 print""
  9. 90 print""
  10. 100 print""
  11. 110 print""
  12. 111 print""
  13. 112 print""
  14. 113 print""
  15. 114 print""
  16. 115 print""
  17. 116 print""
  18. 118 print""
  19. 119 print""
  20. 122 print""
  21. 123 print""
  22. 124 print""
  23. 125 print""
  24. 130 print""
  25. 140 print""
  26. 150 print"             space-zaczynamy"
  27. 160 getm$:ifm$=""thengoto160
  28. 170 printchr$(147)
  29. 180 printchr$(147)
  30. 185 print"                                   ,
  31. 190 [153]" ten program jest testem ze znajomosci
  32. 200 print"     ,     ,             ,"
  33. 210 print"wartosciowosci pierwiastkow w zwiazkach
  34. 220 [153]"                                 '"
  35. 230 [153]"
  36. 231 print"
  37. 232 [153]"
  38. 234 print"
  39. 255 [153]"
  40. 260 print" odpowiadajac na pytanie na przyk\ad :"
  41. 270 print"      '               ,,"
  42. 280 print"       jaka jest wartosc azotu ?"
  43. 290 print"          odpowiadasz : 12345
  44. 300 [153]"
  45. 310 print"
  46. 315 [153]"
  47. 320 print"
  48. 321 [153]"
  49. 322 print"
  50. 330 [153]"
  51. 332 print"
  52. 335 [153]"
  53. 340 print"
  54. 345 [153]"          space-zaczynamy test"
  55. 350 [161]m$:[139]m$[178]""[167][137]350
  56. 355 c[178][171]1
  57. 360 c[178]c[170]1
  58. 363 [139]c[178]30[167][137]1870
  59. 365 m[178][181]([187](1)[172]20)[170]1
  60. 370 [139]m[178]1 [167][137] 400
  61. 371 [139]m[178]2 [167][137] 470
  62. 372 [139]m[178]3 [167][137] 540
  63. 373 [139]m[178]4 [167][137] 610
  64. 374 [139]m[178]5 [167][137] 680
  65. 375 [139]m[178]6 [167][137] 750
  66. 376 [139]m[178]7 [167][137] 820
  67. 377 [139]m[178]8 [167][137] 890
  68. 378 [139]m[178]9 [167][137] 960
  69. 379 [139]m[178]10[167][137] 1030
  70. 380 [139]m[178]11[167][137] 1100
  71. 381 [139]m[178]12[167][137] 1170
  72. 382 [139]m[178]13[167][137] 1240
  73. 383 [139]m[178]14[167][137] 1310
  74. 385 [139]m[178]15[167][137] 1380
  75. 386 [139]m[178]16[167][137] 1450
  76. 387 [139]m[178]17[167][137] 1520
  77. 388 [139]m[178]18[167][137] 1590
  78. 389 [139]m[178]19[167][137] 1660
  79. 390 [139]m[178]20[167][137] 1730
  80. 400 [153][199](147)
  81. 409 [153]"           ,     ,,"
  82. 410 [153]"podaj wartosciowosc azotu"
  83. 420 [133]q
  84. 430 [139]q[178]12345[167][137]1800
  85. 440 [153]",               ,
  86. 450 print"zle ! powinno byc 12345
  87. 455 [161]m$:[139]m$[178]""[167][137]455
  88. 458 q[178]0
  89. 460 [137]360
  90. 470 [153][199](147)
  91. 479 [153]"           ,     ,,"
  92. 480 [153]"podaj wartosciowosc chloru"
  93. 490 [133]w
  94. 500 [139]w[178]1357[167][137]1800
  95. 510 [153]",               ,
  96. 520 print"zle ! powinno byc 1357
  97. 525 [161]m$:[139]m$[178]""[167][137]525
  98. 528 w[178]0
  99. 530 [137]360
  100. 540 [153][199](147)
  101. 549 [153]"           ,     ,,"
  102. 550 [153]"podaj wartosciowosc cynku"
  103. 560 [133]e
  104. 570 [139]e[178]2[167][137]1800
  105. 580 [153]",               ,
  106. 590 print"zle ! powinno byc 2
  107. 595 [161]m$:[139]m$[178]""[167][137]595
  108. 598 e[178]0
  109. 600 [137]360
  110. 610 [153][199](147)
  111. 619 [153]"           ,     ,,"
  112. 620 [153]"podaj wartosciowosc fosforu"
  113. 630 [133]r
  114. 640 [139]r[178]35[167][137]1800
  115. 650 [153]",               ,
  116. 660 print"zle ! powinno byc 35
  117. 665 [161]m$:[139]m$[178]""[167][137]665
  118. 668 r[178]0
  119. 670 [137]360
  120. 680 [153][199](147)
  121. 689 [153]"           ,     ,,"
  122. 690 [153]"podaj wartosciowosc glinu"
  123. 700 [133]t
  124. 710 [139]t[178]3[167][137]1800
  125. 720 [153]",               ,
  126. 730 print"zle ! powinno byc 3
  127. 735 [161]m$:[139]m$[178]""[167][137]735
  128. 738 t[178]0
  129. 740 [137]360
  130. 750 [153][199](147)
  131. 759 [153]"           ,     ,,"
  132. 760 [153]"podaj wartosciowosc krzemu"
  133. 770 [133]y
  134. 780 [139]y[178]4[167][137]1800
  135. 790 [153]",               ,
  136. 800 print"zle ! powinno byc 4
  137. 805 [161]m$:[139]m$[178]""[167][137]805
  138. 808 y[178]0
  139. 810 [137]360
  140. 820 [153][199](147)
  141. 829 [153]"           ,     ,,"
  142. 830 [153]"podaj wartosciowosc magnezu"
  143. 840 [133]u
  144. 850 [139]u[178]2[167][137]1800
  145. 860 [153]",               ,
  146. 870 print"zle ! powinno byc 2
  147. 875 [161]m$:[139]m$[178]""[167][137]875
  148. 878 u[178]0
  149. 880 [137]360
  150. 890 [153][199](147)
  151. 899 [153]"           ,     ,,"
  152. 900 [153]"podaj wartosciowosc miedzi"
  153. 910 [133]i
  154. 920 [139]i[178]12[167][137]1800
  155. 930 [153]",               ,
  156. 940 print"zle ! powinno byc 12
  157. 945 [161]m$:[139]m$[178]""[167][137]945
  158. 948 i[178]0
  159. 950 [137]360
  160. 960 [153][199](147)
  161. 969 [153]"           ,     ,,"
  162. 970 [153]"podaj wartosciowosc niklu"
  163. 980 [133]o
  164. 990 [139]o[178]2[167][137]1800
  165. 1000 [153]",               ,
  166. 1010 print"zle ! powinno byc 2
  167. 1015 [161]m$:[139]m$[178]""[167][137]1015
  168. 1018 o[178]0
  169. 1020 [137]360
  170. 1030 [153][199](147)
  171. 1039 [153]"           ,     ,,"
  172. 1040 [153]"podaj wartosciowosc o\owiu"
  173. 1050 [133]p
  174. 1060 [139]p[178]24[167][137]1800
  175. 1070 [153]",               ,
  176. 1080 print"zle ! powinno byc 24
  177. 1085 [161]m$:[139]m$[178]""[167][137]1085
  178. 1088 p[178]0
  179. 1090 [137]360
  180. 1100 [153][199](147)
  181. 1109 [153]"           ,     ,,"
  182. 1110 [153]"podaj wartosciowosc potasu"
  183. 1120 [133]a
  184. 1130 [139]a[178]1[167][137]1800
  185. 1140 [153]",               ,
  186. 1150 print"zle ! powinno byc 1
  187. 1155 [161]m$:[139]m$[178]""[167][137]1155
  188. 1158 a[178]0
  189. 1160 [137]360
  190. 1170 [153][199](147)
  191. 1179 [153]"           ,     ,,"
  192. 1180 [153]"podaj wartosciowosc rteci"
  193. 1190 [133]s
  194. 1200 [139]s[178]12[167][137]1800
  195. 1210 [153]",               ,
  196. 1220 print"zle ! powinno byc 12
  197. 1225 [161]m$:[139]m$[178]""[167][137]1225
  198. 1228 s[178]0
  199. 1230 [137]360
  200. 1240 [153][199](147)
  201. 1249 [153]"           ,     ,,"
  202. 1250 [153]"podaj wartosciowosc siarki"
  203. 1260 [133]d
  204. 1270 [139]d[178]246[167][137]1800
  205. 1280 [153]",               ,
  206. 1290 print"zle ! powinno byc 246
  207. 1295 [161]m$:[139]m$[178]""[167][137]1295
  208. 1298 d[178]0
  209. 1300 [137]360
  210. 1310 [153][199](147)
  211. 1319 [153]"           ,     ,,"
  212. 1320 [153]"podaj wartosciowosc sodu"
  213. 1330 [133]f
  214. 1340 [139]f[178]1[167][137]1800
  215. 1350 [153]",               ,
  216. 1360 print"zle ! powinno byc 1
  217. 1365 [161]m$:[139]m$[178]""[167][137]1365
  218. 1368 f[178]0
  219. 1370 [137]360
  220. 1380 [153][199](147)
  221. 1389 [153]"           ,     ,,"
  222. 1390 [153]"podaj wartosciowosc srebra"
  223. 1400 [133]g
  224. 1410 [139]g[178]12[167][137]1800
  225. 1420 [153]",               ,
  226. 1430 print"zle ! powinno byc 12
  227. 1435 [161]m$:[139]m$[178]""[167][137]1435
  228. 1438 g[178]0
  229. 1440 [137]360
  230. 1450 [153][199](147)
  231. 1459 [153]"           ,     ,,"
  232. 1460 [153]"podaj wartosciowosc tlenu"
  233. 1470 [133]h
  234. 1480 [139]h[178]2[167][137]1800
  235. 1490 [153]",               ,
  236. 1500 print"zle ! powinno byc 2
  237. 1505 [161]m$:[139]m$[178]""[167][137]1505
  238. 1508 h[178]0
  239. 1510 [137]360
  240. 1520 [153][199](147)
  241. 1529 [153]"           ,     ,,"
  242. 1530 [153]"podaj wartosciowosc wapnia"
  243. 1540 [133]j
  244. 1550 [139]j[178]2[167][137]1800
  245. 1560 [153]",               ,
  246. 1570 print"zle ! powinno byc 2
  247. 1575 [161]m$:[139]m$[178]""[167][137]1575
  248. 1578 j[178]0
  249. 1580 [137]360
  250. 1590 [153][199](147)
  251. 1599 [153]"           ,     ,,"
  252. 1600 [153]"podaj wartosciowosc wegla"
  253. 1610 [133]k
  254. 1620 [139]k[178]24[167][137]1800
  255. 1630 [153]",               ,
  256. 1640 print"zle ! powinno byc 24
  257. 1645 [161]m$:[139]m$[178]""[167][137]1645
  258. 1648 k[178]0
  259. 1650 [137]360
  260. 1660 [153][199](147)
  261. 1669 [153]"           ,     ,,"
  262. 1670 [153]"podaj wartosciowosc wodoru"
  263. 1680 [133]l
  264. 1690 [139]l[178]1[167][137]1800
  265. 1700 [153]",               ,
  266. 1710 print"zle ! powinno byc 1
  267. 1715 [161]m$:[139]m$[178]""[167][137]1715
  268. 1718 l[178]0
  269. 1720 [137]360
  270. 1730 [153][199](147)
  271. 1739 [153]"           ,     ,, ."
  272. 1740 [153]"podaj wartosciowosc zelaza"
  273. 1750 [133]z
  274. 1760 [139]z[178]23[167][137]1800
  275. 1770 [153]",               ,
  276. 1780 print"zle ! powinno byc 23
  277. 1785 [161]m$:[139]m$[178]""[167][137]1785
  278. 1788 z[178]0
  279. 1790 [137]360
  280. 1795 :
  281. 1796 :
  282. 1797 :
  283. 1800 x[178]x[170]1
  284. 1810 [153][199](147)
  285. 1820 [153]"dobrze !"
  286. 1830 [161]m$:[139]m$[178]""[167][137]1830
  287. 1840 [137]360
  288. 1850 :
  289. 1855 :
  290. 1860 :
  291. 1870 [153][199](147)"             to koniec testu"
  292. 1880 [153]"
  293. 1890 print"a oto jak on wypad\ :"
  294. 1900 print"                     "
  295. 1910 print"
  296. 1920 [153]"na 30 odpowiedzi
  297. 1930 print"                 dobrych :"x
  298. 1940 print"                 z\ych   :"30-x
  299. 1950 print"
  300. 1960 [153]"
  301. 1961 print"
  302. 1962 [153]"
  303. 1963 print"
  304. 1964 [153]"
  305. 1965 print"
  306. 1966 [139]x[178]30[167][153]"brawo !!! brawo,!!! brawo !!! brawo !!!"
  307. 1967 [139]x[178]30[167][153]"  odpowiedzia\es na wrzystkie pytania
  308. 1968 ifx=0 thenprint"
  309. 1969 [139]x[178]0 [167][153]"ty matole jestes ograniczony w rozwoju !
  310. 1970 ifx=15thenprint"                                ,
  311. 1971 [139]x[178]15[167][153]"ok! nawet dobrze ale mog\o by byc lepiej
  312. 1980 x=0:c=0
  313. 1990 getm$:ifm$=""thengoto1990
  314. 2000 end
  315.