*==================================================================== * DBTPALET.PRG - Set EGA Palette * (c) 1990 BERNATH COMPUTER * 04/24/1990 *==================================================================== CALL DBTOOLS WITH "15,3" && store existing screen CALL DBTOOLS WITH "23,0" CALL DBTOOLS WITH "7,2,7,0,0" && dithered background CALL DBTOOLS WITH "3,1,5,9,50,0,14,1,0,1" && draw box CALL DBTOOLS WITH "1,2,15,0,14,0,P A L E T T E - function 24" && title in box SET COLOR TO N/*GR && display box text @ 3,8 SAY "PALETTE gives the ability to set the 16" @ 4,8 SAY "display colors of the EGA palette regis-" @ 5,8 SAY "ters to any of the 64 possible colors," @ 6,8 SAY "numbered 0-63. (EGA/VGA only)." CALL DBTOOLS WITH "10,8,13,14,0" && pause CALL DBTOOLS WITH "3,4,7,19,74,0,15,2,0,1" && overlay another box SET COLOR TO N/*W && display box text @ 5,9 SAY "Syntax:" mPARM="CALL DBTOOLS WITH "+CHR(34)+"24,1,RR/VV,RR/VV,RR/VV,..."+CHR(34) @ 6,9 SAY mPARM mPARM="CALL DBTOOLS WITH "+CHR(34)+"24,0"+CHR(34)+" (reset to standard)" @ 7,9 SAY mPARM SET COLOR TO R/*W @ 8,9 SAY "where: RR = color register number (0-15), and VV is one of the" @ 9,9 say " 64 possible color values (0-63)." @ 10,9 say " From one to all 16 registers may be set simultaneously." @ 12,9 say " The color palette may be reset to default by using the" @ 13,9 say " second command." @ 15,9 say "Example: CALL DBTOOLS WITH "+CHR(34)+"24,1,6/38"+CHR(34) @ 16,9 SAY " turns color 6 (GR in dBASE) to orange." CALL DBTOOLS WITH "10,18,30,2,15" CALL DBTOOLS WITH "4,0,0" CALL DBTOOLS WITH "3,10,30,12,57,15,6,2,0,1" CALL DBTOOLS WITH "1,11,34,15,6,0,This is BROWN" CALL DBTOOLS WITH "6,48" CALL DBTOOLS WITH "24,1,6,38" CALL DBTOOLS WITH "1,11,34,0,6,0,And now it's ORANGE!" CALL DBTOOLS WITH "6,48" mEXP="12,2,"+gPATH+"WHEEL.IMG" call dbtools with mEXP call dbtools with "14,2,0" kount = 0 do while kount<3 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" kount = kount + 1 enddo call dbtools with "24,0" call dbtools with "4,1,0" CALL DBTOOLS WITH "14,3,0" RETURN