[mirrors/Programs.git] / turbobasic / 1998 / KALKUL-S.BAS

S1=0\r
S2=0\r
V=0\r
CLS\r
                     FOR O=1 TO 20\r
COLOR 0,15\r
SCREEN 0\r
LOCATE 2,2\r
                                      INPUT " SČÍTANEC= " ;S1\r
LOCATE 23,23\r
                                      INPUT "      " ;K$\r
IF K$="X" THEN GOTO KONEC\r
LOCATE 3,2\r
 PRINT " + "\r
LOCATE 4,2\r
                                      INPUT " SČÍTANEC= " ;S2\r
LOCATE 5,2\r
 PRINT " = "\r
V=S1+S2\r
LOCATE 6,2\r
PRINT V\r
                     NEXT O\r
GOTO KONEC\r
KONEC:\r
END\1a
Commit	Line	Data
0f95cc4b H	1	S1=0\r
	2	S2=0\r
	3	V=0\r
	4	CLS\r
	5	FOR O=1 TO 20\r
	6	COLOR 0,15\r
	7	SCREEN 0\r
	8	LOCATE 2,2\r
6c1eebfd	9	INPUT " SČÍTANEC= " ;S1\r
0f95cc4b H	10	LOCATE 23,23\r
	11	INPUT " " ;K$\r
	12	IF K$="X" THEN GOTO KONEC\r
	13	LOCATE 3,2\r
	14	PRINT " + "\r
	15	LOCATE 4,2\r
6c1eebfd	16	INPUT " SČÍTANEC= " ;S2\r
0f95cc4b H	17	LOCATE 5,2\r
	18	PRINT " = "\r
	19	V=S1+S2\r
	20	LOCATE 6,2\r
	21	PRINT V\r
	22	NEXT O\r
	23	GOTO KONEC\r
	24	KONEC:\r
	25	END\1a