ORG 100H
.SET MACRO      @VALTOZO,@ERTEK
                LD B,1
                LD C,@VALTOZO
                LD D,@ERTEK
                EXOS 16
                ENDM

.IR             MACRO @CIM,@HOSSZ
                LD A,1
                LD DE,@CIM
                LD BC,@HOSSZ
                EXOS 8
                ENDM

                LD SP,4000H
                .SET 22,1
                .SET 23,1
                .SET 24,40
                .SET 25,24
                LD A,1
                LD DE,VID
                EXOS 2
                LD B,1
                LD A,1
                LD C,1
                LD D,20
                LD E,1
                EXOS 11
                CALL RANDOM
XR              CALL RND
                LD (RX),HL
                LD DE,40*8*4-200
                SBC HL,DE
                JR NC,XR
YR              CALL RND
                LD (RY),HL
                LD DE,24*9*4-200
                SBC HL,DE
                JR NC,YR
HR              CALL RND
                LD (RH),HL
                LD DE,200
                SBC HL,DE
                JR NC,HR
                LD HL,(RH)
                LD DE,40
                SBC HL,DE
                JR C,HR
SR              CALL RND
                LD (RS),HL
                LD A,L
                SRL A
                SRL A
                SRL A
                SRL A
                LD L,A
                LD A,(RS)
                AND 15
                XOR L
                JR Z,SR
                LD BC,(RX)
                LD DE,(RY)
                LD HL,(RH)
                LD A,(RS)
                CALL RAJZOL
                JR XR
                LD DE,BILL
                LD A,3
                EXOS 1
                LD A,3
                EXOS 5
                LD DE,BASIC
                EXOS 26

RAJZOL          LD (X1),BC
                LD (Y1),DE
                LD (X2),HL
                LD (Y2),HL
                PUSH AF
                AND 15
                LD (I1),A
                POP AF
                SRL A
                SRL A
                SRL A
                SRL A
                OR A
                JR NZ,OKE3
                INC A

OKE3           LD (I2),A
                .IR ESC1,ESCH1
                .IR ESC2,ESCH2
                .IR ESC3,ESCH3
                .IR ESC1,ESCH1
                .IR ESC3,ESCH3
                .IR ESC2,ESCH2
                .IR ESC1,ESCH1
                .IR ESC4,ESCH4
                RET

ESC1            DB 27,"s"
                DB 27,"A"
X1              DW 0
Y1              DW 0
                DB 27,"I"
I2              DB 0
                DB 27,"S"

ESCH1           EQU $-ESC1
ESC2            DB 27,"R"
X2              DW 0
                DW 0
ESCH2           EQU $-ESC2
ESC3            DB 27,"R"
                DW 0
Y2              DW 0
ESCH3           EQU $-ESC3
ESC4            DB 27,"s"
                DB 27,"R"
                DW 16,16
                DB 27,"I"
I1              DB 0
                DB 27,"F"
ESCH4           EQU $-ESC4

RANDOM          LD A,R
                LD HL,(RNDTAR+1)
                JR RND10
RND             LD A,(RNDTAR+2)
                LD HL,(RNDTAR)
RND10           LD B,16
RND20           LD C,A
                RRCA
                RRCA
                RRCA
                XOR C
                RLA
                RLA
                LD A,C
                ADC HL,HL
                ADC A,A
                DJNZ RND20
                LD (RNDTAR+2),A
                LD (RNDTAR),HL
                RET
RNDTAR          DB "RND"

RX              DW 0
RY              DW 0
RH              DW 0
RS              DW 0
VID             DB 6,"VIDEO:"
BILL            DB 9,"KEYBOARD:"
BASIC           DB 5,"BASIC"
                END