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