Приложения 241

med$ = med$ + STRING$(2, 32) + CHR$(179) NEXT I

top$ = top$ + STRING$(2, 205) + CHR$(187) shl$ = shl$ + STRING$(2, 196) + CHR$(182) bot$ = bot$ + STRING$(2, 205) + CHR$(188) med$ = med$ + STRING$(2, 32) + CHR$ (186) PRINT top$: PRINT med$ FOR I = 2 TO N

PRINT shl$: PRINT med$ NEXT I PRINT bot$;

FOR I = 0 TO M - 1: sqrs(I) =1+1: NEXT

'расстановка фишек sqrs(M) = 0 RANDOMIZE TIMER FOR IC = 0 TO M - 2

JC = INT(RND * (M - IC)) + IC: GOSUB SWSQRS NEXT IC GOSUB MESHC

IF MC MOD 2 > 0 THEN IC = 0: JC = 1: GOSUB SWSQRS FOR I = 0 TO M - 1: GOSUB SHSQ: NEXT I IC = M DO

DO: ARKEY$ = INKEY$: LOOP UNTIL ARKEY$ = "q" OR LEN(ARKEY$) > 1 IF AKKEY$ = "q" THEM EXIT DO SELECT CASE MID$ (AKKEY$ , 2) CASE "E": MD = -N CASE "M": MD = -1 CASE "K": MD = 1 CASE "H": MD = N CASE ELSE: MD = 0 END SELECT JC = IC + MD IF JC < 0 OR JC > M OR ABS (MD) = ABS (JC \ N - IC \ N) THEN

BEEP ELSE

GOSUB SWSQRS

I = JC: GOSUB SHSQ

I = IC: GOSUB SHSQ

IC = JC

GOSUB MESHC

IF MC = 0 THEN

COLOR 12: LOCATE 21 PRINT "ПОЗДРАВЛЯЮ! ! ' " FOR I = 1 TO N - 2

PLAY "L402CL8EGL1603CCCCCCCCDDDDDDDDL4EDL8C02GL403C" NEXT EXIT DO END IF END IF LOOP SLEEP 2 CLS SYSTEM