home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / qbfunc.bas < prev    next >
BASIC Source File  |  1993-04-25  |  2KB  |  48 lines
  1. 'QBFUNC.BAS
  2. 'Declarations for QBFUNC.DLL
  3. 'VB versions of QuickBasic functions
  4. 'Copyright 1993 Jonathan Zuck and User Friendly, Inc.
  5.  
  6. DefInt A-Z
  7.  
  8. Declare Sub BLOAD Lib "QBFUNC.DLL" (ByVal FName$, lpData As Any)
  9. Declare Sub BSAVE Lib "QBFUNC.DLL" (ByVal FName$, lpData As Any, ByVal nBytes As Integer)
  10. Declare Function CVD Lib "QBFUNC.DLL" (ByVal StrVar$) As Double
  11. Declare Function CVI Lib "QBFUNC.DLL" (ByVal StrVar$) As Integer
  12. Declare Function CVL Lib "QBFUNC.DLL" (ByVal StrVar$) As Long
  13.  
  14. Type RegType
  15.  AX As Integer
  16.  BX As Integer
  17.  CX As Integer
  18.  DX As Integer
  19.  BP As Integer
  20.  SI As Integer
  21.  DI As Integer
  22.  DS As Integer
  23.  ES As Integer
  24.  Flags As Integer
  25. End Type
  26.  
  27. Declare Sub InterruptX Lib "QBFUNC.DLL" (ByVal IntNum, Regs As RegType)
  28.  
  29. Declare Function MKD$ Lib "QBFUNC.DLL" (numVar#)
  30. Declare Function MKI$ Lib "QBFUNC.DLL" (numVar)
  31. Declare Function MKL$ Lib "QBFUNC.DLL" (numVar&)
  32.  
  33. Declare Function PEEK Lib "QBFUNC.DLL" (lpData As Long)
  34. Declare Sub POKE Lib "QBFUNC.DLL" (lpData As Long, ByVal ByteVal%)
  35.  
  36. Declare Function SSEGADD Lib "QBFUNC.DLL" (lpVar As Any) As Long
  37.  
  38. Declare Sub SWAP Lib "QBFUNC.DLL" (Var1 As Any, Var2 As Any)
  39. Declare Sub SWAP4 Lib "QBFUNC.DLL" (Var1 As Any, Var2 As Any)
  40. Declare Sub SWAP8 Lib "QBFUNC.DLL" (Var1 As Any, Var2 As Any)
  41.  
  42. Declare Function VARPTR Lib "QBFUNC.DLL" (Var1 As Any)
  43. Declare Function VARSEG Lib "QBFUNC.DLL" (Var1 As Any)
  44.  
  45. Declare Function VBINP Lib "QBFUNC.DLL" (ByVal Port)
  46. Declare Sub VBOUT Lib "QBFUNC.DLL" (ByVal Port, ByVal numVar)
  47.  
  48.