home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
brokcode.zip
/
JM4-1.CLA
< prev
next >
Wrap
Text File
|
1992-02-03
|
873b
|
46 lines
PROGRAM
end_time LONG
start_time LONG
loop_time LONG
diff_time LONG
byte_time LONG
byte1 BYTE
real1 REAL
CODE
SETHUE(7,0)
BLANK
start_time = CLOCK()
LOOP 10000 TIMES
END
end_time = CLOCK()
loop_time = end_time - start_time
SHOW( 3, 1, 'loop:' & loop_time)
start_time = CLOCK()
LOOP 10000 TIMES
IF byte1 = 1; END
END
end_time = CLOCK()
diff_time = end_time - start_time
byte_time = diff_time - loop_time
SHOW( 15, 1, 'IF byte1:' & diff_time & ' ' & diff_time - loop_time )
start_time = CLOCK()
LOOP 10000 TIMES
IF real1 = 1; END
END
end_time = CLOCK()
diff_time = end_time - start_time
SHOW( 5, 1, 'IF real1:' & diff_time & ' ' & diff_time - loop_time & ' ' |
& FORMAT((diff_time - byte_time - loop_time) / byte_time, @N6.2))
BEEP
ASK
RETURN