home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m110 / 1.ddi / HLL / TB / GRASPTB.BAS next >
Encoding:
BASIC Source File  |  1990-02-12  |  1.1 KB  |  37 lines
  1. '
  2. '  Turbo BASIC program which demonstrates calls to
  3. '  GRASP functions
  4. '  Compiled with Turbo Basic version 1.1
  5. '
  6.  
  7. SUB Grasp(g$)
  8.   LOCAL offset%, segment%, lsb%, msb%, stringdesc%
  9.  
  10.   DEF SEG
  11.   segment% = (256*PEEK(1)) + PEEK(0)    ' get segment of strings
  12.  
  13.   DEF SEG = VARSEG(g$)
  14.   stringdesc% = VARPTR(g$)    ' get address of string descriptor
  15.  
  16.   lsb% = PEEK(stringdesc%+2)      ' least significant byte is at address string_desc+2
  17.   msb% = PEEK(stringdesc%+3)    ' most significant byte is at address string_desc+3
  18.  
  19.   offset% = (256*MSB%) + LSB%   ' get offset of string itself
  20.  
  21.   REG 1, &H4700            ' AX = "G"
  22.   REG 3, LEN(g$)                ' CX = length of string
  23.   REG 9, segment%               ' ES = segment of string
  24.   REG 4, offset%                ' DX = offset of string
  25.   CALL INTERRUPT &H10        ' do the interrupt
  26.  
  27. END SUB
  28.  
  29. s$ = "Pload grasp,1"            ' load picture into buffer 1
  30. CALL Grasp(s$)
  31. s$ = "Pfade 1,1"                ' fade it onto the screen
  32. CALL Grasp(s$)
  33. s$ = "Waitkey"                  ' wait for keystroke from user
  34. CALL Grasp(s$)
  35.  
  36. END
  37.