[net.micro] IBM PC benchmark: program

hes (05/14/82)

  I have had several requests for the details of my becnhmark.
This is the matrix program I used.  I left out blank spaces
between the line numbers and statements, etc., which are put
in here for readability.
10 DIM A(10,10), B(10,10), C(10,10)
20 FOR I = 1 TO 10
30 FOR J = 1 TO 10
40 A(I,J) = 1./3.
50 B(I,J) = 1./7.
60 NEXT
70 NEXT
80 FOR I = 1 TO 10
90 FOR J = 1 TO 10
100 FOR K = 1 TO 10
110 C(I,J) = C(I,J) + A(I,K)*B(K,J)
120 NEXT
130 NEXT
140 NEXT
150 PRINT C(1,1)
The last statement signals the completion of the program and
by printing out a value of approx .476l9 indicates that the
program ran more or less in the manner hoped for.
--henry schaffer