/* Kuang Eleven Starter Script */
address command 'Copy Rexx/Kuang11.AMIRX RAM: QUIET'
/*pragma('S',34000)*/
address command 'AmIRC'
if pos('AMIRC',Show('P'))~=0 then exit
delete('RAM:Kuang11.amirx')
x=show('C')
do i=1 to words(x)
	y=word(x,i)
	z=substr(y,1,3)
	if z='sc_'|z='st_' then setclip(y)
end
if show('P','KUANGPORT') then address KUANGPORT 'endprog()'
if show('P','KUANG') then address KUANGPORT 'quit'
exit