'***************************************************************************
'
' 256 Farben Demonstration im Modus 13 (nicht ModeX) f�r 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/
'
'***************************************************************************

Modus13
Zeile% = 1
FOR i% = 1 TO 255
    WriteScrn Zeile%,1,i%, "PowerBASIC Demo f�r Modus 13 Color " + STR$(i%)
    INCR Zeile%
    IF Zeile% = 25 THEN Zeile% = 1
    DELAY 0.03
NEXT i%
BEEP

'----------------------------------------------------------------------------
'   Zeichen direkt auf den Bildschirm schreiben (keine Umleitung durch MORE)
'----------------------------------------------------------------------------
SUB WriteScrn (BYVAL Zeile?, BYVAL Spalte?, BYVAL Farbe%, BYVAL Text$)
        LOCAL TextSeg??, TextOff??, TextLen??
        TextSeg??   = STRSEG(Text$)
        TextOff??   = STRPTR(Text$)
        TextLen??   = LEN(Text$)
        ! push bp
        ! dec Zeile?
        ! dec Spalte?
        ! mov ax, &h1301
        ! mov bl, Farbe%
        ! mov bh, 0
        ! mov cx, TextLen??
        ! mov dh, Zeile?
        ! mov dl, Spalte?
        ! mov es, TextSeg??
        ! mov bp, TextOff??
        ! int &h10
        ! pop bp
END SUB

SUB Modus13
        ! mov ax, &h0013
        ! int &h10
END SUB