home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / baswiz19.zip / BW$BAS.ZIP / VWSQ.BAS < prev    next >
BASIC Source File  |  1993-01-29  |  1KB  |  30 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        BASWIZ  Copyright (c) 1990-1993  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      The BASIC Wizard's Library                      |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DECLARE SUB WGetMem0 (BYVAL Rows%, BYVAL Columns%, Bytes&, ErrCode%)
  10.    DECLARE SUB WInit0 (BYVAL Rows%, BYVAL Columns%, ErrCode%)
  11.    DECLARE SUB WOpen0 (BYVAL Rows%, BYVAL Columns%, BYVAL SRow1%, BYVAL SCol1%, BYVAL SRow2%, BYVAL SCol2%, Handle%, ErrCode%)
  12.  
  13.    DEFINT A-Z
  14.  
  15. SUB WInit (Rows, Columns, ErrCode)
  16.    WGetMem0 Rows, Columns, Bytes&, ErrCode
  17.    IF ErrCode = 0 THEN
  18.       Bytes& = SETMEM(-(Bytes& + Bytes&))
  19.       WInit0 Rows, Columns, ErrCode
  20.    END IF
  21. END SUB
  22.  
  23. SUB WOpen (Rows, Columns, Row1, Col1, Row2, Col2, Handle, ErrCode)
  24.    WGetMem0 Rows, Columns, Bytes&, ErrCode
  25.    IF ErrCode = 0 THEN
  26.       Bytes& = SETMEM(-Bytes&)
  27.       WOpen0 Rows, Columns, Row1, Col1, Row2, Col2, Handle, ErrCode
  28.    END IF
  29. END SUB
  30.