home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / lang / struct / speedtests / test5.struct < prev    next >
Encoding:
Text File  |  1993-08-22  |  169 b   |  15 lines
  1. define procedure dendybar
  2. set startup dendybar
  3.  
  4. procedure dendybar
  5. local z:long,a:long
  6. data register z,a
  7. regload
  8. a=0
  9. z=0
  10. while z<16000000
  11. a=a+7
  12. z=z+1
  13. wend
  14. end procedure
  15.