home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 10 / hercdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-07-30  |  994 b   |  48 lines
  1. {$C-}  {$U-}
  2. PROGRAM  HerculesDemo;
  3.  
  4. VAR i : INTEGER;
  5.  
  6. {$I Hercules.Inc}
  7.  
  8. PROCEDURE Grafik;
  9.  
  10. VAR i : INTEGER;
  11.  
  12. BEGIN
  13.   FOR i := 0 TO 20 DO draw(0,250,720,150+i*10,1);
  14.   FOR i := 0 TO 20 DO draw(0,150+i*10,720,250,1);
  15.   FOR i := 0 TO 25 DO circle(360,170,i*4,1);
  16. END;
  17.  
  18.  
  19. BEGIN
  20.   HiRes;   ClrScr;
  21.   WriteString('*** Hier ist das Hercules-Demo-Programm! ***',
  22.               20,10, TRUE);
  23.   WriteString('Demo-Abbruch mit ESC-Taste,'+
  24.               ' weiter mit <RETURN>', 19,30, FALSE);
  25.   CopyPage(0);
  26.   Grafik;  Read;
  27.   ClrScr;
  28.   HercXOrMode(TRUE);
  29.   WriteString(' XOr-Modus ',40,10,TRUE);
  30.   Grafik;  Grafik;
  31.   Read;
  32.   ClrScr;
  33.   WriteString(' Einen Moment bitte ! ', 35, 30,TRUE);
  34.   WriteString(' Zweite Seite wird beschrieben ! ', 30, 40,FALSE);
  35.   SelectPage(1);
  36.   ClrScr;
  37.   WriteString(' Zweite Seite ',40,10,TRUE);
  38.   Grafik;
  39.   SelectPage(0);
  40.   CopyPage(1);
  41.   Read;
  42.   FOR i := 1 TO 20 DO BEGIN
  43.     InvertScreen;
  44.   END;
  45.   TextMode;
  46. END.
  47. {$C+}  {$U+}
  48.