my_save:-      
       telling(Old),      /* current write output */ 
       tell('c:/readtest'),      /* open this file */ 
       listing,           /* list all clauses in memory */ 
       writeln(d).
       told,              /* close ToFile */ 
       %tell(Old).         /* resume this output */