home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_tools / vbit11 / idbtools.bas < prev    next >
BASIC Source File  |  1995-01-22  |  4KB  |  71 lines
  1. Declare Function AnsiToAscii$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  2. Declare Function AsciiToAnsi$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  3. Declare Function CRLF$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal ascii%)
  4. Declare Function Decrypt$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  5. Declare Function Decrypt7$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  6. Declare Function DecryptZ$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  7. Declare Function Encrypt$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  8. Declare Function Encrypt7$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  9. Declare Function EncryptZ$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal cryptStr$)
  10. Declare Function Find% Lib "IDBTOOLS.DLL" (ByVal findString$, ByVal inString$, ByVal pos%)
  11. Declare Function FullPath$ Lib "IDBTOOLS.DLL" (ByVal filePattern$)
  12. Declare Function IdbToolsVersion$ Lib "IDBTOOLS.DLL" ()
  13. Declare Function IniFileGetString$ Lib "IDBTOOLS.DLL" (ByVal fileName$, ByVal section$, ByVal entry$)
  14. Declare Function IniFilePutString% Lib "IDBTOOLS.DLL" (ByVal fileName$, ByVal section$, ByVal entry$, ByVal newString$)
  15. Declare Function LicenseGetCode$ Lib "IDBTOOLS.DLL" (ByVal lname$, ByVal lcode$)
  16. Declare Function LicenseIdbTools% Lib "IDBTOOLS.DLL" (ByVal lname$, ByVal lcode$)
  17. Declare Function LicenseProgram% Lib "IDBTOOLS.DLL" (ByVal lname$, ByVal lcode$, ByVal key$)
  18. Declare Function Modulus10$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  19. Declare Function Modulus10Calc$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  20. Declare Function Modulus10Valid% Lib "IDBTOOLS.DLL" (ByVal strIn$)
  21. Declare Function Modulus11$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  22. Declare Function Modulus11Calc$ Lib "IDBTOOLS.DLL" (ByVal strIn$)
  23. Declare Function Modulus11Valid% Lib "IDBTOOLS.DLL" (ByVal strIn$)
  24. Declare Function Num0$ Lib "IDBTOOLS.DLL" (ByVal value&, ByVal nDigits%)
  25. Declare Function Pick$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal pos%, ByVal num%)
  26. Declare Function PickWord$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal pos%, ByVal delim%)
  27. Declare Function PickWords$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal pos%, ByVal num%, ByVal delim%)
  28. Declare Function Place$ Lib "IDBTOOLS.DLL" (ByVal fromStr$, ByVal toStr$, ByVal pos%, ByVal num%)
  29. Declare Function Strip$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal delim%, ByVal stripType%)
  30. Declare Function Subst$ Lib "IDBTOOLS.DLL" (ByVal oldStr$, ByVal newStr$, ByVal inString$, pos%)
  31. Declare Function SubstAll$ Lib "IDBTOOLS.DLL" (ByVal oldStr$, ByVal newStr$, ByVal inString$)
  32. Declare Function SwapChrs$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal chrs$)
  33. Declare Function SwapDate$ Lib "IDBTOOLS.DLL" (ByVal dateIn$)
  34. Declare Function SwapStr$ Lib "IDBTOOLS.DLL" (ByVal strIn$, ByVal fromFmt$, ByVal toFmt$)
  35. Declare Function SysInfo$ Lib "IDBTOOLS.DLL" (ByVal what%)
  36. Declare Function SysInfoNum& Lib "IDBTOOLS.DLL" (ByVal what%)
  37. Declare Sub IdbTrace Lib "IDBTOOLS.DLL" (ByVal strIn$)
  38. Declare Sub IdbTraceStr Lib "IDBTOOLS.DLL" (ByVal strIn$)
  39.  
  40. ' Types for Strip (Leading/Trailing or Left/Right):
  41. Global Const STRIP_L% = &H100
  42. Global Const STRIP_T% = &H200
  43. Global Const STRIP_R% = &H200
  44. Global Const STRIP_LT% = &H300
  45. Global Const STRIP_LR% = &H300
  46. Global Const STRIP_ALL% = &H400
  47.  
  48. ' Types for SysInfo:
  49. Global Const SCREEN_SIZE_X% = 1
  50. Global Const SCREEN_SIZE_Y% = 2
  51. Global Const SCREEN_SIZE_PALETTE% = 3
  52. Global Const MEMORY_FREE_KB% = 4
  53. Global Const MEMORY_BIGGEST_FREE_BLOCK_KB% = 5
  54. Global Const DISK_DRIVE% = 6
  55. Global Const DIR_WINDOWS% = 7
  56. Global Const DIR_WINDOWS_SYSTEM% = 8
  57. Global Const DISK_FREE_KB% = &H80
  58. Global Const DISK_SIZE_KB% = &H100
  59. Global Const DISK_PATH% = &H1000
  60. Global Const DISK_TYPE% = &H1080
  61. Global Const DISK_VOLUME_SERIAL_NUMBER% = &H1100
  62. Global Const DISK_VOLUME_LABEL% = &H1180
  63. Global Const DISK_VOLUME_DATE% = &H1200
  64. Global Const DISK_VOLUME_TIME% = &H1280
  65.  
  66. ' SysInfo(DISK_TYPE) returns:
  67. Global Const DRIVE_REMOVABLE% = 2
  68. Global Const DRIVE_FIXED% = 3
  69. Global Const DRIVE_REMOTE% = 4
  70.  
  71.