home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug171.arc / TURBWIN3.LBR / OSTWDEMO.PZS / OSTWDEMO.PAS
Pascal/Delphi Source File  |  1979-12-31  |  2KB  |  73 lines
  1. program OSTWDEMO;
  2.  
  3.  
  4. (* DEMO PROGRAM FOR WINDOW PROCEDURES *)
  5. (*  by Claude Ostyn - March 21, 1986  *)
  6. (*  to draw boxes around windows      *)
  7.  
  8. (*$I OSBTWIND.INC    *)
  9.  
  10. var
  11.     testline: string[255];
  12.     I  : integer;
  13.     Ch : char;
  14.  
  15. procedure ShowABunchOfStuff;
  16.   var D : integer;
  17. begin
  18.   D := trunc(Random(3) * 10);
  19.   for I := 1 to 4 do
  20.     for Ch := '!' to '~' do begin
  21.       write(Ch);
  22.       Delay(D);
  23.     end;
  24. end;
  25.  
  26.  
  27. begin (* demo *)
  28.   ClrScr;
  29.   InitVideo;
  30.   Randomize;
  31.   SetVideo(NormalV);
  32.   MakeWindow(1,20,52,23);
  33.   Delay(200);
  34.   GotoXY(20,2); write('Claude''s windows mini-demo');
  35.   MakeWindow(25,4,40,16);
  36.   ShowABunchOfStuff;
  37.   MakeWindow(2,2,20,6);
  38.   ShowABunchOfStuff;
  39.   Window(15,7,50,14);
  40.   ClrScr;
  41.   ShowABunchOfStuff;
  42.   SetVideo(DimV);
  43.   ShowABunchOfStuff;
  44.   setVideo(BrightV);
  45.   Delay(200);
  46.   Window(35,9,45,12);
  47.   ClrScr;
  48.   Delay(200);
  49.   GotoXY(2,3); Write ('Hi there!');
  50.   FullScreen;
  51.   MakeWindow(1,20,52,23);
  52.   ShowABunchOfStuff;
  53.   ClrScr;
  54.   writeln('Input anything:');
  55.   readln(testline);
  56.   ClrScr;
  57.   write(testline);
  58.   Delay(300);
  59.   MakeWindow(1,2,52,24);
  60.   Ch := 'a';
  61.   for I := 1 to 50 * 36 do begin
  62.     if Ch = '~' then Ch := '!';
  63.     write (Ch);
  64.     Ch := succ(Ch);
  65.     if (I > 50 * 22) and (I < 50 * 27) then Delay(20);
  66.   end;
  67.   FullScreen;
  68.   GotoXY(1,1); write('Done - press any key to exit');
  69.   repeat until keypressed;
  70.   DeInitVideo;
  71.   ClrScr;
  72. end.
  73.