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.amos / Test7.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-22  |  78 b   |  9 lines
  1. A=0
  2. B=0
  3. For Z=1 To 8000000
  4. If 300-97+B>300-97+A
  5. Inc A
  6. Else 
  7. Inc B
  8. End If 
  9. Next