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 <wpr_dan
               sta adr
               lda >wpr_dan
               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 Y_licz
               cmp #192
               bne *+7
               inc Y_licz+2
               beq *+14

               lda 764
               cmp #255
               beq nmi2
               lda #255
               sta 764

               lda #0
               sta Y_licz
               inc Y_licz+1
               lda adr
               clc
               adc #192
               sta adr
               bcc nmi2
               inc adr+1

nmi2           lda Y_licz+1
               cmp #8
               bcc *+5

               jmp sciemniaj

               lda Y_licz
               cmp #192
               bcs *+5
               inc Y_licz
               ldy Y_licz
               cpy #192
               bcs *+7
               lda (adr),y
               sta wpr_txt+64,y

               ldx #66
               dec zamiec,x
               dec zamiec+1,x
               dec zamiec+1,x
               dex
               dex
               bne *-11
               ldx #66
               lda zamiec,x
               cmp #75
               bcs *+7
               lda #178
               sta zamiec,x
               dex
               bne *-13
               rts
sciemniaj      equ *

               lda 708
               and #%00001111
               beq *+5
               dec 708
               lda 709
               and #%00001111
               beq *+5
               dec 709
               lda 710
               and #%00001111
               beq *+5
               dec 710
               lda 704
               and #%00001111
               beq *+5
               dec 704
               rts

Y_licz         dta d'   '

zamiec         equ *

               dta d'                                        '
               dta d'                            '

wpr_display    equ *

               dta d'pppp'
               dta b(68),a(wpr_ekr)
               dta b(4),b(4),b(4)
               dta b(4+128),b(4),b(4)
               dta b(4),b(4),b(4)
               dta b(4),b(4),b(4)
               dta b(4)
               dta b(4),b(4),b(4)
               dta b(4)
               dta b(65),a(wpr_display)


               org $a000

wpr_ekr        equ *

               dta d'       _        [\      _       '
               dta d' [\      _      ]^              '
               dta d' ]^            _     _      _   '
               dta d'       _                _       '
wpr_txt        dta d'_ ............................  '
               dta d'  .                          ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '
               dta d'_ .                          .  '
               dta d'  .                          ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '
               dta d'[\.                          . _'
               dta d']^............................  '
               dta d'                 _      _       '
               dta d' _      _     _      _      [\  '
               dta d'      _   [\                ]^  '
               dta d'   _      ]^        _           '


wpr_dan        equ *

               dta d'  . JEST ROK 5477.           .  '
               dta d'  .                          .  '
               dta d'_ .  DO ZIEMI ZBLI.A SI.     .  '
               dta d'  .    JEDEN Z PATROLI       ._ '
               dta d'  . STRZEG.CYCH NASZ UK.AD   .  '
               dta d'  . S.ONECZNY.               .  '

               dta d'  . RAPORT NR 5477-03-27A:   .  '
               dta d'  .                          .  '
               dta d'_ .   NEGOCJACJE POKOJOWE    .  '
               dta d'  . Z MIESZKA.CAMI PLANETY   ._ '
               dta d'  .   SQUO ZAKO.CZY.Y SIE    .  '
               dta d'  . FIASKIEM.                .  '

               dta d'  .   DO ZIEMI ZBLI.A SI.    .  '
               dta d'  .    ESKADRA MY.LIWC.W     .  '
               dta d'_ .     NIEPRZYJACIELA.      .  '
               dta d'  .    PRZEWIDYWANY ATAK     ._ '
               dta d'  .   NAST.PI ZA OKO.O       .  '
               dta d'  .       2 GODZINY.         .  '

               dta d'  . RAPORT NR 5477-03-27B:   .  '
               dta d'  .                          .  '
               dta d'_ . NAJWA.NIEJSZA STRATEGI-  .  '
               dta d'  . CZNIE STACJA ORBITALNA,  ._ '
               dta d'  .     EARTH 2B ZOSTA.A     .  '
               dta d'  . OPANOWANA PRZEZ WROGA.   .  '

               dta d'  . ROZKAZ NR 65-SX-486:     .  '
               dta d'  .                          .  '
               dta d'_ . WYS.A. NA ZAJ.T. STACJ.  .  '
               dta d'  . ORBITALN. NAJLEPSZEGO    ._ '
               dta d'  . CZ.OWIEKA Z BRYGADY      .  '
               dta d'  . KOSMICZNYCH KOMANDOS.W.  .  '

               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'