; Old version - not used !
; Pixels mask data module for BGE (used Texture procedures) ; /DA

PMaskPgn
          DISP BUFF

WPMask    DB 0,0,9,7,5*8,5,%1111
; Bit 0 - окно с заголовком/без
; Bit 1 - "перерисовать" окно да/нет
; Bit 2 - тискать окно по экрану да/нет
; Bit 3 - выход из окна-ткнуть только лишь за пределами (CANCEL)
             DB 0
             DW .TPMask
             DW .SPMask
             DW Nil                ; горячие клавиши
             DW Nil                ; объект-кнопки (выборка)
             DW FlPmask            ; объект-флажки
             DW #FFFF

.TPMask      MSG_PMASK_Head : DB 13
             MSG_TXTR_solid : DB 13
             DB "8*8   16*16",13
             MSG_PMASK_Sieve
             DB 0

.SPMask      DB 1,3,7,1,%11
             DB 1,4,3,1,%11
             DB 4,4,4,1,%11
             DB 1,5,7,1,%11
             DB #FF

FlPmask      DB 7,5,3,#00
.sieve   EQU $-1
             DW  .sieveEX
             DB #FF
.sieveEX     ld a,(FlPmask.sieve)
             ld (Sieve),a
            ret

LPMask    EQU $-WPMask
          ASSERT  LPMask < #80
          ENT
          DISPLAY "PMask len   :",/a,LPMask
