ECHO OFF
CLS
ECHO DRG.BAT  Directory Report Generator (See DRG.DOC)    J.Orlay SydPC Sep 1989
ECHO ~~~~~~~  ~~~~~~~~~~~~~~~~~~~~~~~~~~
:SOURCE
ECHO SOURCE OPTIONS
ECHO Return-Key                 = current drv:\dir\*.*
ECHO R                          = current drv:\rootdir\*.*
ECHO ?                          = you will be prompted to specify the SOURCE
ANSWER
SET SO=%ANSWER%
IF "%SO%"==""  ECHO ... your SOURCE choice was : current drv:\dir\*.*
IF "%SO%"==""  SET SOCODE=%SO%
IF "%SO%"==""  GOTO SCOPE
IF "%SO%"=="R" ECHO ... your SOURCE choice was : current drv:\rootdir\*.*
IF "%SO%"=="R" SET SOCODE=\*.*
IF "%SO%"=="R" GOTO SCOPE
IF "%SO%"=="?" GOTO SOS
:SOS
ECHO To specify your SOURCE, use this syntax: [drive:][\dir\][filespec]
ECHO                                           ~~~~~~  ~~~~~  ~~~~~~~~
ANSWER
SET SOCODE=%ANSWER%
ECHO ... your SOURCE choice was : %SOCODE%
:SCOPE
ECHO.
ECHO SCOPE OPTIONS
ECHO 1     =  Indented Tree only
ECHO 2     =  Indented Tree plus Ascii sorted cross-referenced filenames 
ECHO 3     =  Indented list of directories & contained filenames
ANSWER
SET SC=%ANSWER%
ECHO ... your SCOPE  choice was : %SC%, as described above
:OUTPUT
ECHO.
ECHO OUTPUT OPTIONS
ECHO Return-Key                 = to Screen,    2col, pausing
ECHO H                          = to Printer,   1col, paginated
ECHO W                          = to C:\DIRFIL  1col
ANSWER
SET OU=%ANSWER%
IF "%OU%"==""  ECHO ... your OUTPUT choice was : to Screen,    2col, pausing
IF "%OU%"=="H" ECHO ... your OUTPUT choice was : to Printer,   1col, paginated
IF "%OU%"=="W" ECHO ... your OUTPUT choice was : to C:\DIRFIL, 1col
IF "%OU%"==""  GOTO SCREEN
IF "%OU%"=="H" GOTO PRINTER
IF "%OU%"=="W" GOTO FILE
:SCREEN
IF "%SC%"=="1" SDL %SOCODE% /TP
IF "%SC%"=="2" SDL %SOCODE% /TAP
IF "%SC%"=="3" SDL %SOCODE% /TFIP
GOTO END
:PRINTER
FLASHSET [27]@[27]l[20][27][51][18][27][78][10][27][83][0][27]g
IF "%SC%"=="1" SDL %SOCODE% /T   > PRN
IF "%SC%"=="3" SDL %SOCODE% /TFI > PRN
IF NOT "%SC%"=="2" GOTO END
IF "%SC%"=="2" MODE BW40
SDL %SOCODE% /TA > PRN
MODE BW80
GOTO END
:FILE
IF "%SC%"=="1" SDL %SOCODE% /T   >> \DIRFIL
IF "%SC%"=="3" SDL %SOCODE% /TFI >> \DIRFIL
IF NOT "%SC%"=="2" GOTO END
IF "%SC%"=="2" MODE BW40
SDL %SOCODE% /TA >> \DIRFIL
MODE BW80
GOTO END
:END
SET ANSWER=
SET SOCODE=
SET SO=
SET SC=
SET OU=
SET ERRORLEVEL=