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
/
WCOLLAPS.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-29
|
2KB
|
47 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
DECLARE SUB WClose (BYVAL Handle%)
DECLARE SUB WGetPlace (BYVAL Handle%, Row%, Column%)
DECLARE SUB WGetSize (BYVAL Handle%, Rows%, Columns%)
DECLARE SUB WPlace (BYVAL Handle%, BYVAL Row%, BYVAL Column%)
DECLARE SUB WSize (BYVAL Handle%, BYVAL Rows%, BYVAL Columns%)
DECLARE SUB WUpdate ()
DEFINT A-Z
SUB WCollapse (Handle)
WGetPlace Handle, Row, Col
WGetSize Handle, High, Wide
EndHigh = 1: EndWide = 1
EndRow = Row + High \ 2
EndCol = Col + Wide \ 2
DO
WSize Handle, High, Wide
WPlace Handle, Row, Col
WUpdate
IF Row < EndRow THEN
Row = Row + 1
High = High - 2
IF High < EndHigh THEN High = EndHigh
END IF
IF Col < EndCol THEN
Col = Col + 1
Wide = Wide - 2
IF Wide < EndWide THEN Wide = EndWide
END IF
IF Col < EndCol THEN
Col = Col + 1
Wide = Wide - 2
IF Wide < EndWide THEN Wide = EndWide
END IF
LOOP UNTIL Row = EndRow AND Col = EndCol
WClose Handle
WUpdate
END SUB