home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-02_1986_Verlag_Heinz_Weise_de.d64 / mathe-genie (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  395 lines
  1. 0 ifpeek(50307)=120thenpoke50257,0:rem zeile 0 bitte kann geloescht werden!
  2. 100 rem titel
  3. 110 poke53280,0:poke53281,0:print"[147]";chr$(8);chr$(142)
  4. 120 x=int(rnd(0)*15):ifx=0then120
  5. 130 poke646,x
  6. 140 print""
  7. 150 print"             "
  8. 160 print"          "
  9. 170 print"               "
  10. 180 print"        "
  11. 190 print"          "
  12. 200 print"" :poke646,int(rnd(1)*15)
  13. 210 print"       [146][180]     "
  14. 220 print"   [146][181]  "
  15. 230 print" [161]    [146][161]    "
  16. 240 print"    [161]   "
  17. 250 print"       [146][182]     "
  18. 260 fort=1to50
  19. 270 geta$:ifa$<>""thenclr:goto300
  20. 280 next
  21. 290 goto120
  22. 300 clr:rem hauptmenue
  23. 310 poke204,1:
  24. 320 poke53280,0:poke53281,0:print"[147]"
  25. 325 tn$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":vo$="-----"
  26. 327 df=999999999999:vo$="------":fl$=vo$:um$=vo$
  27. 330 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  28. 340 print"[194][158] mathe-genie written by a.walsleben   [146][194]";tn$;
  29. 360 print"[194] auswahl ueber cursor-steuerung+return[194]";tn$;
  30. 380 print"[194]   quadrat         [194]   rechteck       [194]";tn$;
  31. 400 print"[194]   vieleck         [194]   dreieck        [194]";tn$;
  32. 420 print"[194]   kreis           [194]   quader         [194]";tn$;
  33. 440 print"[194]   wuerfel         [194]   segment        [194]";tn$;
  34. 460 print"[194]   ellipse         [194]   kreisring      [194]";tn$;
  35. 480 print"[194]   sektor          [194]   trapez         [194]";tn$;
  36. 500 print"[194]   kegel           [194]   pyramdie       [194]";tn$;
  37. 520 print"[194]   zylinder        [194]   i n f o[146]        [194]";tn$;
  38. 540 print"[194]   primfaktorzer.  [194]   potenzen       [194]";
  39. 550 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
  40. 560 poke646,7
  41. 570 y=6:x=1:x(1)=x:y(1)=y:poke214,y:poke211,x:sys58732:print" [209] [146]"
  42. 580 geta$:ifa$=""then580
  43. 590 ifa$=chr$(13)then690
  44. 600 ifa$=""thenx=x+20:ifx>21thenx=1
  45. 610 ifa$="[157]"thenx=x-20:ifx<1thenx=21
  46. 620 ifa$=""theny=y+2:ify>22theny=6
  47. 630 ifa$="[145]"theny=y-2:ify<6theny=22
  48. 640 ifx<>x(1)ory(1)<>ythen660
  49. 650 goto 580
  50. 660 gosub4270
  51. 670 poke214,y:poke211,x:sys58732:print" [209] [146]"
  52. 680 goto 580
  53. 690 rem welches feld
  54. 700 ify=6then790:rem feld i
  55. 710 ify=8then1130:rem feld ii
  56. 720 ify=10then1430:rem feld iii
  57. 730 ify=12then1740:rem feld iiii
  58. 740 ify=14then2040:rem feld v
  59. 750 ify=16then2280:rem feld vi
  60. 760 ify=18then2500:rem feld vii
  61. 770 ify=20then2690:rem feld viii
  62. 780 ify=22then2930:rem feld ix
  63. 790 ifx<>1then950:rem rechteck
  64. 800 rem quadrat
  65. 810 fe$=" quadrat [146]"
  66. 820 gosub3700:rem modul fuer ueberschr. braucht vari. fe$
  67. 830 fl=0:um=0:vo=0:ta$="":ei=0:pp$=""
  68. 840 print"[146]seitenlaenge a ?";
  69. 845 z=7:gr=df:rem grenze
  70. 850 gosub3780:rem modul ii fuer tastaturabfrage
  71. 860 fl=ei*ei:um=4*ei:vo=0:ei(1)=ei:ei(2)=0
  72. 870 um$="a*4":fl$="a*a"
  73. 880 gosub4360 :rem werte ausgeben
  74. 910 gosub4190:rem modul ob nochmal
  75. 920 ifj=0then300
  76. 930 ifj=1then800
  77. 940 goto 910
  78. 950 rem rechteck
  79. 960 fe$=" rechteck "
  80. 970 gosub3700
  81. 980 fl=0:um=0:vo=0:ta$="":ei=0:pp$=""
  82. 990 print"[146]seitenlaenge a ?";
  83. 995 z=7:gr=df
  84. 1000 gosub3780
  85. 1010 ei(1)=ei
  86. 1020 printchr$(13);"seitenlaenge b ?";
  87. 1025 z=9:gr=df
  88. 1030 gosub3780
  89. 1040 ei(2)=ei
  90. 1050 fl=ei(1)*ei(2):um=2*ei(1)+2*ei(2):vo=0:fl$="a*b":um$="2*a+2*b"
  91. 1060 gosub4360:rem werte ausgeben
  92. 1090 gosub4190
  93. 1100 ifj=1then950
  94. 1110 if j=0then300
  95. 1120 goto 1090
  96. 1130 rem feld ii
  97. 1140 ifx<>1then1300
  98. 1150 fe$=" vieleck ":gosub3700
  99. 1160 fl=0:um=0:vo=0:ta$="":ei=0:pp$=""
  100. 1165 z=7:gr=df
  101. 1170 print:print"seitenlaenge a ?        [157][157][157][157][157][157][157]";:gosub3780
  102. 1180 ei(1)=ei:ifei(1)=0thenprint"[145][145][145]":goto1170
  103. 1185 z=9:gr=10
  104. 1190 print:print"seitenzahl n ?        [157][157][157][157][157][157][157]";:gosub3780
  105. 1200 ei(2)=ei:ifei(2)<3thenprint"[145][145][145]":goto1190
  106. 1210 vo=0:um=ei(1)*ei(2):um$="a*n"
  107. 1220 r=ei(1)/2/tan((NULL)/ei(2))
  108. 1230 fl=ei(1)*r*ei(2):r=0:fl$="a*(a/2/tan([255]/n))*n"
  109. 1240 gosub4360:rem werte ausgeben
  110. 1270 gosub4190
  111. 1280 ifj=0then 300
  112. 1290 ifj=1then 1130
  113. 1300 rem dreieck
  114. 1310 fe$=" dreieck "
  115. 1320 gosub3700
  116. 1325 z=7:gr=df
  117. 1330 print:print"grundseite a ?";:gosub3780
  118. 1340 ei(1)=ei
  119. 1345 z=9:gr=df
  120. 1350 print:print"hoehe      h ?";:gosub3780
  121. 1360 ei(2)=ei
  122. 1370 fl=ei(1)*ei(2)/2:um=0:vo=0:fl$="a*h/2"
  123. 1380 gosub4360 :rem werte ausgeben
  124. 1400 gosub4190
  125. 1410 ifj=0then300
  126. 1420 ifj=1then1300
  127. 1430 rem feld iii
  128. 1440 ifx<>1then1580
  129. 1450 rem kreis
  130. 1460 fe$=" kreis "
  131. 1470 gosub3700
  132. 1475 z=7:gr=df
  133. 1480 print:print"radius   r ?";:gosub3780
  134. 1490 ei(1)=ei
  135. 1500 fl=ei(1)*ei(1)*(NULL):um=2*ei(1)*(NULL):vo=0
  136. 1510 fl$="r^2*[255]":um$="2*r*[255]"
  137. 1520 gosub4360 :rem werte ausgeben
  138. 1550 gosub4190
  139. 1560 if j=0then 300
  140. 1570 if j=1then 1430
  141. 1580 rem quader
  142. 1590 fe$=" quader  ":gosub3700
  143. 1595 z=7:gr=df
  144. 1600 print:print"laenge a ?";:gosub3780:ei(1)=ei
  145. 1605 z=9:gr=df
  146. 1610 print:print"breite b ?";:gosub3780:ei(2)=ei
  147. 1615 z=11:gr=df
  148. 1620 print:print"hoehe  h ?";:gosub3780:ei(3)=ei
  149. 1630 vo=ei(1)*ei(2)*ei(3)
  150. 1640 vo$="a*b*h":um$="a*4+b*4+h*4":fl$="2*(a*b)+2*(a*h)+2*(b*h)
  151. 1650 fl[178]2[172](ei(1)[172]ei(2))[170]2[172](ei(1)[172]ei(3))[170]2[172](ei(2)[172]ei(3))
  152. 1660 um[178]ei(1)[172]4[170]ei(2)[172]4[170]ei(3)[172]4
  153. 1670 [141]4360 :[143] werte ausgeben
  154. 1710 [141]4190
  155. 1720 [139]j[178]0[167]300
  156. 1730 [139]j[178]1[167]1580
  157. 1740 [143] feld iiii
  158. 1750 [139]x[179][177]1[167]1880
  159. 1760 fe$[178]" wuerfel ":[141]3700
  160. 1765 z[178]7:gr[178]df
  161. 1770 [153]:[153]"seitenlaenge a ? ";:[141]3780:ei(1)[178]ei
  162. 1780 fl[178]ei(1)[172]ei(1)[172]6:fl$[178]"a*a*6":um$[178]"a*12":vo$[178]"a*a*a"
  163. 1790 um[178]ei(1)[172]12
  164. 1800 vo[178]ei(1)[172]ei(1)[172]ei(1)
  165. 1810 [141]4360:[143] werte ausgeben
  166. 1850 [141]4190
  167. 1860 [139]j[178]0[167]300
  168. 1870 [137] 1760
  169. 1880 [143] segment
  170. 1890 fe$[178]" segment ":[141]3700:[153]:[153]
  171. 1895 z[178]7:gr[178]df
  172. 1900 [153]:[153]"ononhoehe  h ? ";:[141]3780:ei(1)[178]ei:[139]ei[178]0[167]1900
  173. 1910 [153]:[153]
  174. 1915 z[178]9:gr[178]df
  175. 1920 [153]:[153]"ononsehne  a ? ";:[141]3780:ei(2)[178]ei:[139]ei[178]0[167]1920
  176. 1930 r[178]ei(1)[173]2[170]ei(2)[172]ei(2)[173](8[172]ei(1))
  177. 1935 [139]ei(2)[177]2[172]r[167]1880
  178. 1940 l[178][186](ei(2)[172]ei(2)[170]((16[173]3)[172](ei(1)[172]ei(1))))
  179. 1950 fl[178].5[172](l[172]r[171]ei(2)[172](r[171]ei(1)))
  180. 1960 um[178]l[170]ei(2):vo[178]0
  181. 1970 um$[178]"a+l":fl$[178]".5*(l*r-(a*(r-h)))"
  182. 1980 [141]4360:[143] werte ausgeben
  183. 1990 [153]:[153]"bogen  l  =     "l:[153]:[153]"radius r  =     "r
  184. 2010 [141]4190
  185. 2020 [139]j[178]0[167] 300
  186. 2030 [137]1890
  187. 2040 [143] feld v
  188. 2050 [139] x[179][177]1[167]2180
  189. 2060 [143] ellipse
  190. 2070 fe$[178]" ellipse ":[141]3700
  191. 2075 z[178]7:gr[178]df
  192. 2080 [153]:[153]"hauptachse a ? ";:[141]3780:ei(1)[178]ei
  193. 2085 z[178]9:gr[178]df
  194. 2090 [153]:[153]"nebenachse b ? ";:[141]3780:ei(2)[178]ei
  195. 2100 fl[178]ei(1)[172]ei(2)[172][255][173]4:vo[178]0
  196. 2110 fl$[178]"a*b*(NULL)/4"
  197. 2120 um[178]0
  198. 2130 [141]4360:[143] werte ausgeben
  199. 2150 [141]4190
  200. 2160 [139]j[178]0[167]300
  201. 2170 [137] 2060
  202. 2180 [143] kreisring
  203. 2190 fe$[178]" kreisring ":[141]3700
  204. 2195 z[178]7:gr[178]df
  205. 2200 [153]:[153]"innenradius  r1 ? ";:[141]3780:ei(1)[178]ei
  206. 2205 z[178]9:gr[178]df
  207. 2210 [153]:[153]"aussenradius r2 ? ";:[141]3780:ei(2)[178]ei
  208. 2220 fl[178](ei(2)[170]ei(1))[172](ei(2)[171]ei(1))[172][255]
  209. 2230 um[178]2[172]ei(2)[172][255] :vo[178]0:um$[178]"2*r2*(NULL)":fl$[178]"((r1+r2)*(r2-r1)*(NULL))"
  210. 2240 [141]4360:[143] werte ausgeben
  211. 2260 [141]4190:[139]j[178]0[167]300
  212. 2270 [137]2190
  213. 2280 [143] feld vi
  214. 2290 [139]x[179][177]1[167]2410
  215. 2300 [143] sektor
  216. 2310 fe$[178]" sektor ":[141]3700
  217. 2315 z[178]7:gr[178]df
  218. 2320 [153]:[153]"radius       r ? ";:[141]3780:ei(1)[178]ei
  219. 2325 z[178]9:gr[178]360
  220. 2330 [153]:[153]"zentriwinkel w ? ";:[141]3780:ei(2)[178]ei
  221. 2340 fl[178]ei(1)[172]ei(1)[172][255][172]ei(2)[173]360:vo[178]0:um$[178]"":fl$[178]"r*r*(NULL)*w/360"
  222. 2350 um[178]2[172]ei(1)[172](1[170]ei(2)[173]360[172][255]):um$[178]"2*r*(1+w/360*(NULL))
  223. 2360 gosub4360:rem werte ausgeben
  224. 2390 gosub4190:ifj=0then300
  225. 2400 goto2300
  226. 2410 rem trapez
  227. 2420 fe$=" trapez ":gosub3700
  228. 2425 z=7:gr=df
  229. 2430 print:print"seitenlaenge a ? ";:gosub3780:ei(1)=ei
  230. 2435 z=9:gr=df
  231. 2440 print:print"seitenlaenge b ? ";:gosub3780:ei(2)=ei
  232. 2445 z=11:gr=df
  233. 2450 print:print"hoehe        h ? ";:gosub3780:ei(3)=ei:print
  234. 2460 vo=0:fl=(ei(1)+ei(2))/2*ei(3):um=0:vo$=um$:fl$="(a+b)/2*h"
  235. 2470 gosub4360:rem werte ausgeben
  236. 2480 gosub4190:ifj=0then300
  237. 2490 ifj=1then2410
  238. 2500 rem feld vii
  239. 2510 ifx<>1then2610
  240. 2520 rem kegel
  241. 2530 fe$=" kegel ":gosub3700
  242. 2535 z=7:gr=df
  243. 2540 print:print"radius  r ? ";:gosub3780:ei(1)=ei
  244. 2545 z=9:gr=df
  245. 2550 print:print"hoehe   h ? ";:gosub3780:ei(2)=ei
  246. 2560 fl=0:um=0:vo=(1/3)*ei(2)*(ei(1)^2)*(NULL):vo$="(1/3)*h*(r^2)*[255]
  247. 2570 um$[178]fl$
  248. 2580 [141]4360:[143] werte ausgeben
  249. 2585 [141]4190
  250. 2590 [139]j[178]0[167]300
  251. 2600 [137]2520
  252. 2610 [143] pyramide
  253. 2620 fe$[178]" pyramide ":[141]3700
  254. 2625 z[178]7:gr[178]df
  255. 2630 [153]:[153]"seitenlaenge a ? ";:[141]3780:ei(1)[178]ei
  256. 2635 z[178]9:gr[178]df
  257. 2640 [153]:[153]"hoehe        h ? ";:[141]3780:ei(2)[178]ei
  258. 2650 fl[178]0:um[178]0:vo[178](ei(1)[172]ei(2))[172](ei(2)[173]3):um$[178]fl$:vo$[178]"(a*h)*(h/3)"
  259. 2660 [141]4360:[143] werte ausgeben
  260. 2665 [141]4190
  261. 2670 [139]j[178]0[167]300
  262. 2680 [137] 2610
  263. 2690 [143] feld viii
  264. 2700 [139]x[179][177]1[167]2790
  265. 2710 fe$[178]" zylinder ":[141]3700
  266. 2715 z[178]7:gr[178]df
  267. 2720 [153]:[153]"radius  r ? ";:[141]3780:ei(1)[178]ei
  268. 2725 z[178]9:gr[178]df
  269. 2730 [153]:[153]"hoehe   h ? ";:[141]3780:ei(2)[178]ei
  270. 2740 fl[178]0:um[178]0:vo[178]ei(1)[174]2[172][255][172]ei(2):vo$[178]"r^2*(NULL)*h"
  271. 2750 [141]4360:[143] werte ausgeben
  272. 2760 [141]4190:[139]j[178]0[167]300
  273. 2770 [137] 2710
  274. 2780 [128]
  275. 2790 [143] info
  276. 2800 [153]"loadsys":[153]:[153]:[153]:ta[178]6:
  277. 2805 tt$[178]"      peek                         peek"
  278. 2810 [153][163]ta)"ortantantantantantantantantantantantantantantantantantantantantantantantantan^":[153]tt$
  279. 2825 [153][163]ta)"peek          (c)            peek":[153]tt$
  280. 2835 [153][163]ta)"peek        input 64         peek":[153]tt$:[153]tt$:[153]tt$
  281. 2855 [153][163]ta)"peek                ortantantantantantan^ peek"
  282. 2860 [153][163]ta)"peek                peekreturnpeek peek"
  283. 2865 [153][163]ta)"peek                /tantantantantantanexp peek"
  284. 2870 [153][163]ta)"/tantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  285. 2880 [161]a$:[139]a$[178]""[167]2880
  286. 2910 [138]
  287. 2920 [128]
  288. 2930 [143] feld ix
  289. 2940 [139]x[179][177]1[167]3430
  290. 2950 [143] primfaktor-zerlegung
  291. 2960 fe$[178]"primfaktorzer.":[141]3700
  292. 2965 ei$[178]"":z[178]7:gr[178]50000
  293. 2970 [153]:[153]"zahl  ? ";:[141]3780
  294. 2980 ei(1)[178]ei:zz[178]ei
  295. 2990 [139]ei(1)[179][177][181](ei(1))[176]ei(1)[179]1[167]2970
  296. 3000 :
  297. 3010 t[178]2
  298. 3020 [153]:[153]:[153]ei(1);"=";
  299. 3030 [141]3130
  300. 3040 t[178]3
  301. 3050 [139]ei(1)[178]1[167]3100
  302. 3060 [139]t[177][186](ei(1))[167]3100
  303. 3070 [141]3130
  304. 3080 t[178]t[170]2
  305. 3090 [137]3050
  306. 3100 [139]ei(1)[178]1[167][153]"cmd ":[137]3120
  307. 3110 [139]ei$[179][177]""[167]ei$[178][202](ei$,1,[195](ei$)[171]1)[170][196](ei(1))
  308. 3115 [139]ei(1)[178]zz[167][153]" primzahl!!":[137]3120
  309. 3117 [153]ei(1)
  310. 3120 n[178]0:[141]4190:[139]j[178]0[167]300
  311. 3125 [137]2950
  312. 3130 q[178]ei(1)[173]t
  313. 3140 [139]q[179][177][181](q)[167]3160
  314. 3150 [153]t;"*";:ei(1)[178]q:ei$[178]ei$[170][196](t)[170]" * ":[137]3130
  315. 3160 [142]
  316. 3430 [143] potenz-rechnung
  317. 3440 fe$[178]" potenzen "
  318. 3450 [141]3700
  319. 3455 z[178]7:gr[178]500
  320. 3460 [153]:[153]"basis    ?        cmdcmdcmdcmdcmdcmdcmd";:[141]3780:ei(1)[178]ei
  321. 3470 z[178]9:[141]4430:js[178]1:[143] gr berechnen
  322. 3480 [153]:[153]"exponent ?        cmdcmdcmdcmdcmdcmdcmd";:[141]3780:ei(2)[178]ei
  323. 3500 er[178]ei(1)[174]ei(2)
  324. 3510 [153]:[153]"ergebnis = ";er
  325. 3520 [141]4190:[139]j[178]1[167]3430
  326. 3530 [137]300
  327. 3700 [143] modul fuer ueberschrift
  328. 3710 [151]53280,0:[151]53281,0:[153]"load";
  329. 3720 zz$[178]"    ***                          *** wait"
  330. 3730 [129]t[178]1[164]3:[153]zz$:[130]
  331. 3740 [153]"";[163]15);fe$
  332. 3750 [153]"sys geben sie die entsprechenden"
  333. 3760 [153]" daten ein und druecken sie 'return'"
  334. 3770 [142]:[143] ende modul i
  335. 3780 [143] modul tastaturabfrage
  336. 3790 a$[178]"":aa[178]0:pp$[178]"":qq$[178]"":ei[178]0:
  337. 3800 [151]211,17:[151]214,z:[158]58732:[153]"             cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd_";
  338. 3810 [161]a$:[139]a$[178]""[167]3810
  339. 3820 [139]a$[178][199](13)[167] 3950
  340. 3830 [139]a$[178][199](20)[167]3900
  341. 3840 [139]a$[178]"."     [167]3870
  342. 3850 aa[178][198](a$)
  343. 3860 [139] aa[179]48 [176] aa[177]57 [167]3810
  344. 3870 [153][199](20);a$;"_";
  345. 3880 pp$[178]pp$[170]a$
  346. 3885 [139][195](pp$)[177]11[167][161]a$:[139]a$[179][177][199](13)[167]3885
  347. 3887 [139]a$[178][199](13)[167]3950
  348. 3890 [137] 3810
  349. 3900 [139][195](pp$)[178]0[167] 3810
  350. 3910 [153]a$;a$;"_";
  351. 3920 qq$[178][200](pp$,[195](pp$)[171]1)
  352. 3930 pp$[178]qq$:qq$[178]""
  353. 3940 [137] 3810
  354. 3950 [153][199](20);:ei[178][197](pp$)
  355. 3955 [139](ei[178]0[175]js[178]0)[176]ei[177]gr[167]3790
  356. 3956 [153]:[142]
  357. 4190 [143] modul ob nochmal
  358. 4200 [141]4290:[143] formeln ausgeben
  359. 4210 [151]211,0:[151]214,23:[158]58732
  360. 4220 [153]"sys         nochmal (j/n) ?                wait";
  361. 4225 [151]198,0:
  362. 4230 [161]a$:[139]a$[178]""[167]4230
  363. 4235 j[178]0
  364. 4240 [139]a$[178]"j"[167]j[178]1
  365. 4250 [142]
  366. 4260 [137]4230
  367. 4270 [151]214,y(1):[151]211,x(1):[158]58732:[153]"   ":y(1)[178]y:x(1)[178]x
  368. 4280 [142]
  369. 4290 a$[178][202](fe$,1,4):[139]a$[178]"pri"[176]a$[178]" po"[167][142]
  370. 4300 [143] formeln ausgeben
  371. 4301 [151]211,0:[151]214,19:[158]58732
  372. 4310 [153]"             f o r m e l n              ";
  373. 4320 [153]"waitflaeche    =   ";fl$
  374. 4330 [153]"umfang     =   ";um$
  375. 4340 [153]"volumen    =   ";vo$
  376. 4350 [142]
  377. 4360 [143] modul werte ausgeben
  378. 4370 :
  379. 4380 [139]fl[179][177]0[167][153]:[153]"flaeche   =     "fl
  380. 4390 [139]um[179][177]0[167][153]:[153]"umfang    =     "um
  381. 4410 [139]vo[179][177]0[167][153]:[153]"volumen   =     "vo
  382. 4420 [142]
  383. 4430 [143] overflow fuer potenzrechnung
  384. 4440 gr[178]126:po[178]ei(1)
  385. 4450 [139]po[179]3[167]4600
  386. 4460 gr[178]38:[139]po[179]11[167]4600
  387. 4470 gr[178]24:[139]po[179]40[167]4600
  388. 4480 gr[178]19:[139]po[179]101[167]4600
  389. 4490 gr[178]18:[139]po[179]131[167]4600
  390. 4500 gr[178]17:[139]po[179]176[167]4600
  391. 4510 gr[178]16:[139]po[179]246[167]4600
  392. 4520 gr[178]15:[139]po[179]351[167]4600
  393. 4530 gr[178]14
  394. 4600 [142]
  395.