paswords2.BAS

{* Проверка пароля2 *}

REM basic

' Пароль2


SCREEN 0{password
}CLS
pas$ = "pas"
1236 CLS
n = 6
x1 = 10: y1 = 30
COLOR 11: LOCATE x1, y1: PRINT "Enter password:"
345 all$ = ""
x = 13: y = 34: i = 0
LOCATE x, y: PRINT SPACE$(10)
LOCATE 16, 32: PRINT SPACE$(15)
Do
i = i + 1
k$ = "": While k$ = "": k$ = INKEY$: Wend
If k$ = "`" Then End
k = ASC(k$)
If k >= 48 And k = 65 And k = 97 And k = 128 And k = 224 And k  5 Then
78 GoSub ink
If k = 13 Then GoTo 1 Else GoTo 78
End If
Loop
1
If all$ = "  NewThen CLS : GoTo 789
If all$ = pas$ Then
COLOR 27: LOCATE 15, 35: PRINT "O.K": SLEEP 1: CLS : End
Else
If n > 0 Then
n = n - 1: LOCATE 16, 32: COLOR 12: PRINT "You stupid...":
LOCATE 18, 23: COLOR 14: PRINT "You have"; n; "chance. Try again!": SLEEP: GoTo 345
End If
End If
If n = 0 Then CLS : LOCATE 13, 28: COLOR 28: PRINT "You lose your chance": GoSub ink: GoTo 567
789 LOCATE 12, 30: COLOR 13: PRINT "Input New password:": LOCATE 13, 34: COLOR 10: INPUT " ", pas$: CLS
GoTo 1236
567   GoTo 1236
End
ink:
k$ = "": While k$ = "": k$ = INKEY$: Wend
k = ASC(k$)
Return