ELOKCCCCCCCCORG 6800HLOAD 6800HRAJZOL: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)LD DE,6*26ADD HL,DELD B,26CIKK3:LD C,7PUSH HLXOR ALD DE,26CIKK4:DB 0EDH,67HOR ASBC HL,DEDEC CJR NZ,CIKK4POP HLINC HLDJNZ CIKK3RETSPRITE:DB "##"FORGAT:LD HL,(SPRITE)LD B,26CIKK1:LD C,7PUSH HLXOR ALD DE,26CIKK2:DB 0EDH,6FHADD HL,DEDEC CJR NZ,CIKK2POP HLINC HLDJNZ CIKK1LD A,255JR MARJOTAR1:DB "##"TAR2:DB "##"TAR3:DB "##"SLOTTER:LD HL,KCIMLD (TAR2),DELD BC,198RES 0,DPUSH AFINC ACIKLUS2:DEC AJR Z,VEGE2ADD HL,BCJR CIKLUS2VEGE2:POP AFLD B,HLD C,LPUSH BCAND 07HINC ACIKLUS3:DEC AJR Z,VEGE3INC HLINC HLJR CIKLUS3VEGE3:LD B,HxxxxxxxxLD C,LLD A,(HL)INC HLLD L,(HL)LD H,ARST 18HJR Z,SAJZOLJLD D,HLD E,LCALL ALLAPIT;78D2HLD D,7CIK7:LD E,26PUSH HLCIK8:BIT 7,HJR Z,FINLD (HL),0INC HLDEC EJR NZ,CIK8POP HLINC HDEC DJR NZ,CIK7SAJZOLJ:LD DE,(TAR2)LD A,DCPLJR Z,ENDELD H,ssssssssBLD L,CLD (HL),DINC HLLD (HL),EPOP HLLD BC,16ADD HL,BCLD (SPRITE),HLJP RAJZOLENDE:POP HLRETFIN:POP HLJR SAJZOLJKCIM:DS 990ALLAPIT:EQU 78D2H;;;VELETLEN PONT-RAJZOLAS;;RUTIN1:LD BC,1000CIKL1:PUSH BCLD HL,255CALL 14D5HCALL 0B26HLD DE,(4121H)PUSH DELD HL,255CALL 14D5HCALL 0B26HLD HL,4121HPOP DELD D,(HL)PUSH DELD HL,3CALL 14D5HCALL 0B26HLD DE,(4121H)CALL DEFFC;798EHPOP DESCFCALL DEFPTPOP BCDEC BCLD A,BOR CJR NZ,CIKL1LD DE,798AHLD HL,7918HCIKL2:LD A,(HL)CP 0F4HC********ALL Z,RETELINC HLRST 18HJR NZ,CIKL2LD A,0F4HLD (7907H),ALD (794AH),ARETRETEL:DEC HLLD (HL),0C9HINC HLRETRUTIN2:LD A,1CALL DEFCL;78B5HLD DE,3CALL DEFFC;798EHLD D,73FOR3:LD E,45LD B,DLD A,BSUB 39LD B,AFOR1:LD C,32LD (TAR1),DEFOR2:LD D66666666,BLD E,CPUSH BCSCFCALL DEFPTPOP BCLD A,(TAR1)SUB CJR Z,CONT1INC CJR FOR2CONT1:LD A,(TAR1+1)SUB BJR Z,CONT2INC BPUSH BCLD HL,5CALL 14D5HCALL 0B26HLD A,(4121H)LD B,ALD A,(TAR1)SUB 3ADD A,BCP 40JR C,NEGYVENCP 51JR NC,OTVENLD DE,(TAaaaaaaaaR1)LD E,AEGYUTT:POP BCJR FOR1NEGYVEN:LD DE,(TAR1)LD E,40JR EGYUTTOTVEN:LD DE,(TAR1)LD E,50JR EGYUTTCONT2:LD DE,(TAR1)LD A,DADD A,73LD D,AJR NC,FOR3RETRUTIN3:LD A,2LD (IRANY),ALD B,0LD E,185CIKLU1:LD C,0LD D,12CIKLU2:PUSH BCPUSH DESLwwwwwwwwA BSLA BSLA BLD A,COR BCALL SLOTTERPOP DEPOP BCLD A,28ADD A,DLD D,AINC CBIT 3,CJR Z,CIKLU2LD A,ESUB 32LD E,AINC BBIT 2,BJR Z,CIKLU1RETRUTIN4:;NULLAZOLD A,12LD (BALSP),ALD A,208LD (JOBBSP),ALD A,89LD (ALSOSP),ALD A,3LD (ELETEK),ALD A,0FFHLD B,0LD HL,GOLYOKK1:LD (HL),ADJNZ K1LD A,118LD (URHAJOX),ALD A,255LD (GOLYOX),ALD (GOLYOY),AXOR ALD (VANHAJO),ALD (PONTSZ),ALD (PONTSZ+1),ALD (BASTYA),ALD (SZAMOLO),ARETBALSP:DB "#"JOBBSP:DB "#"ALSOSP:DB "#"ELETEK:DB "#"GOLYOK:DS 256URHAJOX:DB "#"GOLYOX:DB "#"GOLYOY:DB "#"VANHAJO:DB "#"PONTSZ:DB "##"BASTYA:DB "#"SZAMOLO:DB "#"IRANY:DB "#"DEFFC:EQU 798EHDEFPT:EQU 78FAHDEFCL:EQU 78B5HEND:>>>>>>>>