home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / LMB / LMB2.p < prev   
Encoding:
Text File  |  1997-05-06  |  432 b   |  28 lines
  1. Program LMBdemo;
  2.  
  3.  
  4.  
  5. Function LeftMouseButton: Boolean;
  6. Type
  7.     bt = ^Byte;
  8. Var
  9.     bfe : bt;
  10. Begin
  11.     bfe := Address($bfe001);
  12.  
  13.     If (bfe^ MOD 128) > 64            { bit 6 gesetzt ? }
  14.     then  LeftMouseButton := False        { ja -> nicht gedrückt }
  15.     else  LeftMouseButton := True;        { nein -> lmb gedrückt }
  16. end;
  17.  
  18.  
  19. Begin
  20.  
  21.   Repeat
  22.  
  23.     write("\n\n  LMB-Demo#2 by Diesel 4 use with PCQ\n\n   press left mousebutton !!!\n\n");
  24.  
  25.   until LeftMousebutton;
  26.  
  27. end.
  28.