/*Beispiel 1*/

x=","

Say "The first five even numbers are:"
DO i=2 to 21 by 2
if i>=10 then x="."
if i<=10 then say i||x
end
SIGNAL ende
exit

ende: say "End."


/*Beispiel 2*/

DO i=1 to 10
say "Die aktuelle Zeit ist" 
CALL zeit --wir haben hier eine Frage
CAll SysSleep 2
end
EXiT

zeit: say time()
say" "
return