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

CLS\r
SCREEN 9\r
COLOR 3,15\r
LOCATE 2,2\r
INPUT " PŘíKLAD (BEZ*=*) " ;A\r
CLS\r
LOCATE 2,2\r
PRINT " = " A\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	SCREEN 9\r
	3	COLOR 3,15\r
	4	LOCATE 2,2\r
6c1eebfd	5	INPUT " PŘíKLAD (BEZ=) " ;A\r
0f95cc4b H	6	CLS\r
	7	LOCATE 2,2\r
	8	PRINT " = " A\r
	9	END\1a