1: DECLARE SUB Window2 (length!, height!, row!, column!) 2: DECLARE SUB Textbx (sx!, sy!, ex!, ey!) 3: DECLARE SUB Button1 (x!, y!, ex!, ey!, tle$) 4: DECLARE SUB wndow (length!, height!, row!, column!) 5: CLS 6: SCREEN 12 7: Window2 150, 26, 40, 40: SLEEP 8: Textbx 40, 40, 290, 55 9: SLEEP 10: 11: SUB Button1 (x, y, ex, ey, tle$) 12: DIM te(1 TO 900) 13: DIM behnd(1 TO 900) 14: GET (0, 0)-(7.9 * LEN(tle$), 15), behnd 15: LOCATE 1, 1: PRINT tle$ 16: GET (0, 0)-(7.9 * LEN(tle$), 15), te 17: PUT (0, 0), behnd, PSET 18: REDIM behnd(1 TO 2) 19: LINE (x - 5, y - 5)-(ex + 5, ey + 5), 0, BF 20: LINE (x - 6, y - 5)-(x - 11, ey + 5), 15, BF 21: LINE (ex + 10, y - 5)-(ex, ey + 13), 8, BF 22: PUT (x, y), te, XOR 23: END SUB 24: 25: SUB Textbx (sx, sy, ex, ey) 26: LINE (sx, sy)-(ex, ey), 15, BF 27: LINE (sx - 1, sy - 1)-(ex + 1, ey + 1), 0, B 28: END SUB 29: 30: SUB Window2 (length, height, row, column) 31: LINE (column, row)-(column + length, row + height), 0, B 32: FOR i% = 1 TO 2 33: row = row + 1: column = column + 1: height = height - 1: length = length - 1 34: LINE (column, row)-(column + length, row), 7 35: LINE (column, row)-(column, row + height), 7 36: NEXT i% 37: row = row + 1: column = column + 1: height = height - 1: length = length - 1 38: LINE (column, row)-(column + length, row), 0 39: LINE (column, row)-(column, row + height), 0 40: LINE (column, row)-(column + 18, row + 18), 7, BF 41: LINE (column, row)-(column + 18, row + 18), 0, B 42: LINE (column + 18, row - 2)-(column + 18, row + 5), 0 43: LINE (column - 2, row + 18)-(column + 5, row + 18), 0 44: LINE (column + 5, row + 7)-(column + 13, row + 9), 15, BF: LINE (column + 5, row + 7)-(column + 13, row + 9), 0, B 45: LINE (column + 14, row + 7)-(column + 14, row + 9), 8 46: LINE (column + 6, row + 10)-(column + 14, row + 10), 8, B 47: LINE (column + 18, row)-(column + length, row + 18), 9, BF 48: LINE (column + 18, row)-(column + length, row + 18), 0, B 49: LINE (column + length, row - 3)-(column + length + 2, row + height), 7, BF 50: LINE (column + length, row - 3)-(column + length + 3, row + height), 0, B 51: LINE (column + length, row - 2)-(column + length, row - 1), 7 52: LINE (column + length - 18, row - 2)-(column + length - 18, row - 1), 0 53: LINE (column + length, row + 18)-(column + length + 2, row + 18), 0 54: LINE (column, row + height - 3)-(column + length, row + height - 3), 0, B 55: LINE (column, row + height - 2)-(column + length + 2, row + height), 7, BF 56: LINE (column - 2, row + height)-(column + length + 2, row + height), 0, B 57: LINE (column - 2, row + height - 18)-(column, row + height - 18), 0 58: LINE (column + length - 2, row + height - 18)-(column + length + 2, row + height - 18), 0 59: LINE (column + 18, row + height)-(column + 18, row + height - 2), 0 60: LINE (column + length - 18, row + height)-(column + length - 18, row + height - 2), 0 61: LINE (column + 1, row + 19)-(column + length - 1, row + height - 4), 7, BF 62: END SUB 63: |