Heapにコンサルトされたプログラムの保存でしたら、このようにします。

?- tell(任意のファイル名),listing,told.

AZ-PrologはHeapのコンサルトモード(エリア）が２つありますので、
双方にコンサルトされているのならば、

?- tell(任意のファイル名),
s_mode(ONOFF,on),write(‘:- s_mode(_,on).’),nl,listing,write(‘:- s_mode(_,off).’),nl,
s_mode(_,off),listing,s_mode(_,ONOFF),
told.