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
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