1 ' Svjatoslav Agejenko
\r
5 DIM SHARED tmr AS DOUBLE
\r
6 DIM SHARED arv(1 TO 20)
\r
19 IF g >= 3 THEN f = 10000: g = 0
\r
23 IF e > 100 THEN putm: e = 0
\r
29 d$ = CHR$(RND * 9 + 48)
\r
30 IF c > lng THEN c = 1: d$ = " "
\r
35 IF INKEY$ <> "" THEN COLOR 7, 0: CLS : SYSTEM
\r
42 msg$ = "Are you sure the line is clear ?"
\r
44 msg$ = " Then I'll go ..."
\r
54 IF arv(a) = -1 THEN arv(a) = RND * 8 + 1: lng = lng - 1: GOTO 2
\r
63 IF msg$ <> "" THEN SYSTEM
\r
67 IF arv(a) = -1 THEN b$ = " " ELSE b$ = STR$(arv(a))
\r