1: CLS 2: SCREEN 12 3: row = 10: height = 400 4: col = 10: length = 500 5: LINE (column, row)-(column + length, row + height), 0, B 6: FOR i% = 1 TO 2 7: row = row + 1: column = column + 1: height = height - 1: length = length - 1 8: LINE (column, row)-(column + length, row), 7 9: LINE (column, row)-(column, row + height), 7 10: NEXT i% 11: row = row + 1: column = column + 1: height = height - 1: length = length - 1 12: LINE (column, row)-(column + length, row), 0 13: LINE (column, row)-(column, row + height), 0 14: LINE (column, row)-(column + 18, row + 18), 7, BF 15: LINE (column, row)-(column + 18, row + 18), 0, B 16: LINE (column + 18, row - 2)-(column + 18, row + 5), 0 17: LINE (column - 2, row + 18)-(column + 5, row + 18), 0 18: LINE (column + 5, row + 7)-(column + 13, row + 9), 15, BF: LINE (column + 5, row + 7)-(column + 13, row + 9), 0, B 19: LINE (column + 14, row + 7)-(column + 14, row + 9), 8 20: LINE (column + 6, row + 10)-(column + 14, row + 10), 8, B 21: LINE (column + 18, row)-(column + length, row + 18), 9, BF 22: LINE (column + 18, row)-(column + length, row + 18), 0, B 23: LINE (column + length, row - 3)-(column + length + 2, row + height), 7, BF 24: LINE (column + length, row - 3)-(column + length + 3, row + height), 0, B 25: LINE (column + length, row - 2)-(column + length, row - 1), 7 26: LINE (column + length - 18, row - 2)-(column + length - 18, row - 1), 0 27: LINE (column + length, row + 18)-(column + length + 2, row + 18), 0 28: LINE (column, row + height - 3)-(column + length, row + height - 3), 0, B 29: LINE (column, row + height - 2)-(column + length + 2, row + height), 7, BF 30: LINE (column - 2, row + height)-(column + length + 2, row + height), 0, B 31: LINE (column - 2, row + height - 18)-(column, row + height - 18), 0 32: LINE (column + length - 2, row + height - 18)-(column + length + 2, row + height - 18), 0 33: LINE (column + 18, row + height)-(column + 18, row + height - 2), 0 34: LINE (column + length - 18, row + height)-(column + length - 18, row + height - 2), 0 35: LINE (column + 1, row + 19)-(column + length - 1, row + height - 4), 7, BF 36: |