Мова програмування Turbo-Basic

'---------------------------------------------------------------------------------------

PLAY "MB o2 l4 af af b- a g2 c c c d8 e8 f4 f4 f2"

SCREEN 9 : CLS

A1 = 1 : B1 = 2

A2 = 1 : B2 = 1

A3 = 1 : B3 = .5

VIEW (1, 1) - (638, 315), 3, 3

WINDOW (-2, -3) - (20, 5)

LINE (-2, 0) - (20, 0), 11

LINE (0, -3) - (0, 5), 11

FOR T = 0 TO 20 STEP .007

X1 = A1 * T - B1 * SIN(T) : Y1 = A1 - B1 * COS(T)

PSET (X1, Y1), 1

X2 = A2 * T - B2 * SIN(T) : Y2 = A2 - B2 * COS(T)

PSET (X2, Y2), 14

X3 = A3 * T - B3 * SIN(T) : Y3 = A3 - B3 * COS(T)

PSET (X3, Y3), 5

NEXT T

END

'4 ВIКНА З ГРАФIКАМИ ФУНКЦIЙ

'------------------------------------------------

SCREEN 2 : CLS

VIEW (1, 1) - (315, 96),, 1

WINDOW (-10, -1.1) - (10, 1.1)

FOR X = -10 TO 10 STEP .02