XProfan

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

REPEAT

    inc i&
    imprimir ".";
    caso i&=g&:BREAK

ENDWHILE

'------------------
Beep:Imprimir chr$(9)+"\n\n  Es ellos: El Repeat-EndWhile Bucle! ;-)\n  Como konnten wir sólo je sin ellos auskommen!\n\n  Herzliche Grüße, Ihr muy ergebener\n\n  Preter Inter  "
WaitInput
End