DECLARE SUB CheckBox (x1!, y1!, cc!, t$, cl!)
SCREEN 12
CheckBox 30, 30, 1, "D", 15

SUB CheckBox (x1, y1, cc, t$, cl)
x2 = x1 + 10
y2 = y1 + 10
LINE (x1, y1)-(x2, y2), cl, B
m$ = "BM" + LTRIM$(RTRIM$(STR$(x1))) + "," + LTRIM$(RTRIM$(STR$(y1))) + "C" + LTRIM$(RTRIM$(STR$(cl))): DRAW "X" + VARPTR$(m$)
IF cc = 1 THEN DRAW "F9BH9BR10G9"
END SUB