esercitazioni con Turbo Basic

esci turboba.htm

funzioni grafiche elementari

REM pro12x
REM prove grafiche
CLS
SCREEN 12
x = 200
y = 200
r = 50
FOR a = 1 TO 14
CIRCLE (x, y), r, a, 0, 6.28, .5
CIRCLE (x, y), r, a, 0, 6.28, 2
r = r + 10
SOUND 100 * a, a
NEXT a
FOR a = 14 TO 1 STEP -1
CIRCLE (400, 200), r, a, 0, 6.28, 3
CIRCLE (400, 200), r, a, 0, 6.28, .3
r = r - 10
SOUND 100 * a, a
NEXT a

END