echo off
IF NOT %1.==. SET PDL=%1
IF %1.==. PDLWHAT s 'Enter program-by-number directory name.'
IF %PDL%.==. GOTO  end
CLS
TYPE \PDL\PDLLOGO.BAT
echo PDLCMDA PROCEDURE EXECUTING
echo .
SET MENU=%1
SET CD=\%1
IF NOT %2.==. SET CD=%2
ECHO Menu-%MENU%, Library-%CD%
echo .
IF not EXIST %CD%\%MENU%.BY# \pdl\pdlask MO MENU FOR NAME GIVEN. press enter.
IF not EXIST %CD%\%MENU%.BY# GOTO end
if not exist %cd%\*.*	     goto end

type \PDL\PDLWAIT.BAT>\PDL\PDLCMDAW.BAT
echo Menu-%MENU%, Library-%CD%>>\PDL\PDLCMDAW.BAT
\PDL\PDLDSP \PDL\PDLCMDAW.BAT
DEL		      \PDL\PDLCMDAW.BAT
\PDL\PDLMNU  %CD%\%MENU%.BY# %CD%\0.bat
IF EXIST %CD%\%MENU%.BAK DEL %CD%\%MENU%.BAK

ECHO ECHO OFF>%CD%\0.BAT
ECHO SET CD=%CD%>>%CD%\0.BAT
ECHO SET MENU=%MENU%>>%CD%\0.BAT
TYPE \PDL\PDL0.BAT>>%CD%\0.BAT

%CD%\0.BAT
REM -------- PRECEDING BATCH FILE COMMAND EXITS THIS PROCEDURE ------
:end
call 0