home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / batutl / send.arc / COLORDEM.BAT < prev    next >
Encoding:
DOS Batch File  |  1985-10-18  |  3.6 KB  |  77 lines
  1. echo off
  2. send $e[0m
  3. send $e[2J
  4. rem send $e[2J is the ANSI.SYS clear screen command.  $e[J has the same 
  5. rem effect but this is not correct usage of the standards set by ANSI and 
  6. rem $e[2J will be recognized by some alternate screen drivers that do not 
  7. rem recognize $e[J as a clear screen.
  8. send $_$_$_$_$_
  9. rem skipped 5 lines
  10. send What color do you like on black?$_
  11. send $e[31mred?  $e[32mgreen?
  12. send $e[33m  yellow?  $e[34mblue?  $e[35mmagenta?  $e[36mcyan?$_$_$e[0m
  13. rem notice that what appears in two lines in the file is on one on the screen
  14. send $_$e[1mor maybe you like the above colors in their "intense" version$_
  15. rem notice it doesn't matter where $_ is put
  16. send $e[31mred?  $e[32mgreen?
  17. send $e[33m  yellow?  $e[34mblue?  $e[35mmagenta?  $e[36mcyan$_$_$_$e[0m
  18. send You may think it's $e[33mbrown$e[0m and not $e[33myellow$e[0m but IBM$_
  19. send $      says it's $e[33myellow$e[0m and who are you to argue with$_$_
  20. send $e[34m
  21. send $            █████    █████     ██████$_
  22. send       $            █   █      █       █     $_
  23. send $            █████      █       █   ██        $e[1;34mBLUE$e[0;34m$_
  24. send $            █   █      █       █    █$_
  25. send $            █████    █████     ██████$_$_$_$e[0m
  26. rem Note the $: SEND ignores leading spaces, so the $, which is also 
  27. rem   ignored is there to indent the rest of the line.  Notice that the 
  28. rem   third line isn't aligned on the file but is aligned on the screen.
  29. rem   The above also illustrates the use of extended ASCII code, in this
  30. rem   case, code 219: █
  31. pause
  32. send $e[2J$_$_$_$_$_$_$_$_$_
  33. send $     We all know that its more fun to h
  34. send ave a background color$_                 but before tha
  35. send t, let's see what SEND can do:$_
  36. rem Notice that it doesn't matter where you break lines in the file;
  37. rem    only where the send line break($_) occurs.
  38. send $_$_     Today's date is $d and the time is $t$_
  39. send $           and this file is $PCOLORDEM.BAT$_$_$_$_$_
  40. send $     You can use ANSI.SYS to move the cursor around$_$_$_$_
  41. pause
  42. send $e[H For example to the top of the screen!$_$_   Now we're ready for
  43. send $ colors.$_$_$_
  44. pause
  45. send $e[44m$e[2J$_$_$_$_$_$_
  46. send What color do you like on blue?$_
  47. send $e[31mred?  $e[32mgreen?
  48. send $e[33m  yellow?  $e[30mblack?  $e[35mmagenta?  $e[36mcyan?$_$_
  49. send $_$e[1mor maybe you like the above colors in their "intense" version$_
  50. send $e[31mred?  $e[32mgreen?
  51. send $e[33m  yellow?  $e[30mblack?  $e[35mmagenta?  $e[36mcyan$_$_$_$e[1;33m
  52. send $        You can produce some really terrible combinations$_$_$_$_$_
  53. pause
  54. send $e[42m$e[2J$_$_$_$_$_$_$e[35m      AWFUL, isn't it...$_$_$_
  55. send $           but it can get worse!$_$_$_
  56. pause
  57. send $e[5m$_$_     Can't it!$e[0m$_$_$_
  58. pause
  59. send $e[1;33;44m$e[2J$_$_$_$_$_$_     My favorite is yellow on blue
  60. send $e[36m$_$_       but some prefer cyan$e[33m$_$_$_$_
  61. send $        We'll leave you with a neat PROMPT, which doesn't require
  62. send $_   SEND.  If you don't like it, you can recover the default PROMPT
  63. send $_   by typing:
  64. send $_          prompt=
  65. send $_   at the DOS prompt or, even better, at least use the PROMPT
  66. send $_          prompt=$$p$$g
  67. rem Notice the use of the double $ to get a single $ displayed
  68. send $_$_       If things look really strange, you probably ran out of 
  69. send $_   environment space and you'll certainly need to use one of the
  70. send $_   above PROMPT commands.  
  71. send $_         If you like the prompt that results, copy the next to  
  72. send $_   last line of this batch file to your autoexec.bat file.$_$_$_
  73. pause
  74. prompt=$e[s$e[H$e[1;33;45m$e[K$e[5C$d$e[1;68H$t$h$h$h$h$h$h$_$e[1;37;41m$e[K$e[30C$p$e[u$e[35;44m$g$e[1;33;44m
  75. send $e[2J^M^J
  76. 
  77.