!Dump all printable characters in store into a temporary file "$".
!This command takes no parameters and is a last-ditch attempt to recover
!from splatted edits etc (Hope is that recognisable bits of the file are still
!left in store
!RWT Oct 84 aided & abetted by JHB.

begin 
integer  l=16_800000,h=16_87ffff,p,k
  openoutput(1,"$"); selectoutput(1)
  for  p = l,1,h cycle 
    k = byteinteger(p)
    printsymbol(k) if  ' '<=k<='~' or  k=nl
  repeat 
end