[mirrors/Programs.git] / turbobasic / 1998 / BUDIK.BAS

INPUT "POCET MINUT" ;M
FOR I = 1 TO M STEP 1
PRINT "MINUTA " I
WAIT(600)
C=M-I
PRINT "ZBYVA " C " MINUT"
NEXT I
FOR J = 1 TO 15 STEP 1
SOUND RND*200+11,12
WAIT(15)
NEXT J
END\1a