@echo off
rem  38.bat
rem call 38.bat nofiles to set envars only
rem called from other bats to use envars (date dow dom moy month year)
rem also run once a day to write files for if exist checks.
:dow
dow
for %%f in (0 1 2 3 4 5 6) do if errorlevel %%f set dow=%%f
if (%1)==(nofiles) goto dom
del *.dow
echo %dow%>%dow%.dow
:dom
dom
for %%f 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 25 26
27 28 29 30 31) do if errorlevel %%f set dom=%%f
if (%1)==(nofiles) goto moy
del *.dom
echo %dom%>%dom%.dom
:moy
moy
for %%f in (1 2 3 4 5 6 7 8 9 10 11 12) do if errorlevel %%f set moy=%%f
if (%moy%)==(1) set month=jan
if (%moy%)==(2) set month=feb
if (%moy%)==(3) set month=mar
if (%moy%)==(4) set month=apr
if (%moy%)==(5) set month=may
if (%moy%)==(6) set month=jun
if (%moy%)==(7) set month=jul
if (%moy%)==(8) set month=aug
if (%moy%)==(9) set month=sep
if (%moy%)==(10) set month=oct
if (%moy%)==(11) set month=nov
if (%moy%)==(12) set month=dec
if (%1)==(nofiles) goto year
del *.moy
echo %moy%>%moy%.moy
echo %month%>%month%.moy
:year
yr
for %%f in (0 1 2 3 4 5 6 7 8 9 96 97 98 99) do if errorlevel %%f set year=%%f
if (%1)==(nofiles) goto date
del *.yea
echo %year%>%year%.yea
echo %moy%-%dom%-%year%>date
:date
set date=%moy%-%dom%-%year%
goto end
:end

============
section 1 of uuencode 4.13 of file DOM.COM    by R.E.M.

begin 644 DOM.COM
*M"K-(8C0M$S-(4S-'
``
end
sum -r/size 53288/44 section (from "begin" to "end"
sum -r/size 58052/10 entire input file
=====================
=====================
section 1 of uuencode 4.13 of file DOW.COM    by R.E.M.

begin 644 DOW.COM
(M"K-(;1,S2%,]
``
end
sum -r/size 32857/40 section (from "begin" to "end"
sum -r/size 35003/8 entire input file
===================
===================
section 1 of uuencode 4.13 of file MOY.COM    by R.E.M.

begin 644 MOY.COM
*M"K-(8CPM$S-(4S-G
``
end
sum -r/size 28757/44 section (from "begin" to "end"
sum -r/size 58054/10 entire input file
===================
===================
section 1 of uuencode 4.13 of file YR.COM    by R.E.M.

begin 644 YR.COM
5M"K-(8G(+6P'/60`<@,M9`"T3,TA[
``
end
sum -r/size 51607/55 section (from "begin" to "end"
sum -r/size 46150/21 entire input file
=============================================

-- 
  np: The Who - Eminence Front (Live) (Radio Free Colorado - Classic + Modern
Rock Mix, 60's to today. Best Hi-Fi Sound on the Net!) 44 192

--- Mozilla Thunderbird 1.0.6 (Windows/20050716)
 * Origin: <The Harbinger Jamnntpd news://vtdl.net> (63:63/1)