BUCH2/3DASM ORG 0D90H ;*************************************** ;* * ;* KC85/3 27.03.1989 * ;* * ;* S.WEHNER / TEIL 2 * ;* * ;* PROGRAMM 'BUCHHALTUNG' * ;* * ;*************************************** ; LININ EQU 200H RVVN EQU 203H DADD EQU 206H DSUB EQU 209H PRUNU EQU 20CH DRUVO EQU 20FH OK EQU 212H MODU EQU 215H TAEI EQU 218H UNTS EQU 21BH SA1 EQU 21EH SA2 EQU 221H SA3 EQU 224H SA4 EQU 227H SA5 EQU 22AH SA6 EQU 22DH SA7 EQU 230H SA8 EQU 233H SA9 EQU 236H SA10 EQU 239H LOE EQU 23CH LOE1 EQU 23FH SA0 EQU 245H BERL EQU 248H KPA EQU 24BH UPEW1 EQU 24EH UPEW10 EQU 251H UPEW2 EQU 254H UPEW3 EQU 257H UPEW5 EQU 25AH UPEW9 EQU 25DH UPSA EQU 260H WZRS EQU 263H UPDAT EQU 266H UPAUS EQU 269H SUM EQU 26CH RNR EQU 26FH ERNR EQU 272H SUCH EQU 275H AUS EQU 278H RMARK1 EQU 27BH DEIN EQU 27EH KWDAT EQU 281H INZ EQU 284H KOM EQU 287H FRNR EQU 242H S12 EQU 587H FEA EQU 0B79DH FEE EQU 0B79FH POS EQU 0B7A0H FAR EQU 0B7A3H VERT EQU 0F003H ATAB DEFW 00H LOP DEFB 0 TAB DEFM ' ' RES DEFM ' ' OP1 DEFM ' ' OP2 DEFM ' ' JP HMENU NOP NOP NOP JP ADR3 JP ERH1 ASATZ DEFW 0 SEL DEFB 0 ZAE DEFB 0 ZA1 DEFB 0 ZA2 DEFB 0 FELD DEFM ' ' FELD1 DEFM ' ' FELD2 DEFM ' ' FELD3 DEFM 'DAT' FELD4 DEFM ' ' FELD5 DEFB 02H LADR DEFW 0 EADR DEFW 0 ZAEH DEFM ' ' S10 DEFB 0 K1 DEFB 31H S13 DEFB 0 S14 DEFB 0 DEBL EQU 1C80H SLOE LD HL,1800H LD (POS),HL CALL VERT DEFB 23H DEFM 'SOLL SATZ WIRKLICH GELOESCHT WER' DEFM 'DEN?' DEFW 0D0AH DEFB 0 CALL OK FEI2 CALL TAEI CP 4EH JP Z,WND2 CP 4AH JP NZ,FEI2 LD HL,(ASATZ) PUSH HL LD A,(S12) LD (S13),A SLOE1 LD A,(ZAE) INC A LD (ZAE),A CP 129 JP Z,SLOE3 LD DE,128 ADD HL,DE LD (ASATZ),HL LD A,M CP 20H JP NZ,SLOE1 SLOE4 LD DE,128 SCF CCF SBC HL,DE LD (ASATZ),HL LD DE,3F80H LD BC,128 LDIR LD HL,(ASATZ) LD A,(ZAE) DEC A LD (ZAE),A LD B,128 SLOE2 LD M,20H INC HL DJNZ SLOE2 LD A,(S13) LD (S12),A CALL MODU LD HL,3F80H POP DE LD BC,128 LDIR CALL LOE1 JP WAT SLOE3 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 5 JR Z,SLOEA LD HL,SATZ LD (ASATZ),HL LD A,M CP 20H JP Z,SLOE5 JP SLOE1 SLOE5 LD A,(S12) SUB 1 LD (S12),A CALL MODU SLOEA LD HL,8000H JP SLOE4 DEFW 7F7FH DEFM 'BUCHH' DEFB 1 SUB A LD (ZA1),A LD A,7 LD (FAR),A SUB A LD (FEA),A LD A,32 LD (FEE),A LD A,0CH CALL VERT DEFB 0 LD HL,0D05H LD (POS),HL CALL VERT DEFB 23H DEFM 'SOLL DATEI GELOESCHT WERDEN?' DEFB 0 LD HL,0F05H LD (POS),HL CALL OK FEI1 CALL TAEI CP 4EH JP Z,HMENU CP 4AH JP Z,FEI JP FEI1 FEI SUB A LD (S12),A MOD5 CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,HMENU LD HL,SATZ LD C,128 LEER0 LD B,128 LEER LD M,20H INC HL DJNZ LEER DEC C JP NZ,LEER0 JP MOD5 HMENU LD A,7 LD (FAR),A LD HL,0F5D4H LD (0B7B0H),HL SUB A LD (0B8E1H),A LD (FEA),A LD A,32 LD (FEE),A LD A,0CH CALL VERT DEFB 0 CURP LD HL,209H LD (POS),HL CALL VERT DEFB 23H DEFM 'HAUPTMENU' DEFW 0D0AH DEFM ' _________' DEFW 0D0AH DEFW 0D0AH DEFM ' 1...OFFENE RECHNUNGEN' DEFW 0D0AH DEFW 0D0AH DEFM ' 2...ZAHLUNGSEINGAENGE' DEFW 0D0AH DEFW 0D0AH DEFM ' 3...MAHNUNG' DEFW 0D0AH DEFW 0D0AH DEFM ' 4...RETTEN' DEFW 0D0AH DEFW 0D0AH DEFM ' 5...LADEN' DEFW 0D0AH DEFW 0D0AH DEFM ' 6...GESAMTRECHNUNGSSUMME' DEFW 0D0AH DEFW 0D0AH DEFM ' 7...AKTUALISIERUNG' DEFW 0D0AH DEFW 0D0AH DEFM ' 8...CAOS-MENU' DEFB 0 LD HL,1812H LD (POS),HL EIN1 CALL TAEI CP 31H JP Z,MENU1 CP 32H JP Z,MENU2 CP 33H JP Z,MENU3 CP 34H JP Z,MENU4 CP 35H JP Z,MENU5 CP 36H JP Z,MENU6 CP 37H JP Z,MENU7 CP 38H JP NZ,EIN1 CALL VERT DEFB 0DH MENU1 CALL LOE LD HL,10AH LD (POS),HL CALL VERT DEFB 23H DEFM 'RECHNUNSAUSGAENGE' DEFB 0 CALL UNTS SUB A LD (S12),A MOD6 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,MOD0 LD HL,SATZ KON LD (ASATZ),HL LD A,M CP 20H JP NZ,KON2 JP ANF KON2 LD HL,(ASATZ) LD DE,128 ADD HL,DE LD A,(ZAE) INC A LD (ZAE),A CP 128 JP Z,MOD6 JP KON MOD0 CALL LOE1 LD HL,0C00H LD (POS),HL CALL VERT DEFB 23H DEFM 'GESAMTER SPEICHERBEREICH BELEGT!' DEFW 0D0AH DEFB 0 CALL SA10 CALL TAEI JP HMENU ANF CALL LOE1 ANF0 LD HL,300H LD (POS),HL CALL SA1 CALL UPEW1 JP C,ANF0 LD HL,600H LD (POS),HL CALL SA2 CALL UPEW2 ANF1 LD HL,0B00H LD (POS),HL CALL SA3 LD DE,77 CALL UPEW3 JP C,ANF1 PUSH HL LD HL,0B09H LD (POS),HL POP HL CALL UPDAT ANF2 LD HL,0B15H LD (POS),HL CALL SA4 LD DE,83 CALL UPEW3 JP C,ANF2 PUSH HL LD HL,0B1EH LD (POS),HL POP HL CALL UPDAT RBG LD HL,0E00H LD (POS),HL CALL SA5 LD DE,89 CALL UPEW5 JP C,RBG LD BC,0E11H CALL KOM LD HL,110DH LD (POS),HL CALL OK EIN0 CALL TAEI CP 4EH JP Z,ANF0 CP 4AH JP NZ,EIN0 LD A,(ZAE) INC A LD (ZAE),A CP 128 JP NZ,ZUS CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,MOD0 SUB A LD (ZAE),A ZUS LD HL,(ASATZ) LD DE,128 ADD HL,DE LD (ASATZ),HL ABFR LD HL,1600H LD (POS),HL CALL VERT DEFB 23H DEFM 'NOCH EINEN SATZ? ' DEFB 0 DEFW 0D0AH DEFW 0D0AH CALL OK CALL TAEI CP 4EH JP Z,HMENU CP 4AH JP NZ,ABFR JP ANF MENU2 CALL LOE LD HL,10BH LD (POS),HL CALL VERT DEFB 23H DEFM 'ZAHLUNGSEINGAENGE' DEFB 0 CALL UNTS CALL LOE1 CALL RNR MENU3 CALL LOE LD HL,10EH LD (POS),HL CALL VERT DEFB 23H DEFM 'MAHNUNG' DEFB 0 CALL UNTS MENU2A CALL LOE1 LD HL,0504H LD (POS),HL CALL VERT DEFB 23H DEFM '1....F-DATUM 2....RECHNUNGSNU' DEFM 'MMER' DEFB 0 EIN1A LD HL,0711H LD (POS),HL CALL TAEI CP 31H JP Z,MEIN CP 32H JP Z,MERNR JP EIN1A MEIN CALL DEIN LD HL,FELD LD HL,SATZ LD (ASATZ),HL JP ADR1 ADR LD A,(SEL) OR A JP NZ,MERNR1 JP MMARK ADR2 LD A,(0B8E1H) CP 1 RET Z CALL KWDAT JP ABFR3 ADR1 SUB A LD (S12),A LD (ZAE),A CALL SUM CALL MODU LD HL,SATZ LD (ASATZ),HL CALL SUCH1 JP NC,MRECH ADR3 LD A,(0B8E1H) CP 1 SCF RET Z CALL AUS MMARK LD HL,1802H LD (POS),HL CALL VERT DEFB 23H DEFM 'OK J/N/D ' DEFB 0 CALL TAEI CP 4EH JP Z,ERH1 CP 44H JP Z,INZA CP 4AH JP NZ,MMARK SUB A LD (SEL),A JP MEING INZA CALL INZ JP MMARK MRECH CALL KWDAT CALL LOE1 JP MENU2A MERNR LD HL,0C04H LD (POS),HL CALL SA1 SUB A LD (ZA1),A LD C,8 LD HL,FELD PUSH HL CALL LININ POP HL LD B,8 CALL PRUNU JP C,MERNR MERNR0 LD HL,1112H LD (POS),HL CALL OK CALL TAEI CP 4EH JP Z,MERNR CP 4AH JP NZ,MERNR0 SUB A LD (S12),A LD (ZAE),A CALL SUM CALL MODU LD HL,SATZ LD (ASATZ),HL LD DE,0000H CALL SUCH CALL NC,FRNR JP NC,ABFR3 CALL AUS MERNR1 LD HL,1802H LD (POS),HL CALL VERT DEFB 23H DEFM 'OK J/N/D ' DEFB 0 CALL TAEI CP 4EH JP Z,ABFR3 CP 44H JP Z,INZB CP 4AH JP NZ,MERNR1 LD A,0FFH LD (SEL),A JP MEING INZB CALL INZ JP MERNR1 ABFR3 CALL LOE1 LD HL,0A03H LD (POS),HL CALL VERT DEFB 23H DEFM 'WEITERE MAHNUNGEN? ' DEFW 0D0AH DEFW 0D0AH DEFM ' >>J/N<<' DEFB 0 ABFR3A CALL VERT DEFB 4 CP 4EH JP Z,HMENU CP 4AH JP NZ,ABFR3A JP MENU2A MEING LD HL,140FH LD (POS),HL LD HL,(ASATZ) LD DE,122 ADD HL,DE CALL UPEW9 JP C,MEING PUSH HL LD HL,140FH LD (POS),HL POP HL CALL UPDAT LD HL,(ASATZ) LD DE,121 ADD HL,DE LD A,M CP 20H JP NZ,MEING1 SUB 20H MEING1 INC A LD M,A ADD 30H PUSH AF LD HL,160BH LD (POS),HL POP AF CALL VERT DEFB 0 EINM LD HL,1802H LD (POS),HL CALL VERT DEFB 23H DEFM 'OK J/N/W ' DEFB 0 MEING2 CALL TAEI CP 4EH JP Z,MEING3 CP 57H JP Z,ADR CP 4AH JP NZ,EINM JP ABFR3 MEING3 LD HL,(ASATZ) LD DE,121 ADD HL,DE LD A,M DEC A LD M,A PUSH AF LD HL,160BH LD (POS),HL POP AF ADD 30H CALL VERT DEFB 0 JP MEING MVER LD A,(ZAE) LD C,A LD A,(ZA1) CP C JP Z,MVER1 LD HL,(ASATZ) LD DE,128 ADD HL,DE LD (ASATZ),HL LD B,6 LD DE,77 CALL SUCH JP NC,MVER1 CALL AUS JP MMARK MVER1 CALL KWDAT CALL LOE1 JP MENU2A MENU4 CALL LOE LD HL,10BH LD (POS),HL CALL VERT DEFB 23H DEFM 'RETTEN DER DATEI' DEFB 0 LD HL,ZAEH LD M,30H LD DE,ZAEH+1 LD BC,15 LDIR LD HL,ZAEH LD (TAB),HL LD (TAB+6),HL LD A,16 LD (TAB+2),A LD HL,K1 LD (TAB+3),HL LD A,1 LD (TAB+5),A CALL UNTS CALL LOE1 CALL DISK LD HL,704H LD (POS),HL CALL VERT DEFB 23H DEFM 'NAME: ' DEFB 0 LD HL,FELD2 LD B,8 LNA LD M,20H INC HL DJNZ LNA SUB A LD (S12),A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) LD (S10),A LD HL,FELD2 LD C,8 CALL LININ CALL LOE1 LD HL,SATZ LD (ASATZ),HL LD (LADR),HL PEADR LD HL,(ASATZ) LD A,M CP 20H JP Z,PEADR1 PUSH HL LD HL,TAB CALL DADD POP HL LD DE,128 ADD HL,DE LD (ASATZ),HL LD A,(ZAE) INC A LD (ZAE),A CP 128 JP Z,PEADR2 JP PEADR PEADR2 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) LD (S10),A CP 5 JP Z,PEADR3 LD HL,SATZ LD (ASATZ),HL JP PEADR PEADR3 LD A,(S10) SUB 1 LD (S10),A PEADR1 LD (EADR),HL LD HL,FELD2 LD BC,100H LD (IX+5),L LD (IX+6),H CALL VERT DEFB 08H LD A,28H LD (FAR),A LD HL,0DFFH LD B,8 RDAT7 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ RDAT7 LD B,3 RDAT8 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ RDAT8 LD A,20H CALL VERT DEFB 0 LD HL,0E21H LD B,3 RDAT9 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ RDAT9 CALL VERT DEFB 23H DEFM ' VON 512 SAETZEN/BLOCK ' DEFB 0 LD HL,0E24H LD A,M ADD 30H CALL VERT DEFB 0 CALL VERT DEFB 2CH LD A,20H LD (FAR),A SUB A LD (S12),A LD (ZAE),A CALL SUM CALL MODU LD HL,SATZ LD (ASATZ),HL RDAT LD BC,100H RDATS LD HL,(ASATZ) LD A,M CP 20H JP Z,RDAT1 LD (IX+5),L LD (IX+6),H CALL VERT DEFB 01H LD A,(IX+2) CALL VERT DEFB 1CH CALL VERT DEFB 23H DEFM '> ' DEFB 0 LD (ASATZ),HL LD A,(ZAE) INC A LD (ZAE),A CP 128 JP Z,RDAT2 JP RDAT RDAT1 LD BC,100H LD HL,(ASATZ) LD (IX+5),L LD (IX+6),H CALL VERT DEFB 01H LD A,(IX+2) CALL VERT DEFB 1CH LD BC,100H LD HL,(ASATZ) LD (IX+5),L LD (IX+6),H CALL VERT DEFB 09H LD A,(IX+2) CALL VERT DEFB 1CH JP HMENU RDAT2 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 2 CALL Z,FARBE CP 3 CALL Z,FARBE1 CP 4 CALL Z,FARBE2 CP 5 JP Z,HMENU LD HL,SATZ LD (ASATZ),HL LD BC,800H JP RDATS FARBE LD A,10H LD (FAR),A RET FARBE1 LD A,30H LD (0B7A3H),A RET FARBE2 LD A,78H LD (0B7A3H),A RET MENU5 CALL LOE LD HL,10CH LD (POS),HL CALL VERT DEFB 23H DEFM 'LADEN DER DATEI' DEFB 0 CALL UNTS CALL LOE1 LD HL,(0B7A0H) PUSH HL SUB A LD (S12),A LD (ZAE),A CALL SUM CALL MODU LD HL,SATZ LD (ASATZ),HL CALL DISK LD HL,502H LD (POS),HL CALL VERT DEFB 23H DEFM 'NAME: ' DEFB 0 LD HL,FELD2 LD C,8 CALL LININ POP HL LD (0B7A0H),HL LDAT LD HL,(ASATZ) LD (IX+5),L LD (IX+6),H LD HL,FELD2 PUSH HL CALL VERT DEFB 0AH POP HL JP C,HMENU LD HL,(ASATZ) LD A,28H LD (FAR),A LD B,8 LDAT7 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ LDAT7 LD B,3 LDAT8 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ LDAT8 LD A,20H CALL VERT DEFB 0 LD HL,4022H LD B,3 LDAT9 PUSH BC PUSH HL LD A,M CALL VERT DEFB 0 POP HL INC HL POP BC DJNZ LDAT9 LD A,20H CALL VERT DEFB 0 CALL VERT DEFB 23H DEFM 'VON 512 SAETZEN/BLOCK ' DEFB 0 LD HL,4025H LD A,M ADD 30H CALL VERT DEFB 0 LD A,20H LD (FAR),A CALL VERT DEFB 2CH LDAT2 LD HL,(ASATZ) LD (IX+5),L LD (IX+6),H CALL VERT DEFB 05H JP C,LDAT1 LD A,(IX+2) LD (S14),A CALL VERT DEFB 1CH CALL VERT DEFB 23H DEFM '> ' DEFB 0 LD A,(ZAE) INC A LD (ZAE),A CP 128 JP Z,LDAT3 LD HL,(ASATZ) LD A,M CP 20H JP Z,LDAT5 LD HL,(ASATZ) LD DE,128 ADD HL,DE LD (ASATZ),HL JP LDAT2 LDAT3 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 2 CALL Z,FARBE CP 3 CALL Z,FARBE1 CP 4 CALL Z,FARBE2 CP 5 JP Z,HMENU LD HL,SATZ LD (ASATZ),HL JP LDAT2 LDAT5 CALL VERT DEFB 0BH JP HMENU LDAT1 LD A,(IX+2) CALL VERT DEFB 1CH CALL VERT DEFB 23H DEFM '* ' DEFB 0 LD HL,(ASATZ) LD (IX+5),L LD (IX+6),H CALL VERT DEFB 05H LD A,(IX+2) LD C,A LD A,(S14) CP C JP Z,LDAT2 JP LDAT1 MENU6 CALL LOE LD HL,10EH LD (POS),HL CALL VERT DEFB 23H DEFM 'GESAMTSUMME' DEFB 0 CALL UNTS CALL LOE1 CALL BERL LD HL,0300H LD (POS),HL CALL VERT DEFB 23H DEFM 'DIE GESAMTSUMME ALLER NOCH NICHT' DEFM ' EINGE-' DEFW 0D0AH DEFW 0D0AH DEFM 'ZAHLTEN RECHNUNGSAUSGAENGE' DEFM ' BETRAEGT:' DEFB 0 SUB A LD (ZAE),A LD (ZA2),A LD (S12),A LD HL,SATZ LD (ASATZ),HL CALL SUM CALL MODU DEZV LD A,(ZAE) INC A LD (ZAE),A NOL4 CALL KPA JP C,DEZV1 LD A,(ZA2) CP 0 JP NZ,DEZV2 LD HL,OP1 LD DE,OP2 LD BC,16 LDIR INC A LD (ZA2),A JP DEZV3 DEZV1 LD A,(ZA2) CP 0 JP NZ,DEZV4 INC A LD (ZA2),A LD HL,(TAB) LD DE,OP2 LD BC,10 LDIR LD DE,OP2 LD HL,OP2+10 LD A,16 LD C,6 CALL RVVN JP DEZV3 DEZV2 LD HL,OP1 LD (TAB),HL LD A,16 LD (TAB+2),A LD (TAB+5),A JP DEZV4A DEZV4 LD A,10 LD (TAB+2),A LD A,16 LD (TAB+5),A DEZV4A LD HL,OP2 LD (TAB+3),HL LD (TAB+6),HL JP RUF DEZV3 LD A,(0B8E1H) CP 1 RET Z LD HL,(ASATZ) LD DE,128 ADD HL,DE lD (ASATZ),HL LD A,M CP 20H JP Z,RAUS JP DEZV DEZV5 SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,RAUS LD HL,SATZ LD (ASATZ),HL JP DEZV RUF LD HL,TAB CALL DADD LD A,(0B8E1H) CP 1 RET Z LD A,(ZAE) CP 128 JP Z,DEZV5 JP DEZV3 RAUS LD HL,OP2 LD B,16 LD C,2 LD DE,FELD CALL DRUVO LD A,(0B8E1H) CP 1 RET Z LD HL,080BH LD (POS),HL LD B,17 LD HL,FELD CALL UPAUS CALL VERT DEFB 23H DEFM ' MARK' DEFB 0 CALL BERL CALL DEIN LD HL,OP2 LD M,30H LD DE,OP2+1 LD BC,15 LDIR SUB A LD (S12),A LD (ZAE),A LD (ZA2),A CALL SUM CALL MODU LD A,1 LD (0B8E1H),A CALL SUCH1 JR NC,RUECK NOL5 CALL NOL4 CALL ERH1 JR C,NOL5 RUECK CALL RAUS LD HL,110BH LD (POS),HL LD B,17 LD HL,FELD CALL UPAUS CALL VERT DEFB 23H DEFM ' MARK' DEFB 0 LD HL,130EH LD (POS),HL CALL SA10 CALL TAEI CP 0DH JP NZ,RUECK JP HMENU MENU7 CALL LOE LD HL,10DH LD (POS),HL CALL VERT DEFB 23H DEFM 'AKTUALISIERUNG' DEFB 0 CALL UNTS SUB A LD (ZAE),A LD (S12),A WAT1 CALL LOE1 CALL ERNR JP NC,RNV WND CALL AUS WND2 LD HL,1800H LD (POS),HL SUB A LD (0B857H),A CALL VERT DEFB 23H DEFM ' ' DEFM ' ' DEFW 0D0AH DEFM ' ' DEFB 0 LD HL,1802H LD (POS),HL XOR A PUSH BC LD HL,0B581H LD BC,07FFH NSL LD A,20H CPI JR NZ,NSL1 DJNZ NSL LD A,30H CPI JR NZ,NSL1 LD A,2EH CPI JR NZ,NSL1 LD A,30H CPI JR NZ,NSL1 LD A,30H CPI JR NZ,NSL1 LD A,3 LD (0B857H),A NSL1 POP BC CALL VERT DEFB 23H DEFM 'OK J/N/L ' DEFB 0 SADR1 CALL TAEI CP 4CH JR NZ,NSL3 LD A,(0B857H) CP 3 JP NZ,WND2 JP SLOE NSL3 CP 4EH JP NZ,SADR5 WND1 LD HL,(ASATZ) LD DE,128 ADD HL,DE LD (ASATZ),HL LD A,(ZAE) INC A LD (ZAE),A CP 129 JP Z,HELP HELP1 LD DE,00H LD B,8 CALL SUCH JP NC,RNV JP WND HELP SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,RNV JP HELP1 SADR5 CP 4AH JP NZ,SADR1 AKT1 LD HL,111H LD (POS),HL CALL UPEW1 JP C,AKT1 LD HL,30BH LD (POS),HL CALL UPEW2 AKT2 LD HL,609H LD (POS),HL LD DE,77 CALL UPEW3 JP C,AKT2 PUSH HL LD HL,609H LD (POS),HL POP HL CALL UPDAT AKT3 LD HL,809H LD (POS),HL LD DE,83 CALL UPEW3 JP C,AKT3 PUSH HL LD HL,809H LD (POS),HL POP HL CALL UPDAT AKT4 LD HL,0A11H LD (POS),HL LD DE,89 CALL UPEW5 JP C,AKT4 LD BC,0A11H CALL KOM AKT5 LD HL,0C0FH LD (POS),HL LD DE,99 CALL UPEW3 JP C,AKT5 PUSH HL LD HL,0C0FH LD (POS),HL POP HL CALL UPDAT AKT7 LD HL,0E12H LD (POS),HL LD DE,105 CALL UPEW3 JP C,AKT7 PUSH HL LD HL,0E12H LD (POS),HL POP HL CALL UPDAT AKT8 LD HL,1011H LD (POS),HL LD DE,111 CALL UPEW5 JP C,AKT8 LD BC,1011H CALL KOM AKT9 LD HL,140FH LD (POS),HL LD HL,(ASATZ) LD DE,122 ADD HL,DE CALL UPEW9 JP C,AKT9 PUSH HL LD HL,140FH LD (POS),HL POP HL CALL UPDAT AKT10 LD HL,160BH LD (POS),HL CALL UPEW10 JP C,AKT10 LD HL,1802H LD (POS),HL CALL VERT DEFB 23H DEFM 'OK J/N/W ' DEFB 0 AKT6 CALL TAEI CP 57H JP Z,WND1 CP 4EH JP Z,AKT1 CP 4AH JP NZ,AKT6 CALL LOE1 JP WAT RNV CALL LOE1 LD HL,800H LD (POS),HL CALL UPSA WAT LD HL,0A00H LD (POS),HL CALL VERT DEFB 23H DEFM 'WEITERE AKTUALISIERUNGEN?' DEFB 0 LD HL,0C00H LD (POS),HL CALL OK CALL TAEI CP 4AH JP Z,WAT1 JP HMENU SATZ EQU 4000H SUCH1 LD HL,FELD LD DE,81 LD HL,(ASATZ) ADD HL,DE EX DE,HL LD HL,FELD+4 LD A,M LD C,A LD A,(DE) SUB C JP Z,SUCH1A SCF JP M,ADR3 JP ERH1 SUCH1A INC DE INC HL LD A,M LD C,A LD A,(DE) SUB C JP Z,SUCH2 SCF JP M,ADR3 JP ERH1 SUCH2 LD HL,(ASATZ) LD DE,79 ADD HL,DE EX DE,HL LD HL,FELD+2 LD A,M LD C,A LD A,(DE) SUB C JP Z,SUCH2A SCF JP M,ADR3 JP ERH1 SUCH2A INC DE INC HL LD A,M LD C,A LD A,(DE) SUB C JP Z,SUCH3 SCF JP M,ADR3 JP ERH1 SUCH3 LD HL,(ASATZ) LD DE,77 ADD HL,DE EX DE,HL LD HL,FELD LD A,M LD C,A LD A,(DE) SUB C JP Z,SUCH3A SCF JP M,ADR3 JP ERH1 SUCH3A INC DE INC HL LD A,M LD C,A LD A,(DE) SUB C SCF JP Z,ADR3 JP M,ADR3 ERH1 LD HL,(ASATZ) LD DE,128 ADD HL,DE LD (ASATZ),HL LD A,(ZAE) INC A LD (ZAE),A CP 128 JP Z,ERH1A LD A,M CP 20H JP NZ,SUCH1 SCF CCF JP ADR2 ERH1A SUB A LD (ZAE),A CALL SUM CALL MODU LD A,(S12) CP 5 JP Z,ERH2 LD HL,SATZ LD (ASATZ),HL JP SUCH1 ERH2 SCF CCF JP ADR2 DISK LD HL,1002H LD (POS),HL CALL VERT DEFB 23H DEFM 'DISKETTE J/N? ' DEFB 0 CALL TAEI CP 4EH RET Z SUB A LD (0B781H),A LD HL,DEVEX LD DE,9 LD BC,9 LDDR INC DE EX DE,HL CALL 36H RET ; DEFB 44H DEFB 45H DEFB 56H DEFB 45H DEFB 58H DEFB 2EH DEFB 4BH DEFB 43H DEVEX DEFB 43H DS1 DEFW 0D0AH DEFW 0D0AH DEFM 'Werter Kunde!' DEFW 0D0AH DEFW 0D0AH DEFM 'Fuer nachstehend genannte Rechnu' DEFM 'ng ist ' DEFW 0D0AH DEFM 'durch Sie keine vollstaendige Le' DEFM 'istung ' DEFW 0D0AH DEFM 'erfolgt.' DEFW 0D0AH DEFM 'Wir bitten Sie, Ihren Verpflicht' DEFM 'ungen um-' DEFW 0D0AH DEFM 'gehend nachzukommen.' DEFW 0D0AH DEFM 'Dies ist die erste Mahnung!' DEFW 0D0AH DEFW 0D0AH DEFB 0 DS2 DEFW 0D0AH DEFW 0D0AH DEFM 'Werter Kunde!' DEFW 0D0AH DEFW 0D0AH DEFM 'Nach unseren Unterlagen steht di' DEFM 'e u.g. ' DEFW 0D0AH DEFM 'Rechnung trotz erfolgter Mahnung' DEFM ' noch ' DEFW 0D0AH DEFM 'offen.' DEFW 0D0AH DEFM 'Wir fordern Sie hiermit auf, den' DEFW 0D0AH DEFM 'Schuldbetrag unverzueglich zu u' DEFM 'eber-' DEFW 0D0AH DEFM 'weisen.' DEFW 0D0AH DEFM 'Wenn innerhalb von zwei Wochen n' DEFM 'ach Da-' DEFW 0D0AH DEFM 'tum dieses Schreibens keine Zahl' DEFM 'ung er-' DEFW 0D0AH DEFM 'folgt, uebergeben wir den Vorgan' DEFM 'g unse-' DEFW 0D0AH DEFM 'rem Justiziar zur vertragsgerich' DEFM 'tlichen' DEFW 0D0AH DEFM 'Durchsetzung!' DEFW 0D0AH DEFW 0D0AH DEFB 0 ; ;*************************************** ; E N D E ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