*
* TEST program for procedure sbox
*
SET COLOR TO w+/r
CLEAR
pcmag="PC Magazine PC Magazine PC Mag"+;
      "azine PC Magazine PC Magazine "+;
      "PC Magazine PC Mag"
single = CHR(218)+CHR(196)+CHR(191)+;
CHR(179)+CHR(217)+CHR(196)+CHR(192)+;
CHR(179)
@ 0,0,24,79 BOX single+"x"
i = 1
DO WHILE i <=23
   @ i,1 SAY pcmag
   i = i + 1
ENDDO
DO sbox WITH 7,20,17,60,"w+/gr"
@ 12,27 SAY "Hello!"
@ 12,34 SAY "Can you see my shadow?"
INKEY(0)
RETURN
*
* PROCEDURE sbox(x1, y1, x2, y2, clr)
*
* draw box with shadow
*
PROCEDURE sbox
PARAMETERS x1, y1, x2, y2, clr
PRIVATE v,h,i
v = SAVESCREEN(x1+1,y2+1,x2+1,y2+2)  && save shaded
h = SAVESCREEN(x2+1,y1+2,x2+1,y2+2)  && area
FOR i = 2 TO LEN(h) STEP 2           && dim the
   h = STUFF(h,i,1,CHR(7))           && area with
NEXT                                 && color "w/n"
                                     && (chr(7))
FOR i = 2 TO LEN(v) STEP 2
   v = STUFF(v,i,1,CHR(7))
NEXT
SET COLOR TO &clr
@ x1,y1 CLEAR TO x2,y2               && draw box
@ x1,y1 TO x2,y2
RESTSCREEN(x1+1,y2+1,x2+1,y2+2,v)    && draw its
RESTSCREEN(x2+1,y1+2,x2+1,y2+2,h)    && shadow
RETURN