COPY TO moh111 NEXT &total>hi,
>USE moh11 >total = ALLTRIM(thisform.text1.text) >RAND(-1) >INDEX ON RAND() TO SYS(2023)+'\RANDOM' >COPY TO moh111 NEXT total >SET INDEX TO >ERASE SYS(2023)+'\RANDOM' >>thanks.
>>>USE moh11 >>>COPY TO newmoh111 NEXT (thisform.text1.value) >>>>>>thanks.
>>USE moh11 >>total = ALLTRIM(thisform.text1.text) >>RAND(-1) >>INDEX ON RAND() TO SYS(2023)+'\RANDOM' >>COPY TO \SELECTION NEXT &total >>SET INDEX TO >>ERASE SYS(2023)+'\RANDOM' >>