home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DIVERSEN
/
TIPI2A
/
BENCH.TPI
< prev
next >
Wrap
Text File
|
1994-10-02
|
463b
|
25 lines
# BENCH.TPI by Kent Peterson 10/2/94
cls
| This program gives a simple benchmark indicating how fast
| a given computer will run a TIPI program. The higher the
| number, the faster the computer.
|
defstr t$
"Calculating performance..." print$
time$ t$ store
begin
time$ t$ fetch =$ not
until
time$ t$ store
0
begin
1 + time$ t$ fetch =$ not
until
row 0 locate
"TIPI performance index is " print$
print cr
begin
inkey$ len drop$
until