Hовi команди системи Turbo-Basic, Детальна інформація

CIRCLE (160, 30 + 10 SYMBOL 42 \f "Symbol" Y), R, 1,,, .3

NEXT

END

'САТУРН

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

SCREEN 1, 0 : CLS

CIRCLE (160, 100), 79, 3

CIRCLE (160, 100), 80, 3

ST = .77: SP = .77

FOR I= 1 TO 30 STEP 5

ST = (ST - .015): SR = ST SYMBOL 42 \f "Symbol" 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 SYMBOL 42 \f "Symbol" T - B1 SYMBOL 42 \f "Symbol" SIN(T) : Y1 = A1 - B1 SYMBOL 42 \f "Symbol" COS(T)

PSET (X1, Y1), 1

X2 = A2 SYMBOL 42 \f "Symbol" T - B2 SYMBOL 42 \f "Symbol" SIN(T) : Y2 = A2 - B2 SYMBOL 42 \f "Symbol" COS(T)