ͺΤςασθεςͺ δις°ϊ ile equ 3 opt 21* opt %100101 - code on dzk! org $480 lda #ile sta _ile lda
dl sta $230 sty $231 lda #$22 sta $22f lda 764 cmp #$ff beq *-5ptl jsr set jsr $e459 - do it! dec _ile bne ptl jmp $e474 - rezetnij t0!set equ * jsr drv ldy #0x0 lda tab,y sta $300,y iny cpy #6 bne x0 lda <$80 ldy >$80 sta $2d5 sty $2d6 lda sec ldy sec+1 sta $30a sty $30b inc sec ldx #8add equ * lda #16 clc adc tab+4 sta tab+4 bcc skp0 inc tab+5skp0 equ * dex bne add rtsdrv equ * ldx #16 lda #3 sta $340+2,x lda fn sta $340+5,x lda #6 sta $340+10,x jmp $e456tab dta b($31),b(1),b(87),b($80),a(log),b(7)fn dta c'D:*.*',b($9b)sec dta a($169)_ile org *+1dl dta c'ppppppppp',b($42),a(note) dta d'`"' dta b($41),a(dl)note equ * dta d'trasher0z 0.o5 - kaleczymy katal0g! :-) ' dta d'prez c0k0lwiek by wrajtsic l0g0z 0n dzk!'log equ ** pierwsze osiem plikow ($169) dta c'b',a(999),a(0),c'' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' 0fik '* drugie osiem plikow ($16a) dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c' ' dta c'b',a(999),a(0),c''* trzecie osiem plikow ($16b) dta c'b',a(000),a(0),c'thizz 0nly ' dta c'b',a(000),a(0),c' l0g0z na ' dta c'b',a(000),a(0),c'pr0be [he!]' dta c'b',a(000),a(0),c'[txt tesh!]' dta c'b',a(000),a(0),c'Wymki teg0 ' dta c'b',a(000),a(0),c'l0g0za: ' dta c'b',a(000),a(0),c' 11x24 ' dta c'b',a(999),a(0),c'' org $2e0 dta a($480) end