home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / struct-1.0.lha / Struct-1.0 / SpeedTests / Test2.struct < prev    next >
Encoding:
Text File  |  1993-08-22  |  193 b   |  17 lines
  1. define procedure dendybar
  2. set startup dendybar
  3.  
  4. procedure dendybar
  5. local z:long,a:long,y:long
  6. data register z,a,y
  7. regload
  8. a=0
  9. y=2000
  10. zeroloop y
  11. z=20000
  12. zeroloop z
  13. a=a+7
  14. zend
  15. zend
  16. end procedure
  17.