ref: 0caade8a5f4d1d80802fc47b1777336af7aee37e
dir: /bin/clear/
#!/bin/rc -e
rfork e
flagfmt = 'a:clearall'; args = ''
eval `{aux/getflags $*} || aux/usage
if(~ $clearall 1)
>/dev/text && exit
</dev/text sed '/^'^$prompt(1)^'/q' | sed '$d' >/tmp/clear
cat /tmp/clear >/dev/text