Heapにコンサルトされたプログラムの保存でしたら、このようにします。
?- tell(任意のファイル名),listing,told.
AZ-PrologはHeapのコンサルトモード(エリア)が2つありますので、
双方にコンサルトされているのならば、
?- tell(任意のファイル名),
s_mode(ONOFF,on),write(‘:- s_mode(_,on).’),nl,listing,write(‘:- s_mode(_,off).’),nl,
s_mode(_,off),listing,s_mode(_,ONOFF),
told.