Zadanie zaliczeniowe nr 9 (2 trymestr), 5 II 2003
  (zadanie jest za 4 punkty, dwa tygodnie na jego wykonanie)


      Napisz   program  sˆu¾¥cy  do  wy˜wietlania  na   ekranie
zawarto˜ci  pliku  tekstowego - nazwa tego pliku  jest  jedynym
parametrem  wywoˆania programu. Zawarto˜† caˆego pliku  powinna
zosta†   wczytana   do   dwukierunkowej  listy   zadeklarowanej
nast©puj¥co:

CONST
   Max_d = 80;
TYPE
   Wsk = Element;
   Element = RECORD
                Wiersz: String[Max_d];
                Nast: Wsk;
              Pop: Wsk
             END;

     Je˜li  jaki˜  wiersz pliku tekstowego zawiera  wi©cej  ni¾
Max_d znak¢w, to powinien on zosta† przy wczytywaniu podzielony
na  wiersze nie dˆu¾sze ni¾ Max_d tak, by ka¾de sˆowo  mie˜ciˆo
si©  w jednym wierszu (mo¾na przyj¥†, ¾e ka¾de sˆowo ma dˆugo˜†
nie wi©ksz¥ ni¾ Max_d).

      Zawarto˜†  listy  powinna  by†  wy˜wietlana  na   ekranie
(ka¾dorazowo  wy˜wietlane powinny by† 24  wiersze).  U¾ytkownik
powinien mie† mo¾liwo˜† wykonywania nast©puj¥cych operacji:
     przewijanie   tekstu  o  jeden  wiersz  w  g¢r©   (poprzez
     wci˜ni©cie strzaˆki w g¢r©),
   przewijanie tekstu o jeden wiersz w d¢ˆ (poprzez
wci˜ni©cie strzaˆki w d¢ˆ),
   przewijanie tekstu o jedn¥ stron© w g¢r© (poprzez
wci˜ni©cie PgUp),
   przewijanie tekstu o jedn¥ stron© w d¢ˆ (poprzez
wci˜ni©cie PgDn),
   zakoäczenie pracy programu (poprzez wci˜ni©cie Esc),
   wyszukiwania wprowadzonego sˆowa w tek˜cie (poprzez
wci˜ni©cie F2).
  
    Najni¾szy   wiersz   ekranu  nie   jest   przeznaczony   do
wy˜wietlania  zawarto˜ci listy. Powinien sˆu¾y† do wy˜wietlania
menu  (czyli  informacji o dost©pnych do wykonania operacjach),
do  wprowadzania  przez  u¾ytkownika  wzorca  do  wyszukania  w
tek˜cie   (po   uprzednim  wci˜ni©ciu  F2)  oraz   do   dalszej
komunikacji. Po zatwierdzeniu wzorca przez wci˜ni©cie  klawisza
Enter  lub  spacji, powinien by† on poszukiwany w  tek˜cie  (od
samego  pocz¥tku  listy). Je˜li zostanie  znaleziony,  powinien
pojawi†  si©  w  pierwszym wy˜wietlanym na  ekranie  wierszu  i
dodatkowo   by†  zaznaczony  innym  kolorem.  U¾ytkownik   mo¾e
zdecydowa† si© na wyszukiwanie kolejnego wyst¥pienia  wzorca  w
tek˜cie,  lub  tego  zaniecha†. Je˜li  wzorzec  w  tek˜cie  nie
wyst©puje, powinien pojawi† si© stosowny komunikat.
    
    Uwaga.  Przydatne  mog¥ by† nast©puj¥ce  funkcje  z  moduˆu
Crt:
ClrScr, GotoXY, InsLine, TextBackground, TextColor, ReadKey.

Powodzenia!