home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / time_capsule / thankyou.dcr / 00001.ls next >
Encoding:
Text File  |  2017-09-21  |  286 b   |  18 lines
  1. on exitFrame
  2.   global pick, n, rep
  3.   if rep < 4 then
  4.     set rep to rep + 1
  5.     set i to "F" & random(10)
  6.     if i = n then
  7.       set i to "F" & random(10)
  8.     else
  9.       set n to i
  10.       go(n)
  11.     end if
  12.     put n & RETURN after pick
  13.   else
  14.     set rep to 0
  15.     go("END")
  16.   end if
  17. end
  18.