home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MGTP4.ZIP / WNDODEMO.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-11-11  |  1.2 KB  |  72 lines
  1. {$R-}    {Range checking off}
  2. {$B-}    {Boolean short circuiting off}
  3. {$S+}    {Stack checking on}
  4. {$I+}    {I/O checking on}
  5. {$N-}    {No numeric coprocessor}
  6. {$M 65500,16384,655360} {Turbo 3 default stack and heap}
  7.  
  8. Program WindowDemo(Input,Output);
  9. {  4/4/87 : This program demonstrates the use of the MiniGen windowing
  10.             routines.
  11. }
  12.  
  13. Uses
  14.   Crt,
  15.   MGProg;
  16.  
  17. Const
  18.   ScreenCount = 4;
  19.  
  20. Var
  21.   Int : Integer;
  22.  
  23. Procedure Pause;
  24. Var
  25.   Ch : Char;
  26. Begin
  27. Repeat
  28.   Ch := ReadKey
  29. Until not KeyPressed;
  30. End; {Pause}
  31.  
  32. Procedure MainLoop;       { Main program logic }
  33. Begin
  34. Window(1,1,80,25);
  35. TextBackground(Blue);
  36. ClrScr;
  37. For Int := 1 to 1999 do
  38.   Write('X');
  39. OpenWindow(1);
  40. Write('Window one. ');
  41. Pause;
  42. OpenWindow(2);
  43. Write('Window two. ');
  44. Pause;
  45. OpenWindow(3);
  46. Write('Window three. ');
  47. Pause;
  48. OpenWindow(4);
  49. Write('Window four. ');
  50. Pause;
  51. CloseWindow;
  52. Pause;
  53. CloseWindow;
  54. Pause;
  55. CloseWindow;
  56. Pause;
  57. CloseWindow;
  58. End;
  59.  
  60. Begin
  61. ClrScr;
  62. MaxLimits;
  63. DefineScreen(1,10, 5,70,22,4,1,$4E);
  64. DefineScreen(2, 1, 1,40,12,1,2,$70);
  65. DefineScreen(3,20,15,55,19,2,3,$50);
  66. DefineScreen(4,50, 9,80,25,3,4,$1D);
  67. MainLoop;
  68. TerminateScreens;
  69. TextBackground(Black);
  70. ClrScr;
  71. End.
  72.