!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