{Demoprogramm f�r Portfolio-CRT-Unit
 written by Frank Riemenschneider
            Postfach 730309
            3000 Hannover 71}

{$M 2000,0,10000}
USES dos,Portcrt;

VAR i,j : word;
CONST
menue1 : array[1..6] of string = ('Erich Doll','Teddy Ibing','Lucius Reichling',
                                  'Cisco Berndt','Knut Bewersdorff','Uwe Lost');

menue2 : array[1..7] of string = ('Arizona','Keep it Country...','Nicht zu bremsen',
                                  'Lousiana Ladies','Zu Hause','Alles Klar','In Concert');
menue3 : array[1..4] of string = ('Stillhorn','Maschen','Ahrensburg',
                                  'Ottmarschen');
s : string = 'Dies ist eine Demonstration des dynamischen Bildschirmmodus (80*25) !';
BEGIN
  Textmode(statisch);
  writeln;
  writeln;
  writeln('Dieses ist eine Demonstration des statischen',
          ' Bildschirm-Modus (80*25) !');
  FOR i:= 1 to 40 DO BEGIN
    ScrollScreen(1,rechts);
    Delay(400);
  END;
  MoveScreen(0,0);
  GotoXY(0,7);
  writeln('Das Fenster muá nachgef�hrt werden !');
  FOR i:= 1 to 6 DO BEGIN
    ScrollScreen(1,unten);
    Delay(400);
  END;
  MoveScreen(0,0);
  ClrScr;
  FOR i:= 1 to 10 DO BEGIN
    writeln('Als n„chstes folgt eine Window-Demonstration :');
  END;
  window(10,2,25,6);
  ClrScr;
  write('Dieser String wurde an der Windowgrenze abgeschnitten !');
  Delay(4000);
  InsLine(2);
  Delay(4000);
  DelLine(2);
  Delay(4000);
  window(0,0,xmax,ymax);
  i := portmenue(' Musiker ',10,0,6,20,menue1);
  ClrScr;
  writeln('Ihr Lieblingsmusiker : ',menue1[i]);
  Delay(3000);

  Textmode(dynamisch);
  writeln;
  writeln;
  FOR i:= 1 to length(s) DO BEGIN
    write(copy(s,i,1));
    Delay(400);
  END;
  MoveScreen(0,0);
  GotoXY(0,7);
  FOR i:= 1 to 15 DO BEGIN
    writeln('Zeile ',i,' wird automatisch nachgef�hrt !');
    Delay(400);
  END;
  MoveScreen(0,0);
  ClrScr;
  FOR i:= 1 to 10 DO BEGIN
    writeln('Als n„chstes folgt eine Window-Demonstration :');
  END;
  window(10,2,25,6);
  ClrScr;
  write('Dieser String wurde an der Windowgrenze abgeschnitten !');
  Delay(4000);
  InsLine(2);
  Delay(4000);
  DelLine(2);
  Delay(4000);
  window(0,0,xmax,ymax);
  i := portmenue(' Platte ',40,0,7,20,menue2);
  ClrScr;
  writeln('Ihre Lieblingsplatte : ',menue2[i]);
  Delay(4000);

  Textmode(portfolio);
  writeln;
  writeln;
  writeln('Im Portfolio-Modus stehen nur 40*25 Zeichen zur Verf�gung, so daá',
          ' die Zeile nach 40 Zeichen abgeschnitten wird !');
  Delay (4000);
  ClrScr;
  FOR i:= 1 to 6 DO BEGIN
    writeln('Auch hier k”nnen Windows erzeugt werden');
  END;
  window(2,2,25,6);
  ClrScr;
  write('Dieser String wurde an der Windowgrenze abgeschnitten !');
  Delay(4000);
  InsLine(1);
  Delay(4000);
  DelLine(1);
  Delay(4000);
  window(0,0,xmax,ymax);
  ClrScr;
  write('Welcher Ort ist Seevetal 3 ?');
  i := portmenue(' Raten ',3,1,4,15,menue3);
  ClrScr;
  IF i = 2 THEN BEGIN
     writeln('Wunderbar, Sie sind ein echter Cowboy !');
  END
  ELSE BEGIN
    writeln('Falsch, Sie werden nie ein Country-Fan !');
  END;
END.