home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / struct-1.0.lha / Struct-1.0 / SpeedTests / Test7.ace < prev    next >
Encoding:
Text File  |  1993-08-22  |  85 b   |  10 lines
  1. a&=0
  2. b&=0
  3. for z&=1 to 8000000
  4. if 300-97+b&>300-97+a& then
  5. ++a&
  6. else
  7. ++b&
  8. end if
  9. next
  10.