Trabalhando com Frames - Exemplo Tabuada

Código:

Def Var i-num   As Int  No-undo.
Def Var i-cont  As Int  No-undo.

Update i-num Label 'Informe um número'
       With Frame f-a Row 3 Side-label.

Output To C:\pgs\aulas\teste.txt.

Do i-cont = 1 To 10 :

    Disp i-cont ' X ' i-num ' = ' i-cont * i-num
         With Frame f-b Centered No-labels 10 Down
         Width 80 Title 'Tabuada' Bgcolor 3.
    
    Down With Frame f-b.
    
End.

Output Close.

Clear Frame f-a All.

Hide Frame f-a.