Ekorrn satt i granen

Environment Subject (Barn, Gran, Barn, Ekorre, Tallegren, Kotte, Svans, Ben, Ljud);
Environment Aktivitet (Sitta, Skala, Höra, Ljud, Bråttom, Hoppa, Skada);
Environment Egenskap (Luden, Lång, Bråttom);
Tryout SET OF (Subject, Aktivitet, Egenskap);

Location Subject;
Mainstar, Object Subject;
Happening Aktivitet;
Barn BOOLEAN;

Begin
   Location := Gran;
   Mainstar := Ekorre;
   Barn = FALSE;

   Aktivitet := Skala;
   Object := Kotte;

IF NOT Barn
   For Tryout DO UNTIL Happening == Ljud
      LET Mainstar DO Aktivitet
      STEP Happening;
      Barn := TRUE;

If Mainstart GET Ljud == Barn (Aktivitet) Tallegren;
   For Tryout DO UNTIL Happening == Skada
      Aktivitet := Bråttom
      LET Mainstar DO JUMP Tallegren
      Aktivitet := Hopp;
      STEP Happening;

Object := Ben;
Location := Tallegren;
Happening := Skada;

End;

Text: Hans-Olov Ericsson. Detta material är skyddat enligt lagen om upphovsrätt. Utan tillstånd är eftertryck eller annan kopiering förbjuden.