[mirrors/Programs.git] / turbobasic / BINGO2.BAS

START:\r
SCREEN 0\r
CLS\r
COLOR 4,15\r
B=INT(RND*(4)*10+1)\r
LOCATE 5,5\r
PRINT B\r
REM LOCATE 6,6\r
REM INPUT " STISKNI ENTER "    ;A$\r
END\1a
Commit	Line	Data
0f95cc4b H	1	START:\r
	2	SCREEN 0\r
	3	CLS\r
	4	COLOR 4,15\r
	5	B=INT(RND(4)10+1)\r
	6	LOCATE 5,5\r
	7	PRINT B\r
	8	REM LOCATE 6,6\r
	9	REM INPUT " STISKNI ENTER " ;A$\r
	10	END\1a