PROGRAM hinher;
BEGIN
Arbeitsfeld(hinher);
vor;

{1. Hin und Her}

nimm_auf;vor;vor;vor;vor;gib_ab;
drehe_links;drehe_links;
vor;vor;vor;vor;
drehe_links;drehe_links;

{2. Hin und Her}
nimm_auf;vor;vor;vor;vor;gib_ab;
drehe_links;drehe_links;
vor;vor;vor;vor;
drehe_links;drehe_links;

{3. Hin und Her}
nimm_auf;vor;vor;vor;vor;gib_ab;
drehe_links;drehe_links;
vor;vor;vor;vor;
drehe_links;drehe_links;

END.
PROGRAM hinher2;

PROCEDURE wende;
BEGIN
drehe_links; drehe_links

END;

PROCEDURE hin;
BEGIN
nimm_auf;vor;vor;vor;vor;gib_ab;
END;

PROCEDURE her;
BEGIN
wende;
vor;vor;vor;vor;
wende;
END;

BEGIN {Hauptprogramm}
Arbeitsfeld(hinher);
vor;
hin; her;
hin; her;
hin; her;

END.
Zuletzt geändert: Dienstag, 14. Mai 2013, 19:45