%EXTERNALROUTINE QUEUES(%STRING(255) S)
%SYSTEMSTRINGFNSPEC SPAR(%INTEGER N)
%CONSTINTEGER STRLEN=256
%STRING(STRLEN)COM
%SYSTEMROUTINESPEC SETPAR(%STRING(225)S)
      SETPAR(S)
      COM<-SPAR(1)
      MESS=COM." ".SPAR(2)
      %UNLESS SPAR(2)="" %THEN MESS=MESS.",".SPAR(2)
%END
%ENDOFFILE