+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
\ No newline at end of file