home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qb4tb522 / toolbox.def < prev    next >
Encoding:
Text File  |  1992-02-25  |  9.1 KB  |  208 lines
  1. ' TOOLBOX.DEF   this is a set of prototype declarations for the procedures
  2. '               which are included in the ASSEMBLY-LANGUAGE TOOLBOX. Include
  3. '               only the routines which you intend to use in your code.
  4. '
  5. '   Author:     Christy Gemmell
  6. '   For:        Assembly-Language Toolbox for QuickBASIC
  7. '   Version:    5.22
  8. '   Date:       23/10/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 TOOLBOX.LIB and TOOLBOX.QLB. One or other of these
  14. '   libraries must be linked to the program which calls them.
  15. '
  16.     DECLARE FUNCTION Attrib% (FileSpec$)
  17.  
  18. '   ******* Note that ATTRIBUTE has been moved from MIXED library ***********
  19. '
  20.     DECLARE FUNCTION Attribute% (BYVAL Fore%, BYVAL Back%)
  21.  
  22. '   ******* Note that BITTEST has been moved from MIXED library *************
  23. '
  24.     DECLARE FUNCTION BitTest% (Number%, Bit%)
  25.  
  26.     DECLARE FUNCTION CapsLock% (BYVAL Switch%)
  27.     DECLARE FUNCTION Cpu% ()
  28.     DECLARE FUNCTION DayNumber& (BYVAL Day%, BYVAL Month%, BYVAL Year%)
  29.     DECLARE FUNCTION DiskReady% (BYVAL Drive%)
  30.     DECLARE FUNCTION DisplayMode% ()
  31.     DECLARE FUNCTION DisplayPage% ()
  32.     DECLARE FUNCTION EmsError% ()
  33.     DECLARE FUNCTION EmsFrame% ()
  34.     DECLARE FUNCTION EmsOwned% (BYVAL Handle%)
  35.     DECLARE FUNCTION EmsPages% (BYVAL Switch%)
  36.     DECLARE FUNCTION EmsPresent% ()
  37.     DECLARE FUNCTION EmsVersion% ()
  38.     DECLARE FUNCTION FarPeek% (BYVAL Segment&, BYVAL Offset&)
  39.  
  40. '   ******* Note FILESIZE is renamed from SIZEOF ***************************
  41. '
  42.     DECLARE FUNCTION FileSize& (FileSpec$)
  43.  
  44.     DECLARE FUNCTION FloppyDrives% ()
  45.     DECLARE FUNCTION FreeSpace& (BYVAL DriveNo%)
  46.     DECLARE FUNCTION GamesPort% ()
  47.  
  48. '   ******* Note new function HANDLES ****************************************
  49. '
  50.     DECLARE FUNCTION Handles% ()
  51.  
  52.     DECLARE FUNCTION Interval& (First&, Second&)
  53.     DECLARE FUNCTION KeyFlags% ()
  54.     DECLARE FUNCTION KeyIn% ()
  55.     DECLARE FUNCTION KeyStat% ()
  56.     DECLARE FUNCTION MastrEnv% ()
  57.     DECLARE FUNCTION MathsChip% ()
  58.     DECLARE FUNCTION MouseInit% ()
  59.     DECLARE FUNCTION NetTest% ()
  60.     DECLARE FUNCTION NumberDay% (Number&, Day%, Month%, Year%)
  61.     DECLARE FUNCTION NumLock% (BYVAL Switch%)
  62.     DECLARE FUNCTION ParallelPorts% ()
  63.     DECLARE FUNCTION PeekWord& (BYVAL Segment&, BYVAL Offset&)
  64.     DECLARE FUNCTION PrinterStat% (BYVAL Printer%)
  65.     DECLARE FUNCTION PrinTest% (BYVAL Printer%)
  66.     DECLARE FUNCTION RamDisk% ()
  67.     DECLARE FUNCTION Rand% (BYVAL Lower%, BYVAL Higher%)
  68.     DECLARE FUNCTION ScreenRows% ()
  69.     DECLARE FUNCTION ScreenWidth% ()
  70.     DECLARE FUNCTION ScrLock% (BYVAL Switch%)
  71.     DECLARE FUNCTION SerialPorts% ()
  72.     DECLARE FUNCTION Sharing% ()
  73.     DECLARE FUNCTION Soundex& (Text$)
  74.     DECLARE FUNCTION Spooler% ()
  75.     DECLARE FUNCTION SpoolSuspend% ()
  76.     DECLARE FUNCTION StatusLine% (Message$)
  77.     DECLARE FUNCTION StringScan% (Trgt$, BYVAL Size%, BYVAL Strt%, BYVAL Addr%)
  78.     DECLARE FUNCTION Verify% (BYVAL Default%, BYVAL Row%, Prompt$,_
  79.                               BYVAL Attr%, BYVAL Mouse%)
  80.     DECLARE FUNCTION WeekDay% (BYVAL Day%, BYVAL Month%, BYVAL Year%)
  81.  
  82.     DECLARE SUB BackFill (BYVAL Row%, BYVAL Col%, BYVAL Rows%, BYVAL Cols%,_
  83.                           BYVAL Attr%)
  84.  
  85. '   ******* Note these BIT routines moved from the MIXED library ************
  86. '
  87.     DECLARE SUB BitReSet (Number%, Bit%)
  88.     DECLARE SUB BitSet (Number%, Bit%)
  89.  
  90. '   ******* Note new BIT manipulation routines ******************************
  91. '
  92.     DECLARE SUB BitShl (Number&, Count%)
  93.     DECLARE SUB BitShr (Number&, Count%)
  94.  
  95. '   ******* Note new procedure BLINKING *************************************
  96. '
  97.     DECLARE SUB Blinking (BYVAL Switch%)
  98.     DECLARE SUB CgaCopy (BYVAL Switch%, Buffer$)
  99.     DECLARE SUB CgaScroll (BYVAL xLoc%, BYVAL yLoc%, BYVAL xPixels%,_
  100.                            BYVAL yPixels%, BYVAL Direction%)                 
  101.     DECLARE SUB CgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  102.                          BYVAL Attr%, BYVAL Scale%)
  103.     DECLARE SUB Cipher (Text$, KeyWord$)
  104.     DECLARE SUB ClearEnd (BYVAL Switch%, BYVAL Attr%)
  105.     DECLARE SUB Curtains (BYVAL Speed%, BYVAL Attr%)
  106.     DECLARE SUB Delay (BYVAL MilliSeconds%)
  107.     DECLARE SUB DisablePrtSc ()
  108.     DECLARE SUB DwPrint (BYVAL Printer%, Buffer$, BYVAL NewLine%)
  109.     DECLARE SUB EmPrint (BYVAL Printer%, Buffer$, BYVAL NewLine%)
  110.     DECLARE SUB EmsGet (BYVAL Segment%, BYVAL Offset%, BYVAL Length%,_
  111.                         BYVAL Page%, BYVAL Handle%, Done%)
  112.     DECLARE SUB EmsMap (BYVAL Handle%, Physical%, Logical%)
  113.     DECLARE SUB EmsPut (BYVAL Segment%, BYVAL Offset%, BYVAL Length%,_
  114.                         BYVAL Page%, BYVAL Handle%, Done%)
  115.     DECLARE SUB EmsRelease (BYVAL Handle%)
  116.     DECLARE SUB EmsRequest (BYVAL Pages%, Handle%)
  117.     DECLARE SUB EmsReSize (BYVAL Handle%, Pages%)
  118.     DECLARE SUB EnablePrtSc ()
  119.     DECLARE SUB EnPrint (BYVAL Printer%, Buffer$, BYVAL NewLine%)
  120.     DECLARE SUB Explode (BYVAL Y1%, BYVAL X1%, BYVAL Y2%, BYVAL X2%,_
  121.                          BYVAL Attr%, BYVAL Speed%)
  122.     DECLARE SUB FarPoke (BYVAL Segment&, BYVAL Offset&, BYVAL Byte%)
  123.     DECLARE SUB FastPrint (BYVAL Row%, BYVAL Col%, Text$, BYVAL Attr%)
  124.     DECLARE SUB FileDate (BYVAL Switch%, DateTime$, FileSpec$)
  125.     DECLARE SUB GraPrint (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  126.                           BYVAL Attr%, BYVAL Scale%)
  127.     DECLARE SUB HelpMate (BYVAL Colour%, Title$, BYVAL Context%, Topic$)
  128.     DECLARE SUB Hide (BYVAL Switch%, FileSpec$)
  129.  
  130. '   ******* Note new dialogue box procedure INFORM *************************
  131. '
  132.     DECLARE SUB Inform (BYVAL Row%, Message$, BYVAL Attr%, BYVAL Mouse%)
  133.  
  134. '   ******* Note new DOS Interface procedure INT2E *************************
  135. '
  136.     DECLARE SUB Int2E (DosCmd$)
  137.     DECLARE SUB ItPrint (BYVAL Printer%, Buffer$, BYVAL NewLine%)
  138.     DECLARE SUB KeyFlush ()
  139.     DECLARE SUB LptSwap (BYVAL Printer1%, BYVAL Printer2%)
  140.     DECLARE SUB McgaCopy (BYVAL Switch%, SEG Array())
  141.     DECLARE SUB McgaScroll (BYVAL xLoc%, BYVAL yLoc%, BYVAL xPixels%,_
  142.                             BYVAL yPixels%, BYVAL Direction%)                 
  143.     DECLARE SUB MCgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  144.                           BYVAL Attr%, BYVAL Scale%)
  145.     DECLARE SUB MisTake (BYVAL Row%, Message$, BYVAL Attr%, BYVAL Mouse%)
  146.     DECLARE SUB MouseBorder (BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%)
  147.     DECLARE SUB MouseHide ()
  148.     DECLARE SUB MouseMickey (horizontal%, vertical%)
  149.     DECLARE SUB MouseNow (leftButton%, rightButton%, xMouse%, yMouse%)
  150.     DECLARE SUB MousePressLeft (leftCount%, xMouse%, yMouse%)
  151.     DECLARE SUB MousePressRight (rightCount%, xMouse%, yMouse%)
  152.     DECLARE SUB MousePut (BYVAL xMouse%, BYVAL yMouse%)
  153.     DECLARE SUB MouseRelLeft (leftCount%, xMouse%, yMouse%)
  154.     DECLARE SUB MouseRelRight (rightCount%, xMouse%, yMouse%)
  155.  
  156. '   ******* Note new mouse procedures MOUSESAVE and MOUSERESTORE ************
  157. '
  158.     DECLARE SUB MouseRestore ()
  159.     DECLARE SUB MouseSave ()
  160.     DECLARE SUB MouseShow ()
  161.     DECLARE SUB MouseSpeed (BYVAL horizontal%, BYVAL vertical%)
  162.     DECLARE SUB MouseWarp (BYVAL threshold%)
  163.  
  164. '   ******* Note new procedure PARKHEADS ************************************
  165. '
  166.     DECLARE SUB ParkHeads ()
  167.     DECLARE SUB Pause (BYVAL Ticks%)
  168.  
  169. '   ******* Note new dialogue box procedure PERCENTBOX **********************
  170. '
  171.     DECLARE SUB PerCentBox (BYVAL Switch%, Message$, BYVAL Attr%,_
  172.                             BYVAL PerCent%)
  173.     DECLARE SUB PokeWord (BYVAL Segment&, BYVAL Offset&, BYVAL Word&)
  174.     DECLARE SUB PopUp (BYVAL Row%, BYVAL Col%, BYVAL Hght%, BYVAL Wdth%,_
  175.                        BYVAL Attr%, BYVAL Brdr%, BYVAL Shdw%, BYVAL Zoom%)
  176.  
  177. '   ******* Note additional MOUSE parameter for PRINTSET *******************
  178. '
  179.     DECLARE SUB PrintSet (BYVAL Row%, BYVAL Col%, BYVAL Attr%,_
  180.                           BYVAL Printer%, BYVAL Mouse%)
  181.     DECLARE SUB ReSeed (BYVAL Seed&)
  182.     DECLARE SUB ScreenDump ()
  183.     DECLARE SUB Scroll (BYVAL Dir%, BYVAL Y1%, BYVAL X1%, BYVAL Y2%,_
  184.                         BYVAL X2%, BYVAL Units%, BYVAL Attr%)
  185.     DECLARE SUB Secure (BYVAL Switch%, FileSpec$)
  186.     DECLARE SUB Share (BYVAL Switch%, FileSpec$)
  187.  
  188. '   ******* Note that SHUTUP now has a SPEED parameter **********************
  189. '
  190.     DECLARE SUB ShutUp (BYVAL Speed%)
  191.     DECLARE SUB SpoolDelete (FileSpec$)
  192.     DECLARE SUB SpoolFlush ()
  193.     DECLARE SUB SpoolList (Buffer$)
  194.     DECLARE SUB SpoolReStart ()
  195.     DECLARE SUB SpoolSubmit (FileSpec$)
  196.     DECLARE SUB StringSort (BYVAL Dir%, BYVAL Size%, BYVAL Addr%)
  197.     DECLARE SUB UlPrint (BYVAL Printer%, Buffer$, BYVAL NewLine%)
  198.     DECLARE SUB VGADim (BYVAL Intensity%)
  199.     DECLARE SUB VGALoad (FileSpec$)
  200.     DECLARE SUB VGAPan (BYVAL X%, BYVAL Y%)
  201.     DECLARE SUB VGASave (FileSpec$)
  202.     DECLARE SUB VgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  203.                          BYVAL Attr%, BYVAL Scale%)
  204.  
  205. ' ┌────────────────────────────────────────────────────────────────────────┐
  206. ' │     (c) 1988,1992 By Christy Gemmell and Singular SoftWare             │
  207. ' └────────────────────────────────────────────────────────────────────────┘
  208.