SPSS syntax simple slopes polytomous predictors

SPSS syntax for "Probing simple slopes with polytomous predictors (i.e., categorical with more than two levels)" <http://methstuff.blogspot.de/2014/02/probing-simple-slopes-with-polytomous.html>
(post in methstuff blog: <http://methstuff.blogspot.de/>)