5 LW=PEEK(186)
10 POKE53280,2:POKE53281,2:PRINT"[147]       JESUS CHRISTUS LOVES YOU !"
20 GETT$:IFT$=""THEN20
30 LA=0:LE=0
40 POKE53280,0:POKE53281,0:DIMDE$(300),DA$(300),BE$(300),BA$(300),A(300),E(300)
50 GOSUB1910:PRINT"[147][155]WELCHES JAHR ? [164]":X1=15:GOSUB1930:J$=W$
60 PRINT"[147][155][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
70 PRINT"[152]             GELDVERWALTUNG             ";
80 PRINT"[155][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
90 PRINT"           [152][1]  DATEN LADEN"
100 PRINT"           [2]  DATEN SPEICHERN"
110 PRINT"           [3]  DATEN ANSEHEN"
120 PRINT"           [4]  DATEN DRUCKEN"
130 PRINT"           [5]  DATEN EINGEBEN"
140 PRINT"           [6]  UEBERBLICK"
150 PRINT"           [7]  UND TSCHUESS"
160 PRINT"[155][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
170 PRINT"[152] DIESES PROGRAMM IST FREEWARE UND DARF  ";
180 PRINT"[152] NICHT VERAENDERT WERDEN.THANX TO JESUS.";
190 PRINT"[155][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
200 GETT$:IFT$=""THEN200
210 IFT$<"1"ORT$>"7"THEN200
220 G=ASC(T$)-48
230 ONGGOSUB280,500,740,1040,1310,1700,1870
240 GOTO60
250 :
260 REM LADEN
270 :
280 PRINT"[147]LADE EINNAHMEN BITTE WARTEN ........!":N$="EIN"+J$+",S,R"
290 OPEN1,LW,2,N$
300 INPUT#1,LE
310 FORL1=1TOLE
320 INPUT#1,DE$(L1)
330 INPUT#1,BE$(L1)
340 INPUT#1,E(L1)
350 NEXT
360 CLOSE1
370 PRINT"[147]LADE AUSGABEN BITTE WARTEN .........!":N$="AUS"+J$+",S,R"
380 OPEN1,LW,2,N$
390 INPUT#1,LA
400 FORL2=1TOLA
410 INPUT#1,DA$(L2)
420 INPUT#1,BA$(L2)
430 INPUT#1,A(L2)
440 NEXT
450 CLOSE1
460 RETURN
470 :
480 REM SPEICHERN
490 :
500 PRINT"[147]SPEICHERE EINNAHMEN BITTE WARTEN.....!":N$="EIN"+J$+",S,W"
510 A$="S:EIN"+J$:OPEN15,LW,15,A$:CLOSE15
520 OPEN1,LW,2,N$
530 PRINT#1,LE
540 FORL1=1TOLE
550 PRINT#1,DE$(L1)
560 PRINT#1,BE$(L1)
570 PRINT#1,E(L1)
580 NEXT
590 CLOSE1
600 PRINT"[147]SPEICHERE AUSGABEN BITTE WARTEN......!":N$="AUS"+J$+",S,W"
610 A$="S:AUS"+J$:OPEN15,LW,15,A$:CLOSE15
620 OPEN1,LW,2,N$
630 PRINT#1,LA
640 FORL2=1TOLA
650 PRINT#1,DA$(L2)
660 PRINT#1,BA$(L2)
670 PRINT#1,A(L2)
680 NEXT
690 CLOSE1
700 RETURN
710 :
720 REM ANSEHEN
730 :
740 PRINT"[147]    ANSEHEN VON:"
750 PRINT"    [1] EINNAHMEN"
760 PRINT"    [2] AUSGABEN"
770 PRINT"    [3] BEIDES"
780 GETT$:IFT$=""THEN780
790 IFT$<"1"ORT$>"3"THEN780
800 IFT$="2"THEN910
810 PRINT"[147]EINNAHMEN"
820 PRINT""
830 FORL1=1TOLE
840 Z=LEN(BE$(L1))
850 IFZ=25THEN870
860 FORQ=1TO25-Z:BE$(L1)=BE$(L1)+" ":NEXT
870 PRINTDE$(L1);" ";BE$(L1);E(L1)
880 GETTA$:IFTA$=""THEN880
890 NEXT
900 IFT$="1"THENRETURN
910 PRINT"[147]AUSGABEN"
920 PRINT""
930 FORL2=1TOLA
940 Z1=LEN(BA$(L2))
950 IFZ1=25THEN970
960 FORQ=1TO25-Z1:BA$(L2)=BA$(L2)+" ":NEXT
970 PRINTDA$(L2);" ";BA$(L2);A(L2)
980 GETTA$:IFTA$=""THEN980
990 NEXT
1000 RETURN
1010 :
1020 REM DRUCKEN
1030 :
1040 PRINT"[147]BITTE DRUCKER EINSCHALTEN ..!"
1050 PRINT"[_] FUER ABBRUCH............."
1060 GETT$:IFT$=""THEN1060
1070 IFT$="_"THENRETURN
1080 OPEN1,4:CMD1
1090 PRINT#1,"EINNAHMEN:";LE
1100 PRINT#1," "
1110 FORL1=1TOLE
1120 Z=LEN(BE$(L1))
1130 IFZ=25THEN1150
1140 FORQ=1TO25-Z:BE$(L1)=BE$(L1)+" ":NEXT
1150 PRINT#1,DE$(L1);" ";BE$(L1);E(L1)
1160 NEXT
1170 PRINT#1," "
1180 PRINT#1,"AUSGABEN:";LA
1190 PRINT#1," "
1200 FORL2=1TOLA
1210 Z=LEN(BA$(L2))
1220 IFZ=25THEN1240
1230 FORQ=1TO25-Z:BA$(L2)=BA$(L2)+" ":NEXT
1240 PRINT#1,DA$(L2);" ";BA$(L2);A(L2)
1250 NEXT
1260 CLOSE1
1270 RETURN
1280 :
1290 REM EINGABE
1300 :
1310 PRINT"[147]EINGABE......"
1320 PRINT"    [1] EINNAHMEN"
1330 PRINT"    [2] AUSGABEN"
1340 GETT$:IFT$=""THEN1340
1350 IFT$<"1"ORT$>"2"THEN1340
1360 IFT$="2"THEN1510
1370 LE=LE+1
1380 IFLE=300THENRETURN
1390 PRINT"[147]EINGABE VON EINNAHMEN.[_] EINGABE ENDE"
1400 PRINT"DATENSATZ:";LE
1410 PRINT"DATUM.....: [164]":Y1=5:X1=12:GOSUB1930:DE$(LE)=W$
1420 IFLEN(DE$(LE))>6THEN1380
1430 IFDE$(LE)="_"THEN1650
1440 Y1=7:PRINT"BEMERKUNG.: [164]":GOSUB1930:BE$(LE)=W$
1450 IFLEN(BE$(LE))>25THEN1380
1460 PRINT"EINNAHMEN.: [164]":Y1=9:GOSUB1930:E(LE)=VAL(W$)
1470 PRINT"KORREKT ?"
1480 GETT$:IFT$=""THEN1480
1490 IFT$="N"THEN1380
1500 GOTO1370
1510 LA=LA+1
1520 IFLA=300THENRETURN
1530 PRINT"[147]EINGABE VON AUSGABEN.[_] EINGABE ENDE"
1540 PRINT"DATENSATZ:";LA
1550 PRINT"DATUM.....: [164]":X1=12:Y1=5:GOSUB1930:DA$(LA)=W$
1560 IFLEN(DA$(LA))>6THEN1520
1570 IFDA$(LA)="_"THEN1660
1580 PRINT"BEMERKUNG.: [164]":Y1=7:GOSUB1930:BA$(LA)=W$
1590 IFLEN(BA$(LA))>25THEN1520
1600 PRINT"AUSGABEN..: [164]":Y1=9:GOSUB1930:A(LA)=VAL(W$)
1610 PRINT"KORREKT ?"
1620 GETT$:IFT$=""THEN1620
1630 IFT$="N"THEN1520
1640 GOTO1510
1650 LE=LE-1:RETURN
1660 LA=LA-1:RETURN
1670 :
1680 REM UEBERBLICK
1690 :
1700 PRINT"[147]DER UEBERBLICK":GE=0:GA=0:RG=0
1710 PRINT"BITTE WARTEN..."
1720 FORL1=1TOLE
1730 GE=GE+E(L1)
1740 NEXT
1750 FORL2=1TOLA
1760 GA=GA+A(L2)
1770 NEXT
1780 RG=GE-GA
1790 PRINT"GESAMT EINNAHMEN:";GE
1800 PRINT"GESAMT AUSGABEN.:";GA
1810 PRINT"DIFFERENZ.......:";RG
1820 GETT$:IFT$=""THEN1820
1830 RETURN
1840 :
1850 REM ENDE
1860 :
1870 PRINT"[147]UND WEG....."
1880 GETT$:IFT$=""THEN1880
1890 IFT$<>"J"THENRETURN
1900 SYS64738
1910 OP=704:FORI=.TO25:READY:POKEOP+I,Y:NEXT:DATA32,253,174,32,158,183,138,72,32
1920 DATA253,174,32,158,183,104,168,24,32,240,255,32,253,174,76,164,170:RETURN
1930 W$=""
1940 GETT$:IFT$=""THEN1940
1950 IFT$=""ORT$="[145]"ORT$="[157]"ORT$=""ORT$="[147]"ORT$=""THEN1940
1960 IFT$=CHR$(20)THEN2000
1970 IFT$=CHR$(13)THENRETURN
1980 W$=W$+T$:L=LEN(W$):IFL=255THEN1970
1990 SYSOP,X1,Y1,W$;"[164]":GOTO1940
2000 IFLEN(W$)=0THEN1940
2010 L=LEN(W$)-1:W$=LEFT$(W$,L):SYSOP,X1-1,Y1," ";:FORA=1TOL+2
2020 PRINT" ";:NEXT:SYSOP,X1,Y1,W$;"[164]":GOTO1940