

{                          The Window Manager
                                   by
                             Jim Everingham
                           (C) Copyright 1985
                               January 13

                 Ultra-Fast Window Generation for Turbo
                 Pascal 2.0 made Simple.

    All questions concerning this package should be directed towards:

                             Jim Everingham
                             215 West Fairmount Ave
                             Apt. #306 Fairmount Hills
                             State College, Pa. 16801
                             (814)-238-9655
                             Compuserve [75116,433]

    If you find these routines of use, or use them in commercially produced
    Software, a donation of $5.00 to $15.00 is appreciated. Please read
    WINDMNGR.DOC wich accompanies this package.

                                                                         }
{$I VAR.INC}
{$I WINDMNGR.INC}
{$I GROWWIN.INC}

Const NumChar = 20;
      Title_char: Array[1..NumChar] of char =
               ('T','H','E',' ',' ','W','I','N','D','O','W',' ',' ','M','A','N'
               ,'A','G','E','R');

Var Ch: CHar;
     i,j,k: integer;

Begin
     Add_window(1,1,80,25,1,0,4);
     textcolor(15);
     j:=47;
     for i:=numchar downto 1 do
          begin
             for k:=1 to j do
                    begin
                         gotoxy(k,2);
                         Write(' ',Title_Char[i]);
                    end;
             j:=j-1
          end;
     gotoxy(1,3);
     textcolor(7);
     Writeln('                            (C) Copyright  1985');
     Writeln('                                     by ');
     Writeln('                               Jim Everingham');
     Writeln;
     Writeln('    The Window Manager is written for Turbo Pascal 2.0 IBM PC-DOS Specific.');
     Writeln(' This  program was  developed on a COLUMBIA MPC 1600-1.  ');
     writeln;
     Writeln('    The Window  manager is  collection of Ultra-Fast window  routines which');
     Writeln(' can easily be added into your own Turbo Pascal programs. If you find these');
     Writeln(' routines  of  value, please donate $10 dollars. It''s for a good cause, my');
     Writeln(' tuition bill.');
     Writeln(' I have also provided the version of all demos in case you are considering');
     Writeln(' purchasing the TURBO Pascal System.');
     Writeln('                               Jim Everingham');
     Writeln('                               318 East Sheridan');
     Writeln('                               DuBois, Pa. 15801');
     Writeln('                               CIS: 75116,433');
     Writeln('                               Tel: 814-238-9655');
     Writeln;
     textcolor(11);
     Write('                         Press any key to begin Demo...');
     repeat until keypressed;
     read(kbd,ch);
     Add_Window(5,5,50,18,12,7,2);
     gotoxy(1,2);
     Textcolor(black);Writeln;
     Writeln('     With The Window Manager, windows');
     Writeln('     can be completely manipulated with');
     Writeln('     as little as two commands which do');
     Writeln('     all the tough work of setting up ');
     Writeln('     windows on your RGB or MonoChrome');
     Writeln('     monitor.  Window manager routines');
     Writeln('     keep track of which window is active');
     Writeln('     and which window to activate next.');
     Writeln;Writeln;Textcolor(black+blink);
     Write('             Press a key ...');
     repeat until keypressed;
     read(kbd,ch);
     Add_window(29,3,70,9,11,0,3);
     Writeln(' All in all, four different frame types');
     Writeln(' can be used.');
     Writeln;Write('            Press a key ... ');
     repeat until keypressed;
     read(kbd,ch);
     Add_window(5,12,25,21,12,0,1);
     textcolor(15);
     write(' Plain...');
     repeat until keypressed;
     read(kbd,ch);
     Add_window(31,12,51,21,12,0,2);
     textcolor(15);
     write(' Double...');
     repeat until keypressed;
     read(kbd,ch);
     Add_window(57,12,77,21,12,0,3);
     textcolor(15);
     write(' Combination...');
     repeat until keypressed;
     read(kbd,ch);
     Add_window(5,10,77,22,12,0,4);
     textcolor(15);
     writeln;
     write(' Solid frames also... ');
     repeat until keypressed;
     read(kbd,ch);
     Remove(1);
     delay(250);
     remove(1);
     delay(250);
     remove(1);
     delay(250);
     remove(1);
     textcolor(10+blink);
     repeat until keypressed;
     read(kbd,ch);
     Add_window(20,7,60,16,1,6,2);
     gotoxy(1,1);
     Writeln('    Also with the Window Manager');
     Writeln('    Routines, all aspects of the');
     Writeln('    Current window can be manipulated');
     Writeln('    with ease.');
     Writeln;Writeln;Writeln;
     textcolor(black+blink);
     Write('          Press any key ...');
     repeat until keypressed;
     Color_window(1,0);
     repeat until keypressed;
     read(kbd,ch);
     Color_window(12,0);
     repeat until keypressed;
     read(kbd,ch);
     Color_Window(15,5);
     repeat until keypressed;
     read(kbd,ch);
     Color_Window(1,6);
     repeat until keypressed;
     read(kbd,ch);
     Clrscr;
     textcolor(1);
     for i:=1 to 34 do
          begin
               Write(copy(' I can begin typing something and ',i,1));
               sound(1000);
               nosound;
               delay(75);
          end;
     repeat until keypressed;
     read(kbd,ch);
     Add_Window(1,1,80,25,0,7,2);
     Writeln;Writeln('           Add a window instantaneously, and when I am done ');
     Writeln('           with this window, I am returned to the previous window');
     Write('           and my cursor is returned to where I left off and ...');
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     for i:=1 to 33 do
          begin
               Write(copy('I canfinish what I had started.',i,1));
               sound(1000);
               nosound;
               delay(75);
          end;
     textcolor(1+blink);
     writeln;writeln;writeln;
     Write('          Press a Key ...');
     repeat until keypressed;
     read(kbd,ch);
     clrscr;
     textcolor(32);
     writeln(' Text can be scrolled in either');
     writeln(' direction...');
     delay(3000);
     gotoxy(1,20);
     for i:=1 to 30 do
         begin
              writeln(' This text is scrolling up.');
              delay(75);
         end;
     textcolor(33);
     delay(500);
     for i:=1 to 30 do
         begin
              gotoxy(1,1);
              insline;
              writeln(' This text is scrolling down.');
              delay(75);
          end;
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     Grow_Window(14,8,67,22,12,0,2);
     Writeln;Writeln;
     TextColor(15);
     Writeln(' And to top it all off, I can easily & Instantly');
     Writeln(' add a title to any of my windows....');
     repeat until keypressed;
     read(kbd,ch);
     Window_Title(' Demo Window #6 ',11);
     gotoxy(17,8);
     Textcolor(11);
     Writeln('Press any key ...');
     repeat until keypressed;
     read(kbd,ch);
     color_window(15,2);
     textcolor(0);
     clrscr;
     Window_Title(' ANOTHER DEMO WINDOW           ',47);
     Textcolor(14);
     gotoxy(17,8);
     write('Press any key ...');
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     gotoxy(25,22);
     textcolor(white+blink);
     Writeln('Press any key to end demo...     ');
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     gotoxy(1,25);
end.
