home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 62 / 64er_Magazin_Sonderheft_62_19xx_Markt__Technik_de_Side_A.d64 / balkengrafik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  95 lines
  1. 10 rem vplot-demo exbasic level 2
  2. 20 rem 64'er sonderheft 62/h.beiler
  3. 30 1:(NULL)1:16:(NULL):(NULL)on
  4. 40 mn=12:dimh(mn),f(mn),mn$(mn),mo$(mn)
  5. 50 fori=1to12:readmn$(i):next
  6. 55 mw$(5)=(NULL)(37,"[164]")
  7. 60 goto740
  8. 70 gosub230:gosub640
  9. 80 print"[147]":gosub400
  10. 90 b=20:a=1:poke211,a:poke214,b:sys58640:printmw$(5)
  11. 100 f=1:fori=1to12
  12. 110 f=f+1
  13. 120 gosub190
  14. 130 next:gosub450
  15. 140 poke214,23:poke211,0:sys58640
  16. 150 printtab(1)""+(NULL)(37,32)
  17. 160 poke214,23:poke211,0:sys58640
  18. 170 printtab(1)""+nm$tab(20)"[199]esamt:";:print(NULL)"#########,##",s
  19. 180 poke198,0:wait198,1:goto640
  20. 190 poke211,a:poke214,b:sys58640
  21. 200 h(i),f:print
  22. 210 printtab(a-1)str$(i):a=a+3
  23. 220 return
  24. 230 print:print:printtab(10);:(NULL)" [206]ame der [199]rafik:";nm$,18:print
  25. 240 printtab(10);:(NULL)" [205]aximalwert....:";mw$,9:s=0
  26. 250 mw$(1)=str$(val(mw$))
  27. 260 mw$(2)=str$(val(mw$)*.75)
  28. 270 mw$(3)=str$(val(mw$)*.5)
  29. 280 mw$(4)=str$(val(mw$)*.25)
  30. 300 print"[147] [194]itte monatliche [215]erte eingeben "
  31. 310 fori=1to12
  32. 320 printmn$(i);:(NULL)mo$(i),len(mw$)+3:ifval(mo$(i))<=0thenmo$(i)="1"
  33. 330 h(i)=160/(val(mw$)/val(mo$(i)))
  34. 340 s=s+val(mo$(i))
  35. 350 next
  36. 360 poke211,7:poke214,20:sys58640
  37. 370 print" [196]aten speichern (j/n) "
  38. 380 gett$:ift$="j"thengosub500:return:(NULL)ift$="n"thenreturn
  39. 390 goto380
  40. 400 zl=0:sp=0
  41. 410 fori=1to4
  42. 420 poke211,sp:poke214,zl:sys58640
  43. 430 printmw$(5):zl=zl+5
  44. 440 next:return
  45. 450 zl=0:sp=0:fori=1to4
  46. 460 poke211,sp:poke214,zl:sys58640
  47. 470 printmw$(i):zl=zl+5
  48. 480 next:return
  49. 490 rem statistikdaten speichern
  50. 500 open2,8,2,nm$+",s,w"
  51. 501 print#2,mw$
  52. 510 fori=1to4:print#2,mw$(i):next
  53. 520 fori=1to12
  54. 530 print#2,mo$(i):print#2,h(i)
  55. 540 next
  56. 545 print#2,s
  57. 550 close2:return
  58. 560 rem statistikdaten laden
  59. 570 open2,8,2,nm$+",s,r"
  60. 571 input#2,mw$
  61. 580 fori=1to4:input#2,mw$(i):next
  62. 590 fori=1to12
  63. 600 input#2,mo$(i):input#2,h(i)
  64. 610 next
  65. 615 input#2,s
  66. 620 close2:return
  67. 630 rem textausgabe statistikdaten
  68. 640 print"[147]"tab(1)""+nm$tab(20)"[199]esamt:";:print(NULL)"#########,##",s
  69. 650 print
  70. 660 fori=1to12:9
  71. 670 printtab(1)mn$(i)tab(27);:8
  72. 680 print(NULL)"#########,##",val(mo$(i))
  73. 690 next
  74. 700 poke211,1:poke214,20:sys58640:14
  75. 710 print" ([194])alkengrafik               ([205])enue ":16
  76. 720 gett$:ift$="b"then80:(NULL)ift$="m"then60
  77. 730 goto720
  78. 740 rem hauptmenue
  79. 750 print"[147]":1,1,38,5,160,2
  80. 760 print:printtab(1)"      [211]tatistische [218]ahlenauswertung   "
  81. 770 printtab(1)"    [194]alkengrafik mit [197]xbasic [204]evel [201][201] ":print
  82. 780 8,10,30,16,160,2
  83. 790 poke211,10:poke214,11:sys58640
  84. 800 print" ([206])eue [211]tatistik  ":printtab(10)" ([193])lte [215]erte laden"
  85. 802 printtab(10)" ([197])nde            "
  86. 810 gett$:ift$="n"then70
  87. 820 ift$="a"thengosub840:gosub570:goto640
  88. 822 ift$="e"thenprint"[147]":end
  89. 830 goto810
  90. 840 print"[147][150] [206]ame des [196]atenfiles:[146] [213]msatz 1990[157][157][157][157][157][157][157][157][157][157][157]";:nm$
  91. 850 16:return
  92. 860 data"[202]anuar....","[198]ebruar...","[205]aerz.....","[193]pril.....","[205]ai......."
  93. 870 data"[202]uni......","[202]uli......","[193]ugust....","[211]eptember.","[207]ktober..."
  94. 880 data"[206]ovember..","[196]ezember.."
  95.