%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:TOTOLO1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 7,1,"TOTOLOTO"
\Locate 1,7,"[EXE PARA CONTINUAR]"
\Do
\Getkey\->A
\LpWhile A\<>31
\ClrText
6\->\Dim \List 1
0\->C
\Do
\Int (\Ran#*49)+1\->N
0\->Z
\For 1\->I \To C
\If N=\List 1[I]
\Then 1\->Z
\IfEnd
\Next 
\If Z=0
\Then C+1\->C
N\->\List 1[C]
\IfEnd
\LpWhile C<6
\Locate 1,1,"\aster CHAVE:"
\For 1\->I \To 6
\Locate 4*I-12*(I>3),3+1*(I>3),\List 1[I]
\Next 
%End