CLS
 OPEN "input.txt" FOR INPUT AS #1
 INPUT #1, x1, y1, x2, y2, n
 FOR n = 1 TO n
INPUT #1, x, y, r
FOR s = -10000 TO 10000
 yf = ((y2 - y1) / (x2 - x1)) * s
 c = s ^ 2 - 2 * s * x + x ^ 2 + y ^ 2 - r ^ 2
 d = (-2 * y) ^ 2 - 4 * c
IF d > 0 THEN ys1 = ((2 * y) - SQR(d)) / 2: ys2 = ((2 * y) + SQR(d)) / 2

IF ys1 = yf OR ys2 = yf THEN t = t + 1: GOTO 100
 IF yf > ys1 OR ys2 < yf THEN p = p + 1
 IF yf < ys1 OR ys2 > yf THEN o = o + 1
100 NEXT s
 NEXT n
CLOSE
  PRINT t, p, o
 PRINT c, d, ys1, ys2
SYSTEM