/*Beispiel 1*/

x="x"

Say  "2 mal", "4 mal...und bei ? ist" Schluss.
DO i=2 to 50 by 2
if i>=22 then x="."
if i<=22 then say i||x
end
Signal ende
ende: say "geschafft."

/*Beispiel 2*/
DO i=0 to 12 by 2
    SAY i "gerade"; SAY i+1 "nicht gerade Zahl"
END