home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
LANGUAGES
/
OB68_116.LZH
/
bench7
< prev
next >
Wrap
Text File
|
1996-05-07
|
108b
|
9 lines
PROCEDURE bench7
DIM a:BYTE
DIM i:INTEGER
SHELL "date"
FOR i=1 TO 1000000
a=LAND($55,a)
NEXT i
SHELL "date"