Org $8000 buff EQU 203 pomrow EQU 205 hide EQU 206 col EQU 207 coun EQU 208 help0 EQU 209 help1 EQU 210 iocb6 EQU 928 eol EQU 155 ciov EQU 58454 adr0 EQU 203 adr1 EQU 205 scr EQU 207 crscol EQU 85 crsrow EQU 84 atachr EQU 763 oldcol EQU 95 oldrow EQU 94 savmsc EQU 88 adress EQU 212 c3 EQU 255 c2 EQU 254 c1 EQU 253 c0 EQU 252 endd EQU 251 setvblv EQU 58460 plot EQU 61860 start LDA #255 STA 54017 JSR close LDA #1 STA col LDA #15 JSR graph JSR colors 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 JSR plot 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 LDY hide INY BNE st2 INC adress+1 BNE st2 st4 INY DEC how BNE st0 LDX #30 LDY #40 LDA #2 JSR fill LDA #2 LDX #11 LDY #100 JSR fill LDA #2 LDX #84 LDY #94 JSR fill LDA #2 LDX #20 LDY #0 JSR fill LDA #3 LDX #19 LDY #10 JSR fill LDA #3 LDX #26 LDY #16 JSR fill LDA #3 LDX #34 LDY #251 JSR fill LDA #3 LDX #32 LDY #250 JSR fill JSR intro JSR close 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 LDY #3 JSR pause 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 WaitKey Dos sname DTA C'S:',B(eol) _x DTA B(30) _y DTA B(40) how DTA B(13) bufor Org *+255 byte0 DTA B(0) byte1 DTA B(0) byte2 DTA B(0) byte3 DTA B(0) licz DTA B(0) scrv EQU $a036 graph STA iocb6+11 STY iocb6+10 LDA #3 STA iocb6+2 STA iocb6+8 LDX sname STX iocb6+4 STY iocb6+5 LDX #96 JMP ciov pause LDX #0 LDA #3 JSR setvblv pa0 LDA 540 BNE pa0 RTS close LDA #12 STA iocb6+2 LDX #96 JMP ciov wait LDA #255 STA 764 wa0 LDA 764 CMP #255 BEQ wa0 RTS intro 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 dta d'òåçåîåòáôéïî çòïõð',b(eol) colors lda #0 sta 712 LDA #18 sta 708 LDA #20 sta 709 lda #15 STA 710 LDA #180 STA 711 RTS ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ pictab EQU * DTA C'da`_RIFC@<9.   ýÿú÷õõö÷ ' DTA C'ø$ü',B(39) DTA C'() */238!K)P-[9]A]B`IaNcfae`g\hRfObNbIdbufor STX buff STY buff+1 LDA #0 STA crscol+1 STA 205 JSR 63178 JSR 61839 BEQ fi0 RTS fi0 JSR 63178 jsr 61839 bne fi2 dec crscol LDA crscol cmp #255 BNE fi1 dec crscol+1 fi1 clc bcc fi0 fi2 inc crscol bne fi3 inc crscol+1 fi3 lda #0 sta 206 sta 207 fia dec crsrow JSR 61839 sta 208 inc crsrow INC crsrow jsr 61839 STA 209 dec crsrow lda 208 beq fi4 LDA #0 sta 206 BEQ fi5 fi4 lda 206 bne fi5 lda #1 sta 206 ldy 205 lda crscol sta (buff),y iny lda crscol+1 sta (buff),y INY dec crsrow lda crsrow STA (buff),Y iny INC crsrow sty 205 fi5 lda 209 beq fi6 LDA #0 sta 207 BEQ fi7 fi6 lda 207 bne fi7 lda #1 sta 207 ldy 205 lda crscol sta (buff),y iny lda crscol+1 sta (buff),y INY inc crsrow lda crsrow STA (buff),Y iny DEC crsrow sty 205 fi7 jsr 61898 INC crscol BNE fi8 INC crscol+1 fi8 JSR 63178 JSR 61839 BNE fi9 JMP fia fi9 LDY 205 DEY LDA (buff),Y STA crsrow DEY LDA (buff),Y STA crscol+1 DEY LDA (buff),Y STA crscol STY 205 CPY #253 BEQ fin JMP fi0 fin RTS Org 736 DTA A(start)