' Svjatoslav Agejenko
' year: 2002
DEFINT A-Z
DECLARE SUB putm ()
DIM SHARED tmr AS DOUBLE
DIM SHARED arv(1 TO 20)
DIM SHARED lng
DIM SHARED msg$
RANDOMIZE 2

CLS
COLOR 10, 0
msg$ = ""
e = 0
g = 0
putm
1
f = 0
IF g >= 3 THEN f = 10000: g = 0
SOUND f, .2
e = e + 1
g = g + 1
IF e > 100 THEN putm: e = 0

b$ = ""
c = 1
FOR a = 1 TO 80
c = c + 1
d$ = CHR$(RND * 9 + 48)
IF c > lng THEN c = 1: d$ = " "
b$ = b$ + d$
NEXT a
LOCATE 25, 1
PRINT b$
IF INKEY$ <> "" THEN COLOR 7, 0: CLS : SYSTEM
GOTO 1

SUB putm
VIEW PRINT 1 TO 25
SELECT CASE lng
CASE 13
msg$ = "Are you sure the line is clear ?"
CASE 6
msg$ = "       Then I'll go ..."
END SELECT

LOCATE 1, 30
PRINT "                                 "
LOCATE 1, 30
PRINT msg$
c = RND * 9 + 1
FOR b = 1 TO 3
FOR a = c TO 10
IF arv(a) = -1 THEN arv(a) = RND * 8 + 1: lng = lng - 1: GOTO 2
NEXT a
c = 1
NEXT b
lng = 13
FOR a = 1 TO 20
arv(a) = -1
NEXT a
CLS
IF msg$ <> "" THEN SYSTEM
2
FOR a = 1 TO 20
LOCATE 1, a
IF arv(a) = -1 THEN b$ = " " ELSE b$ = STR$(arv(a))
b$ = RIGHT$(b$, 1)
PRINT b$
NEXT a
VIEW PRINT 2 TO 25
END SUB