CLS: SCREEN 7,0: COLOR 10, 0
	P1$="H10U20E10F10D20G10"
	P2$="E10R20F10G10L20H10"
	P3$="E10R30F10G10L30H10"
	P4$="H10U30E10F10D30G10"
	P5$="U13E22R12D13G22L12"
	P6$="H8L40G8F8R40E8"
	COD$=""
	OPEN "ACCESS.COD" FOR INPUT AS 1#
	INPUT #1, PASS$
	CLOSE #1
	LOCATE 2, 13: PRINT "Ó ÂÀÑ ÎÑÒÀËÎÑÜ"
	LOCATE 20, 10: "×ÒÎÁÛ ÍÀÁÐÀÒÜ ÏÀÐÎËÜ": COLOR 12,0
	LOCATE 10, 27: PRINT "ÑÅÊÓÍÄ"
	FOR I=11 TO STEP-1
	A$=INKEY$: COD$=COD$+A$
	PSET (130,120), 0: SOUND 32767, 15
	ON I GOSUB 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 
    	SOUND 1000, 1
	LINE (100, 20)-(200, 140), 0 BF
	NEXT
	CLS: LINE (50, 20)-(250, 150), 14, B
	LINE (53, 23)-(247, 147), 14, B
	IF PASS$=COD$ THEN GOTO JUMP
	LOCATE 11,10: PRINT "Â ÄÎÑÒÓÏÅ ÎÒÊÀÇÀÍÎ!"
	GOTO CYCL
JUMP:LOCATE 9, 14: COLOR 10: PRINT "ÄÎÑÒÓÏ"
	LOCATE 11, 12: PRINT "Ð À Ç Ð Å Ø Å Í !"
	GOTO FIN
CYCL:A$=INKEY: GOTO CYCL
FIN:	SLEEP 1
	END
1	DRAW "C12"+P1$+"BR1BD1"
	DRAW P2$+"BR41BU1"+P1$+"BU42"+P1$+"BU41BL41"
	DRAW P2$+"BD41BL1"+P1$
	GOSUB EIG0
	RETURN
2	GOSUB TENO
	PAINT (150, 100): PAINT (150, 60)
	RETURN
3	DRAW "C12" + P1$+"BD1BR1" + P3$ + "BU42" + P2$ +   
      "BU42BL10"
	DRAW P3$ + "BF41BR10" +P1$
	PAINT (140, 120): PAINT (130, 100): PAINT (150, 80)
	PAINT (150, 40): PAINT (170, 60)
	RETURN
4	DRAW "C12BL9BD1" +P3$+"BR51BU1"+P1$+"BH41"+P2$
	DRAW "BR41BU1"+P1$+"BH41BL10"+P3$
	PAINT (160, 120): PAINT (160, 80): PAINT (160, 40)
	PAINT (180, 60): PAINT (180, 100)
	RETURN
5	DRAW "C12BR43BD11"+P4$+"BU52"+P4$+"BL42"
	DRAW P4$+"BD1BR1"+P2$
	PAINT (170,100): PAINT (170,60): PAINT (130,60)
	PAINT (160, 80)
	RETURN
6	GOSUB FIF0: DRAW "BU41BR1"+P3$
	PAINT (160, 120): PAINT (160, 80): PAINT (160, 40)
	PAINT (130, 60): PAINT (180, 100)
	RETURN
7	DRAW "C12BR2BD1"+P2$+"BR41BU1"+P1$+"BL41BU41"
	DRAW P2$+"BU1BL1"+P1$+"BU41BR1"+P3$
	DRAW "BG83BR82"+P1$
	PAINT (140, 120): PAINT (170, 100) 
   	PAINT (150, 80): PAINT (130, 60)
	PAINT (130, 100): PAINT (150, 40)
	RETURN
8	DRAW "C12BR17BD11" + P4$+"BU52BR1"+P5$+"BU45BR32"+P6$
	PAINT (150, 100): PAINT (170, 60): PAINT (150, 30)
	RETURN
9	GOSUB 1
	DRAW "BL44BD19"+P2$: GOSUB EIG0
	PAINT (150, 80)
	RETURN
10	GOSUB FIF0: DRAW "BU41BR1"+P2$
	DRAW "BF41"+P1$
	PAINT (160, 120): PAINT (160, 80) 
	PAINT (160, 40): PAINT (130, 60)
	PAINT (180, 100): PAINT (180, 60): PAINT (150, 30)
	RETURN
11	DRAW "BL36": GOSUB TEN0
	DRAW "BR25BD40": GOSUB 1
	PAINT (120, 100): PAINT (120, 60)
	PAINT (140, 100): PAINT (140, 60)
	RETURN
FIF0:DRAW "C12BL9BD1"+P3$+"BR51BU1"+P1$+"BL41BU41"
	DRAW P2$+"BL1BU1"+P1$+"BU41BR1"+P3$
	RETURN
EIG0:PAINT (150, 120): PAINT (150, 30)
	PAINT (130, 100): PAINT (130, 60), 12: PAINT (175, 100)
	PAINT (175, 60)
	RETURN
TEN0:DRAW "C12DR21BD10"+P4$+"BU52"+P4$
	RETURN