Membuat Tampilan menu menggunakan Strawberry Prolog

saya akan membuat tampilan menu didalam sebuah program dengan menggunakan Strawberry Prolog. Pertama buka terlebih dahulu Strawberry Prolog, setelah muncul tampilan ketik ?- menandakan awal mula program pada strawberry prolog.setelah itu ketik window(_,_,win_func(),"Test",50,20,500,500).

Statement ini berfungsi untuk mengatur ukuran window yang akan ditampilkan dan nama window. Dilanjutkan dengan mengetik

win_func(init):-

menu(pop_up,_,_,menu_game(_),"&Menu"),

menu(pop_up,_,_,level(_),"&level"),

menu(right,_,_,help_menu(_),"&help").

Statement di atas digunakan untuk menampilkan menu beserta posisinya pada window yang akan kita tampilkan dan memberikan variable pada setiap menu yang akan kita buat. Disini saya menampilkan 3 pilihan, yaitu : Menu,Level dan Help yang terletak di kanan atas.lalu dilanjutkan dengan statement yaitu : 

help_menu(press):-

shell_execute("tolong.txt").

Statement di atas berfungsi untuk memberikan perintah pada program untuk menampilkan sebuah file jika kita mengklik menu help. Sebagai contoh file yang akan saya tampilkan disini adalah tolong.txt. perlu diingat file yang akan kita tampilkan harus berada pada folder yang sama dengan file program. Selanjutnya saya membuat anak dari menu yaitu berupa mulai dan keluar dengan mengetik seperti ini :

menu_game(init):-

menu(normal,_,_,menu_go(_),"&mulai"),

menu(normal,_,_,menu_exit(_),"&keluar").

Selanjutnya saya ketik :

menu_exit(press):-

close_window(_).

Statement di atas berfungsi untuk memberikan perintah pada program untuk menutup window jika kita mengklik keluar. 

tampilan Koding :

Tampilan Output nya akan seperti :