@@ -0,0 +1,19 @@
+PROGRAM
+
+ ROUTINE trace
+ BEGIN
+ FORWARD 50;
+ ROTATE 90;
+ END
+BEGIN
+ FORWARD 100;
+ ROTATE 270;
+ PEN DOWN;
+ CALL trace;
+END.
@@ -0,0 +1,12 @@
+# La compilation de ce fichier doit
+# provoquer une erreur semantique
+# 'routine indefinie' sur l'instruction CALL
+ ROUTINE routineRecursive
+ CALL routineRecursive;
@@ -0,0 +1,16 @@
+# 'routine deja definie' sur l'en tete
+# de la seconde routine
+ ROUTINE routineDefiniePlusieursFois
@@ -0,0 +1,8 @@
+ CALL routineNonDefinie;
@@ -0,0 +1,25 @@
+ FORWARD 70;
+ ROTATE 160;
+ ROUTINE trace3
+ FORWARD 200;
+ FORWARD 300;
+ CALL trace3;
@@ -0,0 +1,21 @@
+ FORWARD 70 ;
+ ROTATE 60 ;
+ FORWARD 100 ;
@@ -0,0 +1,34 @@
+ ROTATE 45;
+ ROUTINE trace1
+ ROUTINE trace2
+ CALL trace1;
+ CALL trace2;
@@ -0,0 +1,20 @@
+ ROTATE 72;