這程式大致ok了,感覺還不錯,也已將北派斗數三級疊盤加進來,剩下說明的部份,趕工中...

顯示資料庫語法範例如下所示:
顯示姓名:-姓名(N),write([N]),nl.
顯示陽曆:-陽曆(B,H,Z),write([B,H,Z]),nl.
顯示農曆:-農曆(X,Y,Z),write([X,Y,Z]),nl.
顯示四柱:-四柱(X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,X4,Y4,Z4),
　　　　　write([X1,Y1,'(',Z1,')年',X2,Y2,'(',Z2,')月',X3,Y3,'(',Z3,')日',X4,Y4,'(',Z4,')時']),nl.
顯示宮位:-宮(X,Y,Z),write([X,Y,Z]),nl,fail.
顯示神煞:-神煞(X,Y,Z),write([X,Y,Z]),nl,fail.
顯示旬空:-旬空(X,Y),write(['旬空',X,Y]),nl,fail.
顯示填實:-填實(X,Y),write(['填實,X,Y]),nl,fail.
顯示星曜:-星曜(X,Y),write([X,Y]),nl,fail.
顯示行星:-星(X1,X2,X3,X4,X5,X6),write([X1,X2,X3,X4,X5,X6]),nl,fail.
顯示強度:-強度(X,P),write([X,'強度=',P]),nl,fail.
顯示流年:-流年(A,B,C,D,E),write(['流年=',A,'年',B,'月',C,'日 變曜:',D,E]),nl,
　　　　　內盤(X),write(['內盤=',X]),nl,
　　　　　限度(M1,M2,N1,N2,O1,O2,P1,P2),
　　　　　write(['限度=',M1,M2,N1,N2,'~',O1,O2,P1,P2]),nl.

%北派斗數三級疊盤
顯示大限盤:-大限盤(X,A,B,C),write(['大限盤=',X,',本',A,',大',B,',年',C]),nl,fail.
顯示流年盤:-流年盤(X,A,B,C),write(['流年盤=',X,',大',A,',年',B,',月',C]),nl,fail.
顯示流月盤:-流月盤(X,A,B,C),write(['流月盤=',X,',年',A,',月',B,',日',C]),nl,fail.

run:- $所喜星格, $所忌星格, $解星, write(['-------']),nl,
　　　$顯示姓名, $顯示陽曆, $顯示農曆, $顯示流年, $顯示四柱, $顯示宮位, $顯示行星,
　　　$顯示旬空, $顯示填實, $顯示神煞, $顯示強度, $顯示星曜,
　　　$顯示大限盤, $顯示流年盤, $顯示流月盤.