Menu From the News
Page 4
Index
Index Page 3 | Page 5 | Nomenclature


     CD %TEMP%
     Add 1
     Sub 1. Count down
     Switching.bat
     Nested.bat
     ErLevHEX.bat Returns Errorlevel as HEX.
     B-Levels.bat Set Errorlevel / Get Bennylevel.
     HEXtoDEC.bat A small hex2dec converter.
     Multi.Batch  ASCII table. Useful when working in DOS with colors.






CD %TEMP%.

The TEMP environment can simply be set to a drive letter followed by a colon
or a drive specification followed by a colon with one or more directories.

Won't work:            CD %temp%\

Work (sometimes):      FOR %%v in (: d) do c%%v %temp%\

This solution was hard to find (I used an hour) and it is tested in both old
DOS 6.22 and in Win 98:

   IF not (%temp%)==() FOR %%v in (%temp%.\ CD) do %%v %temp%.



Add 1

Purpose: Repeat something without using third-party file(s).

   @echo off
   SET I000=
   SET I00=
   SET I0=
   SET I=
   SET X=%I%
   SET j=
:Loop
   IF (%X%)==() SET X=0
   ECHO SHIFT>       %temp%.\1.bat
   ECHO SET X=%%%X%>>%temp%.\1.bat
   CALL %temp%.\1.bat 1 2 3 4 5 6 7 8 9 0
   SET I%j%=%X%
   IF NOT %X%==0 FOR %%! in (GOTO:Next SET) do %%! j=
   SET j=%j%0
   IF %j%== 0 FOR %%! in (GOTO:Loop SET) do %%! X=%I0%
   IF %j%==00 FOR %%! in (GOTO:Loop SET) do %%! X=%I00%
              FOR %%! in (GOTO:Loop SET) do %%! X=%I000%
:Next
   ECHO %I000%%I00%%I0%%I%
   IF NOT 9==%I000%%I00%%I0%%I% FOR %%! in (GOTO:Loop SET) do %%! X=%I%
   FOR %%! in (X I I0 I00 I000) do SET %%!=
   DEL %temp%.\1.bat

EXIT. Notes:

      Loops per second:
1__________________________________________|                       86,0
2___________________________________________________|             104,0
3_____________________________________________________|           108,0
4_________________________________________________________|       116,5
      (a long line meeans fast syntax).

1. "SHIFT"  and "FOR %%X in (0 %X%) do SET X=%%X".
2. No Shift and "FOR %%X in (0 %X%) do SET X=%%X".
3. No Shift and "IF (%X%)==() SET X=0" (instead of the above FOR loop).
4. No Shift and without the line (FOR or IF) setting X=0 if X is blank.

   2, 3 and 4 requires "CD %TEMP%." and "ECHO SET X=%%%X%> " instead of
       "ECHO SET X=%%%X%>>" and
       "CALL 1 2 3 4 5 6 7 8 9 0  [filename must be 1.bat]", instead of
       "CALL %temp%.\1.bat 1 2 3 4 5 6 7 8 9 0".

   4 requires "I000, I00, I0 and I" are set to zero (or another value),
   and that you prefix the exit value with zeros "IF NOT 0009" (instead
   of "IF NOT 9").

   Running on a RAM drive without antivirus can also speed up the loop.


Sub 1. Count down (543 to 525)

The following is also (as the above), a result of my baching this week, i.e.
both the change TEMP tricks and my previours experience from page 3 is used:

   @echo off
   SET I000=
   SET  I00=5
   SET   I0=4
   SET    I=3
   ECHO %I000%%I00%%I0%%I%
   IF not (%temp%)==() FOR %%v in (%temp%.\ CD) do %%v %temp%.
   SET X=%I%
   SET j=
:Loop
   ECHO SET X=%%%X%>9.bat
   CALL 9 0 1 2 3 4 5 6 7 8
   SET I%j%=%X%
   IF NOT %X%==9 FOR %%! in (GOTO:Next SET) do %%! j=
   SET j=%j%0
   IF %j%== 0 FOR %%! in (GOTO:Loop SET) do %%! X=%I0%
   IF %j%==00 FOR %%! in (GOTO:Loop SET) do %%! X=%I00%
              FOR %%! in (GOTO:Loop SET) do %%! X=%I000%
