1: DECLARE SUB SLEEPB (T!) 2: DECLARE SUB PAUSE (A!, T!) 3: DECLARE SUB PAUSEA (A!, SM!, CM!) 4: DECLARE SUB FRAME4 () 5: DECLARE SUB FRAME52U () 6: DECLARE SUB FRAME12218 () 7: DECLARE SUB SLEEPA (T!) 8: DECLARE SUB FRAME3 () 9: DECLARE SUB FRAME1 () 10: DECLARE SUB FRAME2 () 11: SCREEN 12 12: CLS 13: FRAME1 14: SLEEPB .13 15: FRAME2 16: SLEEPB .13 17: FRAME3 18: SLEEPB .13 19: DO WHILE INKEY$ = "" 20: FRAME4 21: SLEEPB .13 22: FRAME52U 23: SLEEPB .13 24: FRAME12218 25: SLEEPB .1 26: LOOP 27: 28: SUB FRAME1 29: CIRCLE (320, 240), 60 30: 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) 31: 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 32: END SUB 33: 34: SUB FRAME12218 35: 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 36: END SUB 37: 38: SUB FRAME2 39: PRESET (311, 260): PSET (311, 259): PRESET (310, 260): PSET (310, 259): PRESET (329, 260): PSET (329, 259): PRESET (330, 260): PSET (330, 259) 40: END SUB 41: 42: SUB FRAME3 43: PRESET (310, 259): : PSET (310, 258): PRESET (330, 259): PSET (330, 258) 44: END SUB 45: 46: SUB FRAME4 47: CIRCLE (290, 210), 5, 0 48: CIRCLE (290, 210), 5, , , , .9 49: END SUB 50: 51: SUB FRAME52U 52: CIRCLE (290, 210), 5, 0, , , .9 53: CIRCLE (290, 210), 5, , , , .8 54: SLEEPB .0075 55: 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 56: END SUB 57: 58: SUB PAUSE (A, T) 59: IF T < 60 THEN TMUN$ = "seconds ": G = T: H = 1 60: IF T > 59 AND T < 3600 THEN TMUN$ = "minutes ": G = T / 60: H = 60 61: IF T > 3599 AND T < 86400 THEN TMUN$ = "hours ": G = T / 3600: H = 3600 62: G = G - 1 63: FOR gg = G TO 0 STEP -1 64: LOCATE A, 1: PRINT "Program will resume in"; G + 1; TMUN$ 65: SLEEPA H: G = G - 1 66: NEXT gg 67: LOCATE A, 1: PRINT " " 68: END SUB 69: 70: SUB PAUSEA (A, SM, CM) 71: IF CM = 0 THEN CM = 15 72: IF SM = 0 GOTO 54465 73: SCREEN 0 74: 54465 COLOR 15, 0: LOCATE A, 1: PRINT "Press any key to continue...": COLOR 23, 0: LOCATE A, 30: PRINT "_": SLEEP 75: IF SM = 0 THEN GOTO 99999 ELSE SCREEN SM 76: 99999 COLOR CM: LOCATE A, 1: PRINT " ": LOCATE A, 30: PRINT " " 77: END SUB 78: 79: SUB PAUSEB (A, T, U$) 80: IF U$ = "H" THEN T = T * 3600 81: IF U$ = "M" THEN T = T * 60 82: IF U$ = "S" THEN T = T * 1 83: IF U$ = "h" THEN T = T * 3600 84: IF U$ = "m" THEN T = T * 60 85: IF U$ = "s" THEN T = T * 1 86: IF T < 60 THEN TMUN$ = "seconds ": G = T: H = 1 87: IF T > 59 AND T < 3600 THEN TMUN$ = "minutes ": G = T / 60: H = 60 88: IF T > 3599 AND T < 86400 THEN TMUN$ = "hours ": G = T / 3600: H = 3600 89: G = G - 1 90: FOR gg = G TO 0 STEP -1 91: LOCATE A, 1: PRINT "Program will resume in"; G + 1; TMUN$ 92: SLEEPA H: G = G - 1 93: NEXT gg 94: LOCATE A, 1: PRINT " " 95: END SUB 96: 97: SUB SLEEPA (T) 98: A = TIMER + T 99: 9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9 100: 10 END SUB 101: 102: SUB SLEEPB (T) 103: DO UNTIL A > T 104: A = A + .0003 105: LOOP 106: END SUB 107: |