home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / struct-1.0.lha / Struct-1.0 / SpeedTests / Test3.amos / Test3.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-22  |  71 b   |  9 lines
  1. A=0
  2. For Z=1 To 6000000
  3. K=Z mod 2
  4. If K=0
  5. A=A+7
  6. Else 
  7. A=A+15
  8. End If 
  9. Next