%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:118
File Name:PRIMNFIB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 3,1,"PRIMEIROS N FIBO"
\Locate 1,7,"[EXE PARA CONTINUAR]"
\Do
\Getkey\->A
\LpWhile A\<>31
\ClrText
"N"?\->N
1\->A:1\->B
\For 3\->I \To N
A+B\->C\DispB\->A:C\->B
\Next 
%End