0 DIMA(8,12),M$(12),A$(8),E(4,12),E$(4),ES(4),AS(8)
1 OPEN15,8,15,"I
2 [159]2,8,2,"GJ,S,R":[132]2,GJ$:[160]2
10 [153]"LOADGESAMTUEBERSICHT NACH JAHREN
12 PRINT"EINNAHMEN/AUSGABEN
13 [139]GJ$[178]""[167]GJ$[178]"91
14 FORI=1TO8:READA$(I):NEXT:FORI=1TO12:READM$(I):NEXT
16 FORI=1TO4:READE$(I):NEXT:PRINT""GJ$"[145][145]
18 [133]"HEUTIGES DATUM   TT.MM.CMDCMDCMDCMDCMDCMDCMDCMD";SD$
20 [133]"VON JAHR   1991CMDCMDCMDCMDCMDCMD";J1:[139]J1[179]1900[167][138]
22 [133]"BIS JAHR   1991CMDCMDCMDCMDCMDCMD";J2:[139]J2[179]J1[167][138]
30 [129]J[178]J1[164]J2
32 [129]K[178]1[164]12:[129]I[178]1[164]8:A(I,K)[178].:[130]I,K
33 [129]K[178]1[164]12:[129]I[178]1[164]4:E(I,K)[178].:[130]I,K
34 E$[178][201]([196](J),4):[159]2,8,2,"AD"[170]E$[170]",S,R
35 FORI=1TO4:ES(I)=.:NEXT:FORI=1TO8:AS(I)=.:NEXT
36 INPUT#15,F1:IFF1THEN50
38 INPUT#2,A:FORI=1TOA:INPUT#2,A$,B,C,D$:D=VAL(MID$(D$,3,2))
40 A(C,D)=A(C,D)+B:NEXT:CLOSE2
42 FORI=1TO12:A(8,I)=A(1,I)+A(2,I)+A(3,I)+A(4,I)+A(5,I)+A(6,I)+A(7,I):NEXT
50 CLOSE2:OPEN2,8,2,"ED"+E$+",S,R":INPUT#2,A:FORI=1TOA
52 INPUT#2,A$,X$,X$,B$,X$,X$,C:B=VAL(MID$(B$,3,2)):A=1:IFA$="X"THENA=3
53 IFA$="H"THENA=2
54 E(A,B)=E(A,B)+C
55 NEXT:CLOSE2:FORI=1TO12:E(4,I)=E(1,I)+E(2,I)+E(3,I):NEXT
56 FORI=1TO4:FORK=1TO12:ES(I)=ES(I)+E(I,K):NEXTK,I
57 FORI=1TO8:FORK=1TO12:AS(I)=AS(I)+A(I,K):NEXTK,I
100 PRINT"JAHR "E$"[146] WIRD GEDRUCKT.":PRINT"BITTE DRUCKER BEREITMACHEN (TASTE)
102 [151]198,.:[146]198,1
110 [159]4,4
112 [152]4:[152]4,"GENERALVERWALTUNG EINNAHMEN/AUSGABEN
114 PRINT#4:PRINT#4:PRINT#4,"JAHR:  "E$"    STAND: "SD$"     REV. P1":PRINT#4
116 FORBA=1TO2:BA$="EINNAHMEN":IFBA=2THENBA$="AUSGABEN
118 [152]4:[152]4:[152]4,"UEBERBLICK UEBER  "BA$":
120 FORPS=1TO2:PA=(PS-1)*6+1:PB=PS*6
130 PRINT#4:PRINT#4:PRINT#4,"MONAT   ! ";:FORMZ=PATOPB:PRINT#4,M$(MZ)" ! ";:NEXT
140 IFPS=2THENPRINT#4,"SUMME   !";
145 PRINT#4
150 PRINT#4,"========!";:FORI=1TO6:PRINT#4,"=========!";:NEXT
152 IFPS=2THENPRINT#4,"=========!";
154 PRINT#4:FORBT=1TOBA*4
156 IFBA=1THENPRINT#4,E$(BT)"!";
158 IFBA=2THENPRINT#4,A$(BT)"!";
160 FORMZ=PATOPB:A=A(BT,MZ):IFBA=1THENA=E(BT,MZ)
162 SL=9:GOSUB800:PRINT#4,A$"!";:NEXT
170 IFPS=1THEN180
172 A=AS(BT):IFBA=1THENA=ES(BT)
174 SL=9:GOSUB800:PRINT#4,A$"!";
180 PRINT#4:IFBT<>BA*4-1THEN190
182 PRINT#4,"--------!";:FORI=1TO6:PRINT#4,"---------!";:NEXT
184 IFPS=2THENPRINT#4,"---------!";
186 PRINT#4
190 NEXT:NEXT:NEXT:DR$="                              "
200 PRINT#4:PRINT#4:PRINT#4:PRINT#4,"ALLE BETRAEGE IN DM";
202 IFJ2<>JTHENPRINT#4,DR$"         FORTS. NAECHSTE SEITE";
204 PRINT#4:PRINT#4:PRINT#4:PRINT#4:CLOSE4:NEXT
206 PRINT"ENDE !!":END
800 A$=STR$(A):IFA=INT(A)THENA$=A$+".
802 [129]FI[178]1[164][195](A$):[139][202](A$,FI,1)[178]"."[167]806
804 [130]:A$[178]A$[170]".
806 IFLEN(A$)-FI<>2THENA$=A$+"0":GOTO806
808 IFLEN(A$)<SLTHENA$=" "+A$:GOTO808
810 RETURN
900 DATABUEROBED,FACHLIT.,FAHRTKS.,COMPUTER,ELEKTRO.,"POST    ",SONSTIG.
902 DATA"SUMME   "
904 DATA"JANUAR ",FEBRUAR,"MAERZ  ","APRIL  ","MAI    ","JUNI   ","JULI   "
906 DATA"AUGUST ",SEPTBR.,OKTOBER,NOVMBR.,DEZMBR.
908 DATA"LOHN/EK.","KAPITAL.","SONSTIG.","SUMME   "