Hmmmmm......
DEFINT I
DEFDBL A
PRINT "Savage Transcendental Speed and Accuracy Test"
PRINT "A should equal *exactly* 25000.0000000000"
TIM = TIMER: A = 1#
FOR I = 1 TO 24999
   A = TAN(ATN(EXP(LOG(SQR(A * A))))) + 1#
NEXT
T1 = TIMER - TIM
PRINT "Executed in "; T1; "Seconds, A = "; A
Powerbasic:
Savage Transcendental Speed and Accuracy Test
A should equal *exactly* 25000.0000000000
Executed in  2.25189 Seconds, A =  25000.0000000017
Qbasic:
Savage Transcendental Speed and Accuracy Test
A should equal *exactly* 25000.0000000000
Executed in  87.76953 Seconds, A =  25000.00000000173
--- Msgedsq 2.2e
---------------