6.2 Ein ganzes Rechteck zeichnen

Abbildung 6.2: Rechteck

  lerne rechteck :lo :la
    wenn :lo=0 | :la=0 [stoppe]
    wiederhole 2[vorwärts :lo rechts 90 vorwärts :la rechts 90]
    rechteck :lo -1 :la -1
  Ende