* VASCO szczajacy w STEREO v2.0›* code by NG-CREW (C-L-M)›* gfx by ANj/TRS›* 04.08.2001›› opt 37› org $9000››* inicjowanie licznikow›› lda #2› sta $80› lda #70+128› sta $81››* zmiana adresu pamieci ekranu›› lda #$80› sta $bc25››* inicjalizowanie Pokey-ow›› lda #%10100010› sta $d201› sta $d211›››* rysujemy siuski››st lda kr3› sta kr3-40› sta kr4-40› sta kr1› eor #'.'-32› sta kr3› sta kr4› lda kr2› eor #7› sta kr2››› lda $80› adc 20› pha››* generowanie dzwieku››bull lda $d20a› and #3› sta $d200› eor #3› sta $d210››* rysowanie fali›› ldx #31›lpen lda $d20a› and #1› tay› lda faldat,y› sta pen,x› dex› bpl lpen›› lda 20› cmp 20› beq *-2› pla› pha› cmp 20› bne bull››* oczko›› lda oko› eor #%01000000› sta oko›› bit $81› bmi tmp0› inc $80› lda $80› cmp #20› bcc st››* sprzatamy›› ldx #0› stx $d201› stx $d211› stx kr1› jsr czek› stx kr3-40› jsr czek› stx kr4-40› beq *››czek lda 20› adc #20› cmp 20› bne *-2› rts››tmp0 dec $81› jmp st››* dane dla rysowania fali››faldat dta d'_^'››* dane grafiki›› org $8040+7+$f0› dta d',,'''› org $8068+7+$f0› dta d'c '›oko dta d'o'› org $8090+7+$f0› dta d'!i;)'› org $80b8+7+$f0› dta d';"' <- a tutaj siusiak›kr1 dta d'.'› org $80e0+$f1› dta d'______t_L '›kr2 dta b(7)› org $8108+9+$f0› dta d'|  '›kr3 dta d'.'› dta d'     vasko lejacy do rzeki'› org $8130+9+$f0› dta d'|'› org $8158+9+$f0› dta d'|   '›kr4 dta d'.'› org $8180+7+$f0›pen equ *›› end of source›