turbobasic/1998/LOVEC.BAS

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