CLEAR


OPEN "INPUT.TXT" FOR INPUT AS #1
OPEN "OUTPUT.TXT" FOR OUTPUT AS #2





INPUT #1, N
INPUT #1, Q

DIM X1(N)
DIM X2(N)
DIM Y1(N)
DIM Y2(N)
DIM T1(N)
DIM T2(N)

FOR I = 1 TO N
INPUT #1, X11, Y11, X12, Y12, T11, T12
X1(I) = X11
X2(I) = X12
Y1(I) = Y11
Y2(I) = Y12
T1(I) = T11
T2(I) = T12
NEXT I

GOTO 3
'---------------------------------------------SORTIROVKA
T1MIN = -1
T2MIN = -1
X1MIN = -1
X2MIN = -1
Y1MIN = -1
Y2MIN = -1

FOR I = 1 TO N
FOR J = I + 1 TO N

IF T1MIN > T1(J) THEN T1MIN = T1(J)
IF T2MIN > T2(J) THEN T2MIN = T2(J)
IF X2MIN > X2(J) THEN X2MIN = X2(J)
IF Y2MIN > Y2(J) THEN Y2MIN = Y2(J)
IF X1MIN > X1(J) THEN X1MIN = X1(J)
IF Y1MIN > Y1(J) THEN Y1MIN = Y1(J)

T1(J) = T1(I): T1(I) = T1MIN
X1(J) = X1(I): X1(I) = X1MIN
Y1(J) = Y1(I): Y1(I) = Y1MIN
T2(J) = T2(I): T2(I) = T2MIN
X2(J) = X2(I): X2(I) = X2MIN
Y2(J) = Y2(I): Y2(I) = X2MIN

NEXT J
NEXT I
'---------------------------------------------
3
FOR I = 1 TO N
FOR J = I + 1 TO N
                                    '------------------PROVERKA VREMENY
TB = 0
IF T1(I) < T1(J) THEN
  IF T2(I) > T1(J) THEN
    IF T2(I) < T2(J) THEN
      TB = T1(J): TE = T2(I)
    ELSE
      TB = T1(J): TE = T2(J)
    END IF
  END IF
ELSE
  IF T2(J) > T1(I) THEN
    IF T2(J) < T2(I) THEN
      TB = T1(I): TE = T2(J)
    ELSE
      TB = T1(I): TE = T2(I)
    END IF
  END IF
END IF
                                   
IF TB <> 0 THEN
                                   '-------------------PROVERKA PO X
  VXI = X1(I) - X2(I) / T2(I) - T1(I)
  VXJ = X1(J) - X2(J) / T2(J) - T1(J)
  X1I = (TB - T1(I)) * VXI + X1(I)
  X2I = (TE - T1(I)) * VXI + X1(I)
  X1J = (TB - T1(J)) * VXJ + X1(J)
  X2J = (TE - T1(J)) * VXJ + X1(J)

  IF X1I > X2I THEN XMI = X1I ELSE XMI = X2I
  IF X1J > X2J THEN XMJ = X1J ELSE XMJ = X2J
  IF X1I < X2I THEN XLI = X1I ELSE XLI = X2I
  IF X1J < X2J THEN XLJ = X1J ELSE XLJ = X2J
 
  IF XMI > XLJ AND XLI < XMJ THEN

    IF XLI < XLJ THEN XB = XLJ ELSE XB = XLI
    IF XMI > XMJ THEN XE = XMJ ELSE XE = XMI
   
    IF VXI <> VXJ THEN T = (S - Q) / (VXI + VXJ)

'-------------------PROVERKA PO Y
  VYI = Y1(I) - Y2(I) / T2(I) - T1(I)
  VYJ = Y1(J) - Y2(J) / T2(J) - T1(J)
  IF (VYI * (T - T1(I))) + Y1(I) - (VYJ * (T - T1(J))) + Y1(J) < Q THEN PRINT #2, FIX(T)
 
 
 

 
 
 
 
 
 
 
 
  END IF
END IF
   
NEXT J
NEXT I








CLOSE #1, #2
SYSTEM