:Next
   ECHO %I000%%I00%%I0%%I%
   IF NOT 525==%I000%%I00%%I0%%I% FOR %%! in (GOTO:Loop SET) do %%! X=%I%
   FOR %%! in (X I I0 I00 I000) do SET %%!=
   DEL 9.bat


EXIT. -- Btw. here's another method:

   IF %X%==8 SET X=7
   IF %X%==9 SET X=8
   IF %X%==0 SET X=9, and so...

OR
   echo EXIT|%comspec%/kPROMPT SET V9=8$_SET V8=7$_SET V7=6$_SET V6=5$_SET V
5=4$_SET V4=3$_SET V3=2$_SET V2=1$_SET V1=0$_SET V0=9$_:>9.bat
   CALL 9.bat

:Loop from here
   %comspec%/cECHO SET X=%%V%X%%%>9.bat
   CALL 9.bat

Maybe continued including speed test and STRINGS.COM, etc...


Switching.bat

   @echo off
   CHOICE/n/c'01   Set X to 0 or 1? % [margin]%
   FOR %%e in (0 1) do if errorlevel }%%e SET X=%%e
         ECHO.  (X) = (%X%)
                 FOR %%%X% in (1 0) do IF NOT %%%X%==%X% SET X=%%%X%
                 :: Or FOR %%X in (0 1) do IF NOT %%X==%X% SET X=%%X
         ECHO.  (X) = (%X%)
   FOR %%%X% in (1 0) do IF NOT %%%X%==%X% ECHO.  X was %%%X% but is now %X%

 Notes:
 The character of ASCII value 255 (FFh) is used to get a margin (a prefix of
 space) and two percent with a space between, % %, is used at the end of the
 CHOICE syntax.


Nested.bat

@ECHO OFF
ECHO. Input a two digit number N: (between 00 and 20),
CHOICE/n/c'''''''''0123456789>NUL
FOR %%n in (0 1 2 3 4 5 6 7 8 9) do IF errorlevel 1%%n SET N=%%n
CHOICE/n/c'0123456789 %N%
FOR %%n in (0 1 2 3 4 5 6 7 8 9) do IF errorlevel }%%n SET N=%N%%%n

SET NESTED=|ECHO %N%'|CHOICE/c'0123456789>NUL
FOR %%n in (0 1 2 3 4 5 6 7 8 9) do IF errorlevel }%%n SET B=%%n
:Repeat
ECHO..|CHOICE/c'''%NESTED%.>NUL
FOR %%n in (0 1 2 3 4 5 6 7 8 9) do IF errorlevel Y%B%%%n SET L=%B%%%n
ECHO. %L% NESTED = %NESTED%
SET NESTED=%NESTED%#
IF NOT (%L%)==(%N%) GOTO Repeat

ECHO.  Ruler:    0         1         2         3         4         5
ECHO.            01234567890123456789012345678901234567890123456789012
FOR %%n in (N B L NESTED) do SET %%n=


ErLevHEX.bat

  This batch file returns the Errorlevel parameter as a two digit HEX number

  @ECHO OFF
  SET B=F
  FOR %%! IN (0 A B C D E F G H I J K L M N O) DO IF ERRORLEVEL %%!0000 SET 
A=%%!
  FOR %%! in (E D C B A @) DO IF NOT ERRORLEVEL %A%00I%%! SET B=%%!
  IF @==%B% FOR %%! in (0 1 2 3 4 5 6 7 8 9) DO IF ERRORLEVEL %A%000%%! SET 
B=%%!
  ECHO %A%'|CHOICE/c'0ABCDEFGHI'''''''JKLMNO>NUL
  FOR %%! in (1 2 3 4 5 6 7 8 9 A B C D E F) DO IF ERRORLEVEL }%%! SET A=%%!
  ECHO. Errorlevel %A%%B%h
  FOR %%! in (A B) do SET %%!=


