passwords.BAS

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

REM basic

' Проверка пароля



SCREEN 0{password With games
}
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": End
Else
If n > 0 Then
n = n - 1: LOCATE 16, 32: COLOR 12: PRINT "Go To hell!": LOCATE 18, 26: COLOR 14: PRINT "You have"; n; "possibility": SLEEP: GoTo 345
End If
End If
If n = 0 Then CLS : LOCATE 13, 28: COLOR 28: PRINT "You lose your chance": GoTo 567
789 LOCATE 12, 30: COLOR 13: PRINT "Input New password:": LOCATE 13, 34: COLOR 10: INPUT " ", pas$: CLS
GoTo 1236
567
GoSub ink
If k = 13 Then
CLS : LOCATE 13, 20: COLOR 14: PRINT "Reading the calendar? Yes(Enter), No(Esc)"
GoSub ink
If k = 13 Then CHDIR "c:gamesbirthday": SHELL "birthday.exe": While INKEY$ = "": Wend
If k = 27 Then 11
11 CLS : LOCATE 13, 20: COLOR 14: PRINT "You want To play game? 1-POLE, 2-KING"
GoSub ink
If k$ = "1" Then CHDIR "c:gamespole": SHELL "pole.exe"
If k$ = "2" Then CHDIR "c:gamesking": SHELL "king2.exe"
If k = 27 Then CLS : GoTo 1236
End If
GoTo 1236
End
ink:
k$ = "": While k$ = "": k$ = INKEY$: Wend
k = ASC(k$)
Return