Data commit

Task/Flow-control-structures/Comal/flow-control-structures-1.comal

@@ -0,0 +1,5 @@
+myprocedure
+END // End of main program
+PROC myprocedure
+PRINT "Hello, this is a procedure"
+ENDPROC myprocedure

Task/Flow-control-structures/Comal/flow-control-structures-2.comal

@@ -0,0 +1,5 @@
+LOOP
+PRINT "I'm in a loop!"
+EXIT
+ENDLOOP
+PRINT "But i somehow got out of it."

Task/Flow-control-structures/Comal/flow-control-structures-3.comal

@@ -0,0 +1,6 @@
+PRINT "I'm in a loop!"
+LOOP
+INPUT "Do you want to exit?":answer$
+EXIT WHEN answer$="y"
+ENDLOOP
+PRINT "You got out of it."

Task/Flow-control-structures/Comal/flow-control-structures-4.comal

@@ -0,0 +1,6 @@
+PRINT "Hello world"
+GOTO label
+PRINT "This line will never be output"
+label:
+PRINT "This program will end thanks to the evil GOTO statement"
+END