Post by Admin on Jan 3, 2020 22:30:09 GMT
This is a bordered, filled easily modified box.
REM look carefully. It is a bordered box (designed and easily modified)
MODE 8:REM a graphics screen
REM make a white box with borderline decoration
PROCsbox(100,100,500,500,"15")
END
REM SBOX x,y,width,height,fillcolor
DEF PROCsbox(x%,y%,w%,h%,c$)
LOCAL ry%,sx%,sy%
sx%=x%:sy%=y%
IF x%>w% THEN x%=w%:w%=sx%
IF y%>h% THEN y%=h%:h%=sy%
ry%=y%
GCOL VAL(c$)
REPEAT
LINE x%,y%,w%,y%
y%=y%+1
UNTIL y%=h%
y%=ry%
IF c$<>"0" THEN GCOL 0 ELSE GCOL 15
LINE x%+2,y%+2,w%-2,y%+2
LINE w%-2,y%+2,w%-2,h%-4
LINE w%-2,h%-4,x%+2,h%-4
LINE x%+2,h%-4,x%+2,y%+2
ENDPROC