home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBINT.ZIP / INTPLUS.BAS (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1991-08-26  |  9.4 KB  |  189 lines
  1. RegType
  2. flags
  3. RegTypeX
  4. @    INTERRUPT
  5. intnum
  6. inregd
  7. outregt
  8. InterruptX
  9. ABSOLUTE
  10. address
  11. INT86OLDl
  12. inarray(
  13. outarray
  14.     INT86XOLD
  15. DosVer
  16.     DiskSpace
  17. Drive{
  18. Driver
  19. InRegs
  20. outregs
  21. InRegsX
  22. OutRegsX|
  23. PrGraph3
  24. ScrMode\
  25. Lmargin
  26. BlinkBar
  27.     InRegs.ax
  28.     InRegs.cx
  29.     InRegs.bx
  30. InRegsX.ax&
  31. InRegsX.dx;
  32.     InRegs.dx
  33. Pixelv
  34. Density
  35. Row2b
  36. Col2S
  37. PrString
  38. Window.Stroll
  39. Window
  40. linesg
  41.     BackColor
  42. NumbChar    
  43. outregsX.ax
  44. outregsX.bx
  45. outregsX.cx
  46. NMALLOC]
  47. DosPr
  48. DosPrint
  49. UseDrive
  50. MuzKey
  51. MuzUse
  52. Muzlib
  53. DefDrive
  54. SpcDrive
  55. RollWind
  56. ResTypeX
  57. GetFileDta
  58. FileBufF
  59. DtaReserved
  60. FindSpec:
  61. FindSpecFile
  62. Regs$
  63. Regs.ax
  64. Regs.ds
  65. BufferT
  66. Regs.dx)
  67. FileDta
  68. FileType
  69. InRegsX.ds
  70. Regs.cx
  71.     Operation
  72. ErrCode
  73. InRegsX.cx
  74.     InRegs.ds
  75. Ecode
  76. DosJunk
  77. Size7
  78. FileName
  79.     SpecFound
  80. FALSE
  81. PlayOn
  82. DtaBuf
  83. Inited
  84. GetDirSpec
  85. InRegsX.si
  86. FileDta.FileName
  87.  Definations from  QB.BI
  88.  Define the type needed for INTERRUPTG
  89.  Define the type needed for INTERUPTXE
  90.  Generate a software interrupt, loading all but the segment registersA
  91.  Generate a software interrupt, loading all registerse
  92.  If you prefer to use QB.BI which has the similar definations as above:
  93.  --- Delete above lines, use '$INCLUDE: 'qb.bi' instead.
  94.   << Get current DOS version.>>.
  95.   << Get free space on specified drive >>f
  96.   << Change current default drive. Returns total logical drive Number. >>
  97.   << Get current default drive >>r
  98.   << Plays sound for each key user pressed and returns the key >>>
  99.   << Generate a blinking bar till user press a key. >>
  100.   << Print text$ use DOS function. >>r
  101.   << Stroll window in any mode using a DOS function >>
  102.   << Graphics screen dump to dot-matrix printer in mode 1 or 2 only >>
  103.   << Get file information from disk and store in FileDta >> 
  104.   << Get directory information>>
  105.    Define inregs and outregs for INTERRUPT use.t
  106.    Must also copy to the main module if you use this program
  107.    as a secondary module.
  108. <NOTE
  109.    ABOVE DEFINES MUST BE COPIED TO YOUR MAIN MODULE IF YOURm
  110.    MAIN MODULE IS SEPERATED FROM THIS PROGRAM.    
  111. DosVer
  112.    Comments: Returns an integar which is the dos version
  113.  times 100. (EX: 320 means dos version 3.20)
  114. SpcDrive
  115.  This function returns free space availiable in select drive
  116.  (BX *  CX * AX  = total space on disk)i
  117.  <<PARAMETER>> Drive::
  118.  0   for default
  119.  1   for a: 
  120.  2   for b: 
  121.  3   for c:   etc
  122. UseDrive
  123.    Comments: Change current drive to given value; And
  124.  returns a integar which is the total number ofl
  125.  logical drives.
  126. DefDrive
  127.    Comments: DefDrive returns a integer number represents 
  128.  the current default drive: 0 for A, 1 for B etc...e
  129. MuzKey
  130.    Comments: This function waits and returns a key pressed by user.
  131.  Any key pressed, will generate a different sound.
  132. Get a keyp
  133. Returns the keyi
  134. load the music lib if it's not loaded
  135. |\ZzXxCcVvBbNnMm<,>.?/AaSsDdFfGgHhJjKkLl:;''`~QqWwEeRrTtYyUuIiOoPp{[]}!1@2#3$4%5^6&7*8(9)0_-+=
  136. find the key in lib
  137. L16N="
  138. play sound
  139. BlinkBar
  140.  Descrp: Rapidly display a blinking bar height defined by ln,,
  141.      blinks untill a key is pressedn
  142.  <<PARAMETERS>> 
  143.  NumbChar: Number of characters of length from current postion
  144.  char:
  145.  ASCII code of character to use. (INTEGER: 1 to 255  )
  146. DosPrint
  147.    Comments: Print text$ use a dos function.
  148. RollWind
  149.    Comments: Perform scrolling text window use dos call (any mode)
  150.    lines:  Number of lines to stroll. If postive, strolls up;;
  151.  if negative, strolls down. 
  152.    r1,c1,r2,c2:  Window range 
  153.    BackColor:  Color attri. to fill the background for the new line(s).
  154. up or down
  155. /upperleft corner
  156. /lowerright corner
  157. /color
  158. /interrupt 10 not 21
  159. PrGraph
  160.  Dump graphics screen image enclosed by (c1,r1)-(c2,r2) to
  161.  Epson or compatible DOT-MATRIX printer.
  162.  <<PARAMETERS>>t
  163.  ScrMode:
  164.  Graphics mode. (CGA 1 or 2 only)
  165.  Lmargin:
  166.  left margin (skip spaces)2
  167.  printing range: form (c1,r1) to (c2,r2),)
  168.  Assign pixels per point for mode 1 or 2.)
  169.  Testing range in mode 1 or 2.
  170.  On out of range or mode other than 1 or 2, abort graph printing
  171. - Get screen mode
  172. - Data init
  173.  range
  174. column range
  175. line length in dots
  176. 7/72 inch vertical spacing
  177. - Now dump graphics image to printer
  178. Value 79
  179. GetFileDta
  180.    This file returns a file data block contains file informations.
  181.    <see TYPE FileDta for specification>. Calls this sub in a loop.
  182.    until ErrCode <> 0.
  183.    -- PARAMETERS --s
  184.    Spec$   : Passed parameter of path+drive specification;
  185.    DtaBuf  : Returned file data block+
  186.    ErrCode : Returns a none zero number when last record is read..
  187. Set DTA Buffer
  188. GetDirSpec
  189.