shithub: riscv

ref: 8a6a354e22521e7d2d14b8b4c2d1b7a65a0c8d5e
dir: /sys/lib/samsave/

View raw version 
#!/bin/rc

file=$1
switch($#*){
case 1
	echo -n $file'?'
	yn=`{read < /dev/cons}
	if(~ $yn y){
		cat > $file
	}
case 2
	/bin/echo $file
	/bin/cat > $file
}