![]() |
BCX Console Demonstration Program S40.bas |
DIM
ADIM
BDIM
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
BNEXT
A Fini!=
TIMER
Lapse!=
Fini!-
Start! ?" Ending Count "
, Fini! ?" ---------------------"
?" Elapsed Time: "
, Lapse!," Secs"
:COLOR
7
,0
:LOCATE
7
,1
,1
: ?