DO i=1.2 to 12.3 by 1.5
Say "Wir probieren die Wiederholung"; say "Es klappt!" i
End


~~~~~~~~~~~~~~~~~~~~~

a = 4
b=10

Say "1. Wert =" a;say "2. Wert =" b
CALL calc
say "a=a*3 = " a; say "b=b*2 = " b
Exit

Calc:
a=a*3
b=b*2
RETURN

~~~~~~~~~~~~~~~~~~~~~

Say Testlauf()
Call SysSleep 2
Call Testlauf
say result
Exit


Testlauf:
Return "Wir versuchen das System zu steuern und zu verstehen."