//โปรแกรมสุ่มตัวเลข 100 ตัวไม่ให้ซ้ำ
arnum = array(100)
for i = 1 to 100
   rnd = mod(second() * 100,100)+1
   if ascan(arnum,rnd) = 0
   arnum[i] = rnd
   else
   i--
   endif
next
for i = 1 to 100
   ? arnum[i]
next