PROBAK44444444CCCCCCCCORG 7000HLOAD 7000HRAJZOL:CALL 78D2HBIT 1,DJR NZ,FORGATXOR AMARJO:LD DE,(SPRITE)EX DE,HLLD B,7CIK:PUSH BCPUSH DELD BC,26LDIRPOP DEINC DPOP BCDJNZ CIKOR ARET ZLD HL,(SPRITE)XOR ALD B,7CIK1:LD C,26CIK2:DB 0EDH,67HINC HLDEC CJR NZ,CIffffffffK2XOR ADJNZ CIK1RETFORGAT:LD HL,(SPRITE)LD BC,7*26ADD HL,BCXOR ALD B,7CIK3:LD C,26CIK4:DB 0EDH,6FHDEC HLDEC CJR NZ,CIK4XOR ADJNZ CIK3LD A,255JR MARJOSPRITE:DB 0,0PROBA:LD D,20LD E,200CALL RAJZOLPROBA2:LD E,200LD D,0Q1:PUSH DELD HL,::::::::6800HLD (SPRITE),HLCALL RAJZOLLD HL,6000HLD (SPRITE),HLLD BC,1000CALL 60HPOP DEPUSH DECALL RAJZOLPOP DEINC DJR NZ,Q1HALTPROBA3:LD HL,6800HLD (SPRITE),HLLD HL,0CIKLUS:LD D,(HL)INC HLLD E,(HL)INC HLPUSH HLCALL RAJZOLPOP HLJR CIKLUSPROBA4:LD HL,8080HPUSH HLPOP DELD A,7OUT (31),ALD A,63OUT (30),ALD A,14OUT (31),ALD HL,6800HLD (SPRITE),HLLD HL,8080HPUSH HLPOP DECALL RAJZOLLD DE,8080HLD HL,8080HCIKLUS2:IN A,(31)BIT 0,ACALL Z,INCEBIT 1,ACALL Z,DECEBIT 2,ACALL Z,DECDBIT 3,ACALL Z,INCDRST 18HJR Z,CIKLUS2PUSH DEEX DE,HLLD HL,6000HLD (SPRITE),HLCALL RAJZOLPOP DELD HL,6800HLD (SPRITE),JLPUSH DECALL RAJZOLPOP DELD H,DLD L,EJR CIKLUS2INCE:INC ERETDECE:DEC ERETINCD:INC DRETDECD:DEC DRETENDR::::::::