PC Toledo

Código: Selecionar todos

function main()
    local x := y := 1
    for x := 1 to 10
        ? "x=", alltrim(str(x)), " y=", alltrim(str(y))
        // O mesmo que : y++ ou y += 1
        y -=- 1
    next
return nil