XProfan

Windowtitle ";-) Sensation, exclusiv für Interpreter: ;-) REPEAT/ENDWHILE Schleife ;-)"
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  Das ist sie: Die Repeat-EndWhile Schleife! ;-)\n  Wie konnten wir nur je ohne sie auskommen!\n\n  Herzliche Grüße, Ihr sehr ergebener\n\n  Preter Inter  "
WaitInput
End