home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / window / qb4win32 / w32.dec < prev    next >
Encoding:
Text File  |  1990-09-23  |  2.4 KB  |  50 lines
  1. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. '   These statements are in a file called W32.DEC and should be merged
  3. '   or included ( use REM $INCLUDE:'W32.DEC') with any program using the
  4. '   W32 library.  Programs load slower with INCLUDE statements but are easier
  5. '   to update.
  6. DECLARE SUB Adapter (a%) : 'returns active adapter  0\mono 1\cga 2\ega 3\vga
  7. DECLARE SUB Border (BYVAL b%)
  8. DECLARE SUB CloseLastW ()
  9. DECLARE SUB CloseW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  10. DECLARE SUB CloseWgra (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  11. DECLARE SUB ConvertTG (tr%, lc%, br%, rc%)
  12. DECLARE SUB DebugW ()
  13. DECLARE SUB DefBorder (x$)
  14. DECLARE SUB Dump1 (BYVAL segment%, BYVAL offset%, BYVAL attr%, BYVAL NLines%, BYVAL Row%)
  15. DECLARE SUB FillW (BYVAL offset%, BYVAL stringAddress%)
  16. DECLARE SUB InitW (RR%, CC%)
  17. DECLARE SUB Int10 (ax%, bx%, cx%, dx%)
  18. DECLARE SUB Int3
  19. DECLARE SUB KLS
  20. DECLARE SUB Kolor (BYVAL fore%, BYVAL back%)
  21. DECLARE SUB Lokate (BYVAL r%, BYVAL c%)
  22. DECLARE SUB MapMask (BYVAL m%)
  23. DECLARE SUB Monochrome ()
  24. DECLARE SUB OpenW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  25. DECLARE SUB Prnt (a$)
  26. DECLARE SUB Printt (a$, BYVAL attr%, BYVAL r%, BYVAL c%)
  27. DECLARE SUB PrntW (a$)
  28. DECLARE SUB PrintW (a$, BYVAL attr%, BYVAL r%, BYVAL c%)
  29. DECLARE SUB PrntS (BYVAL i!)
  30. DECLARE SUB PrntUsingS (Mask$, BYVAL i!)
  31. DECLARE SUB ReadScreen (a$, BYVAL r%, BYVAL c%)
  32. DECLARE SUB Refresh ()
  33. DECLARE SUB SaveW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  34. DECLARE SUB SaveWgra (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  35. DECLARE SUB ScrollD (BYVAL Lines%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  36. DECLARE SUB ScrollL (BYVAL cols%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  37. DECLARE SUB ScrollR (BYVAL cols%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  38. DECLARE SUB scrollU (BYVAL Lines%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  39. DECLARE SUB SetViewPage (BYVAL p%)
  40. DECLARE SUB SetViewW (BYVAL Page%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  41. DECLARE SUB SnowCheckingOn
  42. DECLARE SUB SnowCheckingOff
  43. DECLARE SUB Tabb (BYVAL Col%)
  44. DECLARE SUB WSize (Bytes&, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  45. DECLARE SUB WSizeGra (Bytes&, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
  46. '$DYNAMIC
  47. COMMON SHARED RR AS INTEGER, CC AS INTEGER
  48. InitW RR,CC
  49. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  50.