*==================================================================== * DBTBLINK.PRG - Enable/Disable blinking * (c) 1990 BERNATH COMPUTER * 04/24/1990 *==================================================================== CALL DBTOOLS WITH "15,3" && store existing screen CALL DBTOOLS WITH "7,0,15,2,0" && dithered background CALL DBTOOLS WITH "3,1,5,9,55,14,1,1,0,1" && draw box CALL DBTOOLS WITH "1,2,15,12,1,0,N O B L I N K - function 23" && title in box SET COLOR TO W/B && display box text @ 3,8 SAY "NOBLINK will enable or disable the Blink" @ 4,8 SAY "attribute of the screen, providing you" @ 5,8 SAY "with the choice of displaying blinking" @ 6,8 SAY "text OR high intensity background colors." CALL DBTOOLS WITH "10,8,13,14,1" && pause CALL DBTOOLS WITH "3,4,7,18,74,15,3,2,0,1" && overlay another box SET COLOR TO +W/GB && display box text @ 5,9 SAY "Syntax:" mPARM="CALL DBTOOLS WITH "+CHR(34)+"23,blinkattr"+CHR(34) @ 6,9 SAY mPARM SET COLOR TO B/GB @ 7,9 SAY "where: blinkattr = 0 turns off blinking and enables high" @ 8,9 say " intensity background colors." @ 9,9 say " blinkattr = 1 turns on blinking." @ 11,9 say "NOTE: with dBASE, you should use the asterisk to set a" @ 12,9 say " high intensity background." @ 14,9 say " Example: SET COLOR TO N/*GR" @ 15,9 say " sets the color to black on a yellow background." CALL DBTOOLS WITH "10,17,30,15,3" CALL DBTOOLS WITH "7,0,0,7,0" CALL DBTOOLS WITH "1,S,0,5,15,1,0,N O B L I N K - function 23" CALL DBTOOLS WITH "23,0" && disable blinking DO COLCHART CALL DBTOOLS WITH "1,15,51,15,8,0,Notice the high intensity" CALL DBTOOLS WITH "1,16,30,15,8,0,"+CHR(17)+"컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� backgrounds" CALL DBTOOLS WITH "6,48" CALL DBTOOLS WITH "1,S,18,50,0,15,0,Back to blinking....." CALL DBTOOLS WITH "6,36" CALL DBTOOLS WITH "23,1" CALL DBTOOLS WITH "10,24,25,0,7" CALL DBTOOLS WITH "14,3,0" RETURN