*------------------------------------------------------------------
*  DBTFADE.PRG - FADE demonstration
*                (c) 1989 BERNATH COMPUTER
*                02/24/1990
*------------------------------------------------------------------

mPARM = "12,2,"+gPATH+"DBT.IMG"                  && load screen images from
CALL DBTOOLS WITH mPARM                          && disk.
mPARM = "12,3,"+gPATH+"PC.IMG"
CALL DBTOOLS WITH mPARM
CALL DBTOOLS WITH "21,1,0,0,24,79,0,0,0,0"
CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
CALL DBTOOLS WITH "3,1,5,8,55,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,25,14,1,0,F A D E"        && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "FADE allows you to display a screen image"
@ 4,8 SAY "stored in one of the three memory slots with"
@ 5,8 SAY "a slideshow-like "+CHR(34)+"fade-in"+CHR(34)
@ 6,8 SAY "There are eight different fades."
CALL DBTOOLS WITH "10,7,13,14,1"                 && pause
CALL DBTOOLS WITH "3,4,10,22,75,15,3,2,0,1"      && overlay another box
SET COLOR TO +W/GB                               && display box text
@ 5,12 SAY "Syntax:"
mPARM="CALL DBTOOLS WITH "+CHR(34)+"8,fadetype,mode/color,delay,slot"+CHR(34)
@ 6,12 SAY mPARM
SET COLOR TO B/GB
@ 7,15 SAY  "Fadetype = 0 : instant snap"
@ 8,15 say  "           1 : vertical alternate fingers wipe"
@ 9,15 say  "           2 : vertical wipe, bottom to top"
@ 10,15 say "           3 : vertical wipe, top to bottom"
@ 11,15 say "           4 : horizontal wipe, left to right"
@ 12,15 say "           5 : horizontal wipe, right to left"
@ 13,15 say "           6 : horizontal alternate fingers wipe"
@ 14,15 say "           7 : sparkle fade"
@ 16,15 say "Mode/color : if loading from a memory screen image, set"
@ 17,15 say "             this to 0. If fading to a color, set this"
@ 18,15 say "             to the color attribute, (16 * BG) + FG"
@ 20,15 say "Slot:        Set to slotnumber 1-3 or 0 if to a color."
CALL DBTOOLS WITH "10,21,28,15,3"                && pause
CALL DBTOOLS WITH "4,0,0"

CALL DBTOOLS WITH "8,0,0,10,3"                   && fade 0
DO FADELBL WITH 0
CALL DBTOOLS WITH "8,1,0,10,2"                   && fade 1
DO FADELBL WITH 1
CALL DBTOOLS WITH "8,2,0,10,3"                   && fade 2
DO FADELBL WITH 2
CALL DBTOOLS WITH "8,3,0,10,2"                   && fade 3
DO FADELBL WITH 3
CALL DBTOOLS WITH "8,4,0,10,3"                   && fade 4
DO FADELBL WITH 4
CALL DBTOOLS WITH "8,5,0,10,2"                   && fade 5
DO FADELBL WITH 5
CALL DBTOOLS WITH "8,6,0,10,3"                   && fade 6
DO FADELBL WITH 6
CALL DBTOOLS WITH "8,7,0,15,2"                   && fade 7
DO FADELBL WITH 7
CALL DBTOOLS WITH "19,1"
CALL DBTOOLS WITH "4,1,0"
RETURN