home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m110 / 1.ddi / HLL / QB / GRASPQB.BAS next >
Encoding:
BASIC Source File  |  1990-02-12  |  759 b   |  31 lines
  1. DECLARE SUB Grasp (grcmd$)
  2. ' $INCLUDE: 'QB.BI'
  3. DEFINT A-Z
  4. DIM Inregs AS RegType, OutRegs AS RegType
  5.  
  6. '           QuickBasic Version 4 GRASP Interface Demo Program
  7. ' Be sure to load QuickBasic with the /L command line option to include
  8. ' the library containing the CALL INTERRUPTX routine
  9.  
  10. ' Load and display a picture
  11. CALL Grasp("Pload grasp,1")
  12. CALL Grasp("Pfade 1,1")
  13. CALL Grasp("Waitkey")
  14. END
  15.  
  16. SUB Grasp (grcmd$)
  17.   DIM Inregs AS RegTypeX, OutRegs AS RegTypeX
  18.  
  19.   DEF SEG = VARSEG(grcmd$)
  20.   offset% = (256 * (PEEK(VARPTR(grcmd$) + 3))) + PEEK(VARPTR(grcmd$) + 2)
  21.   DEF SEG
  22.  
  23.   Inregs.dx = offset%
  24.   Inregs.ax = &H4700
  25.   Inregs.cx = LEN(grcmd$)
  26.   Inregs.es = -1
  27.   Inregs.ds = -1
  28.   CALL INTERRUPTX(&H10, Inregs, OutRegs)
  29. END SUB
  30.  
  31.