home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tricks / agademo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-06-24  |  3.9 KB  |  128 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    AGADEMO.PAS                         *)
  3. (*    Demonstrationsprogramm zum Include TEXTMODI.INC     *)
  4. (*          (c) by Addi Nüchel und TOOLBOX                *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM demo;
  7.  
  8. {$I textmodi.var }
  9.  
  10. VAR  i  : INTEGER;
  11.      ch : CHAR;
  12.  
  13. {$I textmodi.inc }
  14.  
  15. BEGIN
  16.   Init;
  17.   hellan;
  18.   FOR i := 1 TO 24 DO
  19.     schreibln('Modus mt : dies ist die übliche '+
  20.             'Textdarstellung mit 80 Spalten und 25 Zeilen');
  21.   leere_zeilen(10,14);
  22.   gehezuXY(25,12);
  23.   blinkan;
  24.   schreib('Weiter mit beliebiger Taste');
  25.   Read(Kbd,ch);
  26.   vset(m25);
  27.   hellan;
  28.   lstring :='   Modus m25 : dies ist die Textdarstellung '+
  29.             'mit 132 Spalten und 25 Zeilen';
  30.   lstring := lstring + '  abcdefghijklmnopqrstuvwxyz '+
  31.                        'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  32.   FOR i := 1 TO 24 DO schreibln(lstring);
  33.   leere_zeilen(10,14);
  34.   gehezuXY(50,12);
  35.   blinkan;
  36.   schreib('Weiter mit beliebiger Taste');
  37.   Read(Kbd,ch);
  38.   vset(m44);
  39.   hellan;
  40.   lstring :='   Modus m44 : dies ist die Textdarstellung '+
  41.             'mit 132 Spalten und 44 Zeilen';
  42.   lstring := lstring + '  abcdefghijklmnopqrstuvwxyz '+
  43.                        'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  44.   FOR i := 1 TO 43 DO schreibln(lstring);
  45.   leere_zeilen(18,22);
  46.   gehezuXY(50,20);
  47.   blinkan;
  48.   schreib('Weiter mit beliebiger Taste');
  49.   Read(Kbd,ch);
  50.  
  51.  (* wer nur eine kurze Demo braucht, beendet das Programm *)
  52.  (* hier mit "vset(mt);" und "CursorOn;" und "END."       *)
  53.  
  54.   cls;
  55.   hellan; gehezuXY(36, woy);
  56.   schreibln('In allen Modi steht der volle Zeichensatz '+
  57.             'zur Verfügung:');
  58.   schreibln(''); hellaus;
  59.   FOR i := 32 TO 255 DO BEGIN
  60.     Str(i:3,lstring);
  61.     lstring := ' '+lstring+':'+Chr(i);
  62.     schreib(lstring);
  63.   END;
  64.   gehezuXY(42,15); hellan;
  65.   schreib('Dies erlaubt die üblichen Blockgraphiken: ');
  66.   gehezuXY(48,17);
  67.   schreib('╔═══════════════════════════╗');
  68.   gehezuXY(48,18);
  69.   schreib('║   MUSTER - BLOCKGRAPHIK   ║');
  70.   gehezuXY(48,19);
  71.   schreib('╟───────────────────────────╢');
  72.   gehezuXY(48,20);
  73.   schreib('║   1 - Modus mt  (80x25)   ║');
  74.   gehezuXY(48,21);
  75.   schreib('║   2 - Modus m25 (132x25)  ║');
  76.   gehezuXY(48,22);
  77.   schreib('║   3 - Modus m44 (132x44)  ║');
  78.   gehezuXY(48,23);
  79.   schreib('╚═══════════════════════════╝');
  80.   gehezuXY(30,26);
  81.   schreibln('Zur Bildschirmansteuerung stehen die '+
  82.             'üblichen Attribute zur Verfügung:');
  83.   schreibln('');
  84.   normal;
  85.   schreib('                     NORMAL     ');hellan;
  86.   schreib('HELLAN     ');
  87.   inversan; schreib('INVERSAN'); normal; schreib('     ');
  88.   inversan; blinkan; schreib('INVERSAN + BLINKAN'); normal;
  89.   schreib('     ');
  90.   blinkan; schreib('BLINKAN     '); hellan;
  91.   schreib('HELLAN + BLINKAN');
  92.   blinkaus; gehezuXY(35,31);
  93.   schreib('Der Bildschirm kann geSCROLLT werden: '+
  94.           '---> Taste drücken');
  95.   Read(Kbd,ch);
  96.   FOR i := 1 TO 5 DO scrolldown;
  97.   FOR i := 1 TO 5 DO scrollup;
  98.   gehezuXY(39,33);
  99.   schreib('Hier können Sie z.B. einen String eingeben: ');
  100.   liesln(lstring, 100);
  101.   gehezuXY(39,35);
  102.   schreib('Der hier zur Kontrolle nochmal erscheint  : '
  103.            +lstring);
  104.   gehezuXY(22,38);
  105.   schreib('Und vieles mehr ....überhaupt können Sie in '+
  106.           'allen Modi programmieren (fast) wie gewohnt!');
  107.   inversan; gehezuXY(48,40);
  108.   schreib('                             ');
  109.   gehezuXY(48,41);
  110.   schreib('  Bitte eine Taste drücken!  ');
  111.   gehezuXY(48,42);
  112.   schreibln('                             ');
  113.   inversaus;
  114.   schreibln('');
  115.   Read(Kbd,ch);
  116.   lstring := '';
  117.   cls;
  118.   FOR i := 1 TO 50 DO BEGIN
  119.     lstring := lstring + ' ENDE';
  120.     schreibln(lstring);
  121.   END;
  122.   FOR i := 1 TO 45 DO schreibln('');
  123.   vset(mt);
  124.   cursoron;
  125. END.
  126. (* ------------------------------------------------------ *)
  127. (*               Ende von AGADEMO.PAS                     *)
  128.