home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00293_Script_293 < prev    next >
Text File  |  1995-11-10  |  588b  |  24 lines
  1. on INITQUIZLIST2 
  2.   global DQlistSUB,a,zz,DQlist
  3.   put [] into DQlistSUB
  4.   ┼@put 1 into a
  5.   put "" into field "DQLIST2"
  6.   --DQlist╟¥╔C╔j╔V╔╔╔Γ╔C╔Y  
  7.   repeat while a < 21    
  8.     append DQlistSUB, a
  9.     put DQlistSUB into field "DQLIST"
  10.     put (a+1) into a
  11.   end repeat
  12.   
  13.   put[] into DQlist
  14.   repeat with n =20 down to 1
  15.     put random(n) into XX
  16.     put getaprop(DQlistSUB,XX) into XXX
  17.     --append DQlist,XXX
  18.     --put DQlist into  field "DQLIST2"
  19.     --    put XXX & "," AFTER field "DQLIST2"
  20.     Add DQlist,XXX
  21.     deleteprop DQlistSUB,XX
  22.   end repeat
  23.   
  24. end