home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / DEMO_SCN.INC < prev    next >
Encoding:
Text File  |  1993-03-08  |  2.8 KB  |  75 lines
  1. (*
  2.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  3.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  4.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  5.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  6.     ▓▓▓▓▓▓▓▓·──                                              ──·▓▓▓▓▓▓▓▓▓▓▓
  7.     ▓▓▓▓▓▓▓▓│                                                  │░░▓▓▓▓▓▓▓▓▓
  8.     ▓▓▓▓▓▓▓▓   Unit was conceived, designed and written         ░░▓▓▓▓▓▓▓▓▓
  9.     ▓▓▓▓▓▓▓▓   by Floor A.C. Naaijkens for                      ░░▓▓▓▓▓▓▓▓▓
  10.     ▓▓▓▓▓▓▓▓   UltiHouse Software / The ECO Group.              ░░▓▓▓▓▓▓▓▓▓
  11.     ▓▓▓▓▓▓▓▓                                                    ░░▓▓▓▓▓▓▓▓▓
  12.     ▓▓▓▓▓▓▓▓   (C) MCMXCII by EUROCON PANATIONAL CORPORATION.   ░░▓▓▓▓▓▓▓▓▓
  13.     ▓▓▓▓▓▓▓▓   All Rights Reserved for The ECO Group.           ░░▓▓▓▓▓▓▓▓▓
  14.     ▓▓▓▓▓▓▓▓                                                    ░░▓▓▓▓▓▓▓▓▓
  15.     ▓▓▓▓▓▓▓▓│                                                  │░░▓▓▓▓▓▓▓▓▓
  16.     ▓▓▓▓▓▓▓▓·──                                              ──·░░▓▓▓▓▓▓▓▓▓
  17.     ▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓▓
  18.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  19.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  20.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  21. *)
  22. unit eco_scrn;
  23. interface uses
  24.   crt,     graph,
  25.   eco_lib,
  26.   eco_gdrv
  27.  
  28.   ;
  29.  
  30.   procedure screensaver(st: string);
  31.  
  32.  
  33. implementation
  34.  
  35.  
  36.   procedure screensaver(st: string);
  37.   var
  38.     n, graphdriver, graphmode, cc, k : integer;
  39.     x, y, p, q, r, z, sx, sy, dx, dy    : real;
  40.  
  41.   begin
  42.     graphdriver := detect; cc := 10;
  43.     repeat
  44.       initgraph(graphdriver, graphmode, '');
  45.       setgraphmode(0); x := 0; k := 1;
  46.       repeat
  47.         setcolor(7);
  48.         for n := 1 to 66 do begin
  49.           delay(10); line(n*cc+50, 5, getmaxx-n*cc, n*cc)
  50.         end;
  51.         setcolor(0);
  52.         for n := 66 downto 1 do begin
  53.           delay(10); line(n*cc+50, 5, getmaxx-n*cc, n*cc);
  54.         end;
  55.         delay(1000); inc(k);
  56.       until (k>3) or keypressed; closegraph; clrscr;
  57.       if not keypressed then begin
  58.         __betwscn(1,80, 10, 7, 0, st);
  59.         __betwscn(1,80, 12, 7, 0, 'has been temporarily suspended');
  60.         __betwscn(1,80, 14, 7, 0, 'press any key to continue.');
  61.         delay(3000);
  62.       end;
  63.     until keypressed;
  64.     closegraph;
  65.   end; { screensaver }
  66.  
  67.  
  68. begin
  69. {  if registerbgidriver(@hercdriverproc)>0 then;
  70.   if registerbgidriver(@cgadriverproc)>0 then;
  71.   if registerbgidriver(@attdriverproc)>0 then;
  72.   if registerbgidriver(@pc3270driverproc)>0 then;}
  73.   if registerbgidriver(@egavgadriverproc)>0 then;
  74. end.
  75.