DECLARE SUB sleepB (T!)
DECLARE SUB PAUSE (A!, T!)
DECLARE SUB PAUSEA (A!, SM!, CM!)
DECLARE SUB frame4 ()
DECLARE SUB frame52u ()
DECLARE SUB frame12218 ()
DECLARE SUB Sleepa (T!)
DECLARE SUB frame3 ()
DECLARE SUB frame1 ()
DECLARE SUB frame2 ()
X% = 60
SCREEN 12
CLS
FOR asx = 1 TO 5
frame1
Sleepa .1
frame2
Sleepa .1
frame3
Sleepa .1
frame4
Sleepa .1
frame52u
Sleepa .1
frame12218
Sleepa .41
CLS
NEXT asx
FOR axa = 1 TO 5
FOR AAA = .001 TO 1 STEP .01
CIRCLE (320, 240), X%, , , , AAA
sleepB .03
CIRCLE (320, 240), X%, 1, , , AAA
NEXT AAA
CIRCLE (320, 240), X%, , , , 1
X% = X% + 1
FOR BBB = 1 TO .001 STEP -.01
CIRCLE (320, 240), X%, , , , BBB
sleepB .03
CIRCLE (320, 240), X%, 0, , , BBB
NEXT BBB
CIRCLE (320, 240), X%, , , , .001
NEXT axa
CIRCLE (320, 240), X%, 0, , , .001

SUB frame1
CIRCLE (320, 240), 60
PSET (320, 260): PSET (321, 260): PSET (322, 260): PSET (323, 260): PSET (324, 260): PSET (325, 260): PSET (326, 260): PSET (327, 260): PSET (328, 260): PSET (329, 260): PSET (330, 260): PSET (319, 260): PSET (318, 260): PSET (317, 260): PSET (316, 260)
PSET (315, 260): PSET (314, 260): PSET (313, 260): PSET (312, 260): PSET (311, 260): PSET (310, 260): CIRCLE (290, 210), 5: CIRCLE (350, 210), 5
END SUB

SUB frame12218
CIRCLE (290, 210), 5, 0, , , .09: CIRCLE (290, 210), 5, , , , .1: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .1: CIRCLE (290, 210), 5, , , , .2: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .2: CIRCLE (290, 210), 5, , , , .3: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .3: CIRCLE (290, 210), 5, , , , .4: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .4: CIRCLE (290, 210), 5, , , , .5: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .5: CIRCLE (290, 210), 5, , , , .6: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .6: CIRCLE (290, 210), 5, , , , .7: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .7: CIRCLE (290, 210), 5, , , , .8: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .8: CIRCLE (290, 210), 5, , , , .9: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .9: CIRCLE (290, 210), 5, , , , 1
END SUB

SUB frame2
PRESET (311, 260): PSET (311, 259): PRESET (310, 260): PSET (310, 259): PRESET (329, 260): PSET (329, 259): PRESET (330, 260): PSET (330, 259)
END SUB

SUB frame3
PRESET (310, 259): : PSET (310, 258): PRESET (330, 259): PSET (330, 258)
END SUB

SUB frame4
CIRCLE (290, 210), 5, 0
CIRCLE (290, 210), 5, , , , .9
END SUB

SUB frame52u
CIRCLE (290, 210), 5, 0, , , .9
CIRCLE (290, 210), 5, , , , .8
sleepB .0075
CIRCLE (290, 210), 5, 0, , , .8: CIRCLE (290, 210), 5, , , , .7: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .7: CIRCLE (290, 210), 5, , , , .6: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .6: CIRCLE (290, 210), 5, , , , .5: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .5: CIRCLE (290, 210), 5, , , , .4: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .4: CIRCLE (290, 210), 5, , , , .3: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .3: CIRCLE (290, 210), 5, , , , .2: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .2: CIRCLE (290, 210), 5, , , , .1: sleepB .0075: CIRCLE (290, 210), 5, 0, , , .1: CIRCLE (290, 210), 5, , , , .09
END SUB

SUB PAUSE (A, T)
IF T < 60 THEN TMUN$ = "seconds ": G = T: H = 1
IF T > 59 AND T < 3600 THEN TMUN$ = "minutes  ": G = T / 60: H = 60
IF T > 3599 AND T < 86400 THEN TMUN$ = "hours  ": G = T / 3600: H = 3600
G = G - 1
FOR gg = G TO 0 STEP -1
LOCATE A, 1: PRINT "Program will resume in"; G + 1; TMUN$
Sleepa H: G = G - 1
NEXT gg
LOCATE A, 1: PRINT "                                       "
END SUB

SUB PAUSEA (A, SM, CM)
IF CM = 0 THEN CM = 15
IF SM = 0 GOTO 54465
SCREEN 0
54465 COLOR 15, 0: LOCATE A, 1: PRINT "Press any key to continue...": COLOR 23, 0: LOCATE A, 30: PRINT "_": SLEEP
IF SM = 0 THEN GOTO 99999 ELSE SCREEN SM
99999 COLOR CM: LOCATE A, 1: PRINT "                             ": LOCATE A, 30: PRINT " "
END SUB

SUB PAUSEB (A, T, U$)
IF U$ = "H" THEN T = T * 3600
IF U$ = "M" THEN T = T * 60
IF U$ = "S" THEN T = T * 1
IF U$ = "h" THEN T = T * 3600
IF U$ = "m" THEN T = T * 60
IF U$ = "s" THEN T = T * 1
IF T < 60 THEN TMUN$ = "seconds ": G = T: H = 1
IF T > 59 AND T < 3600 THEN TMUN$ = "minutes  ": G = T / 60: H = 60
IF T > 3599 AND T < 86400 THEN TMUN$ = "hours  ": G = T / 3600: H = 3600
G = G - 1
FOR gg = G TO 0 STEP -1
LOCATE A, 1: PRINT "Program will resume in"; G + 1; TMUN$
Sleepa H: G = G - 1
NEXT gg
LOCATE A, 1: PRINT "                                       "
END SUB

SUB Sleepa (T)
A = TIMER + T
9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9
10 END SUB

SUB sleepB (T)
DO UNTIL A > T
A = A + .0003
LOOP
END SUB