juodas2

Kintamieji:
TextAttr : byte; - Laikomos aktyvios spalvos.
WindMin : word; - Aktyvaus lango minimalios koordinates.
WindMax : word; - Aktyvaus lango maksimalios koordinates.
Konstantos:
Konstanta - Reiksme - Spalva
Black - 0 - Juoda
Blue - 1 - Melyna
Green - 2 - Zalia
Cyan - 3 - Melsvai zalsva
Red - 4 - Raudona
Magenta - 5 - Violetine
Brown - 6 - Ruda
LightGray - 7 - Sviesiai pilka
DarkGray - 8 - Tamsiai pilka
LightBlue - 9 - Sviesiai melyna
LightGreen - 10 - Sviesiai zalia
LightCyan - 11 - Sviesiai melsvai zalsva
LightRed - 12 - Sviesiai raudona
LightMagenta - 13 - Sviesiai violetine
Yellow - 14 - Geltona
White - 15 - Balta
Proceduros:
ClrScr; - Isvalo ir nudazo aktyvu langa TextAttr nurodyta fono spalva.
TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.
TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.
Window(x1, y1, x2, y2: byte); - Uzraso i WindMin ir WindMax aktyviojo lango koordinates.
GoToXY(x, y: byte); - Perkelia zymekli i aktyviojo lango pozicija (x,y).
Delay(laikas: word); - Stabdo veiksmus nurodyta laiko tarpa milisekundemis.
Funkcijos:
WhereX: byte; - Pranesa zymeklio stulpelio numeri aktyviajame lange.
WhereY: byte; - Pranesa zymeklio eilutes numeri aktyviajame lange.
KeyPressed: boolean; - Reiksme False tol, kol nepaspaudziamas koks nors klavisas.
ReadKey: char; - Paspausto klaviso simbolis.
Lo(Kint: word): word; - Grazina zodzio Kint jaunesniojo baito reiksme.
Hi(Kint: word): word; - Grazina zodzio Kint vyresniojo baito reiksme.