home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / BLTQ12.ZIP / ZWINDO.BI < prev    next >
Encoding:
Text File  |  1992-08-15  |  2.3 KB  |  58 lines
  1. '******* ZWINDO 1.00-31-May-92 *******
  2. DECLARE FUNCTION ZWINDO% (SEG Packinfo AS ANY)
  3.  
  4. CONST SaveWIN = 10, BackWIN = 11, FillWIN = 12, PrintWIN = 13, CursorWIN = 14
  5.  
  6. TYPE WinSavePack
  7. Func AS INTEGER         '10=save window,11=back window
  8. Stat AS INTEGER
  9. Mode AS INTEGER         '0=default screen,1=force mono,2=force color
  10. Page AS INTEGER         '0 to max page
  11. X0 AS INTEGER           'upper-left column (0-max col)
  12. Y0 AS INTEGER           'upper-left row (0-max row)
  13. Xsize AS INTEGER        'number of columns for window (1-max columns)
  14. Ysize AS INTEGER        'number of rows for window (1-max rows)
  15. BuffPtrOff AS INTEGER   'offset of window save buffer
  16. BuffPtrSeg AS INTEGER   'segment
  17. END TYPE '20
  18.  
  19. TYPE WinFillPack
  20. Func AS INTEGER
  21. Stat AS INTEGER
  22. Mode AS INTEGER         '0=default screen,1=force mono,2=force color
  23. Page AS INTEGER         '0 to max page
  24. X0 AS INTEGER           'upper-left column (0-max col)
  25. Y0 AS INTEGER           'upper-left row (0-max row)
  26. Xsize AS INTEGER        'number of columns to fill (1-max columns)
  27. Ysize AS INTEGER        'number of rows to fill (1-max rows)
  28. AttrChar AS INTEGER     'attr byte*256+fill char(char=0 then change attr only)
  29. END TYPE '18            'e.g., &H1741 is fg=7,bg=1,char 41h ('A',CHR$(65))
  30.  
  31. TYPE WinPrintPack
  32. Func AS INTEGER
  33. Stat AS INTEGER
  34. Mode AS INTEGER         '0=default screen,1=force mono,2=force color
  35. Page AS INTEGER         '0 to max page
  36. X0 AS INTEGER           'upper-left column to start print (0-max col)
  37. Y0 AS INTEGER           'upper-left row to start print (0-max row)
  38. Xsize AS INTEGER        'max number of characters to print (1-?, or zero-term)
  39. Xoffset AS INTEGER      'start position in string to start printing from
  40. Attr AS INTEGER         'attribute to use, see FillPack
  41. TextPtrOff AS INTEGER   'offset of text string
  42. TextPtrSeg AS INTEGER   'segment
  43. END TYPE '22
  44.  
  45. TYPE WinCursorPack      'if parm= -1 that function not changed
  46. Func AS INTEGER
  47. Stat AS INTEGER
  48. Mode AS INTEGER         '0=get stat else set stats
  49. Page AS INTEGER         '0 to max page
  50. X0 AS INTEGER           'upper-left column for cursor
  51. Y0 AS INTEGER           'upper-left row for cursor
  52. cStart AS INTEGER       'scanline start for cursor
  53. cEnd AS INTEGER         'scanline end for cursor
  54. VMode AS INTEGER        'video mode to set BIOS to
  55. END TYPE '18
  56. '<End of ZWINDO.BI>
  57.  
  58.