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 ()
SCREEN 12
CLS

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