DECLARE SUB SLEEPA (T!)
DECLARE SUB FRAME3 ()
DECLARE SUB FRAME1 ()
DECLARE SUB FRAME2 ()
SCREEN 12
CLS
LINE (0, 0)-(0, 20)    '|   }}}}}}
LINE (0, 10)-(10, 10)  ' -  } H }}
LINE (10, 0)-(10, 20)  '  | }}}}}}
LINE (15, 0)-(15, 20)  '|   } I }}
LINE (30, 0)-(30, 20)  '|   }}}}}} L }}
LINE (30, 20)-(40, 20) ' _  }}}}}}}}}}}
LINE (45, 19)-(45, 1)  '|   }}}}}}
LINE (46, 0)-(54, 0)   '  | } O }}
LINE (55, 1)-(55, 19)  '    }}}}}}
LINE (46, 20)-(54, 20) ' _
LINE (60, 20)-(60, 0)  ' |  }}}}}}
LINE (60, 0)-(69, 0)   '  * }}}}}}
LINE (69, 0)-(70, 1)   '  \ }}}}}}
LINE (70, 1)-(70, 9)   '    } R }}
LINE (70, 9)-(69, 10)  '    }}}}}}
LINE (69, 10)-(60, 10) '    }}}}}}
LINE (60, 10)-(70, 20) '    }}}}}}
LINE (75, 20)-(75, 0)  '    }}}}}} I }}
LINE (80, 20)-(80, 0)  '    }}}}}}
LINE (80, 0)-(90, 20)  '    } N }}
LINE (90, 20)-(90, 0)  '    }}}}}}
LINE (95, 20)-(95, 0)   ' }}}}}}
LINE (95, 0)-(104, 0)   ' } D }}
LINE (95, 20)-(104, 20) ' }}}}}}
LINE (105, 1)-(105, 19) ' }}}}}}
LINE (110, 20)-(115, 0) ' }}}}}}
LINE (115, 0)-(120, 20) ' } A }}
LINE (113, 10)-(117, 10)' }}}}}}
SLEEPA 2
FRAME1
SLEEPA .13
FRAME2
SLEEPA .13
FRAME3

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 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 SLEEPA (T)
A = TIMER + T
9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9
10 END SUB