64'er/64ER_CD.iso/sh7x/sh78b.d64/konto

Commodore BASIC | 1995-03-30 | 13KB | 430 lines

0 REM **** NIKOLAUS HEUSLER / ZWENGAUERWEG 18 / 8000 MUENCHEN 71 ****
1 IFPEEK(51201)<>253THENLOAD"USING",8,8
2 IFPEEK(49153)<>225THENLOAD"UHRZEIT",8,8
3 IFPEEK(50505)<>169THENLOAD"CURSOR-LOCK",8,8
4 ZZ=365*2:POKE53281,15:POKE53280,15:DIMDM(500),BT$(500),DA$(500),ZE(ZZ)
5 SYS50505:VN$="26
6 [158]49152,1:UH[178][194](2):DV[178]3:RG[178]5
7 SP$[178]"                                                                     "
8 LE$[178]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[170][199](13)[170]"ON
9 POKE44300,13:POKE44301,145:POKE44302,0:POKE63194,201
10 PRINT"[147][151][142]KONTOFUEHRUNG VERSION "VN$"
11 [139]UH[167][153]"MIT";:[137]13
12 [153]"OHNE";
13 [153]" ECHTZEITUHR
20 POKE198,.:INPUT"KONTONUMMER (0 = LISTE)   0[157][157][157]";NM$:NM=VAL(NM$)
21 IFNM<.ORNM>999THENRUN
22 OPEN15,8,15,"I
23 [139]NM[178].[167]700
25 [159]2,8,2,"KTO"[170][196](NM)[170]",S,R
26 INPUT#15,F1:IFF1<>62THEN48
30 CLOSE2:POKE198,.:PRINT"KONTO BESTEHT NICHT. ANLEGEN ? [J/N]
32 [161]A$:[139]A$[178]"N"[167][138]
33 [139]A$[179][177]"J"[167]32
40 [133]"K-BEZEICHUNG ";NA$
41 [139]NA$[178]""[176][195](NA$)[177]24[167][153]"MIN. 1 / MAX. 24 ZEICHEN!":[137]40
42 [153]"KONTO WIRD ANGELEGT.
44 OPEN2,8,2,"KTO"+STR$(NM)+",S,W
46 [152]2,NA$:[152]2,0:[152]2,0:[152]2,0:[152]2,"//":[152]2,0:[160]2:[138]
48 [139]F1[167][153]"DISKETTENFEHLER NR."F1:[160]2:[160]15:[128]
50 [132]2,NA$:[153]"K-BEZEICHNUNG: "NA$
52 [132]2,AB:[153]"BUCHUNGEN:"AB:WT$[178]"0
56 INPUT#2,P1:INPUT#2,P2:INPUT#2,P3$:INPUT#2,WT$:IFAB=.THEN70
58 PRINT"DATEI WIRD GELESEN  BITTE WARTEN!
60 [129]I[178]1[164]AB:[132]2,DM(I),BT$(I),DA$(I):[130]
70 [160]2
72 AM[178]12:[134]AK$(AM),VZ$(AM)
74 [129]I[178]1[164]AM:[135]AK$(I),VZ$(I):[130]
76 [131]UEBERWEISUNG,,BAR,,ZINSEN,+,SCHECK,+,UEBERTRAG,,EC-AUTOMAT,-
77 [131]GUTSCHRIFT,+,LASTSCHRIFT,-,EINZAHLUNG,+,AUSZAHLUNG,-
78 [131]KONTOABRECHNUNG,+,WERTPAPIERE,
100 DP$[178]",":[153]"LOADKONTOFUEHRUNG  HAUPTMENUEWAIT            V"VN$;
101 KO[178].:M5$[178]"/":[139]P3$[178]""[167]P3$[178]"/
102 PRINTLE$" A [146] - BUCHEN
104 [153]" B WAIT - STORNO
106 PRINT" C [146] - BUCHUNGSLISTE
108 [153]" D WAIT - KONTOSTAND
110 PRINT" E [146] - EINZEL-INFO
111 [153]" F WAIT - ZINSBERECHNUNG
112 PRINT" G [146] - KONTOAUSZUG (DRUCKER)
113 [153]" H WAIT - AUSZUG-STATUS":[153]" I WAIT - STAMMDATENPFLEGE
114 PRINT" J [146] - ZINS-AUSWERTUNG":PRINT" K [146] - UEBERTRAG
117 [153]" L WAIT - ENDE
118 OPEN4,3:POKE198,.
119 PRINTLE$"KONTO-NR.:"NM"- "NA$:PRINT"BUCHUNGEN:"AB:PRINT"     WERT: "WT$
120 GOSUB800:POKE198,.
122 GETM4$:IFM4$<"A"ORM4$>"L"THEN122
123 PRINT"[147]KTO.NR."NM"- "NA$:IFM4$="L"THEN6000
124 ONASC(M4$)-64GOSUB1000,2000,3000,4000,5000,7000,8000,9000,10000,11000,12000
130 PRINT#4:CLOSE4
145 IFM5$<>"B"THEN100
150 PRINT"** WEITER MIT TASTE[146] **
160 [151]198,.:[146]198,1
190 [137]100
200 US$[178]"":[153]"AUSGABE DWAITRUCKER ODER BWAITILDSCHIRM ?
202 GETM5$:IFM5$="D"THENDV=4:GOTO206
204 IFM5$<>"B"THEN202
205 DV=3:US$=CHR$(13)
206 CLOSE4:OPEN4,DV:PRINT#4:IFST<0THEN280
207 IFDV=4ANDRG>0THENOPEN19,4,2:PRINT#19,"L"+CHR$(RG);:CLOSE19
208 PRINT#4:PRINT#4,"***** KONTOFUEHRUNG V"VN$" *****"CHR$(13)
210 PRINT#4,"KONTO-NR.: "RIGHT$(" "+STR$(NM),3)"        "US$"BEZ.: "NA$
212 PRINT#4,"BUCHUNGEN: "RIGHT$(" "+STR$(AB),3)"        WERT: "WT$
214 PRINT#4:RETURN
280 PRINT"ACHTUNG[146]: DRUCKER NICHT ANSPRECHBAR!
282 [153]"  N WAIT - NOCHMAL VERSUCHEN
284 PRINT"  B [146] - BILDSCHIRM-AUSGABE
290 [161]M5$:[139]M5$[178]"N"[167]206
292 [139]M5$[179][177]"B"[167]290
294 [137]205
300 [158]51200,X,DV[172]6[171]7,128,DV[171]3,2,32,1[171](DP$[178]","),X$:[142]
330 [152]4,"DM";:[141]300:[152]4,X$:[142]
335 [152]4,": ";:X[178]SD:[137]330
340 [152]4,[201](SP$[170][202]([196](X),2),3);:[142]
350 [141]300:[152]4,[201](X$,7)"% : ";:[142]
360 EZ$[178]" ":[139]KO[178]0[167][139]RI[178]P2[167]EZ$[178]"TO
362 RETURN
400 IFAB<2THENVD$="TT.MM.91":GOTO410
402 VD$=DA$(AB-1):RETURN
410 IFUHTHENSYS49155,128,VD$
412 RETURN
500 CY=.:T=VAL(LEFT$(X$,2))
502 M=VAL(MID$(X$,4,2))
504 J=1900+VAL(MID$(X$,7,2))
506 IFT<1ORT>31ORM<1ORM>12THENRETURN
510 IFM>2THENM=M-3:GOTO514
512 M=M+9:J=J-1
514 C=INT(J/100):JA=J-100*C
516 X=INT(146097*C/4)+INT(1461*JA/4)+INT((153*M+2)/5)+T:CY=1:RETURN
600 IFUH=.THENTD$="TT.MM.91":GOTO604
602 SYS49155,128,TD$
604 IFDV=3THENRETURN
606 PRINT""TD$
608 INPUT"[145]HEUTIGES DATUM ";TD$:RETURN
700 PRINT"KONTENLISTE AUSGEBEN
702 [153]"AUSGABE DWAITRUCKER ODER BWAITILDSCHIRM ?
704 GETM5$:IFM5$="D"THENDV=4:GOTO710
706 IFM5$<>"B"THEN704
708 DV=3
710 GOSUB600:CLOSE4:OPEN4,DV:IFDV=3THENM4$="N":GOTO720
712 PRINT"KONTOSTAENDE DRUCKEN ? [J/N]
714 [161]M4$:[139]M4$[179][177]"N"[175]M4$[179][177]"J"[167]714
720 [152]4:[152]4:[152]4,"***** KONTOFUEHRUNG V"VN$" *****
722 GH=.:GL=.:PRINT#4:PRINT#4,"KONTENLISTE    STAND: "TD$
724 PRINT#4:PRINT#4,"KTO  BEZEICHNUNG";
725 HS$="                KTO-STAND DM  WERT  LETZTE BUCHG  BUCHUNGEN
726 [139]M4$[178]"J"[167]DP$[178]",":[152]4,HS$;
728 [152]4
730 NM[178]1
732 [159]2,8,2,"KTO"[170][196](NM)[170]",S,R
734 INPUT#15,F1:IFF1THEN790
736 INPUT#2,NA$:PRINT#4,RIGHT$(SP$+STR$(NM),3)"  "LEFT$(NA$+SP$,27);
738 IFM4$="N"THEN760
740 INPUT#2,AB:INPUT#2,P1:INPUT#2,P2:INPUT#2,P3$:P3$="":INPUT#2,WT$:WT=VAL(WT$)
742 SD=.:IFAB=.THEN750
744 FORI=1TOAB
746 INPUT#2,P2:INPUT#2,P3$:INPUT#2,P3$:SD=SD+P2:NEXT:GH=GH+SD:GL=GL+AB
748 GW=GW+WT*SD
750 X=SD:GOSUB300:PRINT#4,RIGHT$(X$,12)RIGHT$(SP$+WT$,5);
752 PRINT#4,RIGHT$(SP$+P3$,13)RIGHT$(SP$+STR$(AB),11);
760 PRINT#4:CLOSE2
762 NM=NM+1:GOTO732
770 IFM4$="N"ORNM<2THENRETURN
772 PRINT#4,"----------------------------------------------------------";
773 PRINT#4,"------------------
774 [152]4,"     S U M M E :             DM ";
776 X[178]GH:[141]300:[152]4,[201](X$,12);
778 [152]4,[201](SP$[170][196](GL),29)
780 [152]4,"     GEWERTETE SUMME:        DM ";
782 X[178]GW:[141]300:[152]4,[201](X$,12):[142]
790 [141]770:[152]4:[139]NM[178]1[167][152]4,"KEINE KONTEN GESPEICHERT
792 PRINT#4:CLOSE4:POKE198,.:IFM5$="D"THENRUN
794 PRINT"(WEITER MIT TASTE)
796 [146]198,1:[151]198,.:[138]
800 [153]LE$"KONTOFUEHRUNGSPROGAMM ZU ZEBUHA
804 PRINT"VON NIKOLAUS HEUSLER":RETURN
1000 PRINT"BUCHEN
1002 AB[178]AB[170]1:[153]"BUCH-NR."AB:X[178].
1004 [153]"ABKUERZUNGEN:
1006 FORI=1TOAM:PRINT" *"+CHR$(I+64)"  - "AK$(I):NEXT
1007 G4=0:PRINT" #NR - BUCHUNGSTEXT UEBERNEHMEN":PRINT"*A
1008 [133]"ONTEXT ";BT$(AB):[139][200](BT$(AB),1)[178]"#"[167][141]1100:[139]V[178]0[167]1008
1009 BT$(AB)[178][200](BT$(AB),30)
1010 [139][200](BT$(AB),1)[179][177]"*"[167]1016
1012 X[178][198]([202](BT$(AB),2)[170][199](0)):[139]X[171]64[177]AM[176]X[179]65[167]1008
1014 BT$(AB)[178]AK$(X[171]64):G4[178]1
1016 [139]G4[167][153]"ON"BT$(AB):G4[178].:[137]1008
1020 :
1022 [153]"GUTSCHRIFT:  + WAIT     LASTSCHRIFT:  - WAIT
1023 IFXTHENPOKE198,1:POKE631,ASC(VZ$(X-64)+CHR$(0))
1024 INPUT"BETRAG DM ";DM(AB):IFDM(AB)=.THENAB=AB-1:RETURN
1025 GOSUB400:PRINT"";VD$
1026 INPUT"[145]WERT-DATUM ";DA$(AB)
1028 PRINT"EINGABEN OK ? [J/N]
1030 [161]A$:[139]A$[178]"N"[167]AB[178]AB[171]1
1032 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]1030
1034 [142]
1100 G4[178]2:V[178][197]([202](BT$(AB),2)):[139]V[179]1[176]V[177]AB[171]1[167]V[178]0
1102 BT$(AB)[178]BT$(V):[142]
2000 [153]"STORNO
2002 IFAB<1THENRETURN
2004 PRINT""AB
2006 INPUT"[145]WELCHE BUCHUNG STORNIEREN ";SB:IFSB<1ORSB>ABTHENRETURN
2008 PRINT"BUCHUNG NR.:"SB
2010 PRINT"       TEXT: "BT$(SB)
2012 PRINT"     BETRAG:"DM(SB)
2014 PRINT"      DATUM: "DA$(SB)
2016 FORI=1TOAB:IFBT$(I)="STORNO BUCHUNG"+STR$(SB)THEN2020
2018 NEXT:GOTO2030
2020 PRINT"ACHTUNG[146][157][157][157][157][157][157][157][145][164][164][164][164][164][164][164]   BUCHUNG WURDE BEREITS STOR-
2022 [153]"          NIERT! (MIT BUCHUNG NR."I"CMD)
2030 PRINT"STORNIEREN ? [J/N]
2032 [161]A$:[139]A$[178]"N"[167][142]
2034 [139]A$[179][177]"J"[167]2032
2036 AB[178]AB[170]1:BT$(AB)[178]"STORNO BUCHUNG"[170][196](SB)
2038 DM(AB)[178][171]DM(SB):DA$(AB)[178]DA$(SB):[142]
3000 [153]"BUCHUNGSLISTE
3002 IFAB<1THENRETURN
3006 INPUT"VON BUCHUNG   1[157][157][157]";B1:IFB1<1THENRETURN
3008 PRINT""AB
3010 INPUT"[145]BIS BUCHUNG ";B2
3012 IFB1<1ORB2>ABORB1>B2THENRETURN
3014 SD=.:IFB1<2THEN3020
3016 FORI=1TOB1-1:SD=SD+DM(I):NEXT
3020 GOSUB200
3022 GOSUB600
3024 PRINT#4,"BUCHUNGSLISTE VOM "TD$
3026 PRINT#4:PRINT#4,SPC(40-KO*17)"ALTER KONTOSTAND";:GOSUB335
3028 PRINT#4,SPC(40-KO*17)"-------------------------------------
3030 BZ[178].:SO[178].:HA[178].:[129]RI[178]B1[164]B2:BZ[178]BZ[170]1
3032 X[178]RI:[141]340:[141]360
3033 [152]4,EZ$DA$(RI)" "[200](BT$(RI)[170]SP$,30);
3034 X[178]DM(RI):SD[178]SD[170]X:[141]300:[152]4,X$;:[139]KO[178]0[167]X[178]SD:[141]300:[152]4,X$;
3035 [152]4,US$
3036 [139]DM(RI)[179].[167]SO[178]SO[171]DM(RI)
3037 [139]DM(RI)[177].[167]HA[178]HA[170]DM(RI)
3038 [130]RI
3040 [152]4,[166]40[171]KO[172]17)"-------------------------------------
3042 PRINT#4,SPC(40-KO*17)"NEUER KONTOSTAND";:GOSUB335
3044 PRINT#4,SPC(40-KO*17)"-------------------------------------
3046 [139]KO[167][142]
3050 [152]4:[152]4,"      BUCHUNGEN :"[201](SP$[170][196](BZ),16)
3052 [152]4,"BEWEGUNG SOLL   ";:SD[178]SO:[141]335
3054 [152]4,"BEWEGUNG HABEN  ";:SD[178]HA:[141]335
3056 [152]4,"BEWEGUNG GESAMT ";:SD[178]HA[170]SO:[137]335
4000 [153]"KONTOSTAND
4002 PRINT""AB
4004 INPUT"[145]NACH BUCHUNG NR.";HE
4006 IFHE>ABORHE<1THENRETURN
4008 SD=.:FORI=1TOHE:SD=SD+DM(I):NEXT
4010 GOSUB200:GOSUB600
4012 PRINT#4,"KONTOSTAND AM "TD$":"US$;:X=SD:GOSUB330
4014 RETURN
5000 FORI=6TO12:POKE781,I:SYS59903:NEXT:POKE781,2:SYS59903:POKE781,3:SYS59903
5001 PRINT"EINZEL-INFO[146]"SPC(20)"WERT:"WT$
5002 IFAB<1THENRETURN
5003 IFJE<1ORJE>ABTHENJE=AB
5004 JE=INT(JE):PRINTLE$"BUCHUNG:"JETAB(20)"VON"AB
5005 PRINT"TEXT:    "BT$(JE)
5006 PRINT"BETRAG: "DM(JE)
5008 PRINT"WERT:    "DA$(JE)
5020 PRINTLE$" + [146]    UND    - [146] BLAETTERN
5022 [153]" X WAIT FERTIG    L WAIT LETZTE BUCHUNG
5024 PRINT" N [146] NUMMER EINGEBEN"SPC(17)"V"VN$"
5030 [161]A$:[139]A$[178]"X"[167][142]
5032 [139]A$[178]"+"[167]JE[178]JE[170]1:[139]JE[177]AB[167]JE[178]1
5034 [139]A$[178]"-"[167]JE[178]JE[171]1:[139]JE[179]1[167]JE[178]AB
5036 [139]A$[178]"L"[167]JE[178]AB
5038 [139]A$[178]"+"[176]A$[178]"L"[176]A$[178]"-"[167]5000
5040 [139]A$[178]"N"[167]5100
5090 [137]5030
5100 [151]781,2:[158]59903:[153]""JE
5102 [133]"ONBUCHUNG-NR. ";JE
5104 [137]5000
6000 [153]"ENDE
6002 PRINT#15,"S:KTO"+STR$(NM)
6004 OPEN2,8,2,"KTO"+STR$(NM)+",S,W
6005 [139]P3$[178]""[167]P3$[178]"/
6006 PRINT#2,NA$:PRINT#2,AB:PRINT#2,P1:PRINT#2,P2:PRINT#2,P3$:PRINT#2,WT$
6008 FORI=1TOAB:PRINT#2,DM(I):PRINT#2,BT$(I):PRINT#2,DA$(I):NEXT
6010 CLOSE2:INPUT#15,F1,F1$,F2,F3:CLOSE15
6012 IFF1<2THENPRINT"VORGANG ABGESCHLOSSEN. ALLES OK.":END
6014 PRINT"ACHTUNG[146] DISK-FEHLER NR."F1
6016 PRINT"TEXT: "F1$
6018 PRINT"TRACK"F2" SEKTOR"F3:END
7000 PRINT"ZINSBERECHNUNG
7002 [139]AB[179]1[167][142]
7004 [133]"HABENZINSEN P.A. %   0.5CMDCMDCMDCMDCMD";Q1:[139]Q1[179].[176]Q1[177]100[167][142]
7006 [133]"SOLLZINSEN  P.A. %   12.75CMDCMDCMDCMDCMDCMDCMD";Q2:[139]Q2[179].[176]Q2[177]100[167][142]
7007 [153]"DIE ZINSEN KOENNEN UEBER EINEN ZEITRAUM
7008 PRINT"VON MAXIMAL"ZZ/365"JAHREN BERECHNET WERDEN.
7009 [141]7200:[133]"ONVON BUCHUNG ";B1:[139]B1[177].[167][153]"WERT-DATUM: "DA$(B1)
7010 [153]""AB
7012 [133]"ONBIS BUCHUNG ";B2
7014 [139]B1[179]1[176]B2[177]AB[176]B1[178][177]B2[167][142]
7015 [153]"WERT-DATUM: "DA$(B2)
7018 [133]"ZINSTAGE PRO JAHR   360CMDCMDCMDCMDCMD";TG:[139]TG[179]1[167][142]
7019 [153]""DA$(B2)
7020 [133]"ONZINSDATUM ";ZX$
7021 [153]"BERECHNE ALTEN STAND...":ZH[178].:ZS[178].:SD[178].
7022 X$[178]ZX$:[141]500:[139]CY[178].[167]7042
7023 ZE[178]X
7024 [129]I[178]1[164]B1:SD[178]SD[170]DM(I):[130]:[153]"LOESCHE ZINSTABELLE...
7026 FORI=.TOZZ:ZE(I)=.:NEXT:PRINT"VERFOLGE BUCHUNGEN...
7030 Z1[178]Q1[173]TG:Z2[178]Q2[173]TG
7032 X$[178]DA$(B1):[141]500:[139]CY[178]1[167]7040
7034 [153]"* FEHLER: WERT-DATUM BUCHUNG NR."B1
7035 [153]"FEHLERHAFTES DATUM: "DA$(B1)
7036 [153]"TASTE DRUECKENWAIT":[151]198,.:[146]198,1:[142]
7040 NO[178]X:[139]NO[179][178]ZE[167]7050
7042 [153]"* FEHLER: ZINSDATUM FALSCH":[137]7036
7050 [129]I[178]B1[170]1[164]B2
7052 X$[178]DA$(I):[141]500:[139]CY[178].[176]X[171]NO[179].[176]X[171]NO[177]ZZ[167]B1[178]I:[137]7034
7054 ZE(X[171]NO)[178]ZE(X[171]NO)[170]DM(I)
7056 [130]:[153]"BERECHNE ZINSEN...
7057 PRINT""ZE-NO-1
7058 INPUT"[145]ANZAHL DER ZINSTAGE ";JI
7060 GOSUB7400
7068 GOSUB200
7070 ZH=INT(ZH*100+.5)/100:ZS=-INT(ZS*100+.5)/100
7072 PRINT#4,"ZINSBERECHNUNG "US$"VON BUCHUNG"B1"BIS BUCHUNG"B2
7074 PRINT#4,"ZINSDATUM: "ZX$
7076 PRINT#4:PRINT#4,"  HABENZINSEN  ";:X=Q1:GOSUB350:X=ZH:GOSUB330
7078 PRINT#4,"  SOLLZINSEN   ";:X=Q2:GOSUB350:X=ZS:GOSUB330
7079 PRINT#4,SPC(26)"-------------";:IFDV=4THENPRINT#4,"------";
7080 PRINT#4:PRINT#4,"  ZINSERTRAG              ";:X=ZS+ZH:GOSUB330
7090 PRINT#4:DP$=".
7100 [139]ZS[178]0[175]ZH[178]0[167][142]
7102 [153]"ZINSEN BUCHEN ? [J/N]
7104 GETA$:IFA$="N"THENRETURN
7106 IFA$<>"J"THEN7104
7108 IFZH=0THEN7120
7110 AB=AB+1:DM(AB)=ZH:DA$(AB)=ZX$
7112 X=Q1:GOSUB300:BT$(AB)="HABENZINSEN"+RIGHT$(X$,7)+"%
7120 [139]ZS[178]0[167]7130
7122 AB[178]AB[170]1:DM(AB)[178]ZS:DA$(AB)[178]ZX$
7124 X[178]Q2:[141]300:BT$(AB)[178]"SOLLZINSEN "[170][201](X$,7)[170]"%
7130 RETURN
7200 FORB1=ABTO1STEP-1:BT$=BT$(B1)
7202 GOSUB7300:IFZFTHEN7210
7206 NEXT:B1=1
7210 PRINT"";B1:RETURN
7300 ZF=0:IFLEFT$(BT$,4)="ZINS"THEN7310
7302 IFLEFT$(BT$,5)="SOLLZ"THEN7310
7304 IFLEFT$(BT$,6)="HABENZ"THEN7310
7306 IFLEFT$(BT$,7)="KONTOAB"THEN7310
7309 RETURN
7310 ZF=1:RETURN
7400 ZC=0:MD=0:ZP=1:PRINT"ZINSTAGE  ZAHLEN   KTO.STAND
7402 ZC[178]ZC[170]1:ZP[178]ZP[170]1
7404 [139]ZE(ZP)[167][141]7500
7450 [139]ZP[179]JI[167]7402
7460 MD[178]1:[141]7500:ZH[178]ZH[172]Z1:ZS[178]ZS[172]Z2:[142]
7500 ZA[178][181](.5[170].01[172](ZC[170]MD)[172]SD):SD[178]SD[170]ZE(ZP):[153]ZC[163]10)ZA;
7502 [139]ZA[177]0[167]ZH[178]ZH[170]ZA:[137]7506
7504 ZS[178]ZS[171]ZA
7506 ZC[178]0:[139]MD[178]0[167][153][163]20)SD;
7508 [153]:[142]
8000 [153]"KONTOAUSZUG
8002 US$="":DV=4:M5$="D":GOSUB206:GOSUB600
8004 PRINT"SIND SIE SICHER?":PRINT" 1 [146] - AUSZUG        0 [146] - ABBRUCH
8005 [151]198,.:[146]198,1:[161]A$:[139]A$[178]"0"[167][142]
8006 [139]A$[177][179]"1"[167]8005
8008 SD[178].
8010 [139]P2[177]0[167][129]I[178]1[164]P2:SD[178]SD[170]DM(I):[130]
8012 [139]AB[177]P2[167]8100
8020 [152]4,"KONTOSTANDSMITTEILUNG VOM "TD$
8022 [152]4:[152]4,"KONTOSTAND: ";:X[178]SD:[141]330
8024 IS$[178]"":[139]P1[167][152]4:[152]4,"LETZTER AUSZUG AM "P3$:IS$[178]" WEITEREN
8026 PRINT#4:PRINT#4,"ES LIEGEN KEINE"IS$" BUCHUNGEN VOR.
8030 [142]
8100 P1[178]P1[170]1
8102 [152]4,"KONTOAUSZUG NR."P1"VOM "TD$
8104 B1[178]P2[170]1:B2[178]AB:P2[178]AB:P3$[178]TD$
8106 KO[178]1:[137]3026
9000 [153]"AUSZUG-STATUS
9002 GOSUB200
9003 M8$="":IFDV=4THENM8$="        "
9004 PRINT#4,"AUSZUG-STATUS:
9006 [152]4:[152]4,"               ANZ. KONTOAUSZUEGE:"P1:[139]P1[179]1[167][142]
9008 [152]4,"  LETZTER AUSZUG NACH BUCHUNG NR.:"P2
9010 [152]4,M8$"DATUM DES LETZTEN AUSZUGS: "P3$
9012 [142]
10000 [153]"STAMMDATENPFLEGE
10002 PRINT"KONTO-NR."NM"[157]:
10004 [153]""NA$
10006 [133]"ONBEZEICHNUNG ";NA$
10007 [139][195](NA$)[177]24[176]NA$[178]""[167]10100
10008 [153]""WT$
10010 [133]"ONWERT        ";WT$
10012 [153]""RG
10014 [133]"ONLINKER DRUCKRAND ";RG
10016 [139]RG[179]0[176]RG[177]30[167]10014
10018 [142]
10100 X[178][194](214):[151]214,23:[158]58732:[153]"MIN. 1 / MAX. 24 ZEICHEN!
10102 POKE214,X:SYS58732:GOTO10006
11000 PRINT"ZINS-AUSWERTUNG
11002 [139]AB[179]1[167][142]
11006 [133]"VON BUCHUNG   1CMDCMDCMD";B1:[139]B1[179]1[167][142]
11008 [153]""AB
11010 [133]"ONBIS BUCHUNG ";B2
11012 [139]B1[179]1[176]B2[177]AB[176]B1[177]B2[167][142]
11014 ZC[178]0:ZH[178]0:ZS[178]0
11020 [129]I[178]B1[164]B2:BT$[178]BT$(I):[141]7300:[139]ZF[178]0[167]11030
11022 [139]DM(I)[179]0[167]ZS[178]ZS[171]DM(I):ZC[178]ZC[170]1
11024 [139]DM(I)[177]0[167]ZH[178]ZH[170]DM(I):ZC[178]ZC[170]1
11030 [130]
11032 [141]200:[141]600
11040 [152]4,"ZINSAUSWERTUNG VOM "TD$:[152]4
11041 P4$[178]"            ":[139]DV[178]3[167]P4$[178]""
11042 [152]4,"ANZAHL DER ZINSBUCHUNGEN:  "P4$ZC:[139]ZC[179]1[167][142]
11044 [152]4,"       SUMME HABENZINSEN: ";:X[178]ZH:[141]330
11046 [152]4,"        SUMME SOLLZINSEN: ";:X[178]ZS:[141]330
11048 [152]4,"              ZINSERTRAG: ";:X[178]ZH[171]ZS:[141]330
11050 [152]4
11052 [152]4,"EVTL. KONTOFUEHRUNGSGEBUEHREN WERDEN "US$;
11053 [152]4,"WIE SOLLZINSEN VERRECHNET.
11054 RETURN
12000 PRINT"UEBERTRAG
12002 [133]"GEGENKONTO-NR. ";GK:[139]GK[179]1[176]GK[177]999[176]NM[178]GK[167][142]
12004 [160]6:[159]6,8,2,"KTO"[170][196](GK)[170]",S,R
12006 INPUT#15,F1:IFF1=0THEN12012
12007 IFF1<>62THEN12010
12008 PRINT"GEGENKONTO NICHT BEKANNT!
12009 [153]"** WEITER MIT TASTEWAIT **":[160]6:[151]198,.:[146]198,1:[142]
12010 [153]"DISKFEHLER NR."F1:[137]12009
12012 [132]6,G1$:[153]"K-BEZEICHNUNG: "G1$
12014 [153]"BITTE ART DES VORGANGS WAEHLEN:
12016 PRINT" A [146] - GUTSCHRIFT AUF KONTO-NR."NM
12018 PRINT" B [146] - GUTSCHRIFT AUF KONTO-NR."GK
12020 PRINT" C [146] - ABBRUCH
12022 [151]198,.:[146]198,1
12024 [161]AT$:[139]AT$[178]"C"[167]12035
12026 [139]AT$[179][177]"A"[175]AT$[179][177]"B"[167]12024
12030 [133]"BETRAG DM ";DM:[139]DM[179][177]0[167]12040
12035 [160]6:[142]
12040 [133]"WERT-DATUM   TT.MM.JJCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";WD$
12042 [153]"EINGABEN OK ? [J/N]
12044 GETA$:IFA$="N"THEN12035
12046 IFA$<>"J"THEN12044
12050 PRINT"VORGANG WIRD AUSGEFUEHRT - BITTE WARTEN
12052 AB[178]AB[170]1:DA$(AB)[178]WD$
12054 [139]AT$[178]"A"[167]BT$(AB)[178]"UEBERTRAG VON KTO."[170][196](GK):DM(AB)[178]DM
12056 [139]AT$[178]"B"[167]BT$(AB)[178]"UEBERTRAG AUF KTO."[170][196](GK):DM(AB)[178][171]DM
12058 [160]7:[152]15,"S:KTO DUMMY":[159]7,8,7,"KTO DUMMY,S,W
12060 PRINT#7,G1$:INPUT#6,G1:PRINT#7,G1+1
12062 INPUT#6,G2:PRINT#7,G2:INPUT#6,G2:PRINT#7,G2
12064 INPUT#6,G2$:PRINT#7,G2$:INPUT#6,G2$:PRINT#7,G2$
12066 IFG1=0THEN12074
12068 FORI=1TOG1
12070 INPUT#6,G1:PRINT#7,G1:INPUT#6,G1$:PRINT#7,G1$
12072 INPUT#6,G1$:PRINT#7,G1$:NEXT
12074 IFAT$="B"THEN12080
12076 PRINT#7,-DM:PRINT#7,"UEBERTRAG AUF KTO."+STR$(NM):PRINT#7,WD$
12078 GOTO12082
12080 PRINT#7,DM:PRINT#7,"UEBERTRAG VON KTO."+STR$(NM):PRINT#7,WD$
12082 CLOSE7:CLOSE6
12084 PRINT#15,"S:KTO"+STR$(GK)
12086 PRINT#15,"R:KTO"+STR$(GK)"=KTO DUMMY
12088 [152]15,"S:KTO DUMMY":[142]