home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
basic
/
baswiz18.zip
/
BW$BAS.ZIP
/
WEXPLODE.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-29
|
2KB
|
47 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1992 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
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 WExplode (Handle)
WGetPlace Handle, EndRow, EndCol
WGetSize Handle, EndHigh, EndWide
High = 1: Wide = 1
Row = EndRow + EndHigh \ 2
Col = EndCol + EndWide \ 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
WSize Handle, EndHigh, EndWide
WPlace Handle, EndRow, EndCol
WUpdate
END SUB