home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTPALET.PRG < prev    next >
Text File  |  1990-05-10  |  3KB  |  68 lines
  1. *====================================================================
  2. *     DBTPALET.PRG - Set EGA Palette
  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 "23,0"
  10. CALL DBTOOLS WITH "7,2,7,0,0"                   && dithered background
  11. CALL DBTOOLS WITH "3,1,5,9,50,0,14,1,0,1"        && draw box
  12. CALL DBTOOLS WITH "1,2,15,0,14,0,P A L E T T E - function 24"   && title in box
  13. SET COLOR TO N/*GR                               && display box text
  14. @ 3,8 SAY "PALETTE gives the ability to set the 16"
  15. @ 4,8 SAY "display colors of the EGA palette regis-"
  16. @ 5,8 SAY "ters to any of the 64 possible colors,"
  17. @ 6,8 SAY "numbered 0-63. (EGA/VGA only)."
  18. CALL DBTOOLS WITH "10,8,13,14,0"                 && pause
  19. CALL DBTOOLS WITH "3,4,7,19,74,0,15,2,0,1"       && overlay another box
  20. SET COLOR TO N/*W                                && display box text
  21. @ 5,9 SAY "Syntax:"
  22. mPARM="CALL DBTOOLS WITH "+CHR(34)+"24,1,RR/VV,RR/VV,RR/VV,..."+CHR(34)
  23. @ 6,9 SAY mPARM
  24. mPARM="CALL DBTOOLS WITH "+CHR(34)+"24,0"+CHR(34)+"   (reset to standard)"
  25. @ 7,9 SAY mPARM
  26. SET COLOR TO R/*W
  27. @  8,9 SAY "where: RR = color register number (0-15), and VV is one of the"
  28. @  9,9 say "       64 possible color values (0-63)."
  29. @ 10,9 say "       From one to all 16 registers may be set simultaneously."
  30. @ 12,9 say "       The color palette may be reset to default by using the"
  31. @ 13,9 say "       second command."
  32. @ 15,9 say "Example:  CALL DBTOOLS WITH "+CHR(34)+"24,1,6/38"+CHR(34)
  33. @ 16,9 SAY "          turns color 6 (GR in dBASE) to orange."
  34. CALL DBTOOLS WITH "10,18,30,2,15"
  35. CALL DBTOOLS WITH "4,0,0"
  36. CALL DBTOOLS WITH "3,10,30,12,57,15,6,2,0,1"
  37. CALL DBTOOLS WITH "1,11,34,15,6,0,This is BROWN"
  38. CALL DBTOOLS WITH "6,48"
  39. CALL DBTOOLS WITH "24,1,6,38"
  40. CALL DBTOOLS WITH "1,11,34,0,6,0,And now it's ORANGE!"
  41. CALL DBTOOLS WITH "6,48"
  42.  
  43. mEXP="12,2,"+gPATH+"WHEEL.IMG"
  44. call dbtools with mEXP
  45. call dbtools with "14,2,0"
  46. kount = 0
  47. do while kount<3
  48. call dbtools with "24,1,1/62,2/46,3/52,4/4,5/53,6/47,7/5,8/13,9/1,10/3,11/6,12/10,13/22"
  49. call dbtools with "24,1,1/22,2/62,3/46,4/52,5/4,6/53,7/47,8/5,9/13,10/1,11/3,12/6,10/10"
  50. call dbtools with "24,1,1/10,2/22,3/62,4/46,5/52,6/4,7/53,8/47,9/5,10/13,11/1,12/3,10/6"
  51. call dbtools with "24,1,1/6,2/10,3/22,4/62,5/46,6/52,7/4,8/53,9/47,10/5,11/13,12/1,10/3"
  52. call dbtools with "24,1,1/3,2/6,3/10,4/22,5/62,6/46,7/52,8/4,9/53,10/47,11/5,12/13,10/1"
  53. call dbtools with "24,1,1/1,2/3,3/6,4/10,5/22,6/62,7/46,8/52,9/4,10/53,11/47,12/5,10/13"
  54. call dbtools with "24,1,1/13,2/1,3/3,4/6,5/10,6/22,7/62,8/46,9/52,10/4,11/53,12/47,10/5"
  55. call dbtools with "24,1,1/5,2/13,3/1,4/3,5/6,6/10,7/22,8/62,9/46,10/52,11/4,12/53,10/47"
  56. call dbtools with "24,1,1/47,2/5,3/13,4/1,5/3,6/6,7/10,8/22,9/62,10/46,11/52,12/4,10/53"
  57. call dbtools with "24,1,1/53,2/47,3/5,4/13,5/1,6/3,7/6,8/10,9/22,10/62,11/46,12/52,10/4"
  58. call dbtools with "24,1,1/4,2/53,3/47,4/5,5/13,6/1,7/3,8/6,9/10,10/22,11/62,12/46,10/52"
  59. call dbtools with "24,1,1/52,2/4,3/53,4/47,5/5,6/13,7/1,8/3,9/6,10/10,11/22,12/62,10/46"
  60. call dbtools with "24,1,1/46,2/52,3/4,4/53,5/47,6/5,7/13,8/1,9/3,10/6,11/10,12/22,10/62"
  61. kount = kount + 1
  62. enddo
  63. call dbtools with "24,0"
  64. call dbtools with "4,1,0"
  65. CALL DBTOOLS WITH "14,3,0"
  66. RETURN
  67.  
  68.