Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

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

diff --git a/turbobasic/LOVEC.BAS b/turbobasic/LOVEC.BAS
new file mode 100755 (executable)
index 0000000..1c16671
--- /dev/null
+++ b/turbobasic/LOVEC.BAS
@@ -0,0 +1,29 @@
+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