Witam wszystkich Pascalowców
Postanowiłem, że co miesiąc będę opisywał procedury i funkcje standardowych modułów. Dzisiaj zajmiemy się biblioteką CRT. No to zaczynamy.

Procedury
1. AssignCrt(zmienna plikowa-tekstowa)
Służy do kojarzenia plików tekstowych z urządzeniem Crt, implementowanych przez moduł Crt.

6.ClrEol
Wymazuje znaki od miejsca, w którym znajduje się kursor do końca wiersza

6.ClrScr
Czyści ekran.

7.Delay(czas)
Zatrzymuje wykonywanie programu na podany w milisekundach czas.
Pamiętajmy, że 1s=1000ms.

8.DelLine
Powoduje usunięcie wiersza, w którym znajduje się kursor. Po wykonaniu tej procedury wszystkie wiersze który znajdują się niżej są przesuwane o jedną pozycję w górę, a na dole ekranu dodawana jest jedna pusta linijka.

9.GoToXY(x,y:byte)
Powoduje skok kursora do podanej pozycji na osi x,y. Pamiętajmy, że pozycja 1,1 znajduje się w lewym, górnym rogu ekranu a Xmax,Ymax w prawym, dolnym.

10.HighVideo
Włącza wysoką intensywność barwy znaków, czyli wszystko będzie jaśniejsze.

11.InsLine
Powoduje wstawienie pustego wiersza w miejscu gdzie znajduje się kursor.

12.LowVideo
Włącza niską intensywność barwy znaków, czyli wszystko będzie ciemniejsze.

13.NormalVideo 
Włącza normalną intensywność barwy znaków, czyli wszystko będzie tak jak na początku.

14.NoSound
Wyłącza komputerowy głośnik (ten co jest w obudowie i brzydko piszczy).

15.Sound(częstotliwosc:word)
Włącza komputerowy głośnik.

16.TextBackground(kolor)
Zmienia kolor tła pod napisem. Jeśli po wykonaniu tej instrukcji użyjemy ClrScr to zmieni się kolor całego tła na ekranie.

17.TextColor(kolor)
Procedura ta służy do ustalenia koloru znaków pojawiających się na ekranie.
Zmienna kolor musi być typu byte.
kolory:
Black =0 czarny
Blue =1 niebieski
Green =2 zielony
Cyan =3 truskawkowy
Red =4 czerwony
Magenta =5 karmazynowy
Brown =6 brązowy
LightCray =7 jasnoszary
DarkCray =8 ciemnoszary
LightBlue =9 jasnoniebieski
LightGreen =10 jasnozielony
LightCyan =11 jasnoturkusowy
LightRed =12 jasnoczerwony
LightMagenta =13 jasnokarmazynowy
Yellow =14 żółty
White =15 biały
Blink =128 migający tekst

Żeby tekst migał należy do koloru dodać słowo blink albo 128
np. textcolor(14+128);
textcolor(14+blink);
textcolor(yellow+128);
Wszystkie te operacje dają taki sam efekt żółtego, migającego napisu.

18.TextMode(tryb:integer)
Służy do wyboru trybu pracy ekranu. 
przykładowe tryby:
BW40=0 -tryb czarno-biały, 40 kolumn i 25 wierszy
CO40 =1 -tryb kolorowy, 40 kolumn i 25 wierszy
BW80=2 -tryb czarno-biały, 80 kolumn i 25 wierszy
CO80=3 -tryb kolorowy, 80 kolumn i 25 wierszy
Mono=7 -tryb czarno-biały, 80 kolumn i 25 wierszy
Font8x8=256 -tryb kolorowy, 40 kolumn i 43 wierszy

Jeśli chcecie powrócić do poprzedniego trybu to wpisz LastMode.

19.Window(x1,y1,x2,y2:byte)
Rysuje okno o lewym, górnym rogu x1,y1 i o prawym, dolnym x2,y2


Funkcje

1.KeyPressed
Jeśli jest naciśnięty jakiś klawisz to zwraca wartość FALSE

2.ReadKey(znak:char)
Czeka na naciśnięcie klawisza i wczytuje go do zmiennej znak.

3.WhereX 
Wczytuje do zmiennej typu Byte aktualną pozycje kursora na osi x (czyli kolumnę).

4.WhereY
Wczytuje do zmiennej typu Byte aktualną pozycje kursora na osi y (czyli wiersz).

To by było na tyle. Za miesiąc opiszę moduł system.