1: SCREEN 9 '640 x 350 2: '15 - wight, 7 - light, 8 - gray, & 0 - black 3: PAINT (1, 1), 7 4: X1 = 10 5: Y1 = 10 6: X2 = 30 7: Y2 = 30 8: DO 9: GOSUB PUSHED 10: FOR A = 1 TO 3000: NEXT A 11: GOSUB UNPUSHED 12: FOR A = 1 TO 3000: NEXT A 13: LOOP UNTIL INKEY$ = "q" 14: END 15: 16: 17: 18: UNPUSHED: 19: LINE (X1, Y1)-(X1, Y2 - 1), 15 20: LINE (X1, Y1)-(X2 - 1, Y1), 15 21: LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8 22: LINE (X2 - 1, Y2 - 1)-(X1 + 1, Y2 - 1), 8 23: LINE (X1, Y2)-(X2, Y2), 0 24: LINE (X2, Y2)-(X2, Y1), 0 25: LINE (X1 + 1, Y1 + 1)-(X2 - 2, Y2 - 2), 7, BF 26: RETURN 27: 28: 29: 30: 31: PUSHED: 32: LINE (X1, Y1)-(X1, Y2), 0 33: LINE (X1, Y1)-(X2, Y1), 0 34: LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8 35: LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 8 36: LINE (X1 + 1, Y2)-(X2, Y2), 15 37: LINE (X2, Y2)-(X2, Y1 + 1), 15 38: LINE (X1 + 2, Y1 + 2)-(X2 - 1, Y2 - 1), 7, BF 39: RETURN 40: 41: |