0 Members and 1 Guest are viewing this topic.
Graphics 640,480,16,2SetBuffer BackBuffer()Time=MilliSecs()RepeatText 0,0,timeUntil MilliSecs() < Time + 20000 ; 20 seconds
Graphics 640,480,16,2SetBuffer BackBuffer()Time=MilliSecs()RepeatText 0,0,MilliSecs()-timeFlipClsUntil (MilliSecs() - Time) >= 20000 ; 20 seconds
Graphics 640,480,16,2SetBuffer BackBuffer()Time=MilliSecs()RepeatText 0,0,timeUntil MilliSecs() > Time + 20000 ; 20 seconds
;----------------; Open Screen;;---------------- Graphics 640,480,16,2 SetBuffer BackBuffer() Global Time=MilliSecs();----------------; Main Loop Repeats until 20 seconds is over or escape pressed.;----------------Repeat clock() Flip Cls Until (MilliSecs() - Time) >= 20000 Or KeyDown(1);----------------; Display How Many Seconds Have Passed.;----------------Function clock()elapsed = (MilliSecs()-time) /1000Text 0,0,elapsedEnd Function