{ Karol baut eine Pyramide }
{Norbert Handick Programm Pyramide}
Anweisung Umdrehen
  Schnell
  LinksDrehen
  LinksDrehen
  Langsam
*Anweisung

Anweisung Unterlegen
  Schnell
  Schritt
  Umdrehen
  Hinlegen
  Umdrehen
  Langsam
*Anweisung

Anweisung Diagonal_1
  Schritt
  LinksDrehen
  Schritt
  RechtsDrehen
*Anweisung

Anweisung Kranz
  wiederhole 4 mal
    solange NichtIstWand tue
      Hinlegen
      Schritt
      MarkeSetzen
    *solange
    LinksDrehen
  *wiederhole
  Diagonal_1
*Anweisung

Anweisung KranzFuellen
  Schnell
  solange NichtIstMarke tue
    Unterlegen
    wenn IstMarke dann
      LinksDrehen
      Schritt
      LinksDrehen
      Schritt
      solange NichtIstMarke tue
        Schritt
      *solange
      Umdrehen
      Schritt
    *wenn
  *solange
  RechtsDrehen
  Schritt
  RechtsDrehen
  Schritt
  Langsam
*Anweisung

Anweisung Pyramidenring
  wiederhole 4 mal
    solange NichtIstMarke tue
      MarkeSetzen
      Unterlegen
    *solange
    Umdrehen
    Schritt
    RechtsDrehen
    Schritt
  *wiederhole
*Anweisung

Anweisung Ausgangsposition
  wiederhole 2 mal
    solange NichtIstWand tue
      Schritt
    *solange
    LinksDrehen
  *wiederhole
*Anweisung

Anweisung ZumStart
  RechtsDrehen
  wiederhole 2 mal
    solange NichtIstWand tue
      Schritt
    *solange
    LinksDrehen
  *wiederhole
*Anweisung

Anweisung KranzMarkeWeg
  wiederhole 4 mal
    solange NichtIstWand tue
      Schritt
      MarkeLöschen
    *solange
    LinksDrehen
  *wiederhole
*Anweisung

Anweisung RingMarkeWeg
  wiederhole 4 mal
    solange IstMarke tue
      MarkeLöschen
      Schritt
    *solange
    Umdrehen
    Schritt
    RechtsDrehen
    Schritt
  *wiederhole
  LinksDrehen
  wenn IstMarke dann
    RechtsDrehen
  sonst Umdrehen
    Schritt
  *wenn
*Anweisung

Programm
  Kranz
  KranzFuellen
  solange NichtIstMarke tue
    Pyramidenring
    KranzFuellen
  *solange
  Ausgangsposition
  KranzMarkeWeg
  Diagonal_1
  solange IstMarke tue
    RingMarkeWeg
  *solange
  ZumStart
*Programm