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

LET N = 5\r
LET G = 10\r
LET NALEZ = 0\r
LET I = 0\r
LET A = INT(G * RND)\r
LET B = INT(G * RND)\r
OLAL:\r
\r
IF NOT ( NALEZ = 0 AND I <= 5) THEN GOTO FEDO\r
INPUT "X,Y" ;X,Y\r
IF ABS (X-A)+ABS(Y-B)=0 THEN GOTO FEDOS\r
GOSUB FEDOE\r
GOTO OLA\r
FEDOS:\r
PRINT "ZVIRE NALEZENO:";A,B\r
LET NALEZ = 1\r
OLA :\r
LET I = I+1\r
GOTO OLAL\r
END\r
FEDOE:\r
PRINT "JDI NA ";\r
IF X < A\r
IF X > A\r
IF X <> A\r
IF\r
IF\r
RETURN\r
\1a
Commit	Line	Data
0f95cc4b H	1	LET N = 5\r
	2	LET G = 10\r
	3	LET NALEZ = 0\r
	4	LET I = 0\r
	5	LET A = INT(G * RND)\r
	6	LET B = INT(G * RND)\r
	7	OLAL:\r
	8	\r
	9	IF NOT ( NALEZ = 0 AND I <= 5) THEN GOTO FEDO\r
	10	INPUT "X,Y" ;X,Y\r
	11	IF ABS (X-A)+ABS(Y-B)=0 THEN GOTO FEDOS\r
	12	GOSUB FEDOE\r
	13	GOTO OLA\r
	14	FEDOS:\r
	15	PRINT "ZVIRE NALEZENO:";A,B\r
	16	LET NALEZ = 1\r
	17	OLA :\r
	18	LET I = I+1\r
	19	GOTO OLAL\r
	20	END\r
	21	FEDOE:\r
	22	PRINT "JDI NA ";\r
	23	IF X < A\r
	24	IF X > A\r
	25	IF X <> A\r
	26	IF\r
	27	IF\r
	28	RETURN\r
	29	\1a