10 REM 'TI' TEST PROGRAM
15 DEF TI=TIME
20 A=TI
30 REM FOR X=1 TO 2000
35 SLEEP 3
40 REM NEXT X
50 B=TI
60 IF B > A THEN 90
70 PRINT "THE 'TI' FUNCTION FAILED THE TEST"
80 GOTO 99
90 PRINT "'TI' PASSED -- ELAPSED TIME=";B-A
99 END
