%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:244 File Name:PARFAITS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}\->\List 1 \ClrText "NOMBRE "?\->N \ClrText \For 1\->A \To N-1 \If \Frac (N/A)=0 \Then A\->P \Isz L A\->\List 1[L] P+R\->R \IfEnd \Next \Locate 11,2,N R=N\=>\Locate 10,4,"EST" R\<>N\ Or N=0\=>\Locate 7,4,"N'EST PAS" \Locate 3,6,"UN NOMBRE PARFAIT" %End