'****************************************************************************
'
'   direktes Text Schreiben ber VGA-BIOS in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

$COMPILE EXE
SHARED Farbe%
CLS
L% = 11
R% = 1
Color L%,R%: PRINT "Standard-Basic-Color "L%;",";R%
FOR i% = 2 TO 21
   SetFarbe L%,R%
   WriteScrn i%,1,Farbe%, USING$("###", Farbe%) + " PowerBASIC 3.0/3.2, Demo fr direktes Schreiben ber VGA-BIOS  (c) Th.Gohel " + CHR$(13,10)
NEXT i%

FUNCTION SetFarbe(ByVal Vordergrund%, ByVal Hintergrund%)
    Farbe% = Vordergrund% + (Hintergrund% * 16)
END FUNCTION

FUNCTION WriteScrn (ByVal Zeile%, ByVal Spalte%, ByVal Farbe%, ByVal Text$)
    TextSeg% = STRSEG(Text$): TextOff% = STRPTR(Text$)
    TextLen% = LEN(Text$)
    ! dec Zeile%
    ! dec Spalte%
    ! push bp
    ! push di
    ! mov ah, &h13
    ! mov al, &h01
    ! mov bx, Farbe%
    ! mov cx, TextLen%
    ! mov dh, Zeile%
    ! mov dl, Spalte%
    ! mov es, TextSeg%
    ! mov bp, TextOff%
    ! int &h10
    ! pop di
    ! pop bp
END FUNCTION