Койлау Мэа Неповна : другие произведения.

Авангард умер

Самиздат: [Регистрация] [Найти] [Рейтинги] [Обсуждения] [Новинки] [Обзоры] [Помощь|Техвопросы]
Ссылки:
Школа кожевенного мастерства: сумки, ремни своими руками
 Ваша оценка:

CLS
SCREEN 8
LOCATE 23, 25
PRINT "For exit push ctrl+break"
LINE (0, 0)-(640, 0)
LINE (0, 191)-(640, 191)
LINE (0, 0)-(0, 191)
LINE (639, 0)-(639, 191)
LINE (260, 50)-(350, 50)
LINE (260, 70)-(350, 70)
LINE (260, 110)-(350, 110)
LINE (260, 90)-(350, 90)
LINE (260, 50)-(260, 110)
LINE (290, 50)-(290, 110)
LINE (320, 50)-(320, 110)
LINE (350, 50)-(350, 110)
LOCATE 6, 34
PRINT 1
LOCATE 6, 38
PRINT 2
LOCATE 6, 42
PRINT 3
LOCATE 8, 30
PRINT 1
LOCATE 11, 30
PRINT 2
LOCATE 14, 30
PRINT 3
REM (8,10,13)-(34,38,42)
0 LOCATE 17, 25
INPUT "The furst number (1-3)"; a%
IF a% < 1 THEN
a% = 1
ELSEIF a% > 3 THEN
a% = 3
END IF
LOCATE 18, 25
INPUT "The secon number (1-3)"; b%
IF b% < 1 THEN
b% = 1
ELSEIF b% > 3 THEN
b% = 3
END IF
LOCATE 20, 5
PRINT "Yore last step:"
LOCATE 20, 21
PRINT a%; b%
IF a% = 1 AND b% = 1 THEN
IF cd11 <> 1 THEN
ab11 = 1
LOCATE 8, 35
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 1 AND b% = 2 THEN
IF cd12 <> 1 THEN
ab12 = 1
LOCATE 8, 38
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 1 AND b% = 3 THEN
IF cd13 <> 1 THEN
ab13 = 1
LOCATE 8, 42
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 2 AND b% = 1 THEN
IF cd21 <> 1 THEN
ab21 = 1
LOCATE 10, 35
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 2 AND b% = 2 THEN
IF cd22 <> 1 THEN
ab22 = 1
LOCATE 10, 38
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 2 AND b% = 3 THEN
IF cd23 <> 1 THEN
ab23 = 1
LOCATE 10, 42
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 3 AND b% = 1 THEN
IF cd31 <> 1 THEN
ab31 = 1
LOCATE 13, 35
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 3 AND b% = 2 THEN
IF cd32 <> 1 THEN
ab32 = 1
LOCATE 13, 38
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF a% = 3 AND b% = 3 THEN
IF cd33 <> 1 THEN
ab33 = 1
LOCATE 13, 42
PRINT "X"
ELSE
LOCATE 20, 21
PRINT "failed"
GOTO 0
END IF
END IF
IF ab11 = 1 AND ab12 = 1 AND ab13 = 1 THEN
FOR x = 52 TO 68 STEP .5
LINE (262, x)-(288, x)
LINE (292, x)-(318, x)
LINE (322, x)-(348, x)
NEXT x
GOTO 2
END IF
IF ab21 = 1 AND ab22 = 1 AND ab23 = 1 THEN
FOR x = 72 TO 88 STEP .5
LINE (262, x)-(288, x)
LINE (292, x)-(318, x)
LINE (322, x)-(348, x)
NEXT x
GOTO 2
END IF
IF ab31 = 1 AND ab32 = 1 AND ab33 = 1 THEN
FOR x = 92 TO 108 STEP .5
LINE (262, x)-(288, x)
LINE (292, x)-(318, x)
LINE (322, x)-(348, x)
NEXT x
GOTO 2
END IF
IF ab11 = 1 AND ab21 = 1 AND ab31 = 1 THEN
FOR x = 262 TO 288 STEP .5
LINE (x, 52)-(x, 68)
LINE (x, 72)-(x, 88)
LINE (x, 92)-(x, 108)
NEXT x
GOTO 2
END IF
IF ab12 = 1 AND ab22 = 1 AND ab32 = 1 THEN
FOR x = 292 TO 318 STEP .5
LINE (x, 52)-(x, 68)
LINE (x, 72)-(x, 88)
LINE (x, 92)-(x, 108)
NEXT x
GOTO 2
END IF
IF ab13 = 1 AND ab23 = 1 AND ab33 = 1 THEN
FOR x = 322 TO 348 STEP .5
LINE (x, 52)-(x, 68)
LINE (x, 72)-(x, 88)
LINE (x, 92)-(x, 108)
NEXT x
GOTO 2
END IF
IF ab11 = 1 AND ab22 = 1 AND ab33 = 1 THEN
FOR x = 52 TO 68 STEP .5
LINE (262, x)-(288, x)
NEXT x
FOR x = 72 TO 88 STEP .5
LINE (292, x)-(318, x)
NEXT x
FOR x = 92 TO 108 STEP .5
LINE (322, x)-(348, x)
NEXT x
GOTO 2
END IF
IF ab13 = 1 AND ab22 = 1 AND ab31 = 1 THEN
FOR x = 52 TO 68 STEP .5
LINE (322, x)-(348, x)
NEXT x
FOR x = 72 TO 88 STEP .5
LINE (292, x)-(318, x)
NEXT x
FOR x = 92 TO 108 STEP .5
LINE (262, x)-(288, x)
NEXT x
GOTO 2
END IF
REM nougt's play
1 RANDOMIZE TIMER
c% = INT(RND * 3) + 1
RANDOMIZE TIMER
d% = INT(RND * 3) + 1
LOCATE 21, 5
PRINT "Nought's last step:"
LOCATE 21, 25
PRINT c%; d%
IF c% = 1 AND d% = 1 THEN
IF ab11 <> 1 AND cd11 <> 1 THEN
cd11 = 1
LOCATE 8, 35
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 1 AND d% = 2 THEN
IF ab12 <> 1 AND cd12 <> 1 THEN
cd12 = 1
LOCATE 8, 38
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 1 AND d% = 3 THEN
IF ab13 <> 1 AND cd13 <> 1 THEN
cd13 = 1
LOCATE 8, 42
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 2 AND d% = 1 THEN
IF ab21 <> 1 AND cd21 <> 1 THEN
cd21 = 1
LOCATE 10, 35
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 2 AND d% = 2 THEN
IF ab22 <> 1 AND cd22 <> 1 THEN
cd22 = 1
LOCATE 10, 38
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 2 AND d% = 3 THEN
IF ab23 <> 1 AND cd23 <> 1 THEN
cd23 = 1
LOCATE 10, 42
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 3 AND d% = 1 THEN
IF ab31 <> 1 AND cd33 <> 1 THEN
cd31 = 1
LOCATE 13, 35
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 3 AND d% = 2 THEN
IF ab32 <> 1 AND cd32 <> 1 THEN
cd32 = 1
LOCATE 13, 38
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF c% = 3 AND d% = 3 THEN
IF ab33 <> 1 AND cd33 <> 1 THEN
cd33 = 1
LOCATE 13, 42
PRINT "O"
ELSE
LOCATE 21, 25
PRINT "failed"
GOTO 1
END IF
END IF
IF cd11 = 1 AND cd12 = 1 AND cd13 = 1 THEN GOTO 3
IF cd21 = 1 AND cd22 = 1 AND cd23 = 1 THEN GOTO 3
IF cd31 = 1 AND cd32 = 1 AND cd33 = 1 THEN GOTO 3
IF cd11 = 1 AND cd21 = 1 AND cd31 = 1 THEN GOTO 3
IF cd12 = 1 AND cd22 = 1 AND cd32 = 1 THEN GOTO 3
IF cd13 = 1 AND cd23 = 1 AND cd33 = 1 THEN GOTO 3
IF cd11 = 1 AND cd22 = 1 AND cd33 = 1 THEN GOTO 3
IF cd13 = 1 AND cd22 = 1 AND cd31 = 1 THEN GOTO 3
GOTO 0
2 LOCATE 20, 21
PRINT "won   "
GOTO 4
3 LOCATE 21, 25
PRINT "won   "
4







 Ваша оценка:

Связаться с программистом сайта.

Новые книги авторов СИ, вышедшие из печати:
О.Болдырева "Крадуш. Чужие души" М.Николаев "Вторжение на Землю"

Как попасть в этoт список

Кожевенное мастерство | Сайт "Художники" | Доска об'явлений "Книги"