                         BENCHMARKS
                         ----------



------------------------------------------------------------
1. Empty Loop 1 .. 10000

RPL (Amstrad PC 1512):          12.25 sec.
RPL (DECstation 3100):           0.08 sec.

<< TIME
   1 10000 FOR i NEXT
   TIME - NEG
>>



HP28C:                          81.95 sec.

<< # 123E SYSEVAL
   1 10000 START NEXT
   # 123E SYSEVAL
   SWAP - B->R 8192 /
>>



GWBASIC (Amstrad PC 1512):       5.35 sec.

10 PRINT TIME$
20 FOR i = 1 TO 10000
30 NEXT i
40 PRINT TIME$


------------------------------------------------------------
2. Fibonacci - Number

RPL (Amstrad PC 1512):          15.71 sec.
RPL (DECstation 3100):           0.40 sec.

<<
    IF DUP 2 >
    THEN
        DUP 1 - FIB SW
    ELSE
        DROP 1
    ENDIF
>> 'FIB' STO

<< TIME
   15 FIB DROP
   TIME - NEG
>>



HP28C:                          43.376 sec.

<<
    IF DUP 2 >
    THEN
        DUP 1 - FIB SWAP 2 - FIB +
    ELSE
        DROP 1
    ENDIF
>> 'FIB' STO

 << # 123E SYSEVAL
    15 FIB DROP
    # 123E SYSEVAL
    SWAP - B->R 8192 /
 >>



GWBasic (Amstrad PC1512):       23.15 sec.

10      PRINT TIME$
20      DIM STACK (30)
30      SP = 0
40      STACK (SP) = 15: SP = SP + 1
50      GOSUB 1000
55      PRINT STACK (SP - 1)
60      PRINT TIME$
900     END
1000    '       PRINT "fib("; STACK (SP - 1); ")", "[sp = "; SP; "]"
1005    IF STACK (SP - 1) > 2 THEN 1010 ELSE 1060
1010            STACK (SP) = STACK (SP - 1): SP = SP + 1
1020            STACK (SP - 1) = STACK (SP - 1) - 1: GOSUB 1000
1030            H = STACK (SP - 1): STACK (SP - 1) = STACK (SP - 2): STACK (SP - 2) = H
1040            STACK (SP - 1) = STACK (SP - 1) - 2: GOSUB 1000
1045            STACK (SP - 2) = STACK (SP - 2) + STACK (SP - 1): SP = SP - 1
1050            GOTO  1080
1060    'else
1070            STACK (SP - 1) = 1
1080    'endif
1085    '       PRINT "="; STACK (SP - 1), "[sp = "; SP; "]"
1090    RETURN
