home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / titel / demostri.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-05  |  1.3 KB  |  40 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    DEMOSTRI.PAS                        *)
  3. (*         Test-Programm für Unit STRINGS.PAS             *)
  4. (*         (c)  1990  Alfred Jung  &  TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6. {$M 3000,0,0 }
  7.  
  8. PROGRAM Demo_String_Ausgabe;
  9.  
  10. USES txCrt, Strings;
  11.  
  12. BEGIN
  13.   ClrScr;
  14.   CursorOff;
  15.   Text_Schreiben(28, 1, 150, 'Text langsam schreiben');
  16.   Text_L(28, 3, 150, 'Beispiel Text von links');
  17.   Text_R(28, 4, 150, 'Beispiel Text von rechts');
  18.   Text_L_Rand(25, 6, 150,
  19.      'Beispiel: Text vom linken Rand');
  20.   Text_R_Rand(25, 7, 150,
  21.      'Beispiel: Text vom rechten Rand');
  22.   Text_LR_Schreiben(16, 9, 150,
  23.      'Beispiel: Text von der Mitte auseinander schreiben');
  24.   Text_LR_Schieben ( 16,10, 150,
  25.      'Beispiel: Text von der Mitte auseinander schieben');
  26.   GotoXY(28, 25);
  27.   Write('Weiter mit Tastendruck');
  28.   Laufschrift(8, 13, 72, 200,
  29.      'Dies ist eine Laufschrift   ');
  30.   Laufschrift(8, 17, 72, 200, 'Laufschrift 2  ');
  31.   DoppelLaufschrift(8, 20, 72, 150,
  32.      'Dies ist eine Doppel-Laufschrift  ',
  33.      15, 22, 60, 'Laufschrift 3   ');
  34.   CursorOn;
  35.   ClrScr;
  36. END.
  37. (* ------------------------------------------------------ *)
  38. (*                Ende von DEMOSTRI.PAS                   *)
  39.  
  40.