XProfan

var dlg6&=Create("Dialog",%hWnd,spieler$,650,400,400,200)
var Text6& = Create("Text",dlg6&,"...",0032,010,0300,0020)
var ok61& = Create("BUTTON",dlg6&,"...",0200,0016,0120,0030)
var ok62& = Create("BUTTON",dlg6&,"...,0200,0056,0120,0030)
var ok63& = Create("BUTTON",dlg6&,"...",0200,0096,0120,0030)/pre>

whileloop 10

    var a&=10pre>

var a&=0

whileloop 10

    a&=10/pre>

declare a&

whileloop 10

    a&=10/pre>