1 files changed, 0 insertions, 139 deletions
diff --git a/hamster/ls-Herbert und Robbi 2 b/hamster/ls-Herbert und Robbi 2
deleted file mode 100644
index a8ce067..0000000
--- a/hamster/ls-Herbert und Robbi 2
+++ /dev/null
@@ -1,139 +0,0 @@
-(* 
-        
-          ********************************************************* 
-          ********************************************************* 
-          **                                                     ** 
-          **               ls-Herbert und Robbi 2                ** 
-          **                                                     ** 
-          **                     Version 1.1                     ** 
-          **                                                     ** 
-          **                  (Stand: 30.03.88)                  ** 
-          **                                                     ** 
-          **                                                     ** 
-          **         Autor: Wolfgang Weber, Bielefeld            ** 
-          **                                                     ** 
-          **                                                     ** 
-          ** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld ** 
-          **                                                     ** 
-          ** Copyright (C) 1988 ERGOS GmbH, Siegburg             ** 
-          **                                                     ** 
-          ********************************************************* 
-          ********************************************************* 
- 
-                                                                           *) 
- 
-PACKET ls herbert und robbi 2  DEFINES
-       rechts frei,
-       links frei,
-       hinten frei,
-       korn vorn,    werkstueck vorn,
-       korn links,   werkstueck links,
-       korn rechts,  werkstueck rechts,
-       korn hinten,  werkstueck hinten:
-BOOL PROC rechts frei:
-  rechts um;
-  IF vorn frei
-     THEN links um; TRUE
-     ELSE links um; FALSE
-  FI
-END PROC rechts frei;
-BOOL PROC links frei:
-  links um;
-  IF vorn frei
-     THEN rechts um; TRUE
-     ELSE rechts um; FALSE
-
-  FI
-END PROC links frei;
-BOOL PROC hinten frei:
-  kehrt;
-  IF vorn frei
-     THEN kehrt; TRUE
-     ELSE kehrt; FALSE
-  FI
-END PROC hinten frei;
-BOOL PROC korn vorn:
-  IF vorn frei
-     THEN untersuche feld vor dir
-     ELSE FALSE
-  FI.
-  untersuche feld vor dir:
-    vor;
-    IF korn da
-       THEN mache vorwaertsgehen rueckgaengig; TRUE
-       ELSE mache vorwaertsgehen rueckgaengig; FALSE
-    FI.
-  mache vorwaertsgehen rueckgaengig:
-    kehrt; vor; kehrt
-END PROC korn vorn;
-
-BOOL PROC korn links:
-  links um;
-  IF vorn frei
-     THEN untersuche feld links
-     ELSE rechts um; FALSE
-  FI.
-  untersuche feld links:
-    vor;
-    IF korn da
-       THEN mache linkswende rueckgaengig; TRUE
-       ELSE mache linkswende rueckgaengig; FALSE
-    FI.
-  mache linkswende rueckgaengig:
-    kehrt; vor; links um
-END PROC korn links;
-BOOL PROC korn rechts:
-  rechts um;
-  IF vorn frei
-     THEN untersuche feld rechts
-     ELSE links um; FALSE
-  FI.
-  untersuche feld rechts:
-
-    vor;
-    IF korn da
-       THEN mache rechtswende rueckgaengig; TRUE
-       ELSE mache rechtswende rueckgaengig; FALSE
-    FI.
-  mache rechtswende rueckgaengig:
-    kehrt; vor; rechts um
-END PROC korn rechts;
-BOOL PROC korn hinten:
-  kehrt;
-  IF vorn frei
-     THEN untersuche feld hinter dir
-     ELSE kehrt; FALSE
-  FI.
-  untersuche feld hinter dir:
-    vor;
-    IF korn da
-       THEN mache kehrtwende rueckgaengig; TRUE
-       ELSE mache kehrtwende rueckgaengig; FALSE
-    FI.
-
-  mache kehrtwende rueckgaengig:
-    kehrt; vor
-END PROC korn hinten;
-PROC kehrt:
-  links um; links um
-END PROC kehrt;
-PROC rechts um:
-  links um; links um; links um
-END PROC rechts um;
-BOOL PROC werkstueck vorn:
-  korn vorn
-END PROC werkstueck vorn;
-BOOL PROC werkstueck links:
-  korn links
-END PROC werkstueck links;
-BOOL PROC werkstueck rechts:
-  korn rechts
-END PROC werkstueck rechts;
-BOOL PROC werkstueck hinten:
-  korn hinten
-END PROC werkstueck hinten;
-END PACKET ls herbert und robbi 2;
-
-befehlssatz erweitern (TRUE)
-
-