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

CLS\r
SCREEN 1\r
COLOR 14,1\r
LOCATE 2,2\r
INPUT " JAK JSE JMENUJETE " ;A$\r
CLS\r
LOCATE 2,2\r
PRINT " VíTáM UžIVATELE JMéNEM "\r
LOCATE 3,2\r
PRINT A$\r
SOUND 100+12,80\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	SCREEN 1\r
	3	COLOR 14,1\r
	4	LOCATE 2,2\r
	5	INPUT " JAK JSE JMENUJETE " ;A$\r
	6	CLS\r
	7	LOCATE 2,2\r
6c1eebfd	8	PRINT " VíTáM UžIVATELE JMéNEM "\r
0f95cc4b H	9	LOCATE 3,2\r
	10	PRINT A$\r
	11	SOUND 100+12,80\r
	12	END\1a