'****************************************************************************
'
'   Daten ber aktuellen Text Videomodus einholen in PowerBASIC 3.0/3.2
'   incl. Setzen der Farben
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

SHARED VideoRam&, SpalteEnde%, ZeileEnde%

CALL VideoTyp
PRINT HEX$(VideoRam&)
PRINT SpalteEnde%; "*"; ZeileEnde%

SUB VideoTyp public
    ! mov ah, &h0f
    ! int     &h10
    ! mov SpalteEnde%, ah
    ZeileEnde% = pbvScrnRows
    DEF SEG = &h40
    IF CVI(PEEK$(&h63,2)) = &H3B4 THEN     'monochromer Adapter angeschl.
        VideoRam&  = &HB000                'Video-RAM bei B000:0000
        Schwarz%   = 0
        Blau%      = 0
        Gruen%     = 0
        Cyanblau%  = 15
        Rot%       = 4
        Magenta%   = 5
        Braun%     = 6
        Hellgrau%  = 7
        Grau%      = 0
        Hellblau%  = 9
        Hellgruen% = 15
        Hellcyan%  = 7
        Hellrot%   = 12
        Pink%      = 13
        Gelb%      = 15
        Weiss%     = 15
    ELSE                                   'Color-Adapter angeschlossen
        VideoRam&  = &HB800                'Video-RAM bei B800:0000
        Schwarz%   = 0
        Blau%      = 1
        Gruen%     = 2
        Cyanblau%  = 3
        Rot%       = 4
        Magenta%   = 5
        Braun%     = 6
        Hellgrau%  = 7
        Grau%      = 8
        Hellblau%  = 9
        Hellgruen% = 10
        Hellcyan%  = 11
        Hellrot%   = 12
        Pink%      = 13
        Gelb%      = 14
        Weiss%     = 15
    END IF
    DEF SEG
END SUB