home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / ku-ba-graph (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  92 lines
  1. 10 poke53272,23:poke53280,7:poke53281,7
  2. 20 print"[147][144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  3. 25 print"****************************************";
  4. 30 print"***     [203]urven- u. [194]alkengraphik     ***";
  5. 35 print"****************************************[146]";
  6. 40 print"           (c)  [197]. [215]itte 1985"
  7. 50 print"           [213]nterprogramm fuer"
  8. 60 print"             [197]pson-[211]upport"
  9. 70 print"              (c)  64'er"
  10. 80 print"               * [212][193][211][212][197] * [146]"
  11. 90 getx$:ifx$=""then90
  12. 100 input"[147][215]ieviel [203]urven (1 - 3) :";k
  13. 110 dima(12,k-1):forx=1tok:gosub120:next:goto290
  14. 120 print"[147]         [193]ngaben fuer [203]urve";x
  15. 130 input"[211]ind [196]aten auf [196]isk gespeich.(j/n)   j[157][157][157]";x$:ifx$<>"j"then160
  16. 140 print"[206]ame der [196]atei (max. 15 [218]eichen):":inputy$(x)
  17. 150 open2,8,2,y$(x)+",s,r":fory=0to12:input#2,a(y,x-1):next:close2
  18. 160 ifx=1theninput"[193]usdruck integer od. kaufm. (i/k) :";a$
  19. 170 print"[147]         [193]ngaben fuer [203]urve";x
  20. 180 print"[202]ahressoll:";a(0,x-1):print"[202]anuar    :";a(1,x-1):print"[198]ebruar   :"a(2,x-1)
  21. 190 print"[205]aerz     :";a(3,x-1):print"[193]pril     :";a(4,x-1):print"[205]ai       :"a(5,x-1)
  22. 200 print"[202]uni      :";a(6,x-1):print"[202]uli      :";a(7,x-1):print"[193]ugust    :"a(8,x-1)
  23. 210 print"[211]eptember :";a(9,x-1):print"[207]ktober   :";a(10,x-1):print"[206]ovember  :"a(11,x-1)
  24. 220 print"[196]ezember  :";a(12,x-1):print"[193]usdruck bis [205]onat (1-12):"
  25. 230 print"[196]aten auf [196]isk speichern ? (j/n)"
  26. 240 print"":fory=0to12:input"";a(y,x-1):next
  27. 250 input"";m(x)
  28. 260 input"j[157][157][157]";y$:ify$<>"j"then280
  29. 270 ifx$<>"j"thenprint"[206]ame der [196]atei (max. 15 [218]eichen):":inputy$(x)
  30. 275 open2,8,2,"@:"+y$(x)+",s,w":fory=0to12:print#2,a(y,x-1):next:close2
  31. 280 y$="":return
  32. 290 poke53272,21:print"[147]ueberschrift   (max. 17 zeichen):":inputy$:iflen(y$)>17then290
  33. 295 y=int((17-len(y$))/2):x$="         ":y$=left$(x$,y)+y$+left$(x$,y)
  34. 300 rem raster-graphik
  35. 320 &clear:&line0,0,799,0:&line799,0,799,531:&line799,531,0,531:&line0,531,0,0
  36. 330 &line1,1,798,1:&line798,1,798,530:&line798,530,1,530:&line1,530,1,1
  37. 340 forx=99to699step10:fory=40to480step10:&dotx,y:print".";:next:next
  38. 350 forx=104to694step10:fory=60to480step30:&dotx,y:print".";:next:next
  39. 360 forx=99to699step50:fory=45to485step10:&dotx,y:print".";:next:next
  40. 370 &line99,480,699,150:&line319,30,455,30
  41. 380 x=145:y=490:&textx,y,"j":&textx,y+10,"a":&textx,y+20,"n"
  42. 390 x=x+50:&textx,y,"f":&textx,y+10,"e":&textx,y+20,"b"
  43. 400 x=x+50:&textx,y,"m":&textx,y+10,"r":&textx,y+20,"z"
  44. 410 x=x+50:&textx,y,"a":&textx,y+10,"p":&textx,y+20,"r"
  45. 420 x=x+50:&textx,y,"m":&textx,y+10,"a":&textx,y+20,"i"
  46. 430 x=x+50:&textx,y,"j":&textx,y+10,"u":&textx,y+20,"n"
  47. 440 x=x+50:&textx,y,"j":&textx,y+10,"u":&textx,y+20,"l"
  48. 450 x=x+50:&textx,y,"a":&textx,y+10,"u":&textx,y+20,"g"
  49. 460 x=x+50:&textx,y,"s":&textx,y+10,"e":&textx,y+20,"p"
  50. 470 x=x+50:&textx,y,"o":&textx,y+10,"k":&textx,y+20,"t"
  51. 480 x=x+50:&textx,y,"n":&textx,y+10,"o":&textx,y+20,"v"
  52. 490 x=x+50:&textx,y,"d":&textx,y+10,"e":&textx,y+20,"z"
  53. 500 &invtext40,30,"mtl.":&invtext729,30,"lfd.":&invtext319,20,y$
  54. 510 rem einzelpunkt-graphik
  55. 520 forv=1tok:x=99:y=480
  56. 530 forz=1tom(v):x1=x+50:y1=y-int(330*a(z,v-1)/a(0,v-1)):ify1<0theny1=0
  57. 535 ifv>1thengosub700:goto545
  58. 540 q=q+a(z,v-1):&linex,y,x1,y1:gosub560
  59. 545 x=x+50:y=y1:next:next
  60. 550 &print:gosub750:print"[147]             e n d e":end
  61. 560 rem *** werte-druck ***
  62. 565 i=1:ifa$="k"theni=100
  63. 570 x$="        ":z$=right$(x$,9-len(str$(q*i)))+str$(q*i):v$=".":v1$=v$
  64. 580 q$=right$(x$,9-len(str$(a(z,v-1)*i)))+str$(a(z,v-1)*i):ifa$="k"then630
  65. 585 ifq<1000ora(z,v-1)<1000thenv1$=" "
  66. 590 v$=".":ifleft$(z$,3)="   "thenv$=" "
  67. 600 z$=left$(z$,3)+v$+mid$(z$,4,3)+v1$+right$(z$,3):&text699,y1-4,z$
  68. 610 v$=".":ifleft$(q$,3)="   "thenv$=" "
  69. 620 q$=left$(q$,3)+v$+mid$(q$,4,3)+v1$+right$(q$,3):&text0,y1-4,q$:return
  70. 630 v$=".":ifleft$(z$,4)="    "thenv$=" "
  71. 640 z$=left$(z$,4)+v$+mid$(z$,5,3)+","+right$(z$,2):&text699,y1-4,z$
  72. 650 v$=".":ifleft$(q$,4)="    "thenv$=" "
  73. 660 q$=left$(q$,4)+v$+mid$(q$,5,3)+","+right$(q$,2):&text0,y1-4,q$:return
  74. 700 rem *** punkt-kurve ***
  75. 710 b=y-y1:fora1=0to50:b1=int(b/50*a1+.5):b2=int(b/50*(a1+v)+.5)
  76. 720 ifv>2then740
  77. 730 &dotx+a1,y-b1:print"*";:a1=a1+1:next: return
  78. 740 &linex+a1,y-b1,x+a1+v,y-b2:a1=a1+v+5:print"*";:next:return
  79. 750 rem *** balkengraphik ***
  80. 760 &clear:&line0,0,799,0:&line799,0,799,180:&line799,180,0,180:&line0,180,0,0
  81. 770 &line1,1,798,1:&line798,1,798,179:&line798,179,1,179:&line1,179,1,1
  82. 780 forx=99to699step10:fory=20to160step10:&dotx,y:print".";:next:next
  83. 790 forx=99to699step50:fory=25to155step10:&dotx,y:print".";:next:next
  84. 800 &line79,90,719,90:&text30,86,"soll":&text749,86,"soll"
  85. 810 x=120:y=165:&textx,y,"j":x=x+50:&textx,y,"f":x=x+50:&textx,y,"m"
  86. 820 x=x+50:&textx,y,"a":x=x+50:&textx,y,"m":x=x+50:&textx,y,"j"
  87. 830 x=x+50:&textx,y,"j":x=x+50:&textx,y,"a":x=x+50:&textx,y,"s"
  88. 840 x=x+50:&textx,y,"o":x=x+50:&textx,y,"n":x=x+50:&textx,y,"d"
  89. 850 i=30/k:forv=1tok:x=109:ifv>1thenx=x+i:ifv>2thenx=x+i
  90. 860 forz=1tom(v):y=160:x1=x+i:y1=y-int(840*a(z,v-1)/a(0,v-1)):ify1<0theny1=0
  91. 870 forq=y1toystepv:&linex,q,x1,q:next:x=x+50:next:next:&print:return
  92.