home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol8n16.zip / SCREEN.BAT < prev    next >
DOS Batch File  |  1988-11-23  |  2KB  |  57 lines
  1. ECHO OFF
  2. IF "%PROM%"=="" SET PROM=%PROMPT%
  3. ECHO 
  4. CLS
  5. IF NOT "%1"=="" GOTO GotParams
  6. ECHO Each row is numbered with a foreground color.
  7. ECHO Each column is numbered with a background color.
  8. ECHO To select a color, simply enter "SCREEN f b",
  9. ECHO where f is the foreground color and b the background.
  10. ECHO Add a B for Bright, e.g. "SCREEN 3 1 B".
  11. ECHO Press a key when you're done looking at the chart.
  12. REM Five spaces between 7 and 0 in next line.
  13. ECHO 6H0 1 2 3 4 5 6 7     0 1 2 3 4 5 6 7
  14. REM 14 spaces between Normal and Bright in next line.
  15. ECHO 26HNormal              Bright
  16. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;24H%%c
  17. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;26H%%c;40mXXCXX
  18. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;28H%%c;41mXXCXX
  19. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;30H%%c;42mXXCXX
  20. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;32H%%c;43mXXCXX
  21. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;34H%%c;44mXXCXX
  22. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;36H%%c;45mXXCXX
  23. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;38H%%c;46mXXCXX
  24. FOR %%c IN (0 1 2 3 4 5 6 7) DO ECHO %%c;40H%%c;47mXXCXX
  25. PAUSE > NUL
  26. ECHO 
  27. GOTO end
  28. :GotParams
  29. IF "%2"=="" GOTO BadParams
  30. IF NOT "%3"=="" IF NOT "%3"=="b" IF NOT "%3"=="B" GOTO BadParams
  31. SET fore=X
  32. FOR %%c IN (0 1 2 3 4 5 6 7) DO IF %1==%%c SET fore=%1
  33. IF %fore%==X GOTO BadParams
  34. SET back=X
  35. FOR %%c IN (0 1 2 3 4 5 6 7) DO IF %2==%%c SET back=%2
  36. IF %back%==X GOTO BadParams
  37. SET bright=0
  38. IF NOT "%3"=="" SET bright=1
  39. PROMPT %PROM%%bright%;4%back%;3%fore%m
  40. ECHO ON
  41. CLS
  42. ECHO OFF
  43. SET fore=
  44. SET back=
  45. SET bright=
  46. GOTO end
  47. :BadParams
  48. ECHO To display all color combinations, enter "SCREEN" with no parameters.
  49. ECHO To set foreground color f and background color b, enter
  50. ECHO     SCREEN f b
  51. ECHO where f and b are both from 0 to 7.  To make the foreground
  52. ECHO color BRIGHT, add a B.  For example, to set bright yellow text
  53. ECHO on a red background,
  54. ECHO     SCREEN 3 1 B
  55. :End
  56.  
  57.