Moduà CRT Standardowy moduà Turbo Pascala do tworzenia interfejsu uæytkownika w oparciu o ekran w trybie tekstowym. Wejòcie: FUNCTION KeyPressed: Boolean odpowiada czy ostatnio zostaà wciòni©ty klawisz, czy w buforze klawiatury s• jakieò znaki, kt¢re moæna wczytaÜ funkcj• Readkey. FUNCTION ReadKey: Char zwraca jeden znak z bufora klawiatury; jeòli bufor jest pusty - czeka na naciòni©cie klawisza; w ten spos¢b moæna oczekiwaÜ na reakcj© uæytkownika. Oczekiwanie: PROCEDURE Dealy(ms: Word) czeka okreòlon• liczb© milisekund (1000 to jedna sekunda) Wyòwietlanie: Wyòwietlanie jest oparte o "okna". Okno to prostok•t okreòlony przez wsp¢àrz©dne na ekranie. Wiele operacji dotyczy bieæ•cego okna i podaje si© w nim wsp¢àrz©dne wzgl©dem tego okna. Parametry okreòlaj•ce stan interfejsu CRT: - bieæ•ce okno (wsp¢àrz©dne rog¢w), - poàoæenie kursora (wzgl©dem okna), - bieæ•cy kolor PROCEDURE Window(x1, y1, x2, y2: Byte) definiuje bieæ•ce okno, podane wsp¢àrz©dne s• bezwzgl©dne, lewy g¢rny r¢g ekranu to (1,1). Ustawia kursor na lewy g¢rny r¢g okna. Wsp¢àrz©dne okna moæna odczytaÜ za pomoc• zmiennych WindMin i WindMax (i pobawiÜ si© bitami). PROCEDURE GotoXY(x, y: Byte) Ustawia kursor na okreòlon• pozycj© wzg©dem bieæ•cego okna. PROCEDURE TextBackground(Color: Byte) PROCEDURE TextColor(Color: Byte) Zmienia bieæ•cy kolor. Moæna takæe przypisywaÜ wartoòÜ bezpoòrednio zmiennej TextAttr (np. TextAttr := $0E ustawia kolor tàa na czarny, a tekstu na æ¢àty) Write pisze w miejscu, w kt¢rym jest kursor bieæ•cym kolorem. PROCEDURE ClrScr Czyòci bieæ•ce okno z tekstu ustawiaj•c kolor tàa na bieæ•cy kolor tàa. InsLine, DelLine - wstawia i usuwa wiersze w bieæ•cym oknie, odsyàam do Helpa i eksperymant¢w. D´wi©k: PROCEDURE Sound(hz: Word) - uruchamia gàoòniczek na podanej cz©stotliwoòci PROCEDURE NoSound - wyà•cza d´wi©k UΩYWAè Z ROZS§DKIEM! NIE ZAPOMINAè O NOSOUND!