%EXTERNALROUTINE QUEUES(%STRING(255) S) %SYSTEMSTRINGFNSPEC SPAR(%INTEGER N) %STRING(50)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