% _月 / _日 + _顧客番号 + _商品番号 + _数量 + _単価
% :-
% 出荷日正規化(_月,_日,_正規化された出荷日),
% 顧客番号正規化(_顧客番号,_正規化された顧客番号),
% 商品番号正規化(_商品番号,_正規化された商品番号),
% _金額 は 四捨五入(_数量 * _単価),
% insert into 売上(_正規化された出荷日,_正規化された顧客番号,
% _正規化された商品番号,_数量,_単価,_金額).
%
実務のプログラムはもう少し、項目、データチェックも多く、述語名も違うが。
kconsoleやteratermから、
?- 6/7+50179+2+3000+118.
のように入力する。1970年代前半は紙テープベースのオフィスコンピュータ。
伝票を読み取りながら紙テープ穿孔機を機関銃のように打って私も
オペレーションしていた。行末のピリオドが当時は"+"だったが。
それ以外は30数年前と同じ。