1 ' Svjatoslav Agejenko svjatoslav@svjatoslav.eu year:2002
\r
2 ' See or modify "passwd.dat" for password.
\r
3 ' Is useful when compiled into EXE, and put into AUTOEXEC.BAT
\r
5 CHDIR ".\qbasicapps\unsorted"
\r
8 DECLARE SUB check (a$)
\r
10 DECLARE SUB mkv (s%, C%)
\r
11 DECLARE SUB box (x1%, y1%, x2%, y2%)
\r
24 IF x > 0 THEN xs = xs - .5
\r
25 IF x < 0 THEN xs = xs + .5
\r
27 IF x2 > 100 THEN x2 = 10
\r
28 LINE (x2, 10)-(x2, 60), 0
\r
29 PSET (x2, x + 35), 10
\r
30 IF x2 < 99 THEN LINE (x2 + 1, 10)-(x2 + 1, 60), 3
\r
33 IF x3 > 40 THEN x3 = 0: xs = xs - 5: SOUND 1000, 1
\r
38 IF a$ = CHR$(13) THEN
\r
44 IF a$ = CHR$(8) THEN
\r
45 IF LEN(B$) > 0 THEN B$ = LEFT$(B$, LEN(B$) - 1): GOTO 2
\r
49 IF LEN(B$) > 10 THEN B$ = LEFT$(B$, 10)
\r
52 IF a <= LEN(B$) THEN C = 5 ELSE C = 1
\r
53 CIRCLE (a * 15 + 20, 150), 6, C
\r
54 PAINT (a * 15 + 20, 150), C
\r
60 SUB box (x1, y1, x2, y2)
\r
61 LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), 0, BF
\r
62 LINE (x1, y1)-(x2, y2), 10, B
\r
63 LINE (x1, y1)-(x2, y1 - 9), 14, BF
\r
64 LINE (x1, y1)-(x2, y1 - 9), 10, B
\r
66 LINE (x2 - 2, y1 - 2)-(x2 - 7, y1 - 7), 7, BF
\r
67 LINE (x2 - 9, y1 - 2)-(x2 - 14, y1 - 7), 7, BF
\r
69 LINE (x2 - 2, y1 - 2)-(x2 - 7, y1 - 7), 0
\r
70 LINE (x2 - 2, y1 - 7)-(x2 - 7, y1 - 2), 0
\r
72 LINE (x2 - 10, y1 - 3)-(x2 - 13, y1 - 3), 0
\r
79 IF a$ = pwd$ THEN CLS : SCREEN 2: SYSTEM
\r
83 GET (79, 80)-(241, 141), buf(1)
\r
85 box 80, 90, 240, 140
\r
88 PRINT "Wrong passworD"
\r
92 PRINT STR$(cha) + " chanses left"
\r
100 GET (79, 138)-(241, 140), buf2
\r
102 PUT (79, 138 + a), buf2, PSET
\r
108 PRINT "SYSTEM HALTED"
\r
110 PRINT "SUCESSFULLY!!"
\r
116 PUT (79, 80), buf(1), PSET
\r
123 FOR x = 160 TO 319 STEP s
\r
124 LINE (x, 0)-(x, 199), C
\r
125 LINE (320 - x, 0)-(320 - x, 199), C
\r
128 FOR y = 100 TO 199 STEP s
\r
129 LINE (0, y)-(319, y), C
\r
130 LINE (0, 200 - y)-(319, 200 - y), C
\r
138 OPEN "passw.dat" FOR INPUT AS #1
\r
139 LINE INPUT #1, pwd$
\r
154 box 70, 20, 270, 90
\r
158 PRINT " stack dump:"
\r
160 PRINT "010010010010010010010100"
\r
163 PRINT "Running rocket ground"
\r
165 PRINT "control system..."
\r
169 box 20, 130, 300, 190
\r
172 PRINT "ENTER PASSWORD:"
\r