PARM DEVICE

##  TEST.XEQ - SENDS TEST MESSAGE TO HARD-WIRED DEVICES
##  TIM ERICSON

FILE TEST;DEV=!DEVICE
ECHO >> TEST!DEVICE
ECHO THIS IS DEVICE !DEVICE >> TEST!DEVICE
ECHO TEST TEST TEST >> TEST!DEVICE
ECHO >> TEST!DEVICE
FCOPY FROM=TEST!DEVICE;TO=*TEST;CHAR;NORECNUM
RESET TEST
PURGE TEST!DEVICE,TEMP