start          equ $7000
               org start
               opt %0100101

rysunek        equ $5000
sysvblv        equ $e45f
setvblv        equ $e45c
infofonts      equ $b400

vvblki         equ $222
stary          equ $f0

               lda #$b4
               sta 756
               lda <display
               sta 560
               lda >display
               sta 561
               lda #$34
               sta 708
               lda #$68
               sta 709
               lda #$cf
               sta 710

               lda vvblki
               sta stary
               lda vvblki+1
               sta stary+1

               lda #6
               ldx >nmi
               ldy <nmi
               jsr setvblv
               lda #34
               sta 559

               iny
               bne *-1
               inx
               bne *-4
               rts

nmi            lda adr
               sta disp+1
               lda adr+1
               sta disp+2
               lda scrol
               sta 54276
               beq *+8
               dec scrol
               jmp sysvblv
               lda #3
               sta scrol
               inc adr
               bne *+5
               inc adr+1
               lda adr
               cmp <endsc
               bne pp
               lda adr+1
               cmp >endsc
               bne pp
               lda #27
               sta stary+2
               lda <sctx
               sta adr
               lda >sctx
               sta adr+1
pp             jmp sysvblv


display  equ *

         dta d'p'
disp     dta b(64+4+16),a(sctx)
         dta d'p'

   dta b(64+14),a(rysunek)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14),b(14),b(14),b(14),b(14)
   dta b(14)

        dta b(64+14),a(rysunek+$1000)

        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14),b(14),b(14),b(14)
        dta b(14)
        dta b(65),a(display)

adr            dta a(sctx)
scrol          dta b(2)

sctx           dta d'                                         '
               dta d'      .... AROUND THE PLANET ....        '
               dta d'   PROGRAM GRAFIKA I MUZYKA:'
               dta d'  JANUSZ GRZYB        '
               dta d'.. 1993 LK AVALON      '
               dta d'PODZI.KOWANIA DLA TOMASZA .ABUZA '
               dta d'ZA UDOST.PNIENIE STACJI DYSK.W    '
               dta d'    DLA ZAINTERESOWANYCH KONTAKTEM '
               dta d'ZE MN. PODAJ. ADRES:   JANUSZ GRZYB  UL.'
               dta d'MAKUSZY.SKIEGO 28   33-100 TARN.W  TEL.'
               dta d'21 08 90.       POZDROWIWNIA DLA:     '
               dta d'  ..  TOMASZA PACA  ..  TOMASZA .ABUZA  '
               dta d'.. TADEUSZA NOWAKA  ..  CA.EJ MOJEJ RODZ'
               dta d'INKI  ..  BRACI KOWALSKICH ..  '
               dta d'GRZEGORZA CIEMI.GI  ..  JAROS.AWA '
               dta d'CHMIELA  ..  KRYSTIANA PACA ..  MARCINA  '
               dta d'JAKUBOWSKIEGO  I CA.EJ RESZTY ZNAJOMYCH '
               dta d'Z TARNOWA.                               '
               dta d'         '
endsc          dta d'         '
               dta d'                                         '

               org $2e2
               dta a(start)