home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OOTP_4.ZIP / CHAP7.LST / LIST7_2.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-02-26  |  155 b   |  11 lines
  1. program Listing7_2;
  2. uses mywindow, graph, mouse, crt;
  3. begin
  4. repeat until Keypressed;
  5. SetMouseHandler(0);
  6. RestoreCRTMode;
  7. end.
  8.  
  9.  
  10. { Listing 7-2 }
  11.