%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:152
File Name:TOTOLO2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Seq(A,A,1,49,1)\->\List 1
\For 1\->N \To 100
\Int (\Ran#*49)+1\->A
\Int (\Ran#*49)+1\->B
\List 1[A]\->C
\List 1[B]\->\List 1[A]
C\->\List 1[B]
\Next 
\Locate 1,1,"\aster CHAVE:"
\For 1\->I \To 6
\Locate 4*I-12*(I>3),4+(I>3),\List 1[I]
\Next 
%End