BCX Console Demonstration Program S40.bas

 DIM A
 DIM B
 DIM Lapse!
 DIM Start!
 DIM Fini!
 
 CLS : LOCATE 1, 1, 0 : COLOR 15, 1
 Start! = TIMER
 ? " Timing One Hundred Million Loops"
 ? " --------------------------------"
 COLOR 15, 4 : ? " Starting Count", Start!
 
 FOR A = 1 TO 100
   FOR B = 1 TO 1000000
   NEXT B
 NEXT A
 
 Fini! = TIMER
 Lapse! = Fini! - Start!
 ? " Ending Count ", Fini!
 ? " ---------------------"
 ? " Elapsed Time: ", Lapse!, " Secs" : COLOR 7, 0 : LOCATE 7, 1, 1 : ?