Benchmark Test #1

Code for TI-99 and TI CC-40

20 FOR N=1 TO 100
25 A=N
30 FOR I=1 TO 10
35 A=SQR(A)
40 R=R+RND
50 NEXT I
60 FOR I=1 TO 10
65 A=A^2
70 R=R+RND
80 NEXT I
90 S=S+A
95 NEXT N
100 PRINT ABS(1010-S/5)
110 PRINT ABS(1000-R)


Code for TI-81,TI-82,TI-83,TI-83 plus,TI-84 Plus,TI-85,TI-86
Does not run on TI89/TI92 series

:For n,1,100,1
:n->a
:For i,1,10,1
:sqr(a)->a
:r+rand(1)->r
:end
:For i,1,10,1
:a^2->a
:r+rand(1)->r
:end
:s+a->s
:end
:Disp ABS(1010-S/5)
:Disp ABS(100-r)


Benchmark #2

10 TEST=.1234567891123456789
20 PRINT TEST
RUN
LIST


Benchmark Test #3 Nesting.

10 FOR A=1 TO 5
20 FOR B=1 TO 5
30 For C=1 TO 5
40 PRINT A:B:C
50 NEXT C
60 NEXT B
70 NEXt A
100 PRINT "DONE"

:For A,1,5,1
:For B,1,5,1
:For C,1,5,1
:Disp A,B,C
:End
:End
:End
:Disp "DONE"