B-Levels.bat

  Examples:
  Input 1 (or 257...) and the ERRORLEVEL would be set to one.
  The Exit code (ERRORLEVEL) set is displayed both dec & hex.

  To get the ASCII value of a normal character (a character that usual
  works in DOS/Batch files), just prefix the input with a lowercase H.

  This batch file is 70 lines & 2319 bytes. Please unwrap line num 62.

  @ECHO OFF
  IF NOT %1!== ! FOR %%c in (SET GOTO) do %%c Y=%1
  ECHO: Input,
  FC/n/Lb1 NUL CON|FIND "1">%temp%.\~.bat
  ECHO::EXIT|%COMSPEC%/kPROMPT e102'SET Y='$_w$_q|DEBUG %temp%.\~.bat>NUL
  CALL %temp%.\~.bat
  :Y [jumped, (external value)].
  SET N=40
  SET D=0
  IF ERRORLEVEL % (odd, not even.)%%Y%p000128 SET D=1
  SET H=3
  SET X=F
  GOTO N
  :0000
  IF 0==%X% FOR %%! in (GOTO:N SET) do %%! X=2
  IF 2==%X% FOR %%! in (GOTO:N SET) do %%! X=4
  IF 4==%X% FOR %%! in (GOTO:N SET) do %%! X=6
  IF 6==%X% FOR %%! in (GOTO:N SET) do %%! X=8
  IF 8==%X% FOR %%! in (GOTO:N SET) do %%! X=A
  IF C==%X% FOR %%! in (GOTO:N SET) do %%! X=E
  SET X=C
  GOTO N
  :0001
  IF 1==%X% FOR %%! in (SET GOTO:N) do %%! X=3
  IF 3==%X% FOR %%! in (SET GOTO:N) do %%! X=5
  IF 5==%X% FOR %%! in (SET GOTO:N) do %%! X=7
  IF 7==%X% FOR %%! in (SET GOTO:N) do %%! X=9
  IF 9==%X% FOR %%! in (SET GOTO:N) do %%! X=B
  IF D==%X% SET X=F
  IF B==%X% SET X=D
  :N
  ECHO a>               %temp%.\~.bat
  ECHO mov ax,4c%H%%X%>>%temp%.\~.bat
  ECHO int 21>>         %temp%.\~.bat
  ECHO.>>               %temp%.\~.bat
  ECHO g>>              %temp%.\~.bat
  DEBUG   >NUL<         %temp%.\~.bat
  IF NOT ERRORLEVEL %Y% GOTO:000%N% SET Y=00000000
  IF !==!%D% GOTO End
  IF 10==%N% GOTO Add
  SET N=10
  FOR %%! in (0 4 8) do IF ERRORLEVEL %(3F 7F BF)%%%!0063 SET H=%%!
  GOTO N
  :00010
  FOR %%! in (1 2 3,5 6 7,9) do IF ERRORLEVEL %()%%%!0255 SET H=%%!
  FOR %%! in (  A B,D E F, ) do IF ERRORLEVEL %()%%%!0143 SET H=%%!
  FOR %%! in (   3 7 B F   ) do IF %H% == %%! GOTO Add
  GOTO N
  :00040
  @                              SET H=7
  IF     ERRORLEVEL %(7F...)%127 SET H=B
  IF NOT ERRORLEVEL %(...7F)%128 GOTO N
  SET N=10
  SET H=C
  GOTO N
  :Add
  SET N=%D%
  SET D=
  SET X=%N%
  GOTO N
  :End
  FOR %%! in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
) do IF ERRORLEVEL %%!0 SET D=%%!
  FOR %%! in (0 1 2 3 4 5 6 7 8 9) do IF ERRORLEVEL %D%%%! SET D=%D%%%!
  IF ERRORLEVEL * FOR %%! in (0 1 2 3 4 5) do IF ERRORLEVEL I%%! SET D=25%%!
  ECHO.
  ECHO.
  ECHO.        IF ERRORLEVEL %Y%  equivalent: IF ERRORLEVEL %D% (%H%%X% Hex)
  FOR %%! in (Y N D H X) do SET %%!=
  DEL %temp%.\~.bat
  IF %1!== ! FOR %%! in (ECHO ECHO PAUSE CLS) do %%!.

  :------------------------
  : Links: [Usenet].
  : Notes:
  : You can substitute the SET Y=00000000 with ECHO: OOPS!: (no value in Y).
  : You can use the: %()% in line number 45 or/and 46 to write your comments
  : about the Errorlevel is tested: (0F 1F 2F,4F 5F 6F,8F)/(9F AF,CF DF EF).
  : I have add the above comments because: I'm not completly convinced about
  : that everyone can see that 9Fh is equivalent (170000 +143) -256n = 159d.
  : Hint: Input: 170143 or A0143 (ASCII value of A is 65 and 65 -48 is 17d).
  : More notes about how it works shouldn't be necessary, just run the batch
  : in your head. I have done a lot about writing it simple as possible, so,
  : the file should be worth a closer look: (a tool written to programmers),
  : but if you just use it to convert RGB code to hex numbers would be okay.
  :-)

  Extra:

  Modifications:
  Adding five lines after line number 31: (Label N):

  :N
