home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBINT.ZIP / INTPLUS.HLP < prev    next >
Encoding:
Text File  |  1991-08-26  |  6.6 KB  |  176 lines
  1. ' <<< INTPLUS.BAS HELP FILE >>>>
  2. '*******************************************************
  3. '*  Functions and Subroutines in this module uses  DOS *
  4. '* interrupt calls to perform window strolling, change *
  5. '* default drive, get free space and DOS version,  get *
  6. '* file information with out invoke COMMAND.COM.  You  *
  7. '* can also display a blink bar or use dos function for*
  8. '* screen write.                                       *
  9. '*                                                     *
  10. '*  Two more routines. MuzKey plays a different sound  *
  11. '* for each key user pressed before return the value to*
  12. '* user. And PrGraph dumps the graphics screen image in*
  13. '* mode 1 or 2 to dot matrix printer with-out using a  *
  14. '* GRAPHICS.COM of DOS.                                *
  15. '*******************************************************
  16. '*                                             *       *
  17. '*      Thank you for downloading,             *       *
  18. '*          and hope you enjoy to use them !   *       *
  19. '*                                             *       *
  20. '*  05/20/91  [GEnie: M.LEI1]    Gito          *       *
  21. '*******************************************************
  22. '
  23. ' To use those routines in INTPLUS.BAS, you need to have QB.QLB
  24. ' (or any quick lib which has been linked with QB.QLB)  loaded
  25. ' when QB.EXE started.
  26. '
  27. ' To link your module with INTERRUPT to produce .EXE files :
  28. ' simply LINK your object module .OBJ files together with
  29. ' INTRPT.OBJ provided in QBINT&.ZIP . You don't need to use
  30. ' QB.LIB, because it contains other routines you may not need.
  31. '
  32. '
  33. '* BELOW ARE USAGES FOR EACH SUB OR FUNC *
  34. '
  35. ' ////  SUB BlinkBar (NumbChar, char)  /////
  36. ' Descrp: Rapidly display a blinking bar height defined by ln,
  37. '         blinks untill a key is pressed
  38. ' Calls:  INTERRUPT
  39. '
  40. ' <<PARAMETERS>>
  41. ' NumbChar: Number of characters of length from current postion
  42. '           (INTEGER). Example: use a 5 lines' bar in screen 0, width 80,
  43. '           you will use (5 * 80) or 400.
  44. ' char:     ASCII code of character to use. (INTEGER: 1 to 255  )
  45. '           Do not use space(32) or char's you can't display.
  46. '           Use 219 will be fine.
  47. '
  48. ' Note: BlinkBar can be used in any screen mode, but the effect
  49. '       may varies. Try it in CGA screen mode 1, it's very attractive.
  50. '
  51. '
  52. ' ////////// FUNCTION SpcDrive! (drive) /////////
  53. '
  54. ' CALLS: INTERRUPTX
  55. '
  56. ' This function returns free space availiable in select drive
  57. ' (BX *  CX * AX  = total space on disk)
  58. '
  59. ' Note: Do not attemp to use this function in direct\immediate mode.
  60. '       Use with caution. Assign returning value to a single number.
  61. '
  62. ' <<PARAMETER>> Drive:
  63. '               0   for default
  64. '               1   for a:
  65. '               2   for b:
  66. '               3   for c:   etc....
  67. '
  68. ' Returning Registers:
  69. ' AX: sectors per cluster; or &HFFFF if drive number invalid (Not been tested in this function)
  70. ' BX: free  clusters ;
  71. ' DX: total clusters ;
  72. '     DX has not been used in this function. But you can use it to calculate the
  73. '     total disk space:  TotalDiskSpace!= outregs.AX * CSNG(outregs.DX) * CSNG(outregs.CX)
  74. ' CX: bytes per sector ;
  75. '
  76. '
  77. ' //////////// SUB DosPrint (text$) ///////////
  78. '
  79. '   Header: 'QB.BI' or 'INTPLUS.BI'
  80. '   CALLS : interrupt
  81. '   Update: 3/13/91
  82. '   Comments: Print text$ use a dos function.
  83. '
  84. ' //////////// FUNCTION DosVer ////////////
  85. '
  86. '   Header: "QB.BI" or 'INTPLUS.BI'
  87. '   CALLS : interrupt
  88. '   Update: 3/13/91
  89. '   Comments: Returns an integar which is the dos version
  90. '             times 100. (EX: 320 means dos version 3.20)
  91. '
  92. '
  93. '  \\\\\\\\\\\  FUNCTION UseDrive% (drive) \\\\\\\\\\
  94. '
  95. '   Calls : Interrupt
  96. '   Update: 3/13/91
  97. '   Comments: Change current drive to given value;
  98. '             returns a integar which is the total number of
  99. '             logical drives.
  100. '
  101. '
  102. '  \\\\\\\\\\\\ FUNCTION DefDrive% () \\\\\\\\\\
  103. '
  104. '   Calls : Interrupt
  105. '   Update: 3/13/91
  106. '   Comments: DefDrive returns a integer number represents
  107. '             the current default drive: 0 for A, 1 for B etc...
  108. '
  109. '
  110. ' \\\\\\\ SUB RollWind (lines, r1, c1, r2, c2, BackColor) \\\\\\\\
  111. '
  112. '   Call:   INTERRUPT
  113. '   Updata: 1/19/91
  114. '   Comments: Perform dos call scroll text window
  115. '
  116. '   <<PARAMETERS>>
  117. '   lines:  Number of lines to stroll. If postive, strolls up;
  118. '           if negative, strolls down.
  119. '   r1,c1,r2,c2:  Window range
  120. '   BackColor:  Color attri. to fill the background for the new line(s).
  121. '
  122. ' \\\\\\\ SUB GetFileDta (Spec$, DtaBuf AS FileType, ErrCode) STATIC \\\\\\\
  123. '
  124. '   Header: None
  125. '   CALLS : INTERRUPTX
  126. '
  127. '   This file returns a file data block contains file informations.
  128. '   <see TYPE FileDta for specification>. Calls this sub in a loop
  129. '   until ErrCode <> 0.
  130. '   -- PARAMETERS --
  131. '   Spec$   : Passed parameter of path+drive specification;
  132. '   DtaBuf  : Returned file data block
  133. '   ErrCode : Returns a none zero number when last record is read.
  134. '
  135. '\\\\\\\ FUNCTION GetDirSpec$ (Drive) \\\\\\\
  136. '
  137. '   CALLS: INTERRUPTX
  138. '
  139. '   Returns directory information of specified drive;
  140. '   Drive:  0 is default; 1 : drive A; 2 : drive B; 3 ...etc.
  141. '
  142. '////////////  FUNCTION MuzKey$ STATIC /////////////
  143. '
  144. '   Header: None               
  145. '   CALLS : None                -- not a interrupt
  146. '   Update: 3/13/91
  147. '   Comments: This function waits and returns a key pressed by user.
  148. '             Any key user presses, will generate a different sound.
  149. '   Note:     To change the length for each note it plays, simply change
  150. '             PLAY "LnN=" +...,  in which n (1 - 64) is a fraction of a
  151. '             whole note. For example 4 = a quarter, 64 = 1/64 note long.
  152. '
  153. '////////// SUB PrGraph (ScrMode, Lmargin, c1, r1, c2, r2) //////////
  154. '
  155. ' Dump graphics screen image enclosed by (c1,r1)-(c2,r2) to
  156. ' Epson or compatible DOT-MATRIX printer.
  157. '
  158. ' <<PARAMETERS>>                            -- not  a interrupt
  159. ' ScrMode: Graphics mode. (CGA 1 or 2 only)
  160. ' Lmargin: left margin (skip spaces)
  161. '
  162. ' printing range: form (c1,r1) to (c2,r2), has the same rules as using
  163. '       Line (c1,r1)-(c2,r2) in BASIC.
  164. '
  165. '******************************************************************
  166. '*     <<<<<End of documentation.>>>>>                            *
  167. '* This help file uses BASIC comment syntax for each line and is  *
  168. '* in ASCii: because I've seperate these from the original module *
  169. '* so that it needs less memory storage. So you can load this file*
  170. '* any time to look at it. Even if you load this file as a module *
  171. '* (I sometimes make such kind of mistake), it won't bother you   *
  172. '* too much.                                                      *
  173. '******************************************************************
  174.  
  175.  
  176.