/* AmigaTemp ARexx V1.4 961220                          */
/* Shows if AmigaTemp and/or AmigaTemp ARexx is running */

/* Start */
st = Show(P, 'AmigaTemp')              /* Is program running? */
if st == 0 then Say "AmigaTemp ARexx is not running"
else Say "AmigaTemp ARexx is running"

st = Show(P, 'AmigaTempMessPort')      /* Is program running? */
if st == 0 then Say "AmigaTemp is not running"
else Say "AmigaTemp is running"