XProfan

WhileLoop 10

    Print "Zeile " + &Loop

EndWhile

Print "Taste pressing..."
Waitkey
End

print "Zeile " + st$(&loop)

print "Zeile ";&loop

WhileLoop 10

    Print "Zeile " +

EndWhile

Print "Taste pressing..."
Waitkey
End

WhileLoop 10

    Print  &Loop +

EndWhile

Print "Taste pressing..."
Waitkey
End

Var  a%=4

WhileLoop 10

    Print a% +

EndWhile

Print a%
Print "Taste pressing..."
Waitkey
End