DECLARE FUNCTION pent (x, y, i, c, bc)
DECLARE SUB pentt (x, y, i, c, bc)
DECLARE SUB dbox (x1, y1, w1, h1, s1, c1)

SCREEN 13
CLS
100

CALL dbox(100, 100, 10, 70, 5, 2)
CALL dbox(100, 100, 70, 10, 5, 2)
CALL dbox(150, 150, 90, 20, 10, 4)
CALL pentt(120, 120, 40, 2, 0)









10
IF INKEY$ = " " THEN GOTO 5
GOTO 10
5





SUB dbox (x1, y1, w1, h1, s1, c1)

 LINE (y1 - w1, x1 - h1)-(y1 + w1, x1 + h1), c1, B
 hh1 = h1 - s1: ww1 = w1 - s1
 LINE (y1 - ww1, x1 - hh1)-(y1 + ww1, x1 + hh1), c1, B
 LINE (y1 - w1, x1 - h1)-(y1 - ww1, x1 - hh1), c1
 LINE (y1 - w1, x1 + h1)-(y1 - ww1, x1 + hh1), c1
 LINE (y1 + w1, x1 - h1)-(y1 + ww1, x1 - hh1), c1
 LINE (y1 + w1, x1 + h1)-(y1 + ww1, x1 + hh1), c1
END SUB

FUNCTION pent (x, y, i, c, bc)
 xx = x + i
 yy = y - i
   w = 4
1
 FOR ii = 1 TO i
  IF w = 1 THEN yy = yy + 1
  IF w = 2 THEN yy = yy + 1: xx = xx - 1
  IF w = 3 THEN xx = xx - 1
  IF w = 4 THEN xx = xx - 1: yy = yy - 1
  IF w = 5 THEN yy = yy - 1
  IF w = 6 THEN yy = yy - 1: xx = xx + 1
  IF w = 7 THEN xx = xx + 1
  IF w = 8 THEN xx = xx + 1: yy = yy + 1
   PSET (x, y), c
 NEXT ii
 w = w + 1
 IF w = 9 THEN GOTO 2
 GOTO 1
2
PAINT (x, y), fc
END FUNCTION

SUB pentt (x, y, i, c, bc)
 xx = x + i
 yy = y - i
   w = 1
3
 FOR ii = 1 TO i
  IF w = 1 THEN yy = yy + 1
  IF w = 2 THEN yy = yy + 1: xx = xx - 1
  IF w = 3 THEN xx = xx - 1
  IF w = 4 THEN xx = xx - 1: yy = yy - 1
  IF w = 5 THEN yy = yy - 1
  IF w = 6 THEN yy = yy - 1: xx = xx + 1
  IF w = 7 THEN xx = xx + 1
  IF w = 8 THEN xx = xx + 1: yy = yy + 1
   PSET (xx, yy), c
 NEXT ii
 w = w + 1
 IF w = 9 THEN GOTO 4
 GOTO 3
4


END SUB

SUB tline (x1, y1, x2, y2, th, c)

END SUB

