DECLARE SUB DDDTop (c!, sz!, ht!, wd!, lv!)
SCREEN 12
CLS
c = 15: sz = 140: ht = (sz / 2): wd = 400
n = 1.3
FOR lv = 1 TO sz
DDDTop c, sz, ht, wd, lv
FOR q = 1 TO 250: NEXT q

'Clear the top and two sides
LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), 0
LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), 0
LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), 0
'Put The bottom back
LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c
NEXT lv

SUB DDDTop (c, sz, ht, wd, lv)
n = 1.3
IF ht = 0 THEN ht = (sz / 2)
LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), c                'Right Side
LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), c                'Left Side
LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), c       'Top
LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c                         'Bottom
END SUB