home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTBLINK.PRG < prev    next >
Text File  |  1990-04-24  |  2KB  |  47 lines
  1. *====================================================================
  2. *     DBTBLINK.PRG - Enable/Disable blinking
  3. *     (c) 1990 BERNATH COMPUTER
  4. *     04/24/1990
  5. *====================================================================
  6.  
  7.  
  8. CALL DBTOOLS WITH "15,3"                         && store existing screen
  9. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  10. CALL DBTOOLS WITH "3,1,5,9,55,14,1,1,0,1"        && draw box
  11. CALL DBTOOLS WITH "1,2,15,12,1,0,N O B L I N K - function 23"   && title in box
  12. SET COLOR TO W/B                                 && display box text
  13. @ 3,8 SAY "NOBLINK will enable or disable the Blink"
  14. @ 4,8 SAY "attribute of the screen, providing you"
  15. @ 5,8 SAY "with the choice of displaying blinking"
  16. @ 6,8 SAY "text OR high intensity background colors."
  17. CALL DBTOOLS WITH "10,8,13,14,1"                 && pause
  18. CALL DBTOOLS WITH "3,4,7,18,74,15,3,2,0,1"       && overlay another box
  19. SET COLOR TO +W/GB                               && display box text
  20. @ 5,9 SAY "Syntax:"
  21. mPARM="CALL DBTOOLS WITH "+CHR(34)+"23,blinkattr"+CHR(34)
  22. @ 6,9 SAY mPARM
  23. SET COLOR TO B/GB
  24. @  7,9 SAY "where: blinkattr = 0 turns off blinking and enables high"
  25. @  8,9 say "       intensity background colors."
  26. @  9,9 say "       blinkattr = 1 turns on blinking."
  27. @ 11,9 say "NOTE:  with dBASE, you should use the asterisk to set a"
  28. @ 12,9 say "       high intensity background."
  29. @ 14,9 say "       Example:  SET COLOR TO N/*GR"
  30. @ 15,9 say "       sets the color to black on a yellow background."
  31. CALL DBTOOLS WITH "10,17,30,15,3"
  32. CALL DBTOOLS WITH "7,0,0,7,0"
  33. CALL DBTOOLS WITH "1,S,0,5,15,1,0,N O B L I N K - function 23"
  34. CALL DBTOOLS WITH "23,0"                        && disable blinking
  35. DO COLCHART
  36. CALL DBTOOLS WITH "1,15,51,15,8,0,Notice the high intensity"
  37. CALL DBTOOLS WITH "1,16,30,15,8,0,"+CHR(17)+"───────────────────────────────── backgrounds"
  38. CALL DBTOOLS WITH "6,48"
  39. CALL DBTOOLS WITH "1,S,18,50,0,15,0,Back to blinking....."
  40. CALL DBTOOLS WITH "6,36"
  41. CALL DBTOOLS WITH "23,1"
  42.  
  43. CALL DBTOOLS WITH "10,24,25,0,7"
  44. CALL DBTOOLS WITH "14,3,0"
  45. RETURN
  46.  
  47.