esercitazioni con Turbo Basic

esci turboba.htm

sintassi grafica elementare

REM disegnix
CLS
SCREEN 2
x1 = 20
x2 = 40

FOR a = 1 TO 15
LINE (x1, 10)-(x2, 30), a, B, &H8848
LINE (x1, 50)-(x2, 80), a, BF
CIRCLE (x1, 120), 15, a
CIRCLE (x1, 150), 15, a
PAINT (x1, 150), a
CIRCLE (x1, 200), 15, a, 0, 6.28, 2
CIRCLE (x1, 250), 15, a, 0, 6.28, .5
CIRCLE (x1, 300), 15, a, 0, 6.28, 1.5
PAINT (x1, 300), a
CIRCLE (x1, 350), 15, a, 0, 3.14, 1
CIRCLE (x1, 400), 15, a, 3.14, 6.28, 1
x1 = x1 + 30
x2 = x2 + 30
NEXT
END