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

100W$ = INKEY$: IF W$ = "" THEN GOTO 100

IF W$ = "Q" OR W$ = "q" THEN END ELSE GOTO 10

'ПРЯМОКУТHИКИ

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

SCREEN 2 : CLS

VIEW

WINDOW (0, 0) - (100, 100)

FOR I = 1 TO 20

LINE (10 + I, 10 + I) - (70 + I, 70 + I),, B

NEXT I

END

'ЧОРНА ДIРКА

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

SCREEN 1, 0 : CLS : COLOR 14, 1

FOR I=50 TO 1 STEP -.5

Y = 90 / I: R = 3 * I

CIRCLE (160, 30 + 10 * Y), R, 1,,, .3NEXT

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