home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / PROGEN71.ZIP / PROLIB71.BI < prev    next >
Text File  |  1991-10-08  |  5KB  |  181 lines
  1. DEFINT A-Z
  2. ' ===========================================================================
  3. '
  4. ' PROLIB71.BI
  5. '
  6. ' ===========================================================================
  7. ' GLOBAL CONSTANTS
  8. ' ===========================================================================
  9.  
  10. CONST MINROW = 2
  11. CONST MAXROW = 25
  12. CONST MINCOL = 2
  13. CONST MAXCOL = 80
  14. CONST MAXMENU = 10
  15. CONST MAXITEM = 20
  16. CONST MAXWINDOW = 10
  17.  
  18. CONST BLACK = 0
  19. CONST BLUE = 1
  20. CONST GREEN = 2
  21. CONST CYAN = 3
  22. CONST RED = 4
  23. CONST MAGENTA = 5
  24. CONST BROWN = 6
  25. CONST WHITE = 7
  26. CONST DARKGREY = 8
  27. CONST LIGHTBLUE = 9
  28. CONST LIGHTGREEN = 10
  29. CONST LIGHTCYAN = 11
  30. CONST LIGHTRED = 12
  31. CONST LIGHTMAGENTA = 13
  32. CONST YELLOW = 14
  33. CONST BRIGHTWHITE = 15
  34.  
  35. CONST YES = 1
  36. CONST NO = 0
  37. CONST TRUE = YES
  38. CONST FALSE = NO
  39.  
  40. CONST F1 = 59
  41. CONST F2 = 60
  42. CONST F3 = 61
  43. CONST F4 = 62
  44. CONST F5 = 63
  45. CONST F6 = 64
  46. CONST F7 = 65
  47. CONST F8 = 66
  48. CONST F9 = 67
  49. CONST F10 = 68
  50.  
  51. CONST SHIFT = 25
  52. CONST CONTROL = 35
  53. CONST ALT = 45
  54.  
  55. CONST SHIFTTAB = 15
  56. CONST HOME = 71
  57. CONST UPK = 72
  58. CONST PGUP = 73
  59. CONST LEFTK = 75
  60. CONST RIGHTK = 77
  61. CONST ENDK = 79
  62. CONST DOWNK = 80
  63. CONST PGDN = 81
  64. CONST INSERTK = 82
  65. CONST DELETEK = 83
  66. CONST CTRLPRTSCR = 114
  67. CONST CTRLLEFTARROW = 115
  68. CONST CTRLRIGHTARROW = 116
  69. CONST CTRLEND = 117
  70. CONST CTRLPGDN = 118
  71. CONST CTRLHOME = 119
  72. CONST CTRLPGUP = 132
  73. CONST SPACE = 32, ESC = 27, ENTER = 13, TABKEY = 9
  74. CONST NULL = 0
  75. CONST CTRLE = 5, CTRLD = 4, CTRLG = 7, CTRLH = 8, CTRLS = 19, CTRLV = 22
  76.  
  77. 'functions in PROLIB71.ASM
  78.  
  79. DECLARE SUB getcopybox (row1%, col1%, row2%, col2%, buffer$)
  80. DECLARE SUB putcopybox (ROW%, col%, buffer$)
  81. DECLARE SUB attrbox (row1%, col1%, row2%, col2%, attr%)
  82.  
  83. DECLARE SUB Colorwind (row1%, col1%, row2%, col2%, char%, wclear%, foreground%, background%)
  84. DECLARE SUB drawwind (row1%, col1%, row2%, col2%, frame%, clearflag%)
  85. DECLARE SUB pnc (a$, ROW%, col%, foreground%, background%)
  86. DECLARE SUB captal (a$)
  87. DECLARE SUB clrkeybuf ()
  88.  
  89. DECLARE SUB setflag (flag%)     'SET FLAG
  90. DECLARE SUB resetflag (flag%)   'RESET FLAG
  91. DECLARE SUB clearall            'CLEAR ALL FLAGS
  92. DECLARE FUNCTION getflag (flag%) 'GET STATE OF FLAG
  93.  
  94. DECLARE SUB GetRomDate (romdate$)
  95. DECLARE SUB GetRam (ram%, EXTram%, EXPram%)
  96. DECLARE FUNCTION GetNumLPT% ()
  97. DECLARE FUNCTION GetNumCom% ()
  98. DECLARE FUNCTION GetNumFlop% ()
  99. DECLARE FUNCTION GetNumGames% ()
  100. DECLARE FUNCTION GetNumHard% ()
  101. DECLARE FUNCTION CPUcheck% ()
  102. DECLARE FUNCTION VIDEOcheck% ()
  103.  
  104. 'function and subs in PROLIB.LIB
  105.  
  106. DECLARE SUB DspEquipment () 'displays all equipment above in window
  107.  
  108. DECLARE FUNCTION GetShiftState% (bit%)
  109. DECLARE SUB CapsOn ()
  110. DECLARE SUB CapsOff ()
  111. DECLARE SUB GetSingle (keycode%, codetype%)
  112. DECLARE SUB waitkey (ROW%, fg%, bg%)
  113.  
  114. DECLARE SUB Reg8to16 (Reg16 AS LONG, RegHigh AS INTEGER, RegLow AS INTEGER)
  115. DECLARE SUB Reg16to8 (Reg16 AS LONG, RegHigh AS INTEGER, RegLow AS INTEGER)
  116. DECLARE SUB Reg8to4 (Reg8 AS INTEGER, RegHigh AS INTEGER, RegLow AS INTEGER)
  117.  
  118. DECLARE SUB AskQuestion (mop$(), numlines, Border, DispPos, FrmFG, FrmBG, GenFG, GenBG, Ques$, ans$)
  119. DECLARE SUB Message (mop$(), lines%, Border%, FrmFG%, FrmBG%, GenFG%, GenBG%)
  120.  
  121. DECLARE SUB GetBackground (row1%, col1%, row2%, col2%, buffer$)
  122. DECLARE SUB PutBackground (ROW%, col%, buffer$)
  123.  
  124. DECLARE SUB keysort (List$(), numelements%, Startpos%, Sortlen%)
  125. DECLARE SUB quicksort (fl$(), Elements%)
  126.  
  127. DECLARE FUNCTION MenuBar% (ROW%, col%, MenuStr$, MenuFore%, MenuBack%, Reversed%, SP%)
  128. DECLARE FUNCTION MenuWindow% (ROW%, col%, MenuStr$, title$, MenuFore%, MenuBack%, Reversed%, allowesc%)
  129. DECLARE FUNCTION SelBox% (TempKey$(), numele%, lenview%, diswide%, fg%, bg%, rev%)
  130.  
  131. DECLARE SUB DialogBox (Ques$(), Before%, After%, LENGTH%, FrmFG%, FrmBG%, GenFG%, GenBG%, DispPos%, Answer$, format$, Ek%)
  132. DECLARE SUB DrawBox (TopRow%, LeftCol%, Wid%, height%, FrameType%, FrmFgd%, FrmBgd%, Fill%, FillFgd%, FillBgd%, Shadow%)
  133.  
  134. DECLARE FUNCTION OpenFile% (FileName$, reclen%)
  135. DECLARE FUNCTION FileExists% (FeName$)
  136. DECLARE FUNCTION GetFileCount% (filespec$)
  137. DECLARE FUNCTION SelFiles$ (ans$)
  138.  
  139. DECLARE FUNCTION GetPassword$ (FrmFG%, FrmBG%, GenFG%, GenBG%, DispPos%, Ek%)
  140. DECLARE FUNCTION GetDate$ ()
  141. DECLARE FUNCTION CheckFunction% (ch%)
  142. DECLARE FUNCTION CheckPrinter% ()
  143.  
  144. DECLARE FUNCTION Minimum% (v1%, v2%)
  145. DECLARE FUNCTION Maximum% (v1%, v2%)
  146.  
  147. DECLARE FUNCTION FEN$ (SB%, EFG%, EBG%, work$, format$, Exitcode%, UPflag%, PGUPflag%, DNflag%, PGDNflag%, RETflag%, TABflag%, escflag%)
  148. DECLARE FUNCTION FES$ (SB%, EFG%, EBG%, work$, format$, caseflag%, Exitcode%, UPflag%, PGUPflag%, DNflag%, PGDNflag%, RETflag%, TABflag%, escflag%, F10flag%)
  149. DECLARE FUNCTION userNformat$ (wrk$, format$)
  150. DECLARE FUNCTION userSformat$ (wrk$, format$)
  151. DECLARE FUNCTION RemoveCHAR$ (userstring$, skip$)
  152. DECLARE FUNCTION removeformat$ (work$, format$)
  153. DECLARE SUB FormatDEC (number$, beforeDEC%, afterdec%)
  154.  
  155. DECLARE FUNCTION Str2Token$ (Srce$, DELIM$)
  156.  
  157. DECLARE SUB Trim (a$)
  158. DECLARE SUB CenterText (mop$, ROW%, fg%, bg%)
  159. DECLARE SUB CenterPrn (mop$, PW%)
  160. DECLARE SUB MsgLine (msg$, lin%, mfg%, mfb%)
  161. DECLARE SUB PadStr (a$, b%)
  162.  
  163. '  STANDARD Routine Definitions
  164.  
  165. 'Define Data Types
  166.  
  167. TYPE MenuData
  168.    WordStart  AS INTEGER
  169.    WordLen    AS INTEGER
  170.    MenuLetter AS STRING * 1
  171.    MenuWord   AS STRING * 40
  172. END TYPE
  173.  
  174. 'Declare Functions
  175.  
  176. 'menu option
  177.  
  178.    DIM SHARED moption$(20)
  179.    DIM SHARED MsgOpt$(6)  '  Scroll Box & Message Values
  180.  
  181.