1: DECLARE SUB MS () 2: CLS 3: MS 4: 5: SUB MS 6: COLOR 12, 1 7: LOCATE 1, 1: PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" 8: FOR S = 2 TO 23 9: LOCATE S, 1: PRINT "л л" 10: NEXT S 11: LOCATE 24, 1: PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" 12: A = 3 13: B = 3 14: C = 10 15: D = 38 16: 1 LOCATE 1, 1: PRINT "лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл" 17: A$ = INKEY$ 18: IF A$ = CHR$(0) + "M" THEN B = B + 1 19: IF A$ = CHR$(0) + "K" THEN B = B - 1 20: IF A$ = CHR$(0) + "P" THEN A = A + 1 21: IF A$ = CHR$(0) + "H" THEN A = A - 1 22: IF A$ = CHR$(27) GOTO 64 23: IF A = C AND B = D THEN C = 12: D = 40 24: IF A = C AND B + 1 = D THEN D = D + 1 25: IF A + 1 = C AND B = D THEN C = C + 1 26: IF A = C AND B - 1 = D THEN D = D - 1 27: IF A - 1 = C AND B = D THEN C = C - 1 28: IF A < 3 THEN A = 3 29: IF A > 21 THEN A = 21 30: IF C < 3 THEN C = 3 31: IF C > 21 THEN C = 21 32: IF B < 3 THEN B = 3 33: IF B > 78 THEN B = 78 34: IF D < 3 THEN D = 3 35: IF D > 78 THEN D = 78 36: LOCATE A - 1, B: PRINT " " 37: LOCATE A, B - 1: PRINT " " 38: LOCATE A + 1, B: PRINT " " 39: LOCATE C - 1, D: PRINT " " 40: LOCATE C, D - 1: PRINT " ў " 41: LOCATE C + 1, D: PRINT " " 42: GOTO 1 43: 64 END SUB 44: |