home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / BenchMarks / loops.b < prev    next >
Text File  |  2019-03-25  |  387b  |  46 lines
  1.  
  2. CONST x=400, y=150
  3.  
  4. deflng a-z
  5. SINGLE t0,t1
  6.  
  7. FOR n=1 to 5
  8.  
  9. t0=timer
  10. for i=1 to x
  11.   for j=1 to y
  12.   next
  13. next
  14. t1=timer
  15.  
  16. print "FOR:";t1-t0;"seconds."
  17.  
  18. t0=timer
  19. i=1
  20. while i<=x
  21.   j=1
  22.   while j<=y
  23.     ++j
  24.   wend
  25.   ++i
  26. wend
  27. t1=timer
  28.  
  29. print "WHILE:"t1-t0;"seconds."
  30.  
  31. t0=timer
  32. i=1
  33. repeat
  34.   j=1
  35.   repeat 
  36.     ++j
  37.   until j>y
  38.   ++i
  39. until i>x
  40. t1=timer
  41.  
  42. print "REPEAT:"t1-t0;"seconds."
  43.  
  44. PRINT
  45. NEXT
  46.