%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:134
File Name:SUCPARIP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 2,1,"SUCESSAO PAR\slashIMPAR"
\Locate 1,7,"[EXE PARA CONTINUAR]"
\Do
\Getkey\->A
\LpWhile A\<>31
"N0"?\->N
\Do
\If N=2*\Int (N/2)
\Then N/2\->N\Disp\Else N*3+1\->N\Disp\IfEnd
\LpWhile N\<>1\ And N\<>13

%End