shithub: 9intro

ref: 87288afa5ac476efb3ef1ed40df658427339f13e
dir: /slope/

View raw version 
#!/bin/rc
rfork e

pstate=pass
while (line=`{read}) {
	if (~ $line [\.]P1*) {
		pstate=do
		}
	if (~ $line [\.]P2*) {
		pstate=pass
		}
	if (~ $pstate do) {
		line=`{echo $line | sed -e 's/^; /.CW\\S''15''; /'}
		if (~ $line [\.]CW\S*) {
			echo -n $line
			echo '\S''0'''
			}
		}
	if not echo $line
	}