home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / qb4tb520.arj / MIXED.DEF < prev    next >
Encoding:
Text File  |  1991-08-24  |  2.7 KB  |  59 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.20
  8. '   Date:       25/6/1991
  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. '   ******* Note that ATTRIBUTE% is now in the TOOLBOX Library ****************
  17. '
  18.     DECLARE FUNCTION BinDec& (Binary$)
  19.     DECLARE FUNCTION BitTest% (Number%, Bit%)
  20.     DECLARE FUNCTION Centre$ (Text$, MaxWidth%)
  21.     DECLARE FUNCTION DateInput$ (Default$, Context%, Topic$, HotKey%)
  22.     DECLARE FUNCTION DaysBetween& (Date1$, Date2$)
  23.     DECLARE FUNCTION DecBin$ (Decimal&)
  24.     DECLARE FUNCTION DosVersion$ ()
  25. '
  26. '   ******* Note that FINDFILE$ now has two extra parameters ******************
  27. '
  28.     DECLARE FUNCTION FindFile$ (FileSpec$, Attr%, Mouse%)
  29.     DECLARE FUNCTION GetFlag% (Flag%)
  30.     DECLARE FUNCTION GrAttrib% (ForeGround%, BackGround%)
  31.     DECLARE FUNCTION IsDir% (Test$)
  32.     DECLARE FUNCTION LegalName% (FileSpec$)
  33.     DECLARE FUNCTION LineUp$ (Num#, Places%, Comma%, Length%, Currency$)
  34.     DECLARE FUNCTION LongDate$(Day%, Month%, Year%)
  35.     DECLARE FUNCTION Match% (Start%, Search$, Pattern$)
  36.  
  37. '   ******* Note that REVINPUT$ now has two extra parameters *****************
  38. '
  39.     DECLARE FUNCTION RevInput$ (Max%, Default$, Legal$, Ctx%, Topic$,_
  40.                                 Mask%, HotKey%)
  41.     DECLARE FUNCTION Round$ (Number#, Places%)
  42.     DECLARE FUNCTION ScreenMode% ()
  43.  
  44.     DECLARE SUB BarMenu (P1%, P2%, P3%, Menu$(), P5%, P6%, P7%, P8$, Mouse%)
  45.     DECLARE SUB BitReSet (Number%, Bit%)
  46.     DECLARE SUB BitSet (Number%, Bit%)
  47.     DECLARE SUB CheckPrinter (Printer%, Ready%)
  48.     DECLARE SUB Panel (Row%, Col%, Rows%, Cols%, Border%, Attr%)
  49.     DECLARE SUB SetFlag (Flag%, Setting%)
  50.     DECLARE SUB SortFile (PathName$, OffSet%, FieldLen%, RecordLen%, Done%)
  51.     DECLARE SUB VerMenu (P1%, P2%, P3%, P4%, P5%, P6$, Menu$(),_
  52.                          P8%, P9%, P10%, P11%, P12$, Mouse%)
  53.     DECLARE SUB VideoMode (Colour%, MaxRes%, VideoRam%)
  54.     DECLARE SUB WaitaSec (Seconds!)
  55.  
  56. ' ┌────────────────────────────────────────────────────────────────────────┐
  57. ' │     (c) 1988,1990,1991 By Christy Gemmell and Singular SoftWare        │
  58. ' └────────────────────────────────────────────────────────────────────────┘
  59.