home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 04145.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  189 b   |  10 lines
  1. on dnum
  2.   set cnum to 4146
  3.   repeat with index = 1 to 19
  4.     repeat with y = 1 to index
  5.       put y & "/" & index into field cnum
  6.       set cnum to cnum + 1
  7.     end repeat
  8.   end repeat
  9. end
  10.