home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m110 / 1.ddi / HLL / TP4 / GRASPTP4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-12  |  821 b   |  25 lines
  1. program grasptp4;
  2.  
  3. uses DOS;                       { Include DOS unit -- this contains the
  4.                   pre-defined Registers type }
  5.  
  6. Type LString = String[255];
  7.  
  8. var InRegs : Registers;         { Declare InRegs to be of this type }
  9.  
  10. Procedure Grasp(S:LString);
  11.   begin
  12.      InRegs.AH:=BYTE('G');      { Grasp function call is 'G' }
  13.      InRegs.CX:=Length(S);      { Set length of Grasp Command }
  14.      InRegs.ES:=SEG(S);         { ES:DX points to command string }
  15.      InRegs.DX:=OFS(S)+1;       { Increment past string length byte }
  16.      INTR($10, InRegs);         { Call the Grasp Video Routines }
  17.   end;
  18.  
  19. Begin
  20.   Grasp('Pload grasp,1');       { Load picture into buffer 1 }
  21.   Grasp('Pfade 1,1');           { Fade it onto screen }
  22.   Grasp('waitkey');             { Wait for keystroke from user }
  23. End.
  24.  
  25.