home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / gsxupdat.pas < prev    next >
Pascal/Delphi Source File  |  1987-03-13  |  1KB  |  28 lines
  1. {---------------------------------------------------------------------------}
  2. { Ueberpruefen, ab ein Grafik-Tablett, eine Maus, ein Joystick oder andere
  3.   gleichartige Eingabegeraete an die Workstation angeschlossen sind.
  4.        Input_Status = TRUE:  Geraet vorhanden
  5.                     = FALSE: Geraet nicht vorhanden                         }
  6.  
  7. FUNCTION Input_Status: BOOLEAN;
  8.  
  9. BEGIN
  10.   contrl[1] := 5;  contrl[2] := 0;  contrl[3] := 16;
  11.   VDI_Call(contrl, intin, intout, ptsin, ptsout);
  12.   Input_Status := (intout[1] = 1);
  13. END;
  14.  
  15. {---------------------------------------------------------------------------}
  16. { Hardcopy des Bildschirms generieren. Diese Funktion ist sehr geraete-
  17.   spezifisch und kann die Hardcopy an einen Drucker oder an ein anderes
  18.   angeschlossenes Hardcopygeraet senden.                                    }
  19.  
  20. PROCEDURE Hard_Copy;
  21.  
  22. BEGIN
  23.   contrl[1] := 5;  contrl[2] := 0;  contrl[3] := 17;
  24.   VDI_Call(contrl, intin, intout, ptsin, ptsout);
  25. END;
  26.  
  27. {---------------------------------------------------------------------------}
  28.