{ (c) 1998 CREEQ <creeq@web.de> }
program Virtuelle_Dos_Benutzeroberflaeche;
uses Crt;
var A : string;
    B : Integer;
label 1,2,3,4;
begin
  B := 0;
  textbackground(black);
  textcolor(lightgray);
  clrscr;
1:repeat
    write('C:\>');
    readln(A);
    if A = 'A:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'B:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'C:' then begin; writeln; goto 1; end;
    if A = 'D:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'E:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'F:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'G:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'H:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'I:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'J:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end;
    if A = 'K:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'L:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'M:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'N:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'O:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'P:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end;
    if A = 'Q:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'R:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'S:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'T:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'U:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'V:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'W:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'X:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'Y:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'Z:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'a:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end;
    if A = 'b:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'c:' then begin; writeln; goto 1; end;
    if A = 'd:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'e:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'f:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'g:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'h:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'i:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'j:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'k:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'l:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'm:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'n:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'o:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'p:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'q:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'r:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 's:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 't:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'u:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'v:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'w:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'x:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'y:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'z:' then begin; writeln('Ungltige Laufwerksangabe'); writeln; goto 1; end; 
    if A = 'dir' then begin;
                        if b = 1 then goto 3; 
                        writeln(' Datentr„ger in Laufwerk C hat keine Datentr„gerbezweichnung');
                        writeln(' Datentr„gernummer: 0A55-1402');
                        writeln(' Verzeichnis von C:\');
                        writeln;
			writeln('COMMAND  COM     55591 10.03.93    6:00');
                        writeln('        1 Datei(en)      55591 Byte');
                        writeln('                       1037824 Byte frei');
                        writeln;
                        writeln;
                        goto 1;
                        3:writeln(' Datentr„ger in Laufwerk C hat keine Datentr„gerbezweichnung');
                        writeln(' Datentr„gernummer: 0A55-1402');
                        writeln(' Verzeichnis von C:\');
                        writeln; 
			writeln('Datei nicht gefunden');
                        writeln;
                        goto 1; 		 
    		      end;
    if A = 'DIR' then begin;
                        if b = 1 then goto 4; 
                        writeln(' Datentr„ger in Laufwerk C hat keine Datentr„gerbezweichnung');
                        writeln(' Datentr„gernummer: 0A55-1402');
                        writeln(' Verzeichnis von C:\');
                        writeln; 
			writeln('COMMAND  COM     55591 10.03.93    6:00');
                        writeln('        1 Datei(en)      55591 Byte');
                        writeln('                       1037824 Byte frei');
                        writeln;
                        writeln;
                        goto 1; 		 
                        4:writeln(' Datentr„ger in Laufwerk C hat keine Datentr„gerbezweichnung');
                        writeln(' Datentr„gernummer: 0A55-1402');
                        writeln(' Verzeichnis von C:\');
                        writeln; 
			writeln('Datei nicht gefunden');
                        writeln;
                        goto 1; 		 
    		      end;		
    if A = 'Dir' then begin;
                        writeln(' Datentr„ger in Laufwerk C hat keine Datentr„gerbezweichnung');
                        writeln(' Datentr„gernummer: 0A55-1402');
                        writeln(' Verzeichnis von C:\');
                        writeln; 
			writeln('COMMAND  COM     55591 10.03.93    6:00');
                        writeln('        1 Datei(en)      55591 Byte');
                        writeln('                       1037824 Byte frei');
                        writeln;
                        writeln;
                        goto 1; 		 
    		      end;		
    if A = 'command' then begin;
                        if b = 1 then begin;
                          writeln('Befehl oder Dateiname nicht gefunden.');
                          writeln;
                          goto 1;
                        end;
                        if b = 0 then begin;
                        writeln;
                        writeln;
                        writeln('Microsoft(R) MS-DOS(R) 6');
                        writeln('             (C)Copyright Microsoft Corp 1981-1992.');
         		writeln;
                        goto 1;
                       end;
    		      end;
    if A = 'command.com' then begin;
                        if b = 1 then begin;
                          writeln('Befehl oder Dateiname nicht gefunden.');
                          writeln;
                          goto 1;
                        end;
                        if b = 0 then begin;
                        writeln;
                        writeln;
                        writeln('Microsoft(R) MS-DOS(R) 6');
                        writeln('             (C)Copyright Microsoft Corp 1981-1992.');
         		writeln;
                        goto 1;
                       end;
    		      end;
    if A = 'COMMAND.COM' then begin;
                        if b = 1 then begin;
                          writeln('Befehl oder Dateiname nicht gefunden.');
                          writeln;
                          goto 1;
                        end;
                        if b = 0 then begin;
                        writeln;
                        writeln;
                        writeln('Microsoft(R) MS-DOS(R) 6');
                        writeln('             (C)Copyright Microsoft Corp 1981-1992.');
         		writeln;
                        goto 1;
                       end;
    		      end;
    if A = 'Command.Com' then begin;
                        if b = 1 then begin;
                          writeln('Befehl oder Dateiname nicht gefunden.');
                          writeln;
                          goto 1;
                        end;
                        if b = 0 then begin;
                        writeln;
                        writeln;
                        writeln('Microsoft(R) MS-DOS(R) 6');
                        writeln('             (C)Copyright Microsoft Corp 1981-1992.');
         		writeln;
                        goto 1;
                       end;
    		      end;
    if A = 'cd' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'CD' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'cd..' then begin;
         		writeln;
                        goto 1; 		 
    		      end;
    if A = 'CD..' then begin;
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'cd\' then begin;
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'CD\' then begin;
         		writeln;
                        goto 1; 		 
    		      end;
    if A = 'md' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'MD' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'del' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'DEL' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'rd' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'RD' then begin;
                        writeln('erforderlicher Parameter Fehlt');
         		writeln;
                        goto 1; 		 
    		      end;		
    if A = 'del command.com' then begin;
         		            B := 1;
      				    writeln;
                                    goto 1;
    		                  end;
    if A = 'DEL COMMAND.COM' then begin;
         		            B := 1;
      				    writeln;
                                    goto 1;
    		                  end;
    if A = 'Exit' then goto 2;
    if A = '' then goto 1;
    writeln('Befehl oder Dateiname nicht gefunden.');
    writeln;
  until false;
2:  
end.