X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;ds=sidebyside;f=turbobasic%2FLOVEC.BAS;fp=turbobasic%2FLOVEC.BAS;h=1c166716d684b258e1a3926644d97682184c8df6;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

diff --git a/turbobasic/LOVEC.BAS b/turbobasic/LOVEC.BAS
new file mode 100755
index 0000000..1c16671
--- /dev/null
+++ b/turbobasic/LOVEC.BAS
@@ -0,0 +1,29 @@
+LET N = 5
+LET G = 10
+LET NALEZ = 0
+LET I = 0
+LET A = INT(G * RND)
+LET B = INT(G * RND)
+OLAL:
+
+IF NOT ( NALEZ = 0 AND I <= 5) THEN GOTO FEDO
+INPUT "X,Y" ;X,Y
+IF ABS (X-A)+ABS(Y-B)=0 THEN GOTO FEDOS
+GOSUB FEDOE
+GOTO OLA
+FEDOS:
+PRINT "ZVIRE NALEZENO:";A,B
+LET NALEZ = 1
+OLA :
+LET I = I+1
+GOTO OLAL
+END
+FEDOE:
+PRINT "JDI NA ";
+IF X < A
+IF X > A
+IF X <> A
+IF
+IF
+RETURN
+
\ No newline at end of file