CLS

'INPUT "", n$
'"данные берутся из input.txt и ответ записывается в output.txt"
'OPEN "input.txt" FOR OUTPUT AS #1
'PRINT #1, ""
'PRINT #1, ""
'PRINT #1, ""
'CLOSE #1


OPEN "input.txt" FOR INPUT AS #1
'WHILE NOT EOF(1)
INPUT #1, dtt$
n$ = dtt$
'WEND
CLOSE #1
b$ = ""
FOR e = 1 TO LEN(n$)
b$ = MID$(n$, e, 1) + b$
NEXT e
n1 = 1000: REDIM n$(n1): REDIM n(1000): w = 1
FOR e = 1 TO LEN(b$)
IF MID$(b$, e, 1) <> " " THEN n$(w) = n$(w) + MID$(b$, e, 1) ELSE w = w + 1
NEXT e
FOR e = 1 TO w
FOR i = 1 TO LEN(n$(e))
FOR r = 48 TO 57
IF MID$(n$(e), i, 1) = CHR$(r) THEN n(e) = n(e) + (r - 48) * 10 ^ (i - 1)
NEXT r
NEXT i
NEXT e
'INPUT "", n$
OPEN "input.txt" FOR INPUT AS #1
'WHILE NOT EOF(1)
FOR fg = 1 TO 2
INPUT #1, dtt$
NEXT fg
n$ = dtt$
'WEND
CLOSE #1

b$ = ""
FOR e = 1 TO LEN(n$)
b$ = MID$(n$, e, 1) + b$
NEXT e
n1 = 1000: REDIM cord$(n1): REDIM n1(1000): w = 1
FOR e = 1 TO LEN(b$)
IF MID$(b$, e, 1) <> " " THEN cord$(w) = cord$(w) + MID$(b$, e, 1) ELSE w = w + 1
NEXT e
FOR e = 1 TO w
FOR i = 1 TO LEN(cord$(e))
FOR r = 48 TO 57
IF MID$(cord$(e), i, 1) = CHR$(r) THEN n1(e) = n1(e) + (r - 48) * 10 ^ (i - 1)
NEXT r
NEXT i
NEXT e
'INPUT "", n$
OPEN "input.txt" FOR INPUT AS #1
'WHILE NOT EOF(1)
FOR fg = 1 TO 3
INPUT #1, dtt$
NEXT fg
n$ = dtt$
'WEND
CLOSE #1

b$ = ""
FOR e = 1 TO LEN(n$)
b$ = MID$(n$, e, 1) + b$
NEXT e
n1 = 1000: REDIM cor2$(n1): REDIM n2(1000): w = 1
FOR e = 1 TO LEN(b$)
IF MID$(b$, e, 1) <> " " THEN cor2$(w) = cor2$(w) + MID$(b$, e, 1) ELSE w = w + 1
NEXT e
FOR e = 1 TO w
FOR i = 1 TO LEN(cor2$(e))
FOR r = 48 TO 57
IF MID$(cor2$(e), i, 1) = CHR$(r) THEN n2(e) = n2(e) + (r - 48) * 10 ^ (i - 1)
NEXT r
NEXT i
NEXT e
OPEN "h:\input.txt" FOR OUTPUT AS #1
PRINT #1, n(2), " ", n1(1)
CLOSE #1
deltax1 = (n1(4) - n1(6)) / (n1(1) - n1(2)): deltax2 = (n2(4) - n2(6)) / (n2(1) - n2(2))
deltay1 = (n1(3) - n1(5)) / (n1(1) - n1(2)): deltay2 = (n2(3) - n2(5)) / (n2(1) - n2(2))
sigma = n(1): tm1 = n1(1) - n1(2): tm2 = n2(1) - n2(2)
IF tm2 >= tm1 THEN tmsr = tm2 ELSE tmsr = tm1
IF n1(2) <= n2(2) THEN trw = n1(2) ELSE trw = n2(2)
x11 = n1(6): x12 = n1(4): y11 = n1(5): y12 = n1(3)
x21 = n2(6): x22 = n2(4): y21 = n2(5): y22 = n2(3)
PRINT
FOR e = 1 TO tmsr
x11 = x11 + deltax1: y11 = y11 + deltay1
x21 = x21 + deltax2: y21 = y21 + deltay2
IF x11 = x21 AND y11 = y21 THEN GOTO 1.1
IF x11 = x21 + n(1) AND y11 = y21 THEN GOTO 1.1
IF x11 = x21 AND y11 = y21 + n(1) THEN GOTO 1.1
IF x11 = x21 - n(1) AND y11 = y21 THEN GOTO 1.1
IF x11 = x21 AND y11 = y21 - n(1) THEN GOTO 1.1
NEXT e
OPEN "h:\output.txt" FOR OUTPUT AS #1
PRINT #1, "-1"
CLOSE #1
GOTO 1.2
1.1
OPEN "h:\output.txt" FOR OUTPUT AS #1
PRINT #1, e * 2
CLOSE #1
GOTO 1.2
1.2
OPEN "h:\output.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, d
PRINT d
WEND
CLOSE #1
SYSTEM