home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh86a.d64 / girojahr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  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.