home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTATSAY.PRG < prev    next >
Text File  |  1990-06-29  |  2KB  |  49 lines
  1. *------------------------------------------------------------------
  2. *  DBTATSAY.PRG - ATSAY demonstration
  3. *                (c) 1989 BERNATH COMPUTER
  4. *                04/23/1990
  5. *------------------------------------------------------------------
  6.  
  7. CALL DBTOOLS WITH "15,3"                         && store existing screen
  8. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  9. CALL DBTOOLS WITH "23,1"
  10. CALL DBTOOLS WITH "3,1,5,9,55,14,1,1,0,1"        && draw box
  11. CALL DBTOOLS WITH "1,2,15,14,1,0,A T S A Y - function 1"   && title in box
  12. SET COLOR TO W/B                                 && display box text
  13. @ 3,8 SAY "ATSAY is an alternative to dBASE's @ SAY"
  14. @ 4,8 SAY "command, which allows you to position and"
  15. @ 5,8 SAY "display text independent of dBASE's SET COLOR"
  16. @ 6,8 SAY "TO colors. Optionally, a line of text can be"
  17. @ 7,8 SAY "displayed with a small shadow for effect."
  18. CALL DBTOOLS WITH "10,8,13,14,1"                 && pause
  19. CALL DBTOOLS WITH "3,4,7,18,74,15,3,2,0,1"      && overlay another box
  20. SET COLOR TO +W/GB                               && display box text
  21. @ 5,9 SAY "Syntax:"
  22. mPARM="CALL DBTOOLS WITH "+CHR(34)+"1,<S>,row,col,FG,BG,page,text"+CHR(34)
  23. @ 6,9 SAY mPARM
  24. SET COLOR TO B/GB
  25. @  7,9 SAY "where: S parameter is optional. If included, a small shadow will"
  26. @  8,9 say "       be displayed."
  27. @  9,9 say "       Text will print at the position specified by row and col."
  28. @ 11,9 say "       Forground and background colors are set by the FG and BG"
  29. @ 12,9 say "       parameters."
  30. @ 14,9 say "       Page is the screen page 0-3, available on color monitors."
  31. @ 15,9 say "       You may draw the screen invisibly, then activate the page"
  32. @ 16,9 say "       with function 22."
  33. CALL DBTOOLS WITH "10,17,30,15,3"
  34. CALL DBTOOLS WITH "7,0,0,7,0"
  35. CALL DBTOOLS WITH "1,S,0,5,15,1,0,A T S A Y - function 1"
  36. CALL DBTOOLS WITH "1,2,5,0,7,0,All the text on this page is being displayed with the ATSAY function"
  37.  
  38. DO COLCHART
  39.  
  40. CALL DBTOOLS WITH "1,3,50,15,4,0,You can use it to display "
  41. CALL DBTOOLS WITH "1,4,50,15,12,0,graphics characters  "
  42. CALL DBTOOLS WITH "1,4,70,15,4,0, also."
  43. CALL DBTOOLS WITH "1,6,50,0,7,0,α ß τ Ω ╣ ─ ■ ──┴┬─, ETC!"
  44. CALL DBTOOLS WITH "1,S,9,50,15,5,0,S H A D O W  for effect"
  45.  
  46. CALL DBTOOLS WITH "10,24,25,0,7"
  47. CALL DBTOOLS WITH "14,3,0"
  48. RETURN
  49.