home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / girojahr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.8 KB  |  115 lines
  1. 2 dimte$(600):n1=0
  2. 10 l1$="---------------------------------------------------------------- "
  3. 1000 rem----------------------------
  4. 1010 rem girokonto jahresuebersicht
  5. 1020 rem----------------------------
  6. 1030 :
  7. 1035 print"[147]  [202]ahresuebersicht [199][201][210][207][203][207][206][212][207]":print
  8. 1040 input"welches [202]ahr (jj)";ja$
  9. 1050 forid=1to12
  10. 1060 :   mo$=right$("0"+mid$(str$(id),2)+"/"+ja$,5)
  11. 1070 :   close2:open2,8,2,mo$+ ",s,r"
  12. 1080 :   gosub 10000
  13. 1090 :   if er=62 then 1110
  14. 1100 :   gosub 2000
  15. 1110 next
  16. 1120 gosub 4000
  17. 1130 end
  18. 1140 :
  19. 2000 rem----------------------------
  20. 2002 rem    dateien lesen
  21. 2004 rem----------------------------
  22. 2005 :
  23. 2008 close2:open2,8,2,mo$+ ",s,r"
  24. 2010 gosub 10000
  25. 2020 close4: open4,4,7
  26. 2030 print#4,l1$
  27. 2040 print#4,"                  >[199][201][210][207][203][207][206][212][207]<  ",mo$;
  28. 2043 print"------------------------"
  29. 2045 print"      >[199][201][210][207][203][207][206][212][207]<  ",mo$
  30. 2050 input#2,n$:n=val(n$)-1
  31. 2060 print#4,"  ";n-1;" [194]uchungen"
  32. 2070 print#4,l1$
  33. 2080 fori=n1+2 to n1+n:input#2,te$(i):print#4,te$(i):next
  34. 2090 close2
  35. 2100 print"------------------------"
  36. 2110 fori=n1+1 to n1+n
  37. 2120 :   m$ ="":be=0
  38. 2130 :   be =val(mid$(te$(i),26,9))
  39. 2140 :   m$ =mid$(te$(i),35,1)
  40. 2150 :   ba$=mid$(te$(i),15, 3)
  41. 2160 :   ty$=mid$(te$(i),37, 2)
  42. 2170 :   if m$="+" then pl=pl+be:goto2230
  43. 2180 :   if m$=">" or ba$="[211]pa"   then tr=tr+be:goto2230
  44. 2190 :   if ba$="[194]ar" then ba=ba+be
  45. 2200 :   if ba$="[213]eb" or ty$="[213][197]" then ue=ue+be
  46. 2210 :   if ba$="[197]ur" or ty$="[197][195]" then ec=ec+be
  47. 2215 :   if ty$="[196][193]" then da=da+be
  48. 2220 :  au=au+be
  49. 2230 next
  50. 2240 n1=n1+n:m=m+1
  51. 2250 return
  52. 2260 :
  53. 4000 rem----------------------------
  54. 4010 rem  zusammenfassung
  55. 4020 rem----------------------------
  56. 4030 :
  57. 4040 p1=pl/m:rem einnahmen
  58. 4050 a1=au/m:rem ausgaben
  59. 4060 t1=tr/m:rem sparen
  60. 4070 b1=ba/m:rem bar
  61. 4080 e1=ec/m:rem euro
  62. 4090 u1=ue/m:rem ueberwsg
  63. 4095 d1=da/m:rem dauerauftraege
  64. 4100 gosub4500:rem formatieren
  65. 4110 :
  66. 4120 print#4,l1$:print#4:print#4:print#4,l1$
  67. 4130 print#4,"[218]usammenfassung ";ja$,"        [196]urchschnitt"
  68. 4140 print#4,l1$
  69. 4150 print#4," [197]innahmen= "pl$," = " p1$ " pro [205]onat"
  70. 4160 print#4," [193]usgaben = "au$," = " a1$ " pro [205]onat"
  71. 4170 print#4," [211]paren   = "tr$," = " t1$ " pro [205]onat"
  72. 4180 print#4,l1$
  73. 4190 print#4," [194]ar      = "ba$," = " b1$ " pro [205]onat"
  74. 4200 print#4," [197]uro     = "ec$," = " e1$ " pro [205]onat"
  75. 4210 print#4," [213]eberwsg = "ue$," = " u1$ " pro [205]onat"
  76. 4215 print#4," [196]auerauf.= "da$," = " d1$ " pro [205]onat"
  77. 4220 return
  78. 4230 :
  79. 4500 rem----------------------------
  80. 4510 rem formatieren
  81. 4520 rem----------------------------
  82. 4530 :
  83. 4550 l3$="         "
  84. 4560 x=au:gosub4650:au$=x$:au=x
  85. 4570 x=ei:gosub4650:ei$=x$:ei=x
  86. 4580 x=tr:gosub4650:tr$=x$:tr=x
  87. 4590 x=pl:gosub4650:pl$=x$:pl=x
  88. 4600 x=ec:gosub4650:ec$=x$:ec=x
  89. 4610 x=ue:gosub4650:ue$=x$:ue=x
  90. 4620 x=ba:gosub4650:ba$=x$:ba=x
  91. 4621 x=b1:gosub4650:b1$=x$:b1=x
  92. 4622 x=e1:gosub4650:e1$=x$:e1=x
  93. 4623 x=u1:gosub4650:u1$=x$:u1=x
  94. 4624 x=t1:gosub4650:t1$=x$:t1=x
  95. 4625 x=a1:gosub4650:a1$=x$:a1=x
  96. 4626 x=p1:gosub4650:p1$=x$:p1=x
  97. 4627 x=da:gosub4650:da$=x$:da=x
  98. 4628 x=d1:gosub4650:d1$=x$:d1=x
  99. 4630 return
  100. 4640 :
  101. 4650 x$=str$(x)
  102. 4660 x =int(val(x$)*100+.5)/100:x$=str$(x)
  103. 4670 ifx -int(x)=0 then x$= x$+".00":goto4690
  104. 4680 ifx*10-int(x*10+.5)= 00  then x$=x$+"0"
  105. 4690 x$=right$(l3$+x$,9)
  106. 4700 return
  107. 4710 :
  108. 10000 rem----------------------------
  109. 10010 rem disk status
  110. 10020 rem----------------------------
  111. 10030 :
  112. 10040 (NULL)(er,er$)
  113. 10050 if er<>0 then printmo$,er$
  114. 10060 return
  115.