split afile into subiles with specific names

[Patrick Hertel]

 How would i go about doing the following (ed,sed,ex,vi,awk,perl even):

 Take a file something like this ->
    
                        *DECK A
                        jcl
                        jcl
                        *DECK B
                        jcl
                         .
                        *DECK PAT
                        etc.

  .. and divide it up into files with names A, B, PAT (or whatever follows *DECK). This is the hard part, at laest for me because I am not fully UNIX literate
yet.. 
-- 
Pat Hertel                 Canadian Meteorological Centre
Analyst/Programmer         2121 N. Service Rd.
phertel at cmc.aes.doe.ca     Dorval,Quebec
Environment Canada         CANADA           H9P1J3