'+----------------------------------------------------------------------------------+ '| Windows Basic Source Code (c) For Microsoft Quick Basic, QBasic, and Power Basic | '| Copyright 1997-98 | '| | '| Author: Michael S. Halpin | '| Date: 7-5-1997 | '| Created by: Calvary Games | '| | '| I Michael S. Halpin do here by release this source code to public domain. | '| This code can be included in any commercial or noncommercial programs as long | '| as proper credit is given to the author and Calvary Games. | '+----------------------------------------------------------------------------------+ DECLARE SUB MINButton31 (X, Y, ButStat) DECLARE SUB MAXButton31 (X, Y, ButStat) DECLARE SUB MAXEDButton31 (X, Y, ButStat) DECLARE SUB Dash31 (X, Y, DashStat) DECLARE SUB MINButton95 (X, Y, ButStat) DECLARE SUB MAXButton95 (X, Y, ButStat) DECLARE SUB MAXEDButton95 (X, Y, ButStat) DECLARE SUB Close95 (X, Y, ButStat) DECLARE SUB CommandButton (X1, Y1, X2, Y2, ButStat) DECLARE SUB Frame (X1, Y1, X2, Y2) DECLARE SUB Form31 (X1, Y1, X2, Y2, FormStat) DECLARE SUB Form95 (X1, Y1, X2, Y2, FormStat) DECLARE SUB Pause () SCREEN 12 Form95 10, 10, 630, 470, 1 Close95 607, 16, 0 MAXButton95 587, 16, 0 MINButton95 567, 16, 0 MAXEDButton95 547, 16, 0 MAXButton31 527, 16, 0 MINButton31 507, 16, 0 Dash31 15, 16, 0 SUB Close95 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 4, Y + 4)-(X + 5, Y + 4), 0 LINE (X + 5, Y + 5)-(X + 6, Y + 5), 0 LINE (X + 6, Y + 6)-(X + 7, Y + 6), 0 LINE (X + 7, Y + 7)-(X + 8, Y + 7), 0 LINE (X + 8, Y + 8)-(X + 9, Y + 8), 0 LINE (X + 9, Y + 9)-(X + 10, Y + 9), 0 LINE (X + 10, Y + 10)-(X + 11, Y + 10), 0 LINE (X + 10, Y + 4)-(X + 11, Y + 4), 0 LINE (X + 9, Y + 5)-(X + 10, Y + 5), 0 LINE (X + 8, Y + 6)-(X + 9, Y + 6), 0 LINE (X + 7, Y + 7)-(X + 8, Y + 7), 0 LINE (X + 6, Y + 8)-(X + 7, Y + 8), 0 LINE (X + 5, Y + 9)-(X + 6, Y + 9), 0 LINE (X + 4, Y + 10)-(X + 5, Y + 10), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 5, Y + 4)-(X + 6, Y + 4), 0 LINE (X + 6, Y + 5)-(X + 7, Y + 5), 0 LINE (X + 7, Y + 6)-(X + 8, Y + 6), 0 LINE (X + 8, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 9, Y + 8)-(X + 10, Y + 8), 0 LINE (X + 10, Y + 9)-(X + 11, Y + 9), 0 LINE (X + 11, Y + 10)-(X + 12, Y + 10), 0 LINE (X + 11, Y + 4)-(X + 12, Y + 4), 0 LINE (X + 10, Y + 5)-(X + 11, Y + 5), 0 LINE (X + 9, Y + 6)-(X + 10, Y + 6), 0 LINE (X + 8, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 7, Y + 8)-(X + 8, Y + 8), 0 LINE (X + 6, Y + 9)-(X + 7, Y + 9), 0 LINE (X + 5, Y + 10)-(X + 6, Y + 10), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 4, Y + 4)-(X + 5, Y + 4), 8 LINE (X + 5, Y + 5)-(X + 6, Y + 5), 8 LINE (X + 6, Y + 6)-(X + 7, Y + 6), 8 LINE (X + 7, Y + 7)-(X + 8, Y + 7), 8 LINE (X + 8, Y + 8)-(X + 9, Y + 8), 8 LINE (X + 9, Y + 9)-(X + 10, Y + 9), 8 LINE (X + 10, Y + 10)-(X + 11, Y + 10), 8 LINE (X + 10, Y + 4)-(X + 11, Y + 4), 8 LINE (X + 9, Y + 5)-(X + 10, Y + 5), 8 LINE (X + 8, Y + 6)-(X + 9, Y + 6), 8 LINE (X + 7, Y + 7)-(X + 8, Y + 7), 8 LINE (X + 6, Y + 8)-(X + 7, Y + 8), 8 LINE (X + 5, Y + 9)-(X + 6, Y + 9), 8 LINE (X + 4, Y + 10)-(X + 5, Y + 10), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 5, Y + 4)-(X + 6, Y + 4), 8 LINE (X + 6, Y + 5)-(X + 7, Y + 5), 8 LINE (X + 7, Y + 6)-(X + 8, Y + 6), 8 LINE (X + 8, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 9, Y + 8)-(X + 10, Y + 8), 8 LINE (X + 10, Y + 9)-(X + 11, Y + 9), 8 LINE (X + 11, Y + 10)-(X + 12, Y + 10), 8 LINE (X + 11, Y + 4)-(X + 12, Y + 4), 8 LINE (X + 10, Y + 5)-(X + 11, Y + 5), 8 LINE (X + 9, Y + 6)-(X + 10, Y + 6), 8 LINE (X + 8, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 7, Y + 8)-(X + 8, Y + 8), 8 LINE (X + 6, Y + 9)-(X + 7, Y + 9), 8 LINE (X + 5, Y + 10)-(X + 6, Y + 10), 8 END IF END SUB SUB CommandButton (X1, Y1, X2, Y2, ButStat) IF ButStat = 0 THEN LINE (X1 + 1, Y1)-(X2 - 1, Y1), 0 LINE (X1, Y1 + 1)-(X1, Y2 - 1), 0 LINE (X1 + 1, Y2)-(X2 - 1, Y2), 0 LINE (X2, Y1 + 1)-(X2, Y2 - 1), 0 LINE (X1 + 1, Y1 + 1)-(X2 - 2, Y1 + 1), 15 LINE (X1 + 1, Y1 + 2)-(X2 - 3, Y1 + 2), 15 LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 15 LINE (X1 + 2, Y1 + 1)-(X1 + 2, Y2 - 2), 15 LINE (X1 + 2, Y2 - 1)-(X2 - 1, Y2 - 1), 8 LINE (X1 + 3, Y2 - 2)-(X2 - 1, Y2 - 2), 8 LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8 LINE (X2 - 2, Y1 + 2)-(X2 - 2, Y2 - 1), 8 LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 7, BF ELSE LINE (X1 + 1, Y1)-(X2 - 1, Y1), 0 LINE (X1, Y1 + 1)-(X1, Y2 - 1), 0 LINE (X1 + 1, Y2)-(X2 - 1, Y2), 0 LINE (X2, Y1 + 1)-(X2, Y2 - 1), 0 LINE (X1 + 1, Y1 + 1)-(X2 - 2, Y1 + 1), 8 LINE (X1 + 1, Y1 + 2)-(X2 - 3, Y1 + 2), 8 LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8 LINE (X1 + 2, Y1 + 1)-(X1 + 2, Y2 - 2), 8 LINE (X1 + 2, Y2 - 1)-(X2 - 1, Y2 - 1), 15 LINE (X1 + 3, Y2 - 2)-(X2 - 1, Y2 - 2), 15 LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 15 LINE (X2 - 2, Y1 + 2)-(X2 - 2, Y2 - 1), 15 LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 7, BF END IF END SUB SUB Dash31 (X, Y, DashStat) IF DashStat = 0 THEN LINE (X, Y)-(X + 15, Y + 14), 7, BF LINE (X + 4, Y + 7)-(X + 13, Y + 9), 8, B LINE (X + 3, Y + 6)-(X + 12, Y + 8), 0, B LINE (X + 4, Y + 7)-(X + 11, Y + 7), 15 ELSE LINE (X, Y)-(X + 15, Y + 14), 7, BF LINE (X + 5, Y + 7)-(X + 12, Y + 9), 8, B LINE (X + 4, Y + 6)-(X + 11, Y + 8), 0, B LINE (X + 5, Y + 7)-(X + 10, Y + 7), 15 END IF END SUB SUB Form31 (X1, Y1, X2, Y2, FormStat) IF FormStat = 0 THEN LINE (X1, Y1)-(X2, Y2), 0, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 17), 1, BF LINE (X1, Y1 + 18)-(X2, Y1 + 18), 0 LINE (X1 + 1, Y1 + 19)-(X2 - 1, Y2 - 1), 15, BF END IF IF FormStat = 1 THEN LINE (X1, Y1)-(X2, Y2), 0, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 7, B LINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 0, B LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y1 + 18), 1, BF LINE (X1 + 2, Y1 + 19)-(X2 - 2, Y1 + 19), 0 LINE (X1 + 3, Y1 + 20)-(X2 - 3, Y2 - 3), 15, BF LINE (X1 + 19, Y1)-(X1 + 19, Y1 + 2), 0 LINE (X1, Y1 + 19)-(X1 + 2, Y1 + 19), 0 LINE (X2 - 19, Y1)-(X2 - 19, Y1 + 2), 0 LINE (X2, Y1 + 19)-(X2 - 2, Y1 + 19), 0 LINE (X1 + 19, Y2)-(X1 + 19, Y2 - 2), 0 LINE (X1, Y2 - 19)-(X1 + 2, Y2 - 19), 0 LINE (X2 - 19, Y2)-(X2 - 19, Y2 - 2), 0 LINE (X2, Y2 - 19)-(X2 - 2, Y2 - 19), 0 END IF IF FormStat = 2 THEN LINE (X1, Y1)-(X2, Y2), 0, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 1, BF LINE (X1 + 5, Y1 + 5)-(X2 - 5, Y2 - 5), 15, BF END IF END SUB SUB Form95 (X1, Y1, X2, Y2, FormStat) IF FormStat = 0 THEN LINE (X1, Y1)-(X2, Y2), 0, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 19), 1, BF LINE (X1, Y1 + 19)-(X2, Y1 + 19), 0 LINE (X1 + 1, Y1 + 20)-(X2 - 1, Y2 - 1), 15, BF END IF IF FormStat = 1 THEN LINE (X1, Y1)-(X2, Y1), 7 LINE (X1, Y1 + 1)-(X2, Y1 + 1), 15 LINE (X1, Y1 + 2)-(X2, Y1 + 3), 7, B LINE (X1, Y1)-(X1, Y2), 7 LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2), 15 LINE (X1 + 2, Y1 + 2)-(X1 + 3, Y2), 7, B LINE (X1, Y2)-(X2, Y2), 0 LINE (X1 + 1, Y2 - 1)-(X2, Y2 - 1), 8 LINE (X1 + 2, Y2 - 2)-(X2, Y2 - 3), 7, B LINE (X2, Y1)-(X2, Y2), 0 LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8 LINE (X2 - 2, Y1 + 2)-(X2 - 3, Y2 - 2), 7, B LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y2 - 4), 15, BF LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y1 + 22), 1, BF LINE (X1 + 4, Y1 + 23)-(X2 - 4, Y1 + 23), 7 END IF IF FormStat = 2 THEN LINE (X1, Y1)-(X2, Y2), 0, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8, B LINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 7, B LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 15, BF LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y1 + 22), 1, BF LINE (X1 + 2, Y1 + 23)-(X2 - 2, Y1 + 23), 7 END IF END SUB SUB Frame (X1, Y1, X2, Y2) LINE (X1, Y1)-(X2, Y2), 7, B LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 8 LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8 LINE (X1 + 2, Y1 + 2)-(X2 - 1, Y2 - 1), 15, B LINE (X1 + 3, Y1 + 3)-(X2 - 2, Y2 - 2), 7, BF LINE (X1 + 3, Y2 - 2)-(X2 - 2, Y2 - 2), 8 LINE (X2 - 2, Y2 - 2)-(X2 - 2, Y1 + 3), 8 END SUB SUB MAXButton31 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y)-(X + 15, Y + 15), 8 LINE (X + 14, Y)-(X + 14, Y + 15), 8 LINE (X + 7, Y + 5)-(X + 7, Y + 5), 0 LINE (X + 6, Y + 6)-(X + 8, Y + 6), 0 LINE (X + 5, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 4, Y + 8)-(X + 10, Y + 8), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 8, Y + 6)-(X + 8, Y + 6), 0 LINE (X + 7, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 6, Y + 8)-(X + 10, Y + 8), 0 LINE (X + 5, Y + 9)-(X + 11, Y + 9), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y)-(X + 15, Y + 15), 8 LINE (X + 14, Y)-(X + 14, Y + 15), 8 LINE (X + 7, Y + 5)-(X + 7, Y + 5), 8 LINE (X + 6, Y + 6)-(X + 8, Y + 6), 8 LINE (X + 5, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 4, Y + 8)-(X + 10, Y + 8), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 8, Y + 6)-(X + 8, Y + 6), 8 LINE (X + 7, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 6, Y + 8)-(X + 10, Y + 8), 8 LINE (X + 5, Y + 9)-(X + 11, Y + 9), 8 END IF END SUB SUB MAXButton95 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 3, Y + 3)-(X + 11, Y + 11), 0, B LINE (X + 3, Y + 4)-(X + 11, Y + 4), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 4, Y + 3)-(X + 12, Y + 11), 0, B LINE (X + 4, Y + 4)-(X + 12, Y + 4), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 3, Y + 3)-(X + 11, Y + 11), 8, B LINE (X + 3, Y + 4)-(X + 11, Y + 4), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 4, Y + 3)-(X + 12, Y + 11), 8, B LINE (X + 4, Y + 4)-(X + 12, Y + 4), 8 END IF END SUB SUB MAXEDButton31 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y + 0)-(X + 15, Y + 15), 8 LINE (X + 14, Y + 0)-(X + 14, Y + 15), 8 LINE (X + 7, Y + 3)-(X + 7, Y + 3), 0 LINE (X + 6, Y + 4)-(X + 8, Y + 4), 0 LINE (X + 5, Y + 5)-(X + 9, Y + 5), 0 LINE (X + 4, Y + 6)-(X + 10, Y + 6), 0 LINE (X + 4, Y + 9)-(X + 10, Y + 9), 0 LINE (X + 5, Y + 10)-(X + 9, Y + 10), 0 LINE (X + 6, Y + 11)-(X + 8, Y + 11), 0 LINE (X + 7, Y + 12)-(X + 7, Y + 12), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y + 0)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 8, Y + 4)-(X + 8, Y + 4), 0 LINE (X + 7, Y + 5)-(X + 9, Y + 5), 0 LINE (X + 6, Y + 6)-(X + 10, Y + 6), 0 LINE (X + 5, Y + 7)-(X + 11, Y + 7), 0 LINE (X + 5, Y + 10)-(X + 11, Y + 10), 0 LINE (X + 6, Y + 11)-(X + 10, Y + 11), 0 LINE (X + 7, Y + 12)-(X + 9, Y + 12), 0 LINE (X + 8, Y + 13)-(X + 8, Y + 13), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y + 0)-(X + 15, Y + 15), 8 LINE (X + 14, Y + 0)-(X + 14, Y + 15), 8 LINE (X + 7, Y + 3)-(X + 7, Y + 3), 8 LINE (X + 6, Y + 4)-(X + 8, Y + 4), 8 LINE (X + 5, Y + 5)-(X + 9, Y + 5), 8 LINE (X + 4, Y + 6)-(X + 10, Y + 6), 8 LINE (X + 4, Y + 9)-(X + 10, Y + 9), 8 LINE (X + 5, Y + 10)-(X + 9, Y + 10), 8 LINE (X + 6, Y + 11)-(X + 8, Y + 11), 8 LINE (X + 7, Y + 12)-(X + 7, Y + 12), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y + 0)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 8, Y + 4)-(X + 8, Y + 4), 8 LINE (X + 7, Y + 5)-(X + 9, Y + 5), 8 LINE (X + 6, Y + 6)-(X + 10, Y + 6), 8 LINE (X + 5, Y + 7)-(X + 11, Y + 7), 8 LINE (X + 5, Y + 10)-(X + 11, Y + 10), 8 LINE (X + 6, Y + 11)-(X + 10, Y + 11), 8 LINE (X + 7, Y + 12)-(X + 9, Y + 12), 8 LINE (X + 8, Y + 13)-(X + 8, Y + 13), 8 END IF END SUB SUB MAXEDButton95 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 6, Y + 3)-(X + 11, Y + 4), 0, B LINE (X + 4, Y + 6)-(X + 9, Y + 11), 0, B LINE (X + 4, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 11, Y + 5)-(X + 11, Y + 8), 0 PSET (X + 6, Y + 5), 0 PSET (X + 10, Y + 8), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 7, Y + 3)-(X + 12, Y + 4), 0, B LINE (X + 5, Y + 6)-(X + 10, Y + 11), 0, B LINE (X + 5, Y + 7)-(X + 10, Y + 7), 0 LINE (X + 12, Y + 5)-(X + 12, Y + 8), 0 PSET (X + 7, Y + 5), 0 PSET (X + 11, Y + 8), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 8 LINE (X, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 6, Y + 3)-(X + 11, Y + 4), 8, B LINE (X + 4, Y + 6)-(X + 9, Y + 11), 8, B LINE (X + 4, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 11, Y + 5)-(X + 11, Y + 8), 8 PSET (X + 6, Y + 5), 8 PSET (X + 10, Y + 8), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 7, Y + 3)-(X + 12, Y + 4), 8, B LINE (X + 5, Y + 6)-(X + 10, Y + 11), 8, B LINE (X + 5, Y + 7)-(X + 10, Y + 7), 8 LINE (X + 12, Y + 5)-(X + 12, Y + 8), 8 PSET (X + 7, Y + 5), 8 PSET (X + 11, Y + 8), 8 END IF END SUB SUB MINButton31 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y)-(X + 15, Y + 15), 8 LINE (X + 14, Y)-(X + 14, Y + 15), 8 LINE (X + 4, Y + 6)-(X + 10, Y + 6), 0 LINE (X + 5, Y + 7)-(X + 9, Y + 7), 0 LINE (X + 6, Y + 8)-(X + 8, Y + 8), 0 LINE (X + 7, Y + 9)-(X + 7, Y + 9), 0 END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 5, Y + 7)-(X + 11, Y + 7), 0 LINE (X + 6, Y + 8)-(X + 10, Y + 8), 0 LINE (X + 7, Y + 9)-(X + 9, Y + 9), 0 LINE (X + 8, Y + 10)-(X + 8, Y + 10), 0 END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y)-(X, Y + 14), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X, Y + 15)-(X + 15, Y + 15), 8 LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8 LINE (X + 15, Y)-(X + 15, Y + 15), 8 LINE (X + 14, Y)-(X + 14, Y + 15), 8 LINE (X + 4, Y + 6)-(X + 10, Y + 6), 8 LINE (X + 5, Y + 7)-(X + 9, Y + 7), 8 LINE (X + 6, Y + 8)-(X + 8, Y + 8), 8 LINE (X + 7, Y + 9)-(X + 7, Y + 9), 8 END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 15), 7, BF LINE (X, Y + 15)-(X + 15, Y + 15), 15 LINE (X + 15, Y)-(X + 15, Y + 15), 15 LINE (X, Y)-(X, Y + 15), 8 LINE (X + 1, Y)-(X + 1, Y + 14), 8 LINE (X, Y)-(X + 15, Y), 8 LINE (X, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 5, Y + 7)-(X + 11, Y + 7), 8 LINE (X + 6, Y + 8)-(X + 10, Y + 8), 8 LINE (X + 7, Y + 9)-(X + 9, Y + 9), 8 LINE (X + 8, Y + 10)-(X + 8, Y + 10), 8 END IF END SUB SUB MINButton95 (X, Y, ButStat) IF ButStat = 0 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 4, Y + 10)-(X + 10, Y + 11), 0, B END IF IF ButStat = 1 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 5, Y + 10)-(X + 11, Y + 11), 0, B END IF IF ButStat = 2 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 12), 15 LINE (X, Y)-(X + 14, Y), 15 LINE (X + 15, Y + 14)-(X + 15, Y), 0 LINE (X, Y + 14)-(X + 15, Y + 14), 0 LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8 LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8 LINE (X + 4, Y + 10)-(X + 10, Y + 11), 8, B END IF IF ButStat = 3 THEN LINE (X, Y)-(X + 15, Y + 13), 7, BF LINE (X, Y)-(X, Y + 13), 0 LINE (X, Y)-(X + 14, Y), 0 LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8 LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8 LINE (X + 15, Y + 14)-(X + 15, Y), 15 LINE (X, Y + 14)-(X + 15, Y + 14), 15 LINE (X + 5, Y + 10)-(X + 11, Y + 11), 8, B END IF END SUB