home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / DAS-NB02.INC < prev    next >
Text File  |  1996-07-04  |  11KB  |  206 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NB02.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6.   TYPE CountryCodeTYPE
  7.     CountryCode AS INTEGER
  8.     DateFormat  AS INTEGER
  9.     MoneySymbol AS STRING * 5
  10.     ThousandSep AS INTEGER
  11.     DecimalSep  AS INTEGER
  12.     DateSep     AS INTEGER
  13.     TimeSep     AS INTEGER
  14.     MoneyFormat AS BYTE
  15.     MoneyDecs   AS BYTE
  16.     TimeFormat  AS BYTE
  17.     UcaseRout   AS DWORD
  18.     ListSep     AS INTEGER
  19.   END TYPE
  20. '────────────────────────────────────────────────────────────────────────────
  21.   TYPE DOSdisplayTYPE
  22.     Spec  AS STRING * 13
  23.     Size  AS STRING * 10
  24.     Date  AS STRING *  9
  25.     Time  AS STRING *  7
  26.     Attr  AS STRING *  4
  27.   END TYPE
  28. '────────────────────────────────────────────────────────────────────────────
  29. '════════════════════════════════════════════════════════════════════════════
  30. DECLARE FUNCTION fChDir%            (SEG Path$)
  31. DECLARE FUNCTION fChDrive%          (SEG Drive$)
  32. DECLARE FUNCTION fCURDIR$           (SEG Drive$)
  33. DECLARE      SUB  DATE2YMD          (SEG ANY,SEG Year??,SEG Mon?,SEG Day?)
  34. DECLARE FUNCTION fDateFormat?       ()
  35. DECLARE FUNCTION fDateSep?          ()
  36. DECLARE FUNCTION fDAYS2DATE$        (BYVAL Days??)
  37. DECLARE FUNCTION fDAYS2DATE8$       (BYVAL Days??)
  38. DECLARE FUNCTION fDAYS2DAY?         (BYVAL Days??)
  39. DECLARE FUNCTION fDAYS2YMD?         (BYVAL Days??,SEG Y??,SEG M?,SEG D?)
  40. DECLARE FUNCTION fDiskFree&         (SEG Drive$)
  41. DECLARE FUNCTION fDiskSize&         (SEG Drive$)
  42. DECLARE FUNCTION fDOSversion%       ()
  43. DECLARE FUNCTION fDRIVEREADY%       (SEG Drive$)
  44. DECLARE      SUB  DTA2HMS           (SEG H?,SEG M?,SEG S?)
  45. DECLARE      SUB  DTA2YMD           (SEG Y??,SEG M?,SEG D?)
  46. DECLARE FUNCTION fDTAattr?          ()
  47. DECLARE FUNCTION fDTAdate??         ()
  48. DECLARE FUNCTION fDTAfile$          ()
  49. DECLARE FUNCTION fDTAfirstDir%      (SEG Spec$)
  50. DECLARE FUNCTION fDTAfirstFILE%     (SEG Mask$,BYVAL Attr?)
  51. DECLARE FUNCTION fDTAget$           ()
  52. DECLARE FUNCTION fDTAnextDir%       ()
  53. DECLARE FUNCTION fDTAnextFILE%      ()
  54. DECLARE FUNCTION fDTAPTR???         ()
  55. DECLARE      SUB  DTAput            (SEG DTA$)
  56. DECLARE FUNCTION fDTAsize&          ()
  57. DECLARE FUNCTION fDTAtime??         ()
  58. DECLARE FUNCTION fFILEATTR$         (BYVAL Attr?)
  59. DECLARE FUNCTION fFILEMATCH%        (SEG Mask$,SEG File$)
  60. DECLARE FUNCTION fGetAttrib%        (SEG File$)
  61. DECLARE FUNCTION fGetCollate$       ()
  62. DECLARE FUNCTION fGetUcase$         ()
  63. DECLARE FUNCTION fHM2HM$            (BYVAL H?,BYVAL M?)
  64. DECLARE FUNCTION fHMS2LONG&         (BYVAL H?,BYVAL M?,BYVAL S?)
  65. DECLARE FUNCTION fHMS2TIME$         (BYVAL Hour?,BYVAL Mins?,BYVAL Secs?)
  66. DECLARE FUNCTION fHMS2WORD??        (BYVAL H?,BYVAL M?,BYVAL S?)
  67. DECLARE FUNCTION fISdrive%          (SEG Drive$)
  68. DECLARE FUNCTION fKILLFILE%         (SEG File$)
  69. DECLARE FUNCTION fLastDrive%        ()
  70. DECLARE FUNCTION fLCASE$            (BYVAL Txt$)
  71. DECLARE      SUB  LCASEstr          (SEG ANY)
  72. DECLARE FUNCTION fLEAPYEAR?         (BYVAL Year??)
  73. DECLARE      SUB  LONG2HMS          (BYVAL T&,SEG H?,SEG M?,SEG S?)
  74. DECLARE FUNCTION fLONG2TIME$        (BYVAL T&)
  75. DECLARE FUNCTION fLPTready%         (BYVAL LPTno?)
  76. DECLARE FUNCTION fMKDIR%            (SEG Path$)
  77. DECLARE FUNCTION fMouse?            ()
  78. DECLARE FUNCTION fMouseBUTTON%      ()
  79. DECLARE FUNCTION  MouseBUTTONs      (BYVAL HotButtons?)
  80. DECLARE      SUB  MouseCLEAR        ()
  81. DECLARE      SUB  MouseCoffG        (BYVAL LCol%,BYVAL TRow%,BYVAL RCol%,BYVAL BRow%)
  82. DECLARE      SUB  MouseCoffT        (BYVAL TRow?,BYVAL LCol?,BYVAL BRow?,BYVAL RCol?)
  83. DECLARE      SUB  MouseCoffT2       (BYVAL TRow?,BYVAL LCol?,BYVAL Rows?,BYVAL Cols?)
  84. DECLARE      SUB  MouseCURSOR       (BYVAL Mchar?,BYVAL Mattr?,BYVAL Cchar?,BYVAL Cattr?)
  85. DECLARE      SUB  MouseGBox         (BYVAL Col%,BYVAL Row%,BYVAL Cols%,BYVAL Rows%)
  86. DECLARE      SUB  MouseGBox2        (BYVAL LCol%,BYVAL TRow%,BYVAL RCol%,BYVAL BRow%)
  87. DECLARE FUNCTION fMouseGetKey%      ()
  88. DECLARE      SUB  MouseLOCATE       (BYVAL Row?,BYVAL Col?)
  89. DECLARE      SUB  MouseOFF          ()
  90. DECLARE      SUB  MouseON           ()
  91. DECLARE      SUB  MouseONnow        ()
  92. DECLARE      SUB  MousePOINTER      (SEG Carr%)
  93. DECLARE      SUB  MousePUT          (BYVAL Col%,BYVAL Row%)
  94. DECLARE FUNCTION fMouseSETUP?       (BYVAL HotButtons?)
  95. DECLARE FUNCTION fMouseSTATsG%      (SEG Col%,SEG Row%)
  96. DECLARE FUNCTION fMouseSTATsT%      (SEG Row?,SEG Col?)
  97. DECLARE      SUB  MouseTBox         (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?)
  98. DECLARE      SUB  MouseTBox2        (BYVAL TRow?,BYVAL LCol?,BYVAL BRow?,BYVAL RCol?)
  99. DECLARE      SUB  MouseVPAGE        (BYVAL PageNo?)
  100. DECLARE FUNCTION fPROGNAME$         ()
  101. DECLARE FUNCTION fPROGPATH$         ()
  102. DECLARE FUNCTION fReadB?            (BYVAL H%)
  103. DECLARE FUNCTION fReadBlock?        (BYVAL H%,SEG ANY,BYVAL Bytes??)
  104. DECLARE FUNCTION fReadD???          (BYVAL H%)
  105. DECLARE FUNCTION fReadI%            (BYVAL H%)
  106. DECLARE FUNCTION fReadL&            (BYVAL H%)
  107. DECLARE FUNCTION fReadW??           (BYVAL H%)
  108. DECLARE FUNCTION fRMDIR%            (SEG Path$)
  109. DECLARE FUNCTION fSeek&             (BYVAL H%)
  110. DECLARE FUNCTION fSeekEnd&          (BYVAL H%)
  111. DECLARE FUNCTION fSeekRel&          (BYVAL H%,BYVAL MoveSize&)
  112. DECLARE FUNCTION fSetAttrib%        (SEG File$,BYVAL Attr?)
  113. DECLARE FUNCTION fSetCountry%       (BYVAL CntryCode%)
  114. DECLARE      SUB  SetDateFormat     (BYVAL DateForm?,BYVAL DateSep?)
  115. DECLARE      SUB  SetLowerCase      (SEG ANY)
  116. DECLARE      SUB  SetTimeFormat     (BYVAL TimeForm?,BYVAL TimeSep?)
  117. DECLARE      SUB  SetUpperCase      (SEG ANY)
  118. DECLARE FUNCTION fSHAREloaded?      ()
  119. DECLARE FUNCTION fSYSDATE$          ()
  120. DECLARE FUNCTION fSYSDAY?           ()
  121. DECLARE FUNCTION fSYSHM$            ()
  122. DECLARE FUNCTION fSYSHMS?           (SEG Hour?,SEG Mins?,SEG Secs?)
  123. DECLARE FUNCTION fSYSTIME$          ()
  124. DECLARE FUNCTION fSYSYMD?           (SEG Year??,SEG Month?,SEG Day?)
  125. DECLARE      SUB  TIME2HMS          (SEG ANY,SEG H?,SEG M?,SEG S?)
  126. DECLARE FUNCTION fTimeFormat?       ()
  127. DECLARE FUNCTION fTimeSep?          ()
  128. DECLARE FUNCTION fUCASE$            (BYVAL V$)
  129. DECLARE      SUB  UCASEchar         (SEG V?)
  130. DECLARE FUNCTION fUCASEchar?        (BYVAL Char?)
  131. DECLARE      SUB  UCASEdos          (SEG ANY)
  132. DECLARE FUNCTION fUCASEdos$         (BYVAL Txt$)
  133. DECLARE      SUB  UCASEkey          (SEG V%)
  134. DECLARE      SUB  UCASEstr          (SEG ANY)
  135. DECLARE FUNCTION fWORD2DATE8$       (BYVAL Datum??)
  136. DECLARE FUNCTION fWORD2HM$          (BYVAL T??)
  137. DECLARE      SUB  WORD2HMS          (BYVAL T??,SEG H?,SEG M?,SEG S?)
  138. DECLARE FUNCTION fWORD2TIME$        (BYVAL T??)
  139. DECLARE      SUB  WORD2YMD          (BYVAL Datum??,SEG Y??,SEG M?,SEG D?)
  140. DECLARE FUNCTION fWriteB?           (BYVAL H%,SEG Var?)
  141. DECLARE FUNCTION fWriteBlock?       (BYVAL H%,SEG ANY,BYVAL Bytes??)
  142. DECLARE FUNCTION fWriteD?           (BYVAL H%,SEG Var???)
  143. DECLARE FUNCTION fWriteI?           (BYVAL H%,SEG Var%)
  144. DECLARE FUNCTION fWriteL?           (BYVAL H%,SEG Var&)
  145. DECLARE FUNCTION fWriteW?           (BYVAL H%,SEG Var??)
  146. DECLARE FUNCTION fYMD2DATE$         (BYVAL Y??,BYVAL M?,BYVAL D?)
  147. DECLARE FUNCTION fYMD2DATE8$        (BYVAL Y??,BYVAL M?,BYVAL D?)
  148. DECLARE FUNCTION fYMD2DAY?          (BYVAL Y??,BYVAL M?,BYVAL D?)
  149. DECLARE FUNCTION fYMD2DAYS??        (BYVAL Y??,BYVAL M?,BYVAL D?)
  150. DECLARE FUNCTION fYMD2WORD??        (BYVAL Y??,BYVAL M?,BYVAL D?)
  151. '════════════════════════════════════════════════════════════════════════════
  152. DECLARE FUNCTION fAge%              (BYVAL Bdate$)
  153. DECLARE      SUB  CloseFile         (BYVAL FileNo%)
  154. DECLARE FUNCTION fCopyFile%         (SEG FromFile$,SEG ToFile$)
  155. DECLARE FUNCTION fCreateFile%       (SEG FileName$,SEG Handle%)
  156. DECLARE FUNCTION fDATE2DAYS??       (BYVAL Dyte$)
  157. DECLARE FUNCTION fDATE2DAYSck??     (BYVAL Dyte$)
  158. DECLARE FUNCTION fDate2Word??       (BYVAL Dyte$)
  159. DECLARE FUNCTION fDATE2YMDck??      (BYVAL Dyte$,SEG Y2??,SEG M2?,SEG D2?)
  160. DECLARE FUNCTION fDIR$              (BYVAL Mask$,BYVAL Attr?,BYVAL Fields?)
  161. DECLARE FUNCTION fDIRlist%          (F$(),SEG Mask$,BYVAL ATTR?,BYVAL Fields?,BYVAL Sorted%)
  162. DECLARE FUNCTION fDoubleClick%      ()
  163. DECLARE FUNCTION fDTAunpack$        (BYVAL Fields?)
  164. DECLARE      SUB  EventClear        ()
  165. DECLARE      SUB  EventClose        ()
  166. DECLARE FUNCTION fEventKey%         (SEG HotItem%,SEG ExitKey$)
  167. DECLARE FUNCTION fEventLastBox%     ()
  168. DECLARE FUNCTION fEventLastItem%    ()
  169. DECLARE FUNCTION fEventOpenG%       (SEG EventArr%,BYVAL NoItems%)
  170. DECLARE FUNCTION fEventOpenT%       (SEG EventArr?,BYVAL NoItems%)
  171. DECLARE      SUB  EventSetup        (BYVAL MaxEvents%,BYVAL MaxItems%)
  172. DECLARE FUNCTION fEXTRACText$       (SEG FileSpec$)
  173. DECLARE FUNCTION fEXTRACTpath$      (SEG FileSpec$)
  174. DECLARE FUNCTION fFindPath$         (BYVAL HomePath$,BYVAL DataPath$,SEG Mask$)
  175. DECLARE FUNCTION fGetCountry$       (BYVAL CntryCode%)
  176. DECLARE FUNCTION fIusing$           (BYVAL Nbr&&,BYVAL Leng%)
  177. DECLARE FUNCTION fLegalFile%        (SEG FileSpec$)
  178. DECLARE      SUB  LOCKoff           ()
  179. DECLARE      SUB  LOCKon            ()
  180. DECLARE FUNCTION fLONG2HM$          (BYVAL Tyme&)
  181. DECLARE FUNCTION fMenuKey%          (SEG IHit%,BYVAL IoS%)
  182. DECLARE FUNCTION fMoney$            (BYVAL Amount#,BYVAL Digits%)
  183. DECLARE      SUB  MouseMakePTR      (SEG Which$)
  184. DECLARE FUNCTION fOpenFile%         (SEG FileName$,SEG Handle%)
  185. DECLARE FUNCTION fPadFileName$      (SEG F$,BYVAL Length%)
  186. DECLARE FUNCTION fReNameFile%       (SEG FromName$,SEG ToName$)
  187. DECLARE      SUB  SetMoneyMask      (BYVAL Msymbol$,BYVAL MFormat%,BYVAL MDecs%)
  188. DECLARE      SUB  SetTimeDate       (SEG FileName$,BYVAL Tyme$,BYVAL Dyte$)
  189. DECLARE FUNCTION fSTRIPext$         (SEG FileSpec$)
  190. DECLARE FUNCTION fSTRIPpath$        (SEG FileSpec$)
  191. DECLARE FUNCTION fSYS2DAYS??        ()
  192. DECLARE FUNCTION fSYST2LONG&        ()
  193. DECLARE FUNCTION fSYST2WORD??       ()
  194. DECLARE FUNCTION fTIME2LONG&        (BYVAL Tyme$)
  195. DECLARE FUNCTION fTIME2LONGck&      (BYVAL Tyme$)
  196. DECLARE FUNCTION fTIME2WORD??       (BYVAL Tyme$)
  197. DECLARE FUNCTION fTIME2WORDck??     (BYVAL Tyme$)
  198. DECLARE FUNCTION fTREEfind%         (Tree$(),SEG Path$)
  199. DECLARE FUNCTION fTREElist%         (Tree$(),BYVAL Indent%,BYVAL MaxCols%,BYVAL Drive$)
  200. DECLARE FUNCTION fTREEpath$         (Tree$(),BYVAL DirNo%)
  201. DECLARE FUNCTION fVLRread1$         (BYVAL FileNo%)
  202. DECLARE FUNCTION fVLRread2$         (BYVAL FileNo%)
  203. DECLARE      SUB  VLRwrite1         (BYVAL FileNo%,SEG D$)
  204. DECLARE      SUB  VLRwrite2         (BYVAL FileNo%,SEG D$)
  205. '════════════════════════════════════════════════════════════════════════════
  206.