Membuat menu pada prolog

Berikut ini adalah program menu dengan menggunakan bahasa Prolog, dengan menggabungkan 3 program yaitu Input Biodata, Volume Lingkaran, dan Grade Nilai.

Jalankan SWI-Prolog.
Masuk ke Terminal, dengan klik Application –> Accessories –> Terminal, Ketikswipl di Terminal lalu tekan Enter.

Tulis source code berikut pada gedit :

program:-nl,
write('=========================='),nl,
write('           Menu           '),nl,
write('=========================='),nl,
write('1. Biodata'),nl,
write('2. Volume'),nl,
write('3. Grade'),nl,
write('=========================='),nl,
write('Masukkan Pilihan [1..3] : '),read(Pil),nl,
(
Pil=1->nl,
write('Masukkan Nama : '),read(Nama),
write('Masukkan NPM : '),read(Npm),
write('Nama '),write(Nama),nl,
write('NPM '),write(Npm),nl,
program;

Pil=2->nl,
write('Masukkan R : '),read(R),
Volume is 3.14*4/3*R*R*R,
write('Volume : '),write(Volume),nl,
program;

Pil=3->nl,
write('Masukkan Nilai Uts : '),read(Uts),
write('Masukkan Nilai Uas : '),read(Uas),
Total is (Uts+Uas)/2,
write('Total : '),write(Total),nl,
(
Total > 95 -> write('A');
Total > 75 -> write('B');
Total > 60 -> write('C');
Total > 45 -> write('D');
write('E')),
program;

write('Terima kasih!')).

Simpan ke folder Home (yang berisi Documents, Pictures, Public, Download, dll) dengan nama misalkan menu.pl, harus diakhiri dengan ekstensi ( .pl ) tanpa tanda kurung. atau biasanya save sajah kalau menggunakan SWI prolog nanti bisa langsung ter ekstensi .pl

Compile programnya dengan mengetikkan perintah [filename] pada program, karena nama filenya menu.pl, maka ketikkan [menu] tanpa ekstensi .pl nya, dan tekan Enter.
atau klik file [ada menu bar pilih consult lalu pilih save yang tadi yang berupa menu.pl apabila tidak ada eror jalankan programnya.

Setelah itu tampilkan dengan mengetikkan program. pada program SWI Prolog lalu tekan Enter, masukkan angka '1' untuk masuk ke program Input Biodata atau angka '2' untuk program Volume Lingkaran atau angka '3' untuk program Grade Nilai dan jangan lupa untuk menambahkan ( . ) tanpa tanda kurung pada setiap akhir penginputan/pemasukkan lalu tekan Enter.