echo off
:loop
%1enter $N: input tail
if errorlevel 2 goto error
if errorlevel 1 goto break
if .%input% == . goto loop
if %input% == EXIT goto ende
if %input% == TYPE goto filetype
if %input% == DIR goto dirctory
if %input% == A: goto a
if %input% == B: goto b
if %input% == C: goto c
if %input% == D: doto d
%1cpm %input%%tail%
goto loop
:filetype
for %%z in (%tail%) do type %%z
goto loop
:dirctory
dir /w %tail%
goto loop
:a
a:
goto loop
:b
b:
goto loop
:c
c:
goto loop
:d
d:
goto loop
:error
echo Fehler aufgetreten!
echo SHELL wird beendet.
goto ende
:break
echo Break...
:ende
set input=
set tail=
rem Die variablen werden wieder freigegeben.
rem
rem CP/M-Shell
rem Syntax:   B:SHELL B:
rem Der optionale Parameter gibt das Laufwerk an,
rem auf dem sich die Dateien CPM.COM und ENTER.COM befinden.
rem
echo on