UPACK CALL KUPAK1
 JP DIREL
KUPAK1 LD A,-1
 OUT (#B2),A
 LD HL,8010H
 CALL ATHELYEZ
 CALL LAPOK
 CALL TARGETBE
 LD B,(IY+3)
 LD A,B
 OR A
 JR NZ,UPACK1
 CALL PP1
 LD B,1
 PUSH BC
 JR UPACK3
UPACK1 LD C,1
UPACK2 PUSH BC
 CALL PP
UPACK3 CALL UPP
UPACK4 KARBE 1
 CP EOF
 JR Z,FORRZAR
 AND A
 CALL NZ,TOMHIBA
 JR UPACK0
UJNYIT PUSH BC
 LD A,6
 EXOS 3
 POP BC
 POP IY
UPACK0 CALL CELNYIT
 PUSH IY
UPACK5 KARBE 1
 CALL TOMHIBA
 LD A,B
 CP EOF
 JR Z,ROBBHAT
 AND A
 JR Z,ROBBHAT
 JR UJNYIT
ROBBHAT PUSH BC
 LD DE,8000H
 RST 28H
 LD A,D
 SUB #40
 LD B,A
 LD C,E
 LD DE,8000h
 LD A,6
 EXOS 8
 CALL TOMHIBA
 POP AF
 AND A
 JR Z,UPACK5
 LD A,6
 EXOS 3
 POP IY
 JR UPACK4
FORRZAR LD A,1
 EXOS 3
 POP BC
 INC C
 DJNZ UPACK2
 CALL OLAP
 RET
UPP LD DE,DTFNEV
 LD A,1
 EXOS 1
 CALL TOMHIBA
 LD B,6
 LD HL,ATTUS
ATTUS1 PUSH BC
 KARBE 1
 CALL TOMHIBA
 LD A,B
 CP (HL)
 LD A,#EF
 POP BC
 JP NZ,TOMHIBA
 INC HL
 DJNZ ATTUS1
 RET
CELNYIT LD A,2
 ADD A,B
 LD (CELNEV),A
 LD A,1
 LD DE,CELNEV+3
 LD BC,13
 EXOS 6
 BLOUT EDITCSAT,CREATING,CREAH
 BLOUT EDITCSAT,CELNEV+1,15
 LD A,6
 LD DE,CELNEV
 EXOS 2
 CALL TOMHIBA
 RET
