home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / titel / boxtest.pas < prev    next >
Pascal/Delphi Source File  |  1990-12-12  |  1KB  |  49 lines
  1. (* -< Listing 2 >---------------------------------------- *)
  2. (*                     BOXTEST.PAS                        *)
  3. (*          (c) 1990 Wolfhard Rinke & TOOLBOX             *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM BoxTest;
  6.  
  7. USES Box;
  8.  
  9. VAR
  10.   ans   : CHAR;
  11.   yesno : EntrySet;
  12.  
  13. (* ------------------------------------------------------ *)
  14.  
  15.   PROCEDURE Ausblick;
  16.   BEGIN
  17.     ClrScr(55, 5, 75, 20);
  18.     Frame (55, 5, 75, 20);
  19.     Shadow(55, 5, 75, 20);
  20.  
  21.     (* in allen drei Prozeduren die Parameter wegen der   *)
  22.     (* übersichtlichkeit ... (und Unabhängigkeit!)        *)
  23.  
  24.     WriteTextXY(55+2, 5+5, 'demnächst in');
  25.     WriteTextXY(55+2, 5+7, 'diesem');
  26.     WriteTextXY(55+2, 5+9, 'Theater...');
  27.  
  28.   END;
  29.  
  30. (* ------------------------------------------------------ *)
  31.  
  32. BEGIN
  33.   TextAttr := 7;
  34.  
  35.   ClrScr(1, 1, 80, 25);
  36.  
  37.   Message('Ok-Box', 30, 15, 'Alles paletti!');
  38.  
  39.   Ausblick;
  40.  
  41.   Message('', 15, 20, 'Eine Message-Box ohne Header...');
  42.  
  43.   yesno := ['J', 'N'];
  44.   Answer(10, 3, 'Drücken Sie [J/N] ...', yesno, ans);
  45.  
  46. END.
  47. (* ------------------------------------------------------ *)
  48. (*                 Ende von BOXTEST.PAS                   *)
  49.