home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qb4tb522 / mixed.def < prev    next >
Encoding:
Text File  |  1992-02-25  |  3.5 KB  |  85 lines
  1. ' MIXED.DEF     this is a set of prototype declarations for the procedures
  2. '               which are included in the MIXED-LANGUAGE TOOLBOX. Include
  3. '               only the routines which you intend to use in your code.
  4. '
  5. '   Author:     Christy Gemmell
  6. '   For:        Mixed-Language Toolbox for QuickBASIC
  7. '   Version:    5.22
  8. '   Date:       10/2/1992
  9. '
  10. '   Compatible with QuickBASIC 4.x, Extended QuickBASIC and BASIC 7.
  11. '
  12. '   The following prototypes refer to external procedures which are in
  13. '   the library files MIXED.LIB and MIXED.QLB. One or other of these
  14. '   libraries must be linked to the program which calls them.
  15.  
  16.     DECLARE FUNCTION BinDec& (Binary$)
  17.  
  18. '   ******* Note new function CAPITAL$ ***************************************
  19. '
  20.     DECLARE FUNCTION CapItal$ (Original$)
  21.     DECLARE FUNCTION Centre$ (Text$, MaxWidth%)
  22.     DECLARE FUNCTION DateInput$ (Default$, Context%, Topic$, HotKey%)
  23.     DECLARE FUNCTION DaysBetween& (Date1$, Date2$)
  24.     DECLARE FUNCTION DecBin$ (Decimal&)
  25.     DECLARE FUNCTION DosVersion$ ()
  26. '
  27. '   ******* Note that FINDFILE$ now has two extra parameters ******************
  28. '
  29.     DECLARE FUNCTION FindFile$ (FileSpec$, Attr%, Mouse%)
  30.     DECLARE FUNCTION GetFlag% (Flag%)
  31.     DECLARE FUNCTION GrAttrib% (ForeGround%, BackGround%)
  32.     DECLARE FUNCTION IsDir% (Test$)
  33.     DECLARE FUNCTION LegalName% (FileSpec$)
  34.     DECLARE FUNCTION LineUp$ (Num#, Places%, Comma%, Length%, Currency$)
  35.     DECLARE FUNCTION LongDate$(Day%, Month%, Year%)
  36.     DECLARE FUNCTION Match% (Start%, Search$, Pattern$)
  37.  
  38. '   ******* Note new function NEXTWORD$ **************************************
  39. '
  40.     DECLARE FUNCTION NextWord$ (Last$)
  41.  
  42. '   ******* Note that REVINPUT$ now has two extra parameters *****************
  43. '
  44.     DECLARE FUNCTION RevInput$ (Max%, Default$, Legal$, Ctx%, Topic$,_
  45.                                 Mask%, HotKey%)
  46.  
  47. '   ******* Note new function ROOTNAME$ **************************************
  48. '
  49.     DECLARE FUNCTION RootName$ (Path$, Extension%)
  50.     DECLARE FUNCTION Round$ (Number#, Places%)
  51.  
  52. '   ******* Note new function SALUTE$ ****************************************
  53. '
  54.     DECLARE FUNCTION Salute$ (Original$)
  55.     DECLARE FUNCTION ScreenMode% ()
  56.  
  57. '   ******* Note new function STRIPQUOTE$ ************************************
  58. '
  59.     DECLARE FUNCTION StripQuote$ (Source$)
  60.  
  61. '   ******* Note new function UNPAD$ *****************************************
  62. '
  63.     DECLARE FUNCTION UnPad$ (Text$, Length%)
  64.  
  65.     DECLARE SUB BarMenu (P1%, P2%, P3%, Menu$(), P5%, P6%, P7%, P8$, Mouse%)
  66.     DECLARE SUB CheckPrinter (Printer%, Ready%)
  67.     DECLARE SUB Panel (Row%, Col%, Rows%, Cols%, Border%, Attr%)
  68.  
  69. '   ******* Note new SUB program PICKLIST ************************************
  70. '
  71.     DECLARE SUB PickList (Selected%, Title$, Array() AS STRING, Attr%, Mouse%)
  72.     DECLARE SUB SetFlag (Flag%, Setting%)
  73.     DECLARE SUB SortFile (PathName$, OffSet%, FieldLen%, RecordLen%, Done%)
  74.  
  75. '   ******* Note new function SPLITNAME$ *************************************
  76. '
  77.     DECLARE SUB SplitName (Source$, Title$, Initial$, SurName$)
  78.     DECLARE SUB VerMenu (P1%, P2%, P3%, P4%, P5%, P6$, Menu$(),_
  79.                          P8%, P9%, P10%, P11%, P12$, Mouse%)
  80.     DECLARE SUB VideoMode (Colour%, MaxRes%, VideoRam%)
  81.  
  82. ' ┌────────────────────────────────────────────────────────────────────────┐
  83. ' │     (c) 1988,1992 By Christy Gemmell and Singular SoftWare             │
  84. ' └────────────────────────────────────────────────────────────────────────┘
  85.