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

CLS\r
A=0\r
M=1000000\r
START:\r
A=A+1\r
\r
COLOR 14,1\r
SCREEN 0\r
LOCATE 2,2\r
PRINT "LOSUJI"\r
B$=INKEY$\r
IF A>M THEN KONEC\r
IF LEN(B$)=0 THEN GOTO START\r
IF B$<>"0" THEN GOTO KONEC\r
\r
KONEC:\r
IF A>M THEN PRINT"LOSOVANI JE NEPLATNE !"\r
PRINT "VYLOSOVANE CISLO JE" A\r
INPUT;f\r
FOR I=0 TO 2000\r
NEXT I\r
STOP\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	A=0\r
	3	M=1000000\r
	4	START:\r
	5	A=A+1\r
	6	\r
	7	COLOR 14,1\r
	8	SCREEN 0\r
	9	LOCATE 2,2\r
	10	PRINT "LOSUJI"\r
	11	B$=INKEY$\r
	12	IF A>M THEN KONEC\r
	13	IF LEN(B$)=0 THEN GOTO START\r
	14	IF B$<>"0" THEN GOTO KONEC\r
	15	\r
	16	KONEC:\r
	17	IF A>M THEN PRINT"LOSOVANI JE NEPLATNE !"\r
	18	PRINT "VYLOSOVANE CISLO JE" A\r
	19	INPUT;f\r
	20	FOR I=0 TO 2000\r
	21	NEXT I\r
	22	STOP\r
	23	END\1a