home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBINT.ZIP / INTPLUS.BI < prev    next >
Encoding:
Text File  |  1991-07-26  |  2.6 KB  |  99 lines
  1. ' Include file for using INTPLUS.BAS
  2. ' Definations from  QB.BI
  3. '
  4. ' Define the type needed for INTERRUPT
  5. '
  6. TYPE RegType
  7.      ax    AS INTEGER
  8.      bx    AS INTEGER
  9.      cx    AS INTEGER
  10.      dx    AS INTEGER
  11.      bp    AS INTEGER
  12.      si    AS INTEGER
  13.      di    AS INTEGER
  14.      flags AS INTEGER
  15. END TYPE
  16. '
  17. ' Define the type needed for INTERUPTX
  18. '
  19. TYPE RegTypeX
  20.      ax    AS INTEGER
  21.      bx    AS INTEGER
  22.      cx    AS INTEGER
  23.      dx    AS INTEGER
  24.      bp    AS INTEGER
  25.      si    AS INTEGER
  26.      di    AS INTEGER
  27.      flags AS INTEGER
  28.      ds    AS INTEGER
  29.      es    AS INTEGER
  30. END TYPE
  31. '
  32. '
  33. '
  34. TYPE FileType
  35.  DosJunk      AS STRING * 21
  36.  Attr         AS STRING * 1
  37.  Time         AS INTEGER
  38.  Date         AS INTEGER
  39.  Size         AS LONG
  40.  FileName     AS STRING * 13
  41. END TYPE
  42.  
  43. ' Generate a software interrupt, loading all but the segment registers
  44. '
  45. DECLARE SUB INTERRUPT (intnum AS INTEGER, inreg AS RegType, outreg AS RegType)
  46. '
  47. ' Generate a software interrupt, loading all registers
  48. '
  49. DECLARE SUB InterruptX (intnum AS INTEGER, inreg AS RegTypeX, outreg AS RegTypeX)
  50. '
  51. ' If you prefer to use QB.BI which has the similar definations as above:
  52. ' --- Delete above lines, use '$INCLUDE: 'qb.bi' instead.
  53.  
  54. '  << Get current DOS version.>>
  55. DECLARE FUNCTION DosVer% ()
  56.  
  57. '  << Get free space on specified drive >>
  58. DECLARE FUNCTION SpcDrive! (Drive%)
  59.  
  60. '  << Change current default drive. Returns total logical drive Number. >>
  61. DECLARE FUNCTION UseDrive% (Drive%)
  62.  
  63. '  << Get current default drive >>
  64. DECLARE FUNCTION DefDrive% ()
  65.  
  66. '  << Plays sound for each key user pressed and returns the key >>
  67. DECLARE FUNCTION MuzKey$ ()
  68.  
  69. '  << Generate a blinking bar till user press a key. >>
  70. DECLARE SUB BlinkBar (NumbChar%, char%)
  71.  
  72. '  << Print text$ use DOS function. >>
  73. DECLARE SUB DosPrint (text$)
  74.  
  75. '  << Stroll window in any mode using a DOS function >>
  76. DECLARE SUB RollWind (lines%, r1%, c1%, r2%, c2%, BackColor%)
  77.  
  78. '  << Graphics screen dump to dot-matrix printer in mode 1 or 2 only >>
  79. DECLARE SUB PrGraph (ScrMode%, Lmargin%, c1%, r1%, c2%, r2%)
  80.  
  81. '  << Get file information from disk and store in FileDta >>
  82. DECLARE SUB GetFileDta (Spec$, DtaBuf AS FileType, ErrCode%)
  83.  
  84. '  << Get directory information>>
  85. DECLARE FUNCTION GetDirSpec$ (Drive%)
  86.  
  87. '
  88. '   Define inregs and outregs for INTERRUPT use.
  89. '   Must also copy to the main module if you use this program
  90. '   as a secondary module.
  91.  
  92.     DIM SHARED InRegs AS RegType
  93.     DIM SHARED outregs AS RegType
  94.     DIM SHARED InRegsX AS RegTypeX
  95.     DIM SHARED OutRegsX AS RegTypeX
  96.     DIM SHARED FileDta AS FileType
  97.  
  98.  
  99.