1: DECLARE SUB DDDTop (c!, sz!, ht!, wd!, lv!) 2: SCREEN 12 3: CLS 4: c = 15: sz = 140: ht = (sz / 2): wd = 400 5: n = 1.3 6: FOR lv = 1 TO sz 7: DDDTop c, sz, ht, wd, lv 8: FOR q = 1 TO 250: NEXT q 9: 10: 'Clear the top and two sides 11: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), 0 12: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), 0 13: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), 0 14: 'Put The bottom back 15: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c 16: NEXT lv 17: 18: SUB DDDTop (c, sz, ht, wd, lv) 19: n = 1.3 20: IF ht = 0 THEN ht = (sz / 2) 21: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), c 'Right Side 22: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), c 'Left Side 23: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), c 'Top 24: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c 'Bottom 25: END SUB 26: |