esercitazioni con Turbo Basic

esci turboba.htm

funzioni grafiche elementari

REM pro15x
REM funzioni grafiche GET PUT PSET
CLS
SCREEN 1
DIM g1(200)
LINE (10, 10)-(30, 30), 2, BF
GET (10, 10)-(30, 30), g1
PUT (10, 10), g1, PRESET
FOR a = 1 TO 100
PUT (a, 10), g1, PSET
PUT (a, 40), g1, PRESET
PUT (a, 80), g1, XOR
PUT (a, 120), g1, OR
PUT (a, 160), g1, AND
PUT (120 + a, 10), g1, PSET
PUT (120 + a, 10), g1, PRESET


NEXT a

END