home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 3.ddi / GENERAL.BI$ / GENERAL.bin
Encoding:
Text File  |  1990-06-24  |  1.9 KB  |  57 lines
  1. ' ===========================================================================
  2. '
  3. ' GENERAL.BI
  4. '
  5. '  Copyright (C) 1989 Microsoft Corporation, All Rights Reserved
  6. '
  7. ' ===========================================================================
  8.  
  9. ' ===========================================================================
  10. ' RegType contains the register structure for performing BIOS calls using
  11. ' CALL INTERRUPT
  12. ' ===========================================================================
  13.  
  14. TYPE RegType              'for CALL INTERRUPT
  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.      flags AS INTEGER
  23. END TYPE
  24.  
  25. ' ===========================================================================
  26. ' GLOBAL CONSTANTS
  27. ' ===========================================================================
  28.  
  29. CONST FALSE = 0
  30. CONST TRUE = -1
  31. CONST MINROW = 2
  32. CONST MAXROW = 25
  33. CONST MINCOL = 1
  34. CONST MAXCOL = 80
  35. CONST MAXMENU = 10
  36. CONST MAXITEM = 20
  37. CONST MAXWINDOW = 10
  38. CONST MAXBUTTON = 50
  39. CONST MAXEDITFIELD = 20
  40. CONST MAXHOTSPOT = 20
  41.  
  42. ' ===========================================================================
  43. ' DECLARATIONS
  44. ' ===========================================================================
  45.  
  46. DECLARE SUB Interrupt (intnum AS INTEGER, inregs AS RegType, outregs AS RegType)
  47. DECLARE SUB GetCopyBox (row1%, col1%, row2%, col2%, buffer$)
  48. DECLARE SUB PutCopyBox (row%, col%, buffer$)
  49. DECLARE SUB AttrBox (row1%, col1%, row2%, col2%, attr%)
  50. DECLARE SUB PutBackground (row%, col%, buffer$)
  51. DECLARE SUB GetBackground (row1%, col1%, row2%, col2%, buffer$)
  52. DECLARE SUB Box (row1%, col1%, row2%, col2%, fore%, back%, border$, fillFlag%)
  53. DECLARE SUB Scroll (row1%, col1%, row2%, col2%, lines%, attr%)
  54. DECLARE FUNCTION GetShiftState% (bit%)
  55. DECLARE FUNCTION AltToASCII$ (kbd$)
  56.  
  57.