;*---------------------------------*
;*            F O K A              *
;* na efekt trzeba chwile poczekac *
;*---------------------------------*
 Org $8000
buff = 203
pomrow = 205
hide = 206
col = 207
coun = 208
help0 = 209
help1 = 210
iocb6 = 928
eol = 155
ciov = 58454
adr0 = 203
adr1 = 205
scr = 207
crscol = 85
crsrow = 84
atachr = 763
oldcol = 95
oldrow = 94
savmsc = 88
adress = 212
c3 = 255
c2 = 254
c1 = 253
c0 = 252
endd = 251
setvblv = 58460
plot = 61860

start: LDA #255
 STA 54017
 Close #6
 LDA #1
 STA col
 Graphics 15
 JSR colors
 LDA <pictab
 STA adress
 LDA >pictab
 STA adress+1
 LDY #0
 STY 559
st0: LDA (adress),Y
 CMP #endd
 BEQ st4
 BCC st1
 STA col
 INY
 BNE st0
 INC adress+1
 BNE st0
st1: CLC
 ADC _x
 STA crscol
 INY
 LDA (adress),Y
 CLC
 ADC _y
 STA crsrow
 LDA col
 STY hide
 Plot (crscol),(crsrow)
 LDY hide
 INY
st2: LDA (adress),Y
 CMP #endd
 BEQ st4
 BCC st3
 STA col
 INY
 BNE st2
 INC adress+1
 BNE st2
st3: CLC
 ADC _x
 STA crscol
 INY
 LDA (adress),Y
 CLC
 ADC _y
 STA crsrow
 LDX col
 STX $2fb
 LDA #17
 STA iocb6+2
 LDX #96
 STY hide
; JSR ciov
 DrawTo (crscol),(crsrow)
 LDY hide
 INY
 BNE st2
 INC adress+1
 BNE st2
st4: INY
 DEC how
 BNE st0
 Color 2
 Fill _xx+30,_yy+40
 Fill _xx+11,_yy+100
 Fill _xx+84,_yy+94
 Fill _xx+20,_yy+0
 Color 3
 Fill _xx+19,_yy+10
 Fill _xx+26,_yy+16
 Fill _xx+34,_yy-5
 Fill _xx+32,_yy-7
 JSR intro
 Close #6
 LDA #254
 STA 54017
 LDA #34
 STA 559
set: LDA #15
 STA licz
 LDX #3
se0: LDA 708,X
 STA byte0,X
 AND #240
 sta 708,x
 DEX
 BPL se0
Flash:
 Pause 3
 dec licz
 BEQ st5
 ldx #3
fl0: lda 708,X
 CMP byte0,X
 BEQ fl1
 INC 708,X
fl1: DEX
 BPL fl0
 BMI Flash
st5: JMP st5
;jmp 256

sname DB C'S:',eol
_x DB 30
_y DB 40
_xx = 30
_yy = 40
how DB 13
byte0 DB 0
byte1 DB 0
byte2 DB 0
byte3 DB 0
licz DB 0
scrv = $a036

intro:
; Color 3
; Position 0,171
; PrintE text
; RTS
;
 LDA #6
 STA scrv+173
 LDA 88
 CLC
 ADC #241
 STA adress
 LDA 89
 CLC
 ADC #26
 STA adress+1
 LDY #0
in0: LDA text,Y
 CMP #eol
 BEQ in1
 STA (adress),Y
 INY
 BNE in0
 INC adress+1
 BNE in0
in1: RTS
text DB S'òåçåîåòáôéïî çòïõð',eol

colors:
 LDA #0
 STA 712
 LDA #18
 STA 708
 LDA #20
 STA 709
 LDA #15
 STA 710
 LDA #180
 STA 711
 RTS

pictab = *
 DB 0,100,0,97,3,96,7,95,6,82,7,73,6,70,6,67,7,64,5,60
 DB 6,57,8,46,13,32,16,27,17,10,16,9,15,5,15,3,17,0,16,253
 DB 18,255,19,250,20,247,22,245,24,245,28,246,29,247,32,248,36,252,39,1
 DB 40,7,41,13,42,18,47,22,50,25,51,25,56,33,75,41,80,45,91,57
 DB 93,65,93,66,96,73,97,78,99,102,97,101,96,103,92,104,82,102,79,98
 DB 78,98,73,100,60,102,50,103,60,114,64,119,50,118,45,117,37,108,37,106
 DB 23,105,19,103,17,97,14,90,10,86,7,85,251,0,100,1,106,5,107,10
 DB 108,14,105,17,100,251,36,105,38,83,251,50,102,50,102,54,80,55,60,53
 DB 42,251,79,97,79,97,82,93,85,82,85,70,251,96,100,90,99,88,95,89
 DB 85,86,84,251,17,10,18,7,18,9,20,7,20,10,21,4,22,4,24,10
 DB 25,9,26,13,27,13,28,15,29,19,30,10,31,18,32,12,33,14,32,7
 DB 31,4,28,0,25,254,23,255,19,253,251,16,28,17,40,19,41,19,25,20
 DB 20,21,10,251,25,12,25,17,26,35,27,43,28,43,29,42,29,19,251,22
 DB 251,23,251,23,250,251,25,251,26,252,25,250,251,31,249,31,251,34,0,35
 DB 255,35,254,36,253,251,33,251,33,250,251
End start