home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTFADE.PRG < prev    next >
Text File  |  1990-02-24  |  3KB  |  61 lines
  1. *------------------------------------------------------------------
  2. *  DBTFADE.PRG - FADE demonstration
  3. *                (c) 1989 BERNATH COMPUTER
  4. *                02/24/1990
  5. *------------------------------------------------------------------
  6.  
  7. mPARM = "12,2,"+gPATH+"DBT.IMG"                  && load screen images from
  8. CALL DBTOOLS WITH mPARM                          && disk.
  9. mPARM = "12,3,"+gPATH+"PC.IMG"
  10. CALL DBTOOLS WITH mPARM
  11. CALL DBTOOLS WITH "21,1,0,0,24,79,0,0,0,0"
  12. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  13. CALL DBTOOLS WITH "3,1,5,8,55,14,1,1,0,1"        && draw box
  14. CALL DBTOOLS WITH "1,2,25,14,1,0,F A D E"        && title in box
  15. SET COLOR TO W/B                                 && display box text
  16. @ 3,8 SAY "FADE allows you to display a screen image"
  17. @ 4,8 SAY "stored in one of the three memory slots with"
  18. @ 5,8 SAY "a slideshow-like "+CHR(34)+"fade-in"+CHR(34)
  19. @ 6,8 SAY "There are eight different fades."
  20. CALL DBTOOLS WITH "10,7,13,14,1"                 && pause
  21. CALL DBTOOLS WITH "3,4,10,22,75,15,3,2,0,1"      && overlay another box
  22. SET COLOR TO +W/GB                               && display box text
  23. @ 5,12 SAY "Syntax:"
  24. mPARM="CALL DBTOOLS WITH "+CHR(34)+"8,fadetype,mode/color,delay,slot"+CHR(34)
  25. @ 6,12 SAY mPARM
  26. SET COLOR TO B/GB
  27. @ 7,15 SAY  "Fadetype = 0 : instant snap"
  28. @ 8,15 say  "           1 : vertical alternate fingers wipe"
  29. @ 9,15 say  "           2 : vertical wipe, bottom to top"
  30. @ 10,15 say "           3 : vertical wipe, top to bottom"
  31. @ 11,15 say "           4 : horizontal wipe, left to right"
  32. @ 12,15 say "           5 : horizontal wipe, right to left"
  33. @ 13,15 say "           6 : horizontal alternate fingers wipe"
  34. @ 14,15 say "           7 : sparkle fade"
  35. @ 16,15 say "Mode/color : if loading from a memory screen image, set"
  36. @ 17,15 say "             this to 0. If fading to a color, set this"
  37. @ 18,15 say "             to the color attribute, (16 * BG) + FG"
  38. @ 20,15 say "Slot:        Set to slotnumber 1-3 or 0 if to a color."
  39. CALL DBTOOLS WITH "10,21,28,15,3"                && pause
  40. CALL DBTOOLS WITH "4,0,0"
  41.  
  42. CALL DBTOOLS WITH "8,0,0,10,3"                   && fade 0
  43. DO FADELBL WITH 0
  44. CALL DBTOOLS WITH "8,1,0,10,2"                   && fade 1
  45. DO FADELBL WITH 1
  46. CALL DBTOOLS WITH "8,2,0,10,3"                   && fade 2
  47. DO FADELBL WITH 2
  48. CALL DBTOOLS WITH "8,3,0,10,2"                   && fade 3
  49. DO FADELBL WITH 3
  50. CALL DBTOOLS WITH "8,4,0,10,3"                   && fade 4
  51. DO FADELBL WITH 4
  52. CALL DBTOOLS WITH "8,5,0,10,2"                   && fade 5
  53. DO FADELBL WITH 5
  54. CALL DBTOOLS WITH "8,6,0,10,3"                   && fade 6
  55. DO FADELBL WITH 6
  56. CALL DBTOOLS WITH "8,7,0,15,2"                   && fade 7
  57. DO FADELBL WITH 7
  58. CALL DBTOOLS WITH "19,1"
  59. CALL DBTOOLS WITH "4,1,0"
  60. RETURN
  61.