home *** CD-ROM | disk | FTP | other *** search
- let %!a = %1
- if %!a0 = 0 goto ERROR
- let %!b = %2
- if %!b0 = 0 goto ERROR
- let %!c = %3
- if %!c0 = 0 goto ERROR
- let %!d = %4
- if %!d0 = 0 goto ERROR
- double_box %!a %!b %!c %!d
- GOTO END
- :ERROR
- echo.
- echo \\7 SYNTAX---: BOX2 #r1 #c1 #r2 #c2
- echo EXAMPLE--: BOX2 1 1 23 80
- echo This draws a double line box from row 1 column 1 to row 2
- echo column 80.
- echo.
- echo Like dBASE's @ 0,0 to 22,79 double
- echo.
- echo.
- echo.
- :END
-