if not d''%n% ==%t% call echo.
set t= d''%n%
echo...>%temp%.\~.bat
echo exit|%comspec% /k prompt e100' %h%%x%'%t%$_w$_q|debug %temp%.\~.bat>nul
type %temp%.\~.bat

  Notice that you can modify the first two lines of the above:
  i.e.: substitute the (d) in (d''%n%) with either (a), or (0)
  like this:
                if not a''%n% ==%t% call echo.
                set t= a''%n%
         OR:
                if not 0''%n% ==%t% call echo.
                set t= 0''%n%

  About the third line: "ECHO...>%temp%.\~.bat":

  The number of dots in "ECHO..." matching the length of data i.e. number of
  characters in ' %h%%x%' = 3, (REM. that the RCX register would be 4 byte),
  so, the variable named N is only used to determine when ECHO. (in the CALL
  ECHO.) should be done.

  A compact and alternative one lines, could be written something like this:

  :N                                  (d)
echo exit|%comspec%/kprompt e0' %h%%x%'d$_rcx$_4$_w0$_q|debug con>nul


  Benny Pedersen,
  PS.: You can put the following two lines after line number 1: (@ECHO OFF):

echo exit|%comspec% /k prompt fb800:00 Lfa0 20 2f$_q|debug>nul
echo exit|%comspec% /k prompt fb800:a0 L0a0 20 f8$_q|debug>nul

  or use a compact version:

  @ECHO OFF
echo exit|%comspec%/kprompt fb800:0Lfa0' /'$_fb800:a0La0' 'f8$_q|debug>nul

  TIPS: If you do an exploration of the suggested modifications, then use an
        input of a high number such as 255, so, you'll get a better overview
        of any differences.

  BTW.: Please don't use this one :-)

  @ECHO OFF
  echo exit|%comspec%/kprompt fb800:0Lfa0 2 cf$_q|debug>nul
  choice/c$/t$,2>nul
  cls


Hex2dec

@ MODE Co40
@ ECHO EXIT|%COMSPEC%/kPROMPT fB800:0L7D0' /'$_fB800:50L50'_'78$_q|debug>NUL
::Before executing this batch program, please unwrap 3 lines (num 4, 6 & 8:)
@% 1% ECHO OFF
%  2% ECHO: Input Hex (two digits:)
%  3% CHOICE/n/c~0123456789~~~~~~~ABCDEF>NUL
%  4%FOR %%! in (0 1 2 3 4 5 6 7 8 9 A B C D E F) do IF errorlevel 77%%! SET
 X=%%!
%  5% CHOICE/n/c~0123456789~~~~~~~ABCDEF %X%
%  6%FOR %%! in (0 1 2 3 4 5 6 7 8 9 A B C D E F) do IF errorlevel 77%%! SET
 X=%X%%%!
%  7%ECHO EXIT|%COMSPEC%/kPROMPT a$_mov ax,4c%X%$_int 21$_$_g$_|debug|SET X=
%  8%FOR %%! in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
 24) do IF ERRORLEVEL %%!0 SET X=%%!
