'Draws a button like windows element
'Murat AYDIN <m-aydin@usa.net>
'

DECLARE SUB cerceve (satir!, sutun!, en!, boy!)
CLS
SCREEN 12

CALL cerceve(100, 20, 100, 10)


 END

 FOR x = 10 TO 400 STEP 100
CALL cerceve(10, x, 10, 10)
'CALL cerceve(40, 10, 10, 10)

NEXT

SUB cerceve (satir, sutun, en, boy)
    LINE (sutun, satir)-(sutun + en, satir + boy), 7, BF
    'sol kenar
    LINE (sutun - 1, satir - 1)-(sutun - 1, satir + boy + 1), 15
    LINE (sutun - 2, satir - 2)-(sutun - 2, satir + boy + 2), 15
    LINE (sutun - 3, satir - 3)-(sutun - 3, satir + boy + 3), 15
    'sag kenar
    LINE (sutun + en + 1, satir - 1)-(sutun + en + 1, satir + boy + 1), 8
    LINE (sutun + en + 2, satir - 2)-(sutun + en + 2, satir + boy + 2), 8
    LINE (sutun + en + 3, satir - 3)-(sutun + en + 3, satir + boy + 3), 8
    'ust kenar
    LINE (sutun, satir - 1)-(sutun + en, satir - 1), 15
    LINE (sutun - 1, satir - 2)-(sutun + en + 1, satir - 2), 15
    LINE (sutun - 2, satir - 3)-(sutun + en + 2, satir - 3), 15
    'alt kenar
    LINE (sutun, satir + boy + 1)-(sutun + en, satir + boy + 1), 8
    LINE (sutun - 1, satir + boy + 2)-(sutun + en + 1, satir + boy + 2), 8
    LINE (sutun - 2, satir + boy + 3)-(sutun + en + 2, satir + boy + 3), 8
END SUB