помогите пожалуйста решение задачи перевести с ПАСКАЛЯ на Basic. картинка решения внутри.

DIM i AS INTEGER, j AS INTEGER, a AS INTEGER
DIM b AS INTEGER, c AS INTEGER, d AS INTEGER
DIM s AS INTEGER, t AS INTEGER, u AS INTEGER
CLS
INPUT "write u ", u
DO
INPUT "write t ", t
INPUT "write s ", s
LOOP UNTIL t 0 OR s 0
DO
INPUT "write a,b ", a, b
INPUT "write c,d ", c, d
i = s * a + t * b + u
j = s * c + t * d + u
LOOP UNTIL i 0 OR j 0
IF i > 0 AND j > 0 OR i < 0 AND j < 0 THEN
PRINT "В одной полуплоскости"
ELSE
PRINT "В разных полуплоскостях"
END IF
DO WHILE INKEY$ = ""
LOOP
END