1: DECLARE SUB PAUSEA (E!) 2: DECLARE SUB FRAME4 () 3: DECLARE SUB FRAME52U () 4: DECLARE SUB FRAME12218 () 5: DECLARE SUB SLEEPA (T!) 6: DECLARE SUB FRAME3 () 7: DECLARE SUB FRAME1 () 8: DECLARE SUB FRAME2 () 9: SCREEN 12 10: CLS 11: LINE (0, 0)-(0, 20) '| }}}}}} 12: LINE (0, 10)-(10, 10) ' - } H }} 13: LINE (10, 0)-(10, 20) ' | }}}}}} 14: LINE (15, 0)-(15, 20) '| } I }} 15: LINE (30, 0)-(30, 20) '| }}}}}} L }} 16: LINE (30, 20)-(40, 20) ' _ }}}}}}}}}}} 17: LINE (45, 19)-(45, 1) '| }}}}}} 18: LINE (46, 0)-(54, 0) ' | } O }} 19: LINE (55, 1)-(55, 19) ' }}}}}} 20: LINE (46, 20)-(54, 20) ' _ 21: LINE (60, 20)-(60, 0) ' | }}}}}} 22: LINE (60, 0)-(69, 0) ' * }}}}}} 23: LINE (69, 0)-(70, 1) ' \ }}}}}} 24: LINE (70, 1)-(70, 9) ' } R }} 25: LINE (70, 9)-(69, 10) ' }}}}}} 26: LINE (69, 10)-(60, 10) ' }}}}}} 27: LINE (60, 10)-(70, 20) ' }}}}}} 28: LINE (75, 20)-(75, 0) ' }}}}}} I }} 29: LINE (80, 20)-(80, 0) ' }}}}}} 30: LINE (80, 0)-(90, 20) ' } N }} 31: LINE (90, 20)-(90, 0) ' }}}}}} 32: LINE (95, 20)-(95, 0) ' }}}}}} 33: LINE (95, 0)-(104, 0) ' } D }} 34: LINE (95, 20)-(104, 20) ' }}}}}} 35: LINE (105, 1)-(105, 19) ' }}}}}} 36: LINE (110, 20)-(115, 0) ' }}}}}} 37: LINE (115, 0)-(120, 20) ' } A }} 38: LINE (113, 10)-(117, 10)' }}}}}} 39: SLEEPA 2 40: FRAME1 41: PAUSEA 25 42: SLEEPA .13 43: FRAME2 44: SLEEPA .13 45: FRAME3 46: SLEEPA .13 47: FRAME4 48: SLEEPA .13 49: FRAME52U 50: SLEEPA .13 51: FRAME12218 52: 53: SUB FRAME1 54: CIRCLE (320, 240), 60 55: 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) 56: 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 57: END SUB 58: 59: SUB FRAME12218 60: CIRCLE (290, 210), 5, 0, , , .09 61: CIRCLE (290, 210), 5, , , , .1 62: SLEEPA .01 63: CIRCLE (290, 210), 5, 0, , , .1 64: CIRCLE (290, 210), 5, , , , .2 65: SLEEPA .01 66: CIRCLE (290, 210), 5, 0, , , .2 67: CIRCLE (290, 210), 5, , , , .3 68: SLEEPA .01 69: CIRCLE (290, 210), 5, 0, , , .3 70: CIRCLE (290, 210), 5, , , , .4 71: SLEEPA .01 72: CIRCLE (290, 210), 5, 0, , , .4 73: CIRCLE (290, 210), 5, , , , .5 74: SLEEPA .01 75: CIRCLE (290, 210), 5, 0, , , .5 76: CIRCLE (290, 210), 5, , , , .6 77: SLEEPA .01 78: CIRCLE (290, 210), 5, 0, , , .6 79: CIRCLE (290, 210), 5, , , , .7 80: SLEEPA .01 81: CIRCLE (290, 210), 5, 0, , , .7 82: CIRCLE (290, 210), 5, , , , .8 83: SLEEPA .01 84: CIRCLE (290, 210), 5, 0, , , .8 85: CIRCLE (290, 210), 5, , , , .9 86: SLEEPA .01 87: CIRCLE (290, 210), 5, 0, , , .9 88: CIRCLE (290, 210), 5, , , , 1 89: END SUB 90: 91: SUB FRAME2 92: PRESET (311, 260): PSET (311, 259): PRESET (310, 260): PSET (310, 259): PRESET (329, 260): PSET (329, 259): PRESET (330, 260): PSET (330, 259) 93: END SUB 94: 95: SUB FRAME3 96: PRESET (310, 259): : PSET (310, 258): PRESET (330, 259): PSET (330, 258) 97: END SUB 98: 99: SUB FRAME4 100: CIRCLE (290, 210), 5, 0 101: CIRCLE (290, 210), 5, , , , .9 102: END SUB 103: 104: SUB FRAME52U 105: CIRCLE (290, 210), 5, 0, , , .9 106: CIRCLE (290, 210), 5, , , , .8 107: SLEEPA .01 108: CIRCLE (290, 210), 5, 0, , , .8 109: CIRCLE (290, 210), 5, , , , .7 110: SLEEPA .01 111: CIRCLE (290, 210), 5, 0, , , .7 112: CIRCLE (290, 210), 5, , , , .6 113: SLEEPA .01 114: CIRCLE (290, 210), 5, 0, , , .6 115: CIRCLE (290, 210), 5, , , , .5 116: SLEEPA .01 117: CIRCLE (290, 210), 5, 0, , , .5 118: CIRCLE (290, 210), 5, , , , .4 119: SLEEPA .01 120: CIRCLE (290, 210), 5, 0, , , .4 121: CIRCLE (290, 210), 5, , , , .3 122: SLEEPA .01 123: CIRCLE (290, 210), 5, 0, , , .3 124: CIRCLE (290, 210), 5, , , , .2 125: SLEEPA .01 126: CIRCLE (290, 210), 5, 0, , , .2 127: CIRCLE (290, 210), 5, , , , .1 128: SLEEPA .01 129: CIRCLE (290, 210), 5, 0, , , .1 130: CIRCLE (290, 210), 5, , , , .09 131: END SUB 132: 133: SUB PAUSEA (E) 134: LOCATE E, 1: PRINT "Press any key to continue": SLEEP 135: END SUB 136: 137: SUB SLEEPA (T) 138: A = TIMER + T 139: 9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9 140: 10 END SUB 141: |