home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / lang / struct / speedtests / test8.struct < prev   
Encoding:
Text File  |  1993-08-25  |  208 b   |  15 lines
  1. define procedure dendybar
  2. set startup dendybar
  3.  
  4. procedure dendybar
  5. local z:byte,a:word,b:long
  6. data register z,a
  7. address register b
  8. regload
  9. for a=1;20
  10. for b=1;500000
  11. bytepeek z=a+b+120
  12. next
  13. next
  14. end procedure
  15.