Hовi команди системи Turbo-Basic

ST = (ST - .015): SR = ST * PI

SP = SP + .04

CIRCLE (160, 93), 100 + I, 3, SR ,SP , .3

NEXT

END

'ЦИКЛОЇДА, ЕПIЦИКЛОЇДА, ГIПОЦИКЛОЇДА (монітор EGA)

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

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