piontable      equ *

     dta b(0),b(16),b(32)
     dta b(48),b(64),b(80)
     dta b(96),b(112)

displaylist    equ *

     dta b(112),b(112),b($f0)
     dta b(196),a(screen)
     dta b(196),a(screen)
     dta b(196),a(screen+32)
     dta b(196),a(screen+32)
     dta b(196),a(screen+64)
     dta b(196),a(screen+64)
     dta b(196),a(screen+96)
     dta b(196),a(screen+96)
     dta b(196),a(screen+128)
     dta b(196),a(screen+128)
     dta b(196),a(screen+160)
     dta b(196),a(screen+160)
     dta b(196),a(screen+192)
     dta b(196),a(screen+192)
     dta b(196),a(screen+224)
     dta b(196),a(screen+224)
     dta b(65),a(displaylist)


screen         equ *

     dta d'                                 '
     dta d'                                 '
     dta d'                                 '
     dta d'                                 '
     dta d'                                 '
     dta d'                                 '
     dta d'                                 '
     dta d'                                 '

_zapkontrol    dta b(0)
fzzap      dta b(0),b(16),b(32),b(48)
pozdan         equ *
     dta b(163),b(143),b(60),b(79),b(83),b(84),b(19),b(0)
     dta b(192),b(20),b(192),b(4),b(192),b(240),b(60),b(240)
     dta b(163),b(164),b(83),b(79),b(60),b(79),b(19),b(0)
     dta b(60),b(240),b(192),b(4),b(192),b(4),b(192),b(240)
     dta b(163),b(164),b(83),b(84),b(83),b(79),b(60),b(15)
     dta b(192),b(240),b(60),b(240),b(192),b(4),b(192),b(0)
     dta b(60),b(143),b(83),b(84),b(83),b(84),b(19),b(15)
     dta b(192),b(20),b(192),b(240),b(60),b(240),b(192),b(0)
poz2dan        equ *
     dta b(83),b(79),b(60),b(79),b(19),b(68),b(19),b(0)
     dta b(197),b(37),b(197),b(21),b(197),b(240),b(60)
     dta b(240),b(83),b(84),b(83),b(79),b(60),b(79),b(19)
     dta b(0),b(60),b(241),b(197),b(21),b(197),b(20)
     dta b(193),b(240),b(83),b(84),b(83),b(68),b(19),b(79)
     dta b(60),b(15),b(197),b(241),b(60),b(241),b(197)
     dta b(20),b(193),b(0),b(60),b(79),b(83),b(68),b(19)
     dta b(68),b(19),b(15),b(197),b(37),b(197),b(241)
     dta b(60),b(240),b(193),b(0)
pindan         equ *
     dta b(165),b(165),b(85),b(85),b(69),b(48),b(116),b(220)
     dta b(80),b(84),b(80),b(68),b(0),b(48),b(166),b(220)
     dta b(165),b(165),b(85),b(85),b(81),b(76),b(29),b(55)
     dta b(80),b(84),b(80),b(68),b(16),b(76),b(29),b(55)
     dta b(165),b(165),b(85),b(85),b(84),b(19),b(71),b(205)
     dta b(80),b(84),b(80),b(68),b(16),b(3),b(71),b(205)
     dta b(165),b(165),b(85),b(85),b(21),b(196),b(209),b(115)
     dta b(80),b(84),b(80),b(68),b(16),b(192),b(209),b(115)
pin2dan        equ *
     dta b(205),b(71),b(3),b(68),b(16),b(68),b(16),b(0)
     dta b(205),b(71),b(19),b(84),b(85),b(84),b(17),b(0)
     dta b(115),b(209),b(192),b(4),b(16),b(68),b(16),b(0)
     dta b(115),b(209),b(196),b(21),b(85),b(84),b(17),b(0)
     dta b(220),b(116),b(48),b(68),b(16),b(68),b(16),b(0)
     dta b(220),b(116),b(49),b(68),b(85),b(84),b(17),b(0)
     dta b(55),b(29),b(76),b(64),b(16),b(68),b(16),b(0)
     dta b(55),b(29),b(76),b(81),b(85),b(84),b(17),b(0)
koddoor        equ *
    dta b(255),b(255),b(234),b(229),b(229),b(234),b(239),b(234)
    dta b(255),b(253),b(169),b(169),b(169),b(185),b(169),b(153)
    dta b(255),b(255),b(234),b(229),b(229),b(234),b(238),b(234)
    dta b(255),b(253),b(169),b(169),b(169),b(153),b(168),b(185)
    dta b(255),b(255),b(234),b(229),b(229),b(234),b(239),b(234)
    dta b(255),b(253),b(169),b(169),b(169),b(153),b(169),b(153)
    dta b(255),b(255),b(234),b(239),b(239),b(234),b(239),b(234)
    dta b(255),b(253),b(169),b(169),b(169),b(153),b(169),b(153)
kod2door       equ *
    dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85)
    dta b(169),b(153),b(169),b(153),b(169),b(169),b(85),b(85)
    dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85)
    dta b(169),b(153),b(168),b(153),b(169),b(169),b(85),b(85)
    dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85)
    dta b(169),b(185),b(169),b(153),b(169),b(169),b(85),b(85)
    dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85)
    dta b(169),b(153),b(169),b(185),b(169),b(169),b(85),b(85)
lasdoor        equ *
    dta b(40),b(20),b(40),b(60),b(40),b(20),b(40),b(60)
    dta b(40),b(20),b(40),b(60),b(40),b(20),b(40),b(60)
    dta b(60),b(40),b(20),b(40),b(60),b(40),b(20),b(40)
    dta b(60),b(40),b(20),b(40),b(60),b(40),b(20),b(40)
    dta b(40),b(60),b(40),b(20),b(40),b(60),b(40),b(20)
    dta b(40),b(60),b(40),b(20),b(40),b(60),b(40),b(20)
    dta b(20),b(40),b(60),b(40),b(20),b(40),b(60),b(40)
    dta b(20),b(40),b(60),b(40),b(20),b(40),b(60),b(40)