Timer by Alex Libby20th Dec 2009 13:21
|
---|
Summary A second's timer, this does include a wav file. Description run in Windowed (215x50) Code ` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com rem setup. load sound "time.wav",1 set text font "Ariel" set text size 50 rem geting input. do input "Sec: ",Time cls text 0,0,str$(Time) rem counting down. if Time>0 while 0<Time sleep 1000 cls Time=Time-1 text 0,0,str$(Time) endwhile endif rem ending app. if Time=0 cls text 0,0,"Times Up!" play sound 1 wait key endif cls loop |