Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STRALEY.ZIP
Filename : DRAWBOX.PRG
********************
* Name DRAWBOX.prg
* Date August 12, 1986
* Notice Copywright 1986, Stephen J. Straley
* Note This shows the use of boxes on the screen and
* how they can be incremented and decremented. The
* last screen takes advantage of the fill character
* whereas all other BOXes are just frames.
*
********************
STORE CHR(218) + CHR(196) + CHR(191) + CHR(179) + CHR(217) +;
CHR(196) + CHR(192) + CHR(179) + CHR(176) TO frame
CLEAR
STORE 1 TO counter, top, left
STORE 23 to bottom
STORE 78 to right
DO WHILE counter <> 11
@ top, left, bottom, right BOX SUBSTR(frame,1,8)
STORE top + 1 TO top
STORE left + 3 TO left
STORE bottom - 1 TO bottom
STORE right - 3 TO right
STORE counter + 1 to counter
ENDDO
@ top, left, bottom, right BOX frame
@ top + (bottom - top) / 2, left + (right - left) / 2 - 3 SAY ;
"Finished"
STORE 1 TO counter
DO WHILE counter <> 500
STORE counter + 1 TO counter
ENDDO
@ 23,00 SAY ""
* End of File
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/