Algoritimlash va dasturlash tillari

TextColor(LightRed);
TextBackGround(Brown);
Write('Reversiv chikarish');

Misol.

TextColor(Yellow+Blink); Write('Uchib-yonuvchi sarik belgilar'); TextColor(12+16); Write('o’chib-yonuvchi och kizil belgilar'); TextColor(6); Write('o’chib-yonmaydigan jigar rang belgilar');

Protsedura TextColor va TextBackGround protseduralari TextAttr o’zgaruvchisi bilan uzviy bog’langan. TextAttr o’zgaruvchisi rang atributining joriy qiymatini o’z ichiga oladi. TextAtt o’zgaruvchisining kiymatlarini o’rnatish TextColor va TextBackGround protseduralari birga ishlatilgandagina effekt beradi. Masalan, quyidagi dasturni bajarilishi bir xil natijani beradi:

1 2
TextColor(Yellow+Blink); ¦ TextAttr:=Yellow+Blink +Red shl 4;
TextBackGriund(Red); ¦

Yorig’likni boshkarish

LowVideo, NormVideo, HighVideo
Yorig’likni boshqarish uchun LowVideo, NormVideo, HighVideo standart protseduralari ishlatiladi.
Uchchala protsedura xam TextAttr o’zgaruvchisining mos qiymatlarini o’rnatish uchun xizmat qiladi.
LowVideo - ekrandagi belgilarning minimal yorug’lik rejimini o’rnatadi. Rejim NormVideo protsedurasi yordamida olib tashlanmaguncha ishlaydi. Protseduraninig xarakati TextAttr:= TextAttr AND $F7 operatorining xarakatiga ekvivilentdir.
Misol.
LowVideo;
Write ('MS-DOS 4.01');
Predlojeniye "MS-DOS 4.01" so’zi ekranga minimal yorug’lik bilan chiqariladi.
NormVideo - ekrndgi belilarning normal yoruklik rejimini o’rnatadi.

Misol.

LowVideo;
Write ('MS-DOS 4.01');
NormVideo; { LowVideo rejimini yo’qotadi}
Write ('Operatsion sistema');
"Operatsionnaya sistema" so’zi ekranga normal yorug’likdagi yozuvlarda chiqadi.

HighVideo - yoruglikning maksimal rejimini o’rnatadi.. Protsedura TextAttr:= TextAttr OR $08 operatori kabi ishlaydi.

Misol.

LowVideo; Write ('MS-DOS 4.01'); NormVideo; Write ('Operatsion sistema '); HighVideo; { NormVideo rejimini yukotadi} Write ('shaxsiy kompyuterlar uchun');

"Shaxsiy kompyuterlar uchun " so’zi ekranga maksimal yorug’likdagi yozuvlarda chiqadi.