Script

I am trying to write a scipt that automatically performs following
commands:
zoom extends
explode all (I do not want any blocks remaining in the drawing -
sometimes blocks are nested)
purge all (to make sure all unwanted items such as legacy block names
and linetypes are gone)
wblock (start a new wblock routine that then lets me pick entities to
form a block and save the block under a certain name while it remains
in the drawing - after that wblock the entire drawing with a different
name)
I have come up with following script (that does not work, depending on
the state of the drawing on which it is applied to):
^C^C
zoom e
explode ALL
PURGE
wblock
I an trying to learn as I go along but after a full morning wasted I
would certainly appreciate some help.
Thanks