:: FILL.BAT - A routine to paint a pattern of characters to the 
::            screen.
:: Tom Lavedas <lavedas@pressroom.com>
::             http:://www.pressroom.com/~tglbatch/
 @echo off
  if not [%1]==[?] goto Start
:: { Help }
  echo.
  echo.        Hexadecimal Values for Rows on a VGA Text Display
  echo. +----+---------------------------------------------------+
  echo. :Row :    0    1    2    3    4    5    6    7    8    9 :
  echo. :----+---------------------------------------------------:
  echo. : 0_ :    0   A0  140  1E0  280  320  3C0  460  500  5A0 :
  echo. : 1_ :  640  6E0  780  820  8C0  960  A00  AA0  B40  BE0 :
  echo. : 2_ :  C80  D20  DC0  E60  F00  FA0 1040 10E0 1180 1220 :
  echo. : 3_ : 12C0 1360 1400 14A0 1540 15E0 1680 1720 17C0 1860 :
  echo. : 4_ : 1900 19A0 1A40 1AE0 1B80 1C20 1CC0 1D60 1E00 1EA0 :
  echo. +----+---------------------------------------------------+
  echo.
  goto End
::
 :Start
  if [%1]==[] %0  0 1F40 20 18
  if [%2]==[] %0 %1 1F40 20 18
  if [%3]==[] %0 %1   %2 20 18
  if [%4]==[] %0 %1   %2 %3 18
  set {t}=FB800:%1L%2 %3 %4
 :Loop - { Collect the rest of the pattern to be displayed }
  if not [%6]==[] for %%v in (set shift shift goto:Loop) do %%v {t}=%{t}% %5 %6
> {s} echo %{t}%
>>{s} for %%v in (echo.q set) do %%v {t}=
< {s} debug > nul
  del {s}
 :End