program sndtst
	implicit integer (a-z)
	dimension buffer(104), pgmnam(3)
c
c
c
	type *
	type *,'RUNNER/INSREM test...'
	type *,'Enter program to activate'
	read (5,1000)pgmnam
 1000	format(3A2)
	call irad50(6, pgmnam, buffer)
	type *,'Enter number of parameters'
	accept *,nprm
	do 100 i=1,nprm
	  type *,'Enter parameter ',i
	  accept *,buffer(i+2)
 100	continue
	call sndprm (nprm, buffer, error)
	type *,'status = ',error
	end