%  9% FOR %%! in (0 1 2 3 4 5 6 7 8 9) do IF ERRORLEVEL %X%%%! SET X=%X%%%!
% 10% FOR %%! in (0 1 2 3 4 5) do IF ERRORLEVEL 25%%! SET X=25%%!
% 11% ECHO: %X% Dec


Colors

::@  MULTI.BAT: (64 lines including this).
::@         All tables in one file. Preview of a GIF file is available at:
::@         http://users.cybercity.dk/~bse26236/batutil/help/how/multi.gif
::@         Converting HEX to DEC, DEC to HEX. Get the ASCII values
::@         in both HEX and DEC or get the code to make all colors.
::@         This batch file maybe handy for tuning the monitor RGB,
::@         the colour temperature and the contrast for Batch work.
::@         Benny Pedersen,
::@         PS. Try substituting all '?' with '[' and 'o' with 'k'.
@echo off
@if exist %0.bat %0.bat
find<%0 "@"/v|debug>nul
@goto eof
fB800:21EL44' p0p1p2p3p4p5p6p7p8p9pApBpCpDpEpFp'
eB800:2B8' '7'1'7 2 0A'0p'F 00 F 01 F 02 F 03 F 04 F 05 F 06 F 07 F 08 F 09
eB800:2D4 2 0A F 0B F 0C F 0D F 0E F 0F'0p'00'?'01'o'02'?'03'o'04'?'05'o'
eB800:2EE 06'?'07'o'08'?'09'o'0A'?'0B'o'0C'?'0D'o'0E'?'0F'o'
eB800:358' '7'2'7 2 14'1p'F 10 F 11 F 12 F 13 2 14 F 15 F 16 F 17 F 18 F 19
eB800:374 F 1A F 1B F 1C F 1D 2 1E F 1F'1p'10'o'11'?'12'o'13'?'14'o'15'?'
eB800:38E 16'o'17'?'18'o'19'?'1A'o'1B'?'1C'o'1D'?'1E'o'1F'?'
eB800:3F8' '7'4'7 2 28'2p'F 20 F 21 F 22 F 23 F 24 F 25 F 26 F 27 2 28 F 29
eB800:414 F 2A F 2B F 2C F 2D F 2E F 2F'2p'20'?'21'o'22'?'23'o'24'?'25'o'
eB800:42E 26'?'27'o'28'?'29'o'2A'?'2B'o'2C'?'2D'o'2E'?'2F'o'
eB800:498' '7'5'7 2 32'3p'F 30 F 31 2 32 F 33 F 34 F 35 F 36 F 37 F 38 F 39
eB800:4B4 F 3A F 3B 2 3C F 3D F 3E F 3F'3p'30'o'31'?'32'o'33'?'34'o'35'?'
eB800:4CE 36'o'37'?'38'o'39'?'3A'o'3B'?'3C'o'3D'?'3E'o'3F'?'
eB800:538' '7'7'7 2 46'4p'F 40 F 41 F 42 F 43 F 44 F 45 2 46 F 47 F 48 F 49
eB800:554 F 4A F 4B F 4C F 4D F 4E F 4F'4p'40'?'41'o'42'?'43'o'44'?'45'o'
eB800:56E 46'?'47'o'48'?'49'o'4A'?'4B'o'4C'?'4D'o'4E'?'4F'o'
eB800:5D8' '7'8'7 2 50'5p'2 50 F 51 F 52 F 53 F 54 F 55 F 56 F 57 F 58 F 59
eB800:5F4 2 5A F 5B F 5C F 5D F 5E F 5F'5p'50'o'51'?'52'o'53'?'54'o'55'?'
eB800:60E 56'o'57'?'58'o'59'?'5A'o'5B'?'5C'o'5D'?'5E'o'5F'?'
eB800:678'1'7'0'7 2 64'6p'F 60 F 61 F 62 F 63 2 64 F 65 F 66 F 67 F 68 F 69
eB800:694 F 6A F 6B F 6C F 6D 2 6E F 6F'6p'60'?'61'o'62'?'63'o'64'?'65'o'
eB800:6AE 66'?'67'o'68'?'69'o'6A'?'6B'o'6C'?'6D'o'6E'?'6F'o'
eB800:718'1'7'2'7 2 78'7p'F 70 F 71 F 72 F 73 F 74 F 75 F 76 F 77 2 78 F 79
eB800:734 F 7A F 7B F 7C F 7D F 7E F 7F'7p'70'o'71'?'72'o'73'?'74'o'75'?'
eB800:74E 76'o'77'?'78'o'79'?'7A'o'7B'?'7C'o'7D'?'7E'o'7F'?'
eB800:7B8'1'7'3'7 2 82'8p'F 80 F 81 2 82 F 83 F 84 F 85 F 86 F 87 F 88 F 89
eB800:7D4 F 8A F 8B 2 8C F 8D F 8E F 8F'8p'80'?'81'o'82'?'83'o'84'?'85'o'
eB800:7EE 86'?'87'o'88'?'89'o'8A'?'8B'o'8C'?'8D'o'8E'?'8F'o'
eB800:858'1'7'5'7 2 96'9p'F 90 F 91 F 92 F 93 F 94 F 95 2 96 F 97 F 98 F 99
eB800:874 F 9A F 9B F 9C F 9D F 9E F 9F'9p'90'o'91'?'92'o'93'?'94'o'95'?'
eB800:88E 96'o'97'?'98'o'99'?'9A'o'9B'?'9C'o'9D'?'9E'o'9F'?'
eB800:8F8'1'7'6'7 2 A0'Ap'2 A0 F A1 F A2 F A3 F A4 F A5 F A6 F A7 F A8 F A9
eB800:914 2 AA F AB F AC F AD F AE F AF'Ap'A0'?'A1'o'A2'?'A3'o'A4'?'A5'o'
eB800:92E A6'?'A7'o'A8'?'A9'o'AA'?'AB'o'AC'?'AD'o'AE'?'AF'o'
eB800:998'1'7'8'7 2 B4'Bp'F B0 F B1 F B2 F B3 2 B4 F B5 F B6 F B7 F B8 F B9
eB800:9B4 F BA F BB F BC F BD 2 BE F BF'Bp'B0'o'B1'?'B2'o'B3'?'B4'o'B5'?'
eB800:9CE B6'o'B7'?'B8'o'B9'?'BA'o'BB'?'BC'o'BD'?'BE'o'BF'?'
eB800:A38'2'7'0'7 2 C8'Cp'F C0 F C1 F C2 F C3 F C4 F C5 F C6 F C7 2 C8 F C9
eB800:A54 F CA F CB F CC F CD F CE F CF'Cp'C0'?'C1'o'C2'?'C3'o'C4'?'C5'o'
eB800:A6E C6'?'C7'o'C8'?'C9'o'CA'?'CB'o'CC'?'CD'o'CE'?'CF'o'
eB800:AD8'2'7'1'7 2 D2'Dp'F D0 F D1 2 D2 F D3 F D4 F D5 F D6 F D7 F D8 F D9
eB800:AF4 F DA F DB 2 DC F DD F DE F DF'Dp'D0'o'D1'?'D2'o'D3'?'D4'o'D5'?'
eB800:B0E D6'o'D7'?'D8'o'D9'?'DA'o'DB'?'DC'o'DD'?'DE'o'DF'?'
eB800:B78'2'7'3'7 2 E6'Ep'F E0 F E1 F E2 F E3 F E4 F E5 2 E6 F E7 F E8 F E9
eB800:B94 F EA F EB F EC F ED F EE F EF'Ep'E0'?'E1'o'E2'?'E3'o'E4'?'E5'o'
eB800:BAE E6'?'E7'o'E8'?'E9'o'EA'?'EB'o'EC'?'ED'o'EE'?'EF'o'
eB800:C18'2'7'4'7 2 F0'Fp'2 F0 F F1 F F2 F F3 F F4 F F5 F F6 F F7 F F8 F F9
eB800:C34 2 FA F FB F FC F FD F FE F FF'Fp'F0'o'F1'?'F2'o'F3'?'F4'o'F5'?'
eB800:C4E F6'o'F7'?'F8'o'F9'?'FA'o'FB'?'FC'o'FD'?'FE'o'FF'?'
q
:eof


-Top- Page 3 | Page 5 | Nomenclature