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

INPUT "POCET MINUT" ;M\r
FOR I = 1 TO M STEP 1\r
PRINT "MINUTA " I\r
WAIT(600)\r
C=M-I\r
PRINT "ZBYVA " C " MINUT"\r
NEXT I\r
FOR J = 1 TO 15 STEP 1\r
SOUND RND*200+11,12\r
WAIT(15)\r
NEXT J\r
END\1a
Commit	Line	Data
	1	INPUT "POCET MINUT" ;M\r
	2	FOR I = 1 TO M STEP 1\r
	3	PRINT "MINUTA " I\r
	4	WAIT(600)\r
	5	C=M-I\r
	6	PRINT "ZBYVA " C " MINUT"\r
	7	NEXT I\r
	8	FOR J = 1 TO 15 STEP 1\r
	9	SOUND RND*200+11,12\r
	10	WAIT(15)\r
	11	NEXT J\r
	12	END\1a