infofonts      equ $8800
adr            equ $f0

               org $480
               opt %10101



               ldx #66
               lda 53770
               cmp #75
               bcs *+4
               bcc *-7
               cmp #178
               bcs *-11
               sta zamiec,x
               dex
               bne *-17

               lda <kon_scrol
               sta adr
               lda >kon_scrol
               sta adr+1


               lda >infofonts
               sta 756
               lda <wpr_display
               sta 560
               lda >wpr_display
               sta 561

               lda <wpr_nmi
               sta 552
               lda >wpr_nmi
               sta 553
               lda #1
               sta 538
               lda <wpr_dli
               sta 512
               lda >wpr_dli
               sta 513

               lda #3
               sta 53277
               lda #192
               sta 54286
               lda #8
               sta 708
               lda #10
               sta 709
               lda #15
               sta 710
               sta 704
               lda #61
               sta 559

               lda #222
               sta 54279

               jmp *

wpr_dli        equ *

               pha
               txa
               pha

               ldx #66
               lda zamiec,x
               sta 54282
               sta 53252
               dex
               bne *-10
               lda #0
               sta 53252

               pla
               tax
               pla
               rti

wpr_nmi        equ *

               lda #1
               sta 538

               lda scrol+4
               beq *+16
               cmp #1
               beq *+8
               dec scrol+4
               jmp nmi2
               jsr sciemniaj
               rts

               inc scrol+3
               lda scrol+3
               cmp #3
               bne nmi2
               lda #0
               sta scrol+3

               lda scrol+1
               sta pp
               lda scrol+2
               sta pp+1
               lda scro               dta d'  . CEL AKCJI:               .  '
               dta d'  .                          .  '
               dta d'_ .  WYDOSTA. Z OPANOWANEJ   .  '
               dta d'  . BAZY TAJN. BRO. ATOMOW.  ._ '
               dta d'  .    UKRYT. W SZE.CIU      .  '
               dta d'  . TAJNYCH MIEJSCACH.       .  '

               dta d'  . RAPORT NR 5477-03-27C:   .  '
               dta d'  .                          .  '
               dta d'_ .  NASZ CZ.OWIEK ZOSTA.    .  '
               dta d'  . ODTRANSPORTOWANY NA E2B. ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '

               dta d'  . RAPORT NR 5477-03-27D:   .  '
               dta d'  .                          .  '
               dta d'_ .  DO ATAKU Z KOSMOSU      .  '
               dta d'  .    ZOSTA.O JESZCZE:      ._ '
               dta d'  .                          .  '
               dta d'  .       36 MINUT.          .  '

               icl 'INFOFONT'