1: DECLARE SUB SLEEPA (T!) 2: DECLARE SUB FRAME3 () 3: DECLARE SUB FRAME1 () 4: DECLARE SUB FRAME2 () 5: SCREEN 12 6: CLS 7: LINE (0, 0)-(0, 20) '| }}}}}} 8: LINE (0, 10)-(10, 10) ' - } H }} 9: LINE (10, 0)-(10, 20) ' | }}}}}} 10: LINE (15, 0)-(15, 20) '| } I }} 11: LINE (30, 0)-(30, 20) '| }}}}}} L }} 12: LINE (30, 20)-(40, 20) ' _ }}}}}}}}}}} 13: LINE (45, 19)-(45, 1) '| }}}}}} 14: LINE (46, 0)-(54, 0) ' | } O }} 15: LINE (55, 1)-(55, 19) ' }}}}}} 16: LINE (46, 20)-(54, 20) ' _ 17: LINE (60, 20)-(60, 0) ' | }}}}}} 18: LINE (60, 0)-(69, 0) ' * }}}}}} 19: LINE (69, 0)-(70, 1) ' \ }}}}}} 20: LINE (70, 1)-(70, 9) ' } R }} 21: LINE (70, 9)-(69, 10) ' }}}}}} 22: LINE (69, 10)-(60, 10) ' }}}}}} 23: LINE (60, 10)-(70, 20) ' }}}}}} 24: LINE (75, 20)-(75, 0) ' }}}}}} I }} 25: LINE (80, 20)-(80, 0) ' }}}}}} 26: LINE (80, 0)-(90, 20) ' } N }} 27: LINE (90, 20)-(90, 0) ' }}}}}} 28: LINE (95, 20)-(95, 0) ' }}}}}} 29: LINE (95, 0)-(104, 0) ' } D }} 30: LINE (95, 20)-(104, 20) ' }}}}}} 31: LINE (105, 1)-(105, 19) ' }}}}}} 32: LINE (110, 20)-(115, 0) ' }}}}}} 33: LINE (115, 0)-(120, 20) ' } A }} 34: LINE (113, 10)-(117, 10)' }}}}}} 35: SLEEPA 2 36: FRAME1 37: SLEEPA .13 38: FRAME2 39: SLEEPA .13 40: FRAME3 41: 42: SUB FRAME1 43: CIRCLE (320, 240), 60 44: 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) 45: 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 46: END SUB 47: 48: SUB FRAME2 49: PRESET (311, 260): PSET (311, 259): PRESET (310, 260): PSET (310, 259): PRESET (329, 260): PSET (329, 259): PRESET (330, 260): PSET (330, 259) 50: END SUB 51: 52: SUB FRAME3 53: PRESET (310, 259): : PSET (310, 258): PRESET (330, 259): PSET (330, 258) 54: END SUB 55: 56: SUB SLEEPA (T) 57: A = TIMER + T 58: 9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9 59: 10 END SUB 60: |