*------------------------------------------------------------------
*  DBTSCROL.PRG - SCROLL demonstration
*                (c) 1989 BERNATH COMPUTER
*                14:15:05  9/12/1989
*------------------------------------------------------------------

CALL DBTOOLS WITH "15,3"                         && store existing screen
CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
CALL DBTOOLS WITH "3,1,5,7,55,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,15,14,1,0,S C R O L L - function 16"   && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "SCROLL allows you to scroll all or a portion"
@ 4,8 SAY "of the screen in either direction."
CALL DBTOOLS WITH "10,6,13,14,1"                 && pause
CALL DBTOOLS WITH "3,4,7,19,74,15,3,2,0,1"      && overlay another box
SET COLOR TO +W/GB                               && display box text
@ 5,9 SAY "Syntax:"
mPARM="CALL DBTOOLS WITH "+CHR(34)+"16,ULR,ULC,LRR,LRC,FG,BG,numlines,direction"+CHR(34)
@ 6,9 SAY mPARM
SET COLOR TO B/GB
@  7,11 SAY "where: ULR,ULC,LRR, and LRC specify the corners of the area"
@  8,11 say "       to be scrolled."
@  9,11 say "       A blank line of color FG,BG will be inserted at the"
@ 10,11 say "       top of the specified area if scrolling down, and at"
@ 11,11 say "       the bottom if scrolling up."
@ 13,11 say "       Numlines is the number of lines to scroll."
@ 15,11 say "       Direction = 1, scroll up."
@ 16,11 say "       Direction = 2, scroll down."
CALL DBTOOLS WITH "10,18,30,15,3"
CALL DBTOOLS WITH "7,0,0,7,0"
CALL DBTOOLS WITH "1,S,1,30,14,2,0,S C R O L L  Demonstration"
CALL DBTOOLS WITH "3,5,5,15,35,11,1,2,0,1"
CALL DBTOOLS WITH "3,5,43,15,73,13,4,2,0,1"
KOUNT = 0
mFG = 0
DO WHILE KOUNT < 70
   IF KOUNT < 62
      mPARM1 = "1,14,6,"+STR(mFG,2)+",1,0,UP UP UP UP UP UP UP UP UP UP"
      CALL DBTOOLS WITH mPARM1
      mPARM2 = "1,6,44,"+STR(mFG,2)+",4,0,DOWN DOWN DOWN DOWN DOWN DOWN"
      CALL DBTOOLS WITH mPARM2
   ENDIF
   CALL DBTOOLS WITH "16,6,6,14,34,11,1,1,1"
   CALL DBTOOLS WITH "16,6,44,14,72,13,4,1,2"
   KOUNT = KOUNT + 1
   mFG = mFG + 1
   IF mFG > 15
      mFG = 0
   ENDIF
ENDDO
CALL DBTOOLS WITH "1,S,10,15,0,7,0,dBTools!"
CALL DBTOOLS WITH "1,S,10,54,0,7,0,dBTools!"
CALL DBTOOLS WITH "10,24,25,0,7"
CALL DBTOOLS WITH "14,3,0"
RETURN