home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / diagramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  99 lines
  1. 1 ifpeek(49153)<>225thenload"uhrzeit",8,8
  2. 2 open2,8,2,"gj,s,r":input#2,gj$:close2:ifgj$=""thengj$="91
  3. 5 vs$[178]"p
  4. 6 sys49152,1:uh=peek(2)
  5. 10 print"[147][153]buchhaltung: diagramm  v"vs$"  280490
  6. 11 [139]uh[167][153]"mit";:[137]13
  7. 12 [153]"ohne";
  8. 13 [153]" echtzeituhr
  9. 14 dm$="tt.mm."+gj$:ifuhthensys49155,128,dm$
  10. 15 remprint"nicht gegen eingabefehler gesichert!
  11. 16 [153]"             "dm$
  12. 20 [133]"ontagesdatum ";dm$
  13. 30 [153]"bitte maximal 80 monate drucken lassen!
  14. 31 goto40
  15. 32 iftn=1orad$="a"thenreturn
  16. 33 re=(val(re$(tn-1))*(tn-1)+val(re$))/tn
  17. 34 re$=str$(int(re*100+.5)/100)
  18. 37 ifasc(re$)=45thenre$=" "+re$
  19. 38 return
  20. 40 input"von jahr    91[157][157][157][157]";j1
  21. 42 input"    monat   01[157][157][157][157]";m1
  22. 50 input"bis jahr    91[157][157][157][157]";j2
  23. 52 input"    monat   12[157][157][157][157]";m2
  24. 60 print" 1 - einnahmen
  25. 62 [153]" 2 - ausgaben
  26. 64 print" 3 - gewinn
  27. 70 [161]ty$:[139]ty$[179]"1"[176]ty$[177]"3"[167]70
  28. 71 [153]" a - absolute zahlen
  29. 72 print" d - entwicklung des durchschnitts
  30. 73 [161]ad$:[139]ad$[179][177]"a"[175]ad$[179][177]"d"[167]73
  31. 80 [134]ei(12),au(12),li$(100),re$(100)
  32. 90 j[178]j1:m[178]m1:[153]"bitte drucker einschalten und bereit-   machen! (taste)
  33. 95 poke198,.:wait198,1:poke198,.
  34. 100 fori=1to12:ei(i)=0:au(i)=0:next
  35. 101 print"** lese datei zu jahr"j
  36. 102 ifty$="2"then150
  37. 110 open2,8,2,"ed19"+right$(str$(j),2)+",s,r":a=0:input#2,a:ifa=0then145
  38. 115 fori=1toa
  39. 120 input#2,a$,b$,c$,d$,e$,f$,g$
  40. 130 em=val(mid$(d$,3,2)):ei(em)=ei(em)+val(g$)
  41. 140 next
  42. 145 close2
  43. 150 ifty$="1"then200
  44. 160 open2,8,2,"ad19"+right$(str$(j),2)+",s,r":a=0:input#2,a:ifa=0then195
  45. 165 fori=1toa
  46. 170 input#2,a$,b,c,d$
  47. 180 em=val(mid$(d$,3,2)):au(em)=au(em)+b
  48. 190 next
  49. 195 close2
  50. 200 tn=tn+1
  51. 210 li$=str$(m):li$=mid$(li$,2):iflen(li$)=1thenli$="0"+li$
  52. 212 li$(tn)=li$+"/"+mid$(str$(j),2)
  53. 220 ifty$="1"thenre$=str$(ei(m))
  54. 221 ifty$="2"thenre$=str$(au(m))
  55. 222 ifty$="3"thenre$=str$(ei(m)-au(m)):ifasc(re$)=45thenre$=" "+re$
  56. 223 gosub32:re$=mid$(re$,2):ifleft$(re$,1)="."thenre$="0"+re$
  57. 224 iflen(re$)>2thenif"."=mid$(re$,len(re$)-2,1)then230
  58. 225 iflen(re$)>2thenif"."=mid$(re$,len(re$)-1,1)thenre$=re$+"0":goto230
  59. 226 re$=re$+".00
  60. 230 [139][195](re$)[179]10[167]re$[178]" "[170]re$:[137]230
  61. 235 re$(tn)[178]re$:m[178]m[170]1
  62. 240 [139]m[177]m2[175]j[178][177]j2[167]300
  63. 250 [139]m[177]12[167]m[178]1:j[178]j[170]1:[137]100
  64. 260 [137]200
  65. 300 [159]4,4
  66. 310 [152]4:[152]4,"generalverwaltung einnahmen/ausgaben
  67. 312 print#4:print#4,"tabelle  ";
  68. 313 ifty$="1"thenprint#4,"e i n n a h m e";
  69. 314 ifty$="2"thenprint#4,"a u s g a b e";
  70. 315 ifty$="3"thenprint#4,"g e w i n";
  71. 316 print#4," n 50stand: "dm$"    v"vs$
  72. 318 ifad$="d"thenprint#4:print#4,"*** entwicklung des durchschnitts ***
  73. 320 [129]i[178]1[164]tn:mk[178][197](re$(i))
  74. 322 [139]mk[177]mx[167]mx[178]mk
  75. 324 [130]
  76. 325 mi$[178][196]([181](mx[173]2)):ma$[178][196]([181](mx))
  77. 326 mi$[178][202](mi$,2):ma$[178][202](ma$,2)
  78. 327 [139][195](mi$)[179]5[167]mi$[178]"0"[170]mi$:[137]327
  79. 328 [139][195](ma$)[179]5[167]ma$[178]"0"[170]ma$:[137]328
  80. 330 [152]4:[152]4:[152]4,"monat ! 0000035"mi$"62"ma$" ! betrag dm
  81. 332 fori=1to79:print#4,"-";:next:print#4
  82. 334 fori=1totn
  83. 336 print#4,li$(i)" ! ";:ifmx=0thenp=37*6:goto340
  84. 338 p=val(re$(i))/mx*59+8:p=p*6
  85. 340 ph=int(p/256):pl=p-256*ph
  86. 342 print#4,""chr$(ph)chr$(pl)"+";
  87. 350 print#4,"68!"re$(i):sq=sq+val(re$(i))
  88. 360 next
  89. 362 fori=1to79:print#4,"-";:next:print#4
  90. 364 print#4,"62summe :";:goto400
  91. 366 re$=mid$(str$(sq),2):ifleft$(re$,1)="."thenre$="0"+re$
  92. 367 iflen(re$)>2thenif"."=mid$(re$,len(re$)-2,1)then370
  93. 368 iflen(re$)>2thenif"."=mid$(re$,len(re$)-1,1)thenre$=re$+"0":goto370
  94. 369 re$=re$+".00
  95. 370 [139][195](re$)[179]10[167]re$[178]" "[170]re$:[137]370
  96. 380 [142]
  97. 400 [141]366:[152]4,re$
  98. 410 [152]4,"55durchschnitt :";:sq[178][181](sq[173]tn[172]
  99.