5748320 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n chkbx.bas
   1: DECLARE SUB CheckBox (x1!, y1!, cc!, t$, cl!)
   2: SCREEN 12
   3: CheckBox 30, 30, 1, "D", 15
   4: 
   5: SUB CheckBox (x1, y1, cc, t$, cl)
   6: x2 = x1 + 10
   7: y2 = y1 + 10
   8: LINE (x1, y1)-(x2, y2), cl, B
   9: m$ = "BM" + LTRIM$(RTRIM$(STR$(x1))) + "," + LTRIM$(RTRIM$(STR$(y1))) + "C" + LTRIM$(RTRIM$(STR$(cl))): DRAW "X" + VARPTR$(m$)
  10: IF cc = 1 THEN DRAW "F9BH9BR10G9"
  11: END SUB
  12:
5748321 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:00:53