home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / graphiccharts (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  12KB  |  519 lines
  1. 87 c=6:x=37
  2. 88 ba=24:dimbb(ba),z$(ba),n(ba),p(ba),b(ba),bb$(ba),j$(ba):a=12:h=160:h1=155:v=1
  3. 89 dimee$(ba),p$(ba):fc$="0123456789"
  4. 90 ft$="abcdefghijklmnopqrstuvwxyz[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][212][211][212][213][214][215][216][217][218] 0123456789.,:;/-+"
  5. 100 C\0,3,3
  6. 150 rem hauptmenue
  7. 160 Cx:Cy:Cv"    [195] [200] [193] [210] [212] [211]  &  [208] [201] [197] [211]     [146]"
  8. 165 print C(2,1);"(nur mit [211][208][197][195][201][193][204] [194][193][211][201][195] lauffaehig)"
  9. 170 print:Cv"[200]auptmenue"
  10. 180 print
  11. 190 print"      [201]  [146] [201]nfos zum [208]rogramm"
  12. 200 print:print"      [198]1 [146] [194]alken +- variabel (1-24)"
  13. 210 print:print"      [198]3 [146] [194]alken 3[196] variabel (1-12)"
  14. 220 print:print"      [198]5 [146] [208]areto %  variabel (1-12)"
  15. 230 print:print"      [198]7 [146] [205]uenzen-  variabel (1- 6)"
  16. 240 print:print"      [198]2 [146] [204]inien + -variabel (1-24)"
  17. 250 print:print"      [198]4 [146] [212]ortengrafik       (1- 6)"
  18. 255 print:print"      [198]6 [146] [196]irectory"
  19. 260 print:print"      [197]  [146] [197][206][196][197]":print
  20. 270 e$="[212]aste druecken!"
  21. 280 Cu14,23,e$
  22. 290 C;
  23. 295 CJ 6,10
  24. 300 Ctx$:poke646,0:CJ
  25. 310 :Ck x$
  26. 320 :  Cm "i":Ce information
  27. 330 :  Cm chr$(133):Ce balken-linien
  28. 340 :  Cm chr$(134):Ce 3d-balken
  29. 350 :  Cm chr$(135):Ce pareto
  30. 360 :  Cm chr$(136):Ce muenzen
  31. 370 :  Cm chr$(137):Ce balken-linien
  32. 380 :  Cm chr$(138):Ce torte
  33. 385 :  Cm chr$(139):Cy:CV:wait 198,1:goto160
  34. 390 :  Cm "e":Ce ende
  35. 400 :Cl
  36. 405 C@ x$=""
  37. 410 Cd ende
  38. 412 Cy:Cv"'charts & pies' beenden."
  39. 413 end
  40. 414 Cg
  41. 420 Cd information
  42. 430 Cy:Cv" [201][206][198][207][211] [146]":print:print
  43. 440 print"[196]er gewaehlte [199]rafiktyp erscheint mit"
  44. 450 print"entsprechenden [215]erten auf dem [211]creen."
  45. 460 print
  46. 470 print"[200]ires-[200]ardcopy:  [198]1 [146]"
  47. 480 print"[215]erteliste wird unten an die [199]rafik"
  48. 490 print"angefuegt. [196]er [196]rucker muss seriell mit"
  49. 492 print"dem [195] 64 verbunden sein ([196][201][206]-[203]abel oder"
  50. 494 print"[200]ardware-[201]nterface (z.[194]. [215]iesemann)."
  51. 495 print"[200]ires-[199]rafik speichern:  [198]3 [146]"
  52. 496 print"[196]ie [211]tatistikgrafik wird als [200]ires-[196]atei";
  53. 497 print"auf [196]iskette abgelegt."
  54. 498 print"[196]iese [198]unktion kann nur vor dem [196]rucken"
  55. 499 print"aufgerufen werden!"
  56. 501 print C(15,20);"<[212][193][211][212][197]>"
  57. 502 Ctx$:goto100
  58. 520 Cg
  59. 670 Cd 3d-balken
  60. 672 Cy:print"'.dat'-[196]atei laden (j/n)";:Cs ft$,1,tx$
  61. 673 iftx$="n"then680
  62. 674 print"[198]ilename (ohne '.dat'): ";:Cs ft$,12,fi$
  63. 675 Ce loaddata
  64. 676 ifba>12 then ba=12
  65. 677 goto701
  66. 680 print"[215]ieviele [208]osten (max.12):";:Cs fc$,2,ba$:ba=val(ba$)
  67. 690 ifba<1orba>12thenprint"unerlaubte [197]ingabe!":Dq2:goto680
  68. 700 Ce eingabe
  69. 701 Ce eingabe2
  70. 710 Ce maxvwert
  71. 720 Ce diagramm
  72. 730 Cta$
  73. 740 ifa$=chr$(134)thenC8
  74. 742 Ce graphsave
  75. 743 poke198,0:goto730
  76. 745 C:
  77. 750 ifa$=chr$(133)thenC8
  78. 753 Ce D%hardcopy
  79. 754 Ce listendruck
  80. 756 C:
  81. 790 run
  82. 791 Cg
  83. 800 Cd balken-linien
  84. 802 Cy:print"'.dat'-[196]atei laden (j/n)";:Cs ft$,1,tx$
  85. 803 iftx$="n"then810
  86. 804 print"[198]ilename (ohne '.dat'): ";:Cs ft$,12,fi$
  87. 805 Ce loaddata
  88. 806 goto831
  89. 810 Cy:print"[215]ieviele [208]osten (max.24):";:Cs fc$,2,ba$:ba=val(ba$)
  90. 820 ifba<1orba>24thenprint"unerlaubter [215]ert[146]":Dq2:goto810
  91. 830 Ce eingabe
  92. 831 Ce eingabe2
  93. 840 rem stapelgroesse optimieren
  94. 850 g=0:t=200000:ss=1
  95. 860 fori=1toba
  96. 870 ifss=1theng=p(i):t=p(i):ss=2
  97. 880 ifsgn(p(i))=-1thenp(i)=p(i)*-1
  98. 890 ifp(i)<tthent=p(i)
  99. 900 ifp(i)>gtheng=p(i)
  100. 910 nexti:rem g= groesster wert p
  101. 920 fori=1toba:n(i)=int(80*bb(i)/g):nexti:rem mass-stab balken optimieren
  102. 930 f=int(g/5)
  103. 940 Ce bldiagramm
  104. 950 Cta$
  105. 951 ifa$=chr$(134)thenC8
  106. 952 Ce graphsave
  107. 953 poke198,0:goto950
  108. 954 C:
  109. 970 ifa$=chr$(133)thenC8
  110. 972 Ce D%hardcopy
  111. 973 Ce azliste
  112. 975 C:
  113. 1010 run
  114. 1011 Cg
  115. 1020 Cd pareto
  116. 1022 Cy:print"'.dat'-[196]atei laden (j/n)";:Cs ft$,1,tx$
  117. 1023 iftx$="n"then1030
  118. 1024 print"[198]ilename (ohne '.dat'): ";:Cs ft$,12,fi$
  119. 1025 Ce loaddata
  120. 1026 ifba>12 then ba=12
  121. 1027 goto1051
  122. 1030 Cy:print"[215]ieviele [208]osten (max.12):";:Cs fc$,2,ba$:ba=val(ba$)
  123. 1040 ifba<1orba>12thenprint"unerlaubter [215]ert[146]":Dq2:goto1030
  124. 1050 Ce eingabe
  125. 1051 Ce eingabe2
  126. 1060 print:print"[211]ortierung[146]"
  127. 1070 Ce sortierung
  128. 1090 g=su
  129. 1100 fori=1toba:n(i)=int(120*val(bb$(i))/g):next
  130. 1110 f=10
  131. 1111 Ce paretodiagramm
  132. 1120 Cta$
  133. 1121 ifa$=chr$(134)thenC8
  134. 1122 Ce graphsave
  135. 1123 poke198,0:goto1120
  136. 1124 C:
  137. 1140 ifa$=chr$(133)thenC8
  138. 1142 Ce D%hardcopy
  139. 1143 Ce listendruck
  140. 1145 C:
  141. 1180 run
  142. 1181 Cg
  143. 1190 Cd muenzen
  144. 1192 Cy:print"'.dat'-[196]atei laden (j/n)";:Cs ft$,1,tx$
  145. 1193 iftx$="n"then1200
  146. 1194 print"[198]ilename (ohne '.dat'): ";:Cs ft$,12,fi$
  147. 1195 Ce loaddata
  148. 1196 ifba>6 then ba=6
  149. 1197 goto1221
  150. 1200 Cy:print"[215]ieviele [208]osten (max.6):";:Cs fc$,1,ba$:ba=val(ba$)
  151. 1210 ifba<1orba>6thenprint"unerlaubter [215]ert.":Dq2:goto1200
  152. 1220 Ce eingabe
  153. 1221 Ce eingabe2
  154. 1230 rem stapelgroesse optimieren
  155. 1240 g=0:t=200000:ss=1
  156. 1250 fori=1toba
  157. 1260 ifss=1theng=p(i):t=p(i):ss=2
  158. 1270 ifp(i)<tthent=p(i)
  159. 1280 ifp(i)>gtheng=p(i)
  160. 1290 nexti:rem g=groesster wert p
  161. 1300 fori=1toba:n(i)=int(20*p(i)/g):next:rem masstab balken
  162. 1310 f=int(g/5)
  163. 1320 Ce muenzgrafik
  164. 1330 Cta$
  165. 1331 ifa$=chr$(134)thenC8
  166. 1332 Ce graphsave
  167. 1333 poke198,0:goto1330
  168. 1334 C:
  169. 1350 ifa$=chr$(133)thenC8
  170. 1352 Ce D%hardcopy
  171. 1353 Ce listendruck
  172. 1355 C:
  173. 1390 run
  174. 1391 Cg
  175. 1400 Cd torte
  176. 1402 Cy:print"'.dat'-[196]atei laden (j/n)";:Cs ft$,1,tx$
  177. 1403 iftx$="n"then1410
  178. 1404 print"[198]ilename (ohne '.dat'): ";:Cs ft$,12,fi$
  179. 1405 Ce loaddata
  180. 1406 ifba>6 then ba=6
  181. 1407 goto1431
  182. 1410 Cy:print"[215]ieviele [208]osten (max.6):";:Cs fc$,1,ba$:ba=val(ba$)
  183. 1420 ifba<1orba>6thenprint"unerlaubter [215]ert!":Dq2:goto1410
  184. 1430 Ce eingabe
  185. 1431 Ce eingabe2
  186. 1432 g$=str$(g)
  187. 1440 Ce grafiktorte
  188. 1450 Cta$
  189. 1451 ifa$=chr$(134)thenC8
  190. 1452 Ce graphsave
  191. 1453 poke198,0:goto1450
  192. 1454 C:
  193. 1470 ifa$=chr$(133)thenC8
  194. 1472 Ce D%hardcopy
  195. 1473 Ce listendruck
  196. 1475 C:
  197. 1510 run
  198. 1511 Cg
  199. 1520 Cd eingabe
  200. 1540 print:print"[212]itel fuer [199]rafik  ";t$
  201. 1541 Cs ft$,12,t$
  202. 1550 print:print"[200]oechstwert (max.4stellig)":Cs fc$,4,p$
  203. 1555 iflen(p$)<4thenp$=p$+chr$(32):goto1555
  204. 1560 fori=1toba:o=o+1:printo".";
  205. 1570 print"[215]ert ";:Cs fc$,4,ee$(i):bb(i)=val(ee$(i)):print"[145]"spc(16);
  206. 1580 print"[194]ezeichnung:";:Cs ft$,10,z$(i)
  207. 1590 iflen(z$(i))<2thenz$(i)=chr$(32)+z$(i):goto1590
  208. 1595 bb$(i)=str$(bb(i))
  209. 1597 iflen(bb$(i))<10thenbb$(i)=chr$(32)+bb$(i):goto1597
  210. 1600 s=s+bb(i)
  211. 1605 su=su+abs(bb(i))
  212. 1610 p(i)=abs(bb(i)):nexti
  213. 1620 Ce speichern
  214. 1621 Cg
  215. 1622 Cd eingabe2
  216. 1623 print"[205]ittelwert zeigen (j/n) ";:Cs ft$,1,f$
  217. 1625 iff$="j"thenmw=int(s/ba):m$="[205]ittelw.:"+str$(mw)+" "+p$
  218. 1628 print"[211]umme in [199]rafik zeigen (j/n) ";:Cs ft$,1,g$
  219. 1630 ifg$="j"thens$="[211]umme:"+str$(s)+" "+p$
  220. 1631 print"% ausrechnen + [212]ab.[196]ruck.(j/n) ";:Cs ft$,1,f$
  221. 1632 fori=1toba
  222. 1633 j1=p(i)
  223. 1635 j1=int((j1*100/su)+.5):j$=str$(j1)
  224. 1636 iflen(j$)<3thenj$=chr$(32)+j$:goto1636
  225. 1637 j$(i)=j$
  226. 1638 nexti
  227. 1640 print"[203]ommentar zur [212]abelle (j/n)[160]";:Cs ft$,1,b$
  228. 1660 ifb$="j"thenprint"[203]ommentar:":Cs ft$,37,k$
  229. 1670 print
  230. 1680 print"[196]rucker [207][206][204][201][206][197] (j/n)";:Cs ft$,1,q$
  231. 1700 ifq$<>"j"then1680
  232. 1721 Cg
  233. 1740 Cd maxvwert
  234. 1750 g=0:t=20000:ss=1
  235. 1760 fori=1toba
  236. 1770 ifss=1theng=p(i):t=p(i):ss=2
  237. 1780 ifp(i)<tthent=p(i)
  238. 1790 ifp(i)>gtheng=p(i)
  239. 1800 nexti:rem g= groesster wert p
  240. 1810 fori=1toba:n(i)=int(120*p(i)/g):next
  241. 1820 rem masstab y-achse ausD.hnen
  242. 1830 f=int(g/10)
  243. 1840 Cg
  244. 1860 Cd diagramm
  245. 1870 D%0,3
  246. 1880 D847,1,""+t$,1,2,10,1
  247. 1890 D.x+13,h-140,(ba*21)+15,h-15,1
  248. 1900 D,x+13,h,x+11,h,1
  249. 1910 fori=12to120step12
  250. 1950 D,x+13,h-i,x+11,h-i,1
  251. 2000 nexti
  252. 2010 D80,h-3,"     0",1,1,8,1
  253. 2020 fori=15to123step12:w=w+f:a$=str$(w)
  254. 2030 iflen(a$)<6thena$=chr$(32)+a$:goto 2030
  255. 2050 D80,h-i,""+a$,1,1,8,1
  256. 2090 nexti:D80,h-140,""+p$,1,1,8,1
  257. 2100 forq=x+19to(ba-1)*21+x+19step21
  258. 2110 j=j+1:x$=left$(z$(j),2)
  259. 2120 D8q,h+10,""+x$,1,1,8,1
  260. 2130 nextq
  261. 2140 fori=1toba
  262. 2150 x=x+21
  263. 2160 b=n(i):y=h-b:e=x+a:f=h1-b:g=x+c+a:k=x+c
  264. 2170 ifb=0then2240
  265. 2180 D. x,y,a,b,1
  266. 2190 D, x,y,k,f,1
  267. 2200 D, k,f,g,f,1
  268. 2210 D, g,f,e,y,1
  269. 2220 D, g,f,g,h1,1
  270. 2230 D, g,h1,e,h,1
  271. 2240 nexti
  272. 2250 i=0
  273. 2260 forx=72to(ba-1)*21+72step21
  274. 2270 i=i+1:b=n(i):ifb=0then2290
  275. 2280 ifsgn(bb(i))=-1thenD8x-11,h1-132,"-[146]",1,1,7,1:goto2290
  276. 2281 D3x,h1,1
  277. 2290 nextx
  278. 2300 D847,h+20,""+m$,1,1,10,1
  279. 2310 D847,h+30,""+s$,1,1,8,1
  280. 2340 Cg
  281. 2360 Cd paretodiagramm
  282. 2370 D%0,3:x=20
  283. 2380 D830,1,""+t$,1,2,10,1
  284. 2390 D.x+13,h-140,(ba*22)+15,h-15,1
  285. 2400 fori=12to120step12
  286. 2450 D,x+13,h-i,x+11,h-i,1
  287. 2500 nexti
  288. 2510 D80,h-3,"   0",1,1,8,1
  289. 2520 fori=15to123step12:w=w+f:a$=str$(w)
  290. 2530 iflen(a$)<4thena$=chr$(32)+a$:goto2530
  291. 2550 D80,h-i,""+a$,1,1,8,1
  292. 2570 nexti:D80,h-140,"  %",1,1,8,1
  293. 2580 forq=x+23to(ba-1)*23+x+23step23
  294. 2590 j=j+1:x$=left$(z$(j),2)
  295. 2600 D8q,h+10,""+x$,1,1,8,1
  296. 2610 nextq:a=22
  297. 2620 fori=1toba
  298. 2630 x=x+22
  299. 2640 b=n(i):y=h-b:e=x+a:f=h1-b:g=x+c+a:k=x+c
  300. 2650 D.x,y,a,b,1
  301. 2660 h=y
  302. 2670 nexti
  303. 2680 h=160:a=12:i=o
  304. 2690 D830,h+20,""+s$,1,1,8,1
  305. 2700 D830,h+30,""+m$,1,1,8,1
  306. 2720 Cg
  307. 2740 Cd muenzgrafik
  308. 2750 D%0,3:y=130:a=0:c=0:x=0
  309. 2760 forx=80to((ba-1)*40)+80step40
  310. 2770 a=a+1:b=n(a):c=y-(3*b)
  311. 2780 D1x,c,15,8,1
  312. 2790 fori=1ton(a)
  313. 2800 D2x,c+(3*i),15,5,90,270,8,1
  314. 2810 nexti
  315. 2820 D8x-8,c-2,"dm",1,1,8,1
  316. 2825 ifsgn(bb(a))=-1thenD8x-6,c-17,"-[146]",1,1,8,1
  317. 2830 nextx
  318. 2840 D.60,50,(40*ba),100,1
  319. 2850 fori=3to63step12
  320. 2860 D,62,138-i,58,138-i,1
  321. 2870 nexti
  322. 2880 D80,132,"      0",1,1,8,1
  323. 2890 D80,50," "+p$,1,1,8,1
  324. 2900 fori=1to5
  325. 2910 w=w+f:a$=str$(w)
  326. 2920 iflen(a$)<7thena$=chr$(32)+a$:goto2920
  327. 2950 D80,132-(i*12),""+a$,1,1,8,1
  328. 2970 nexti
  329. 2980 forq=75to(ba-1)*40+75step40
  330. 2990 j=j+1:x$=left$(z$(j),2)
  331. 3000 D8q,160,""+x$,1,1,8,1
  332. 3010 nextq
  333. 3020 D820,175,""+m$,1,1,8,1
  334. 3030 D820,185,""+s$,1,1,8,1
  335. 3060 D840,20,""+t$,1,2,10,1
  336. 3070 Cg
  337. 3090 Cd bldiagramm
  338. 3100 h=95:x=37
  339. 3110 data"[193]","[194]","[195]","[196]","[197]","[198]","[199]","[200]","[201]","[202]","[203]","[204]","[205]","[206]","[207]","[208]","[209]","[210]"
  340. 3111 data"[211]","[212]","[213]","[215]","[216]","[217]","[218]"
  341. 3120 ifba>18thena=8:c=3:o=0
  342. 3130 ifba>12andba<19thena=10:c=3:o=1
  343. 3140 ifba>6andba<13thena=16:c=3:o=4
  344. 3150 ifba<7thena=24:c=3:o=8
  345. 3160 D%0,3
  346. 3170 D855,0,""+t$,1,2,10,1
  347. 3180 fori=15to79step16
  348. 3200 D,x+5,i,x+3,i,1
  349. 3220 nexti
  350. 3230 ifx$=chr$(133)then3300
  351. 3240 fori=111to175step16
  352. 3260 D,x+5,i,x+3,i,1
  353. 3280 nexti
  354. 3290 goto3350
  355. 3300 fori=121to185step16
  356. 3320 D,x+5,i,x+3,i,1
  357. 3340 nexti
  358. 3350 ifx$=chr$(133)thenD,x+5,105,x+18+((a+c)*ba)+(2*o),105,1
  359. 3360 D,x+5,95,x+18+((a+c)*ba)+(2*o),95,1
  360. 3370 D8x-7,92,"+",1,1,7,1
  361. 3380 D8x-7,102,"-",1,1,7,1
  362. 3390 ifx$=chr$(137)thenD.x+5,15,((a+c)*ba)+13+(2*o),160,1:goto3410
  363. 3400 D.x+5,15,((a+c)*ba)+13+(2*o),170,1
  364. 3410 k=x+5:j=h:ifn(1)<1thenj=95
  365. 3420 fori=1toba
  366. 3430 x=x+a+c
  367. 3440 ifx$=chr$(137)thenreado$:D8x+o,180,""+o$,1,1,7,1
  368. 3450 ifx$=chr$(137)thengosub3720:goto3500
  369. 3460 reado$:D8x+o,97,""+o$,1,1,7,1
  370. 3470 b=n(i):ifsgn(b)=-1thenb=b*-1:goto3760
  371. 3480 y=h-b
  372. 3490 D.x,y,a,b,1
  373. 3500 nexti
  374. 3510 fori=76to12step-16:w=w+f:a$=str$(w)
  375. 3520 iflen(a$)<5thena$=chr$(32)+a$:goto3520
  376. 3550 D80,i,""+a$,1,1,8,1
  377. 3580 nexti:D80,3," "+p$,1,1,8,1
  378. 3585 D80,190,""+m$,1,1,8,1
  379. 3587 D8170,190,""+s$,1,1,8,1
  380. 3590 w=0
  381. 3600 ifx$=chr$(133)thengoto3620
  382. 3610 fori=108to172step16:w=w+f:a$=str$(w):goto3630
  383. 3620 fori=118to182step16:w=w+f:a$=str$(w)
  384. 3630 iflen(a$)<5thena$=chr$(32)+a$:goto3630
  385. 3650 D80,i,""+a$,1,1,8,1
  386. 3690 nexti
  387. 3700 Cg
  388. 3720 b=n(i):y=h-b:ifsgn(b)=-1thenletb=b*-1:y=95+b
  389. 3730 D,k+o+3,j,x+o+3,y,1:k=x:j=y
  390. 3740 return
  391. 3760 y=105
  392. 3770 D.x,y,a,b,1
  393. 3780 D3x+1,y+1,1
  394. 3790 goto3500
  395. 3800 Cd grafiktorte
  396. 3805 D%0,3
  397. 3810 D840,1,""+t$,1,2,10,1
  398. 3815 D80,17,"[205]ax.[215]ert:"+g$+" "+p$,1,1,8,1
  399. 3820 D1150,100,100,50,1
  400. 3830 D2150,120,100,50,90,270,5,1
  401. 3840 r=360/su:D,150,100,150,50,1
  402. 3850 D,50,100,50,120,1:D,250,100,250,120,1
  403. 3860 fori=1toba
  404. 3865 q(i)=abs(bb(i))
  405. 3870 p=p+q(i)
  406. 3880 m=(r*p/180)*(NULL):n=((r*q(i)/2)/180)*(NULL)
  407. 3881 Ce D2teilen
  408. 3885 D,150,100,mm,nn,1
  409. 3886 readx$:x=asc(x$)-128:x$=chr$(x)
  410. 3890 D8145-cos((m-n)+((NULL)/2))*130,100-sin((m-n)+((NULL)/2))*80,x$,1,1,7,1
  411. 3895 ifq(ba)=abs(bb(1))then3910
  412. 3900 ifq(i)=gandh<>gthenD3150-cos((m-n)+(NULL)/2)*20,100-sin((m-n)+(NULL)/2)*20,1
  413. 3905 h=q(i)
  414. 3910 nexti
  415. 3915 D80,190,""+m$,1,1,7,1
  416. 3917 D8170,190,""+s$,1,1,7,1
  417. 3920 Cg
  418. 3930 Cd D%hardcopy
  419. 3940 open1,4,16:print#1,chr$(27)chr$(108)chr$(7):close1:rem rand links
  420. 3950 open1,4,16
  421. 3960 open9,4,25,"7"
  422. 3970 print#1,chr$(27)" v"
  423. 3980 print#1,chr$(08)
  424. 3990 D
  425. 4000 close1:close9
  426. 4010 Cg
  427. 4020 Cd listendruck
  428. 4030 D(:Cy
  429. 4040 open1,4,7:cmd1
  430. 4050 print:print:print"        [204]iste der [215]erte:"
  431. 4060 print:printk$
  432. 4070 print:print"[203]uerzel       [215]ert   [194]ezug   %   [208]osten":print
  433. 4080 i$="#########.##"
  434. 4090 fori=1toba:j$=j$(i)
  435. 4100 x$=left$(z$(i),2):iff$<>"j"then4115
  436. 4110 print"  "x$"   ";
  437. 4111 print C (i$,val(bb$(i)));
  438. 4112 print"  "p$"  ";j$"    ";z$(i):goto4120
  439. 4115 print"  "x$"   ";
  440. 4116 print C (i$,val(bb$(i)));
  441. 4117 print"  "p$;"        ";z$(i)
  442. 4120 nexti
  443. 4130 print#1:close1
  444. 4150 Cg
  445. 4170 Cd azliste
  446. 4180 D(:Cy
  447. 4190 open1,4,7:cmd1
  448. 4200 print:print:print"        [204]iste der [215]erte:"
  449. 4210 print:printk$
  450. 4220 print:print"[203]uerzel       [215]ert   [194]ezug   %    [208]osten":print
  451. 4230 restore:i$="#########.##"
  452. 4240 fori=1toba::j$=j$(i)
  453. 4250 readx$:iff$<>"j"then4265
  454. 4260 print"   "x$"   ";
  455. 4261 print C (i$,val(bb$(i)));
  456. 4262 print"  "p$"  ";j$"    ";z$(i):goto4270
  457. 4265 print"   "x$"   ";
  458. 4266 print C (i$,val(bb$(i)));
  459. 4267 print"  "p$;"        ";z$(i)
  460. 4270 nexti
  461. 4280 print#1:close1
  462. 4300 Cg
  463. 4310 Cd D2teilen
  464. 4320 mm=(150-cos(m+(NULL)/2)*100):nn=(100-sin(m+(NULL)/2)*50)
  465. 4330 if(r*p)>90and(r*p)<270thenD,mm,nn,mm,nn+20,1
  466. 4340 Cg
  467. 4400 Cd sortierung
  468. 4420 i=1
  469. 4450 xx=i+1
  470. 4460 ifbb$(i)>bb$(xx)then4480
  471. 4462 Dj bb$(i),bb$(xx)
  472. 4472 Dj z$(i),z$(xx)
  473. 4478 Dj j$(i),j$(xx)
  474. 4480 xx=xx+1
  475. 4490 ifxx<=bathen4460
  476. 4500 i=i+1
  477. 4510 ifi<>bathen4450
  478. 4520 Cg
  479. 4600 Cd savedata
  480. 4610 open2,8,2,"@0:"+left$(t$,12)+".dat"+",s,w"
  481. 4615 print#2,t$
  482. 4620 print#2,str$(ba)
  483. 4630 print#2,p$
  484. 4640 fori=1toba
  485. 4642 print#2,str$(bb(i))
  486. 4644 print#2,z$(i)
  487. 4650 print#2,str$(p(i))
  488. 4660 next
  489. 4665 print#2,str$(s)
  490. 4670 print#2,str$(su)
  491. 4680 print#2:close2
  492. 4690 Cg
  493. 4700 Cd loaddata
  494. 4710 open2,8,2,left$(fi$,12)+".dat"+",s,r"
  495. 4715 input#2,t$
  496. 4720 input#2,ba$:ba=val(ba$)
  497. 4730 input#2,p$
  498. 4740 fori=1toba
  499. 4742 input#2,bb$(i):bb(i)=val(bb$(i))
  500. 4744 input#2,z$(i)
  501. 4750 input#2,p$(i):p(i)=val(p$(i))
  502. 4760 next
  503. 4765 input#2,s$:s=val(s$)
  504. 4770 input#2,su$:su=val(su$)
  505. 4780 close2
  506. 4790 Cg
  507. 4800 Cd speichern
  508. 4810 print"[197]ingaben als '.dat'-[198]ile speichern (j/n)";:Cs ft$,1,tx$
  509. 4820 if tx$="n" then 4840
  510. 4830 Ce savedata
  511. 4840 Cg
  512. 4900 Cd graphsave
  513. 4910 D(:Cy
  514. 4920 print"dateiname der grafik:"
  515. 4930 Cs ft$,16,gr$
  516. 4940 D&
  517. 4950 CQ(gr$)
  518. 4960 Cg
  519.