'===========================================================================
' Subject: SCROLLING OVER VGA-BIOS           Date: 03-03-96 (00:00)       
' Author:  Thomas Gohel                      Code: PB                     
' Origin:  alt.lang.basic                  Packet: GRAPHICS.ABC
'===========================================================================
'**************************************************************************
'
'   Scrolling Windows over VGA-BIOS in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/301.12
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'**************************************************************************

DIM Demo$(25)
Vordergrund% = 15
Hintergrund% = 1

'*** Erklärung ***
SHARED Zol%, Sol%, Zur%, Sur%, Anzahl%, ScrollFarbe%

'Zol%    = Zeile oben links
'Sol%    = Spalte oben links
'Zur%    = Zeile unten rechts
'Sur%    = Spalte unten rechts
'Anzahl% = Anzahl der zu scrollenden Zeilen


'*** String füllen ***
Demo$(1) = "---------    Scrolling windows (over VGA-BIOS)   (c) 1994 Thomas Gohel    ----------"
FOR i% = 2 TO 25
    Demo$(i%) = STRING$(80,65+i%)
NEXT i%

'*** String auf Bildschirm ausgeben ***
COLOR VorderGrund%, Hintergrund%
FOR i% = 1 TO 25
    LOCATE i%,1: PRINT Demo$(i%);
NEXT i%

'*** jetzt wird gescrollt ****

FOR i% = 1 TO 11
    DELAY 0.5
    ScrollFarbe% = Vordergrund% + (Hintergrund% * 16)
    ScrollingHoch     8, 10, 18, 35, 1, ScrollFarbe%
    ScrollingHerUnter 8, 47, 18, 72, 1, ScrollFarbe%
    LOCATE 18, 10: PRINT "  --- Scrolling Hoch ---  "
    LOCATE  8, 47: PRINT " -- Scrolling Herunter -- "
NEXT i%

END

FUNCTION ScrollingHoch(BYVAL Zol%, BYVAL Sol%, BYVAL Zur%, BYVAL Sur%, BYVAL Anzahl%, BYVAL ScrollFarbe%)

        ! mov ah, &h06
        ! mov al, Anzahl%
        ! mov bh, ScrollFarbe%
        ! mov ch, Zol%
        ! dec ch
        ! mov cl, Sol%
        ! dec cl
        ! mov dh, Zur%
        ! dec dh
        ! mov dl, Sur%
        ! dec dl
        ! int &h10

END FUNCTION

FUNCTION ScrollingHerunter(BYVAL Zol%, BYVAL Sol%, BYVAL Zur%, BYVAL Sur%, BYVAL Anzahl%, ByVal ScrollFarbe%)

        ! mov ah, &h07
        ! mov al, Anzahl%
        ! mov bh, ScrollFarbe%
        ! mov ch, Zol%
        ! dec ch
        ! mov cl, Sol%
        ! dec cl
        ! mov dh, Zur%
        ! dec dh
        ! mov dl, Sur%
        ! dec dl
        ! int &h10

END FUNCTION