Составить программу для расчета траектории движения целей - QBasic

Формулировка задачи:

Максимальное количество целей за все время в пространстве полусферы радиусом R с центром в станции слежения. в этой части программы к меня загвоздка\ при отладке сразу выкидывает сюда

Листинг программы

SCREEN

(ожидается: выражение)

                    Листинг программы
                
PSET (0 + shiftX, 0 + shiftY), 15 ' centr koordinat gor oloskosti

когда сделал так то отладка начала проходить по каждой строчке но ...

                    Листинг программы
                
SCREEN 
PSET (0 + shiftX, 0 + shiftY), 15 ' centr koordinat gor oloskosti  ...

в этой части ...

                    Листинг программы
                
OPEN "data.txt" FOR INPUT AS #1
i = 0 ...

не может найти файл хотя всё на месте\ если надо то могу скинуть весь

Решение задачи: «Составить программу для расчета траектории движения целей»

textual
                            Листинг программы 
                        
 
                            
                        
t = 6
maxdaln = 150001
FOR i = 0 TO t
    s(i) = 0
    FOR j = 0 TO N
    tx(i, j) = x(j) - (VgorX(j) * i)
    ty(i, j) = y(j) - (VgorY(j) * i)
    razdist(i, j) = SQR((x(j) - tx(i, j)) ^ 2 + (y(j) - ty(i, j)) ^ 2)
    IF (x(j) > 0 AND y(j) > 0) AND (VAL(kurs(j)) < 90 AND VAL(kurs(j)) > 0) THEN
    tdaln(j) = VAL(daln(j)) + razdist(i, j)
    ELSEIF (x(j) > 0 AND y(j) > 0 AND VAL(kurs(j)) > 90 OR VAL(kurs(j)) < 0) THEN
    tdaln(j) = VAL(daln(j)) - razdist(i, j)
    IF maxdaln > tdaln(j) THEN
    s(i) = s(i) + 1
    END IF
    END IF
    IF (x(j) > 0 AND y(j) < 0 AND VAL(kurs(j)) = 180) THEN
    tdaln(j) = VAL(daln(j)) + razdist(i, j)
    ELSEIF (x(j) > 0 AND y(j) < 0 AND (VAL(kurs(j)) > 180 OR 90 > VAL(kurs(j)))) THEN
    tdaln(j) = VAL(daln(j)) - razdist(i, j)
    IF maxdaln > tdaln(j) THEN
    s(i) = s(i) + 1
    END IF
    END IF
    IF x(j) < 0 AND y(j) < 0 AND 180 < VAL(kurs(j)) < 270 THEN
    tdaln(j) = VAL(daln(j)) + razdist(i, j)
    ELSEIF x(j) < 0 AND y(j) < 0 AND 180 > VAL(kurs(j)) > 270 THEN
    tdaln(j) = VAL(daln(j)) - razdist(i, j)
    IF maxdaln > tdaln(j) THEN
    s(i) = s(i) + 1
    END IF
    END IF
    IF x(j) < 0 AND y(j) > 0 AND 270 < VAL(kurs(j)) < 360 THEN
    tdaln(j) = VAL(daln(j)) + razdist(i, j)
    ELSEIF x(j) < 0 AND y(j) > 0 AND 270 > VAL(kurs(j)) > 360 THEN
    tdaln(j) = VAL(daln(j)) - razdist(i, j)
    IF maxdaln > tdaln(j) THEN
    s(i) = s(i) + 1
    END IF
    END IF
   
    IF s(i) > first THEN
    first = s(i)
    END IF
    NEXT
NEXT