розташування об'єкта Sputnik в радіанах і величини зміни кута da1 при переміщенні об'єкта Sputnik за 1 цикл
vx=5: vy=0
початкове значення компонент вектора швидкості об'єкта Sputnik
do $=u10 m +59,10 m - 50,10 u10 br5
макет малюнка об'єкта Sputnik
r=100
константа для обчислення контрольної точки контакту об'єктів
sr=0
прапор, що приймає значення 1 при наявності контакту DO
початок циклу руху об'єктів
t=t + dt
лічильник часу
i=i + 1
лічильник циклу
angl=da1 * i
розрахунок кута повороту об'єкта Sputnik
x1=- 600 * sin (ang1)=600 * cos (ang1)
розрахунок нових координат об'єкту Sputnik
vy=5 * sin (ang1)
vx=- 5 * cos (ang1)
розрахунок поточних значень вектора швидкості об'єкта Sputnik
CALL comm (x1, y1, t, dt, i, vx, vy, ang1 $)
розрахунок координат об'єкту Sputnik
CALL comm (vs, da, v, ar, com $)
визначення команди на переміщення об'єкта Raketa (змінної com $ присвоюється символ натиснутою клавіші)
CALL coord (v, ar, dt, x, y)
розрахунок нових координат об'єкту Raketa ??p>
CALL angle (ar, ang $)
розрахунок кута розвороту об'єкта Raketa ??p>
CALL ракета (d $, x, y, ang $, ar, xc, yc, r, st)
переміщення малюнка об'єкта Raketa ??p>
IF com $=s OR st> 0 THEN EXIT DO
закінчення роботи програми (вихід з циклу DO-LOOP) здійснюється по одному з двох умов: або натиснута клавіша s, або st=1 (що означає наявність контакту)
CALL contact (xc, yc, st, x1, y1)
обчислення умов контакту шляхом порівняння координат контрольної точки (хс, ус) об'єкта Raketa і координат початкової точки малювання (xl, yl) об'єкта Sputnik
LOOP
кінець циклу руху об'єктів
END
SUB angle (ar, ang $)
перерахунок кута в радіанах аr в кут в градусах ang $, необхідний оператором DRAW
pi=3.1415
число?
ad=INT (ar * 180 / pi)
кут в градусах в числовій формі
ad $=$ (ad)
кут в градусах в символьній формі
IF ad>=0 THEN adS=«+» + LTRIM $ (RAK $ (ad))
при позитивному куті символ «+» буде відсутня, а він потрібен у рядку оператора DRAW, тому він додається