XProfan

Windowtitle ";-) sensation, exclusiv for Interpreter: ;-) REPEAT/ENDWHILE Loop ;-)"
var g&=600:Font 2:cls &GetTickCount mod 8^8
'------------------
Var i&=0

REPEAT

    inc i&
    print ".";
    case i&=g&:BREAK

ENDWHILE

'------------------
Beep:Print chr $(9)+"\n\n  this is tappt im dunkeln: The Repeat-EndWhile Loop! ;-)\n  How we could only apiece without tappt im dunkeln get along!\n\n  cordial Regards, your very ergebener\n\n  Preter Inter  "
WaitInput
End