XProfan

Declarar tmp#[],tmp&
Class Test = t&,Test@

Proc Test.Test

    Parámetros m&
    .t& = m&

ENDPROC

tmp#[0] = New(Test,5)

WhileLoop 3

    'que aquí va no
    'tmp#[SizeOf(tmp#[])] = New(Test,&Loop)

Wend

WhileLoop 3

    'así gehts
    tmp& = SizeOf(tmp#[])
    tmp#[tmp&] = New(Test,&Loop)

Wend

WhileLoop 0,SizeOf(tmp#[])-1

    Imprimir tmp#[&Loop].t&

Wend

WaitInput