home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / brokcode.zip / JM4-1.CLA < prev    next >
Text File  |  1992-02-03  |  873b  |  46 lines
  1.  
  2.  PROGRAM
  3.  
  4. end_time     LONG
  5. start_time   LONG
  6. loop_time    LONG
  7. diff_time    LONG
  8. byte_time    LONG
  9. byte1        BYTE
  10. real1        REAL
  11.  
  12.              CODE
  13.  
  14.  SETHUE(7,0)
  15.  BLANK
  16.  
  17.  start_time = CLOCK()
  18.  LOOP 10000 TIMES
  19.  END
  20.  end_time = CLOCK()
  21.  loop_time = end_time - start_time
  22.  SHOW( 3, 1, 'loop:' & loop_time)
  23.  
  24.  start_time = CLOCK()
  25.  LOOP 10000 TIMES
  26.    IF byte1 = 1; END
  27.  END
  28.  end_time = CLOCK()
  29.  diff_time = end_time - start_time
  30.  byte_time = diff_time - loop_time
  31.  SHOW( 15, 1, 'IF byte1:' & diff_time & ' ' & diff_time - loop_time )
  32.  
  33.  start_time = CLOCK()
  34.  LOOP 10000 TIMES
  35.    IF real1 = 1; END
  36.  END
  37.  end_time = CLOCK()
  38.  diff_time = end_time - start_time
  39.  SHOW( 5, 1, 'IF real1:' & diff_time & ' ' & diff_time - loop_time & ' '   |
  40.   & FORMAT((diff_time - byte_time - loop_time) / byte_time, @N6.2))
  41.  
  42.  BEEP
  43.  ASK
  44.  RETURN
  45.  
  46.