Do
   line color (0)
   fill color (9)
   nuclei (132) @
   vtab (6); htab (24); Display "H"
   vtab (6); htab (57); Display "H"
   vtab (25); htab (24); Display "H"
   vtab (25); htab (57); Display "H"
   wait quitkey (0, 1500); cls
   Do i=131,4
      nuclei (i) @
      delay (5)
      read quitkey (0)
   Loop
   explode (319, 240) @toys
   fill color (10)
   nuclei (4) @
   vtab (17); htab (40); Display "He"
   wait quitkey (0, 2500); cls
   wait quitkey (0, 1000)
Loop

Task nuclei (Int i)
filled circle (319+i, 240+i, 5)
circle (319+i, 240+i, 6)
filled circle (319+i, 240-i, 5)
circle (319+i, 240-i, 6)
filled circle (319-i, 240+i, 5)
circle (319-i, 240+i, 6)
filled circle (319-i, 240-i, 5)
circle (319-i, 240-i, 6)