SCREEN 12
RANDOMIZE TIMER
b = INT(RND * 1) + 1: REM Change value of b for number of repetitions ***************
INPUT "How many minutes do you desire "; b


PRINT "STAND BY FOR PROGRAM EXECUTION"
FOR x = INT(RND * 100000) + 1000 TO 0 STEP -1
LOCATE 3, 2: PRINT x;
NEXT x
CLS


10 CLS :  a = 50: c = INT(RND * 15) + 1
 IF INKEY$ <> "" THEN END
SOUND 125, 1
FOR cs = 16 TO 0 STEP -1: PAINT (2, 2), cs: NEXT cs

20 a$ = STR$(b)
IF b < 10 THEN GOSUB 1000 ELSE GOTO 100
a = a + 300
ON b GOSUB 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080, 1090
GOTO 200


100 b$ = LEFT$(a$, 2): c$ = RIGHT$(a$, 1)
d = VAL(b$): e = VAL(c$)

ON d GOSUB 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080, 1090
a = a + 300
IF e > 0 THEN ON e GOSUB 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080, 1090
IF e = 0 THEN GOSUB 1000

200 SLEEP 59
b = b - 1


999 GOTO 10

1000 LINE (a, 50)-(a + 50, 450), c, BF
LINE -(a + 150, 400), c, BF
LINE -(a + 100, 50), c, BF
LINE -(a + 50, 100), c, BF
RETURN

1010 LINE (a, 50)-(a + 50, 450), c, BF
RETURN

1020 LINE (a, 50)-(a + 150, 100), c, BF
LINE -(a + 100, 300), c, BF
LINE -(a, 250), c, BF
LINE -(a + 50, 450), c, BF
LINE -(a + 150, 400), c, BF
RETURN

1030 LINE (a, 50)-(a + 150, 100), c, BF
LINE -(a + 100, 450), c, BF
LINE -(a, 400), c, BF
LINE (a, 250)-(a + 100, 300), c, BF
RETURN

1040 LINE (a, 50)-(a + 50, 300), c, BF
LINE -(a + 150, 250), c, BF
LINE (a + 75, 200)-(a + 125, 450), c, BF
RETURN

1050 LINE (a + 150, 50)-(a, 100), c, BF
LINE -(a + 50, 300), c, BF
LINE -(a + 150, 250), c, BF
LINE -(a + 100, 450), c, BF
LINE -(a, 400), c, BF
RETURN

1060 LINE (a, 50)-(a + 50, 450), c, BF
LINE -(a + 150, 400), c, BF
LINE -(a + 100, 250), c, BF
LINE -(a + 50, 300), c, BF
RETURN

1070 LINE (a, 50)-(a + 150, 100), c, BF
LINE -(a + 100, 450), c, BF
RETURN

1080 LINE (a, 50)-(a + 150, 100), c, BF
LINE -(a + 100, 450), c, BF
LINE -(a, 400), c, BF
LINE -(a + 50, 50), c, BF
LINE (a, 200)-(a + 150, 250), c, BF
RETURN

1090 LINE (a + 150, 450)-(a + 100, 50), c, BF
LINE -(a, 100), c, BF
LINE -(a + 50, 300), c, BF
LINE -(a + 150, 250), c, BF
RETURN