; BGE About

About_bge    ld (.spp),sp
             xor a
             ld (.ia),a
             ld hl,.Txt0
             ld (.Text),hl
.s           ld ix,.WAbout
             ld a,%1111
.l           ld (ix+6),a
.spp EQU $+1 : ld sp,0
             call Win_
             cp #FF
            jp z,CLOSE
             ld hl,.AbTAB
             ld c,a
             ld a,0
.ia      EQU $-1
             dec c
            jr z, .pl
             or a
            jr z,4F
             dec a
            jr 1F
.pl          inc a
1            cp 6
            jr nc,4F
             ld (.ia),a
             add a,a
             ld c,a
             ld b,0
             add hl,bc
             ld a,(hl)
             inc hl
             ld h,(hl)
             ld l,a
             ld (.Text),hl
3            ld a,64+%1111
            jr .l
4            ld a,%1101
            jr .l


.AbTAB      DW .Txt0
            DW .Txt1
            DW .Txt2
            DW .Txt3
            DW .Txt4
            DW .Txt5
              ; 6

.WAbout    DB 0,4,22,20,7*8,7,%1111
            ; Bit 0 - окно с заголовком/без
            ; Bit 1 - "перерисовать" окно да/нет
            ; Bit 2 - тискать окно по экрану да/нет
            ; Bit 3 - выход из окна-ткнуть только лишь за пределами (CANCEL)
           DB 0
.Text      DW .Txt0       ; объект-текст
           DW .Sel        ; объект-подсветка (выборка)
           DW #FFFF

.Sel        DB 1,3,20,4,%10
            DB 1,7,20,12,%10
            DB #FF

.Txtl       DB "     Burial Graphics Editor",#FF

.Txt0      DB #0A : DW .Txtl : DB 13   ; 16 строк
 BGEaboutDEF ; 3 line
 DB 15,13
 DB "Version: "
 DB BGE_VERSION : DB #17,18," " : MSG_LANG : DB 13
 DB 15,13
 DB "Based on the source code of the",13
 DB "  Burial  Gfx  Editor  3.o5",13
 DB "  (c) 2oo1 Delirium Tremens",13
 DB "           from Freedom",13,13
 DB "  - Sinn (coding, etc.)",13
 DB "  - Others of dtr - support",13
 DB "             - - -",13
 DB "Also used the source code of GUI",13
 DB "  and later developments ...",0



.Txt1     DB #0A : DW .Txtl : DB 13   ; 16 строк
 DB "      Authors  BGE v3.o5 :",13,15
 DB 13
 DB 13
 DB "(c) delirium tremens^freedom",13
 DB "   barnaul city 24.o7.2oo1",13
 DB 13
 DB 13
 DB "e-mail: tiden_dt@mail.ru",13
 DB "         sinn_dt@mail.ru",13
 DB 13
 DB "fido: 2:5002/47.8 maxim shelepov",13
 DB 13
 DB "Creator:",13
 DB 13
 DB "- sinn (BGE, Supreme GUI)",13
 DB "- others of dtr - shit support",0


.Txt2     DB #0A : DW .Txtl : DB 13   ; 16 строк
 DB "     Development BGE v3.o5 :",13,15
 DB 13
 DB 13
 DB " Delirium Tremens:",13
 DB "        Sinn, Tiden, Wizard,",13
 DB "        J.Krueger, Hrumer,Craz,",13
 DB "        Clown, Predator, etc...",13
 DB " Freedom:",13
 DB "    Delirium Tremens,",13
 DB "    Energy Minds,",13
 DB "    Smash Hacker Band, CFHG",13
 DB 13
 DB " Black Forest:",13
 DB "               all",13
 DB " Digital Psychoz:",13
 DB "     VladTepes, Sinn...",13
 DB 0


.Txt3     DB #0A : DW .Txtl : DB 13   ; 16 строк
 DB "    Additions for BGE v3.o5 :",13,15
 DB 13
 DB 13
 DB " GAS 13",13
 DB " FIL/ATS",13
 DB " Hrumer",13
 DB " Surv!vor",13
 DB " AntiPod",13
 DB " Vitamin",13
 DB " Viator/RUSH",13
 DB " pROF",13
 DB " ZSV",13
 DB " Alco",13
 DB " Max/CBX/PG",13
 DB " Cardinal/BDA/PG",13
 DB " Maxx/FreeStyle",0



.Txt4     DB #0A : DW .Txtl : DB 13   ; 16 строк
 DB " BrainWave",13
 DB " Energy Minds",13
 DB " Jason/ATS",13
 DB " Smash Hackers Band",13
 DB " Triumph",13
 DB " RealSoft",13
 DB " Smokers",13
 DB " Znahar/RUSH",13
 DB " PlayGear",13
 DB " PHG",13
 DB " Phantasy",13
 DB " Partizans",13
 DB " Flash",13
 DB " Brutal Creators",13
 DB " CSP'xxxx",13
 DB " Etc...",0


.Txt5     DB #0A : DW .Txtl : DB 13   ; 16 строк
 DB "  Development BGE v3.o6-4.00 :",13,15
 DB 13
 DB 13
 DB " Alone Coder   (v3.o6-3.o9)",13
 DB " Trefi         (v3.o7)",13
 DB " Dart Alver    (v3.o9-4.0)",13
 DB 13
 DB "Additions:",13
 DB 13
 DB " baxter   - 2 Skins   (v3.11)",13
 DB 13
 DB "e-mail:",13
 DB "  Alone Coder:",13
 DB "   dmitry.alonecoder@gmail.com",13
 DB "  Dart Alver:",13
 DB "        aleksandr-kn@yandex.ru",13
 DB 0


;----------------------------------------------

LAbout        EQU $-About_bge

   DISPLAY "About len   :",/a, LAbout


