        ORG #6000

        INCLUDE "GuiVar",#40

Start   LD IX,MWin
        CALL Win
        RET 

        LD HL,CAT
        LD DE,#0000
        LD BC,#0905
        CALL #3D13

        CALL Filer
        RET 

MWin    DEFB 0,0,9,15,7*8,7,%00000110
; Bit 0 - окно с заголовком/без
; Bit 1 - "перерисовать" окно да/нет
; Bit 2 - тискать окно по экрану да/нет

        DEFB 0
        DEFW TEXT         ; объект-текст
        DEFW SELECT       ; объект-подсветка (выборка)
        DEFW BUTTON       ; объект-кнопки (выборка)
        DEFW Nil          ; объект-флажки
        DEFW Nil          ; объект-радио кнопки
        DEFW SCROLLB      ; ползунок
        DEFW ONCREATE     ; вызов при создании

ONCREATE
        JP ClcFiler

; +18
; x, y, за раз эл-ов, всего эл-ов, высота, позиция
; адрес обработки OnCreate
; адрес обработки OnChange

SCROLLB DB 9,4,10,128,8,0
        DW Ret
        DW Ret

        DW ClcFiler
        DW DrwFiler

; +16
; x, y, номер опции, кол-во, текущий
; адрес обработчика OnClick
RADIO   DEFB 9,4,1,3,0
        DEFW Nil
        DEFB #FF

; +14
; x, y, номер опции, состояние (#00/#FF)
SWITCH  DEFB 9,3,0,0
        DEFW Nil
        DEFB #FF

TEXT    DB "DiskNam 2445",13
        DB 15,13
        DB 0

; x, y, длина, высота, флаг
; bit 0 - подсвечивать (да/нет)
; bit 1 - клавиша "заморожена"

SELECT  DEFB 1,3,8,1,%1
        DEFB 1,4,8,1,%1
        DEFB 1,5,8,1,%1
        DEFB 1,6,8,1,%1
        DEFB 1,7,8,1,%1
        DEFB 1,8,8,1,%1
        DEFB #FF

; x, y, длина, высота, цвет, флаг
; адрес спрайта кнопки
; флаги:
; Bit 0 - клавиша нажимается (yes/no)
; Bit 1 - клавиша "заморожена"

BUTTON  ;DB #FF
        DEFB 1,14,2,2,7*8+1,%11
        DEFW BUT1
        DEFB 3,14,2,2,7*8+1,%11
        DEFW BUT2
        DEFB #FF

BUT1    DEFB #03,#E0,#0C,#18,#12,#A4,#2C,#04,#50,#02,#42,#C2
        DEFB #A0,#02,#85,#42,#A0,#02,#A6,#C4,#A0,#14,#50,#68
        DEFB #4F,#90,#30,#60,#0F,#80,#00,#00
BUT2    DEFB #03,#E0,#0C,#18,#12,#A4,#2C,#04,#50,#02,#44,#42
        DEFB #A2,#82,#81,#02,#A2,#82,#A4,#44,#A0,#14,#50,#68
        DEFB #4F,#90,#30,#60,#0F,#80,#00,#00

SUP     DB %00000000
        DB %01111111
        DB %01110111
        DB %01101011
        DB %01011101
        DB %01111111
        DB %01111111
        DB %01000001

SDN     DB %01000001
        DB %01111111
        DB %01111111
        DB %01011101
        DB %01101011
        DB %01110111
        DB %01111111
        DB %00000000

BeginGUI
        INCLUDE "Arr",#89
        INCLUDE "LIB",#87
        INCLUDE "WIN3",#88
        INCLUDE "Filer",#C0
EndGUI
LEN     EQU EndGUI-BeginGUI

        DISPLAY "Length of obj:     ",LEN
        DISPLAY "Length of all obj: ",LEN+2048

        ORG #8000
FONT
+       INCBIN "52f"

        ORG Start

