XProfan

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

REPEAT

    inc i&
    imprimer ".";
    cas i&=g&:BREAK

ENDWHILE

'------------------
Beep:Imprimer chr$(9)+"\n\n  c'est vous: qui Repeat-Endwhile Boucle! ;-)\n  comment konnten wir seulement je sans vous auskommen!\n\n  Herzliche Grüße, son très ergebener\n\n  Preter Inter  "
WaitInput
Fin