Source Code Borland Turbo Prolog 2.0
domains stikes = string syarat = symbol query = string Jawab = char database dbakademik(syarat) dbkeuangan(syarat) predicates jurusan(stikes) go akademik(query,syarat) keuangan(query,syarat) syarat(syarat) clear_fakta2 simpan(syarat,jawab) tanya(query,syarat,jawab) go_once pilihan(stikes) solusi(stikes) goal clearwindow, makewindow(1,7,7," welcome , ,",0,0,24,80), go, removewindow. clauses go:- ...