home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTERASE.PRG < prev    next >
Text File  |  1989-09-21  |  2KB  |  56 lines
  1. *------------------------------------------------------------------
  2. *  DBTERASE.PRG - ERASE demonstration
  3. *                (c) 1989 BERNATH COMPUTER
  4. *                5:10:15  9/13/1989
  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 "3,1,5,8,43,14,1,1,0,1"        && draw box
  10. CALL DBTOOLS WITH "1,2,12,14,1,0,E R A S E - function 5"  && title in box
  11. SET COLOR TO W/B                                 && display box text
  12. @ 3,8 SAY "ERASE will blank the text on a"
  13. @ 4,8 SAY "specified area of the screen with-"
  14. @ 5,8 say "out disturbing the colors."
  15. CALL DBTOOLS WITH "10,7,13,14,1"                 && pause
  16. CALL DBTOOLS WITH "3,4,7,16,74,15,3,2,0,1"       && overlay another box
  17. SET COLOR TO +W/GB                               && display box text
  18. @ 5,9 SAY "Syntax:"
  19. mPARM="CALL DBTOOLS WITH "+CHR(34)+"5,ULR,ULC,LRR,LRC,<BG>"+CHR(34)
  20. @ 6,9 SAY mPARM
  21. SET COLOR TO B/GB
  22. @  8,11 SAY "ERASE will blank out text data in the area designated by"
  23. @  9,11 say "ULR, ULC, LRR, and LRC."
  24. @ 11,11 say "The BG term is optional. If included, the characters will"
  25. @ 12,11 say "be blanked to the background color specified by BG."
  26. @ 13,11 say "If not included, the blanked characters will retain their"
  27. @ 14,11 say "previous color attributes."
  28. CALL DBTOOLS WITH "10,15,30,15,3"
  29. SET COLOR TO W/N,N/W,,N
  30. CLEAR
  31. KOUNT = 2
  32. DO WHILE KOUNT < 23
  33.    @ KOUNT,1 SAY " dBTools  dBTools  dBTools  dBTools  dBTools  dBTools  dBTools  dBTools"
  34.    KOUNT = KOUNT + 1
  35. ENDDO
  36. KOUNT = 0
  37. mPOS = 0
  38. DO WHILE KOUNT < 8
  39.    mPOS = mPOS + 1
  40.    mCOL = 9*(mPOS-1)+1
  41.    mPARM = "13,2,"+STR(mCOL,2)+",22,"+STR(mCOL+8,2)+",15,"+STR(KOUNT,1)
  42.    CALL DBTOOLS WITH mPARM
  43.    KOUNT = KOUNT + 1
  44. ENDDO
  45. CALL DBTOOLS WITH "5,12,30,14,50,1"
  46. CALL DBTOOLS WITH "5,7,0,7,79"
  47. CALL DBTOOLS WITH "5,9,10,10,30"
  48. CALL DBTOOLS WITH "3,16,15,21,63,15,0,0,0,1"
  49. CALL DBTOOLS WITH "1,17,18,15,0,0,Note the full and partial row where text"
  50. CALL DBTOOLS WITH "1,18,18,15,0,0,has been blanked but the colors remain"
  51. CALL DBTOOLS WITH "1,19,18,15,0,0,intact.  Also note the section where text"
  52. CALL DBTOOLS WITH "1,20,18,15,0,0,has been blanked and the color set to blue."
  53. CALL DBTOOLS WITH "10,21,25,7,0"
  54. CALL DBTOOLS WITH "14,3,0"
  55. RETURN
  56.