It's all coming from the subconscious: Contoh Input Output Dalam Prolog

Disini saya akan memberikan sedikit contoh program input otput dalam prolog, yang pertama kita harus menginputkan data di dalam editor (bisa diketik dahulu dengan notepad dan type file harus ".PRO").

Berikut contoh programnya:

PREDICATES
    menu
    pilihan_awal(integer)
GOAL
    menu.
CLAUSES
    menu:-
    makewindow(1,7,7,"Menu",5,5,20,75),
    write("1. Menu1"),nl,
    write("2. Menu2"),nl,
    write("3. Menu3"),nl,
    write("Pilihan Anda(1..3) : "),readint(X),
    pilihan_awal(X).
    pilihan_awal(1):-
    clearwindow,
    makewindow(2,13,19,"MENU 1",0,0,10,35),
    write("Nama Saya 'Dhimas Wahyu Pratomo'"),
    readchar(_),
    removewindow,
    shiftwindow(1),
    write("1. Menu1"),nl,
    write("2. Menu2"),nl,
    write("3. Menu3"),nl,
    write("Pilihan Anda(1..3) : "),readint(X),
    pilihan_awal(X).
    pilihan_awal(2):-
    clearwindow,
    makewindow(3,13,5,"MENU 2",0,22,10,40),
    write("NIM '123090019'"),
    readchar(_),
    removewindow,
    shiftwindow(1),
    write("1. Menu1"),nl,
    write("2. Menu2"),nl,
    write("3. Menu3"),nl,
    write("Pilihan Anda(1..3) : "),readint(X),
    pilihan_awal(X).
    pilihan_awal(3):-
    clearwindow,
    makewindow(4,62,129,"MENU 3",0,5,15,70),
    write("Asslamualaikum wr.wb. Saya bingung mau mulai dari mana, yang jelas praktikum tadi asik. Disini kita belajar tentang     bagaimana cara membuat dan menampilkan sebuah window, memberi bingkai serta memberi warna di bingkai tersebut, "),
    write("memberi tulisan atau teks di dalam window dg berbagai macam warna. Dan yang paling saya suka adalah dalam sebuah window dapat memanggil window-window yang lain, disini juga bisa mengatur posisi atau letak output window tersebut. "),
    write("Mungkin hanya ini yang dapat saya ceritakan, makasih banyak buat mba Ayu, hehehee,,,, Wassalamualaikum wr.wb."),
    readchar(_),
    removewindow,
    shiftwindow(1),
    write("1. Menu1"),nl,
    write("2. Menu2"),nl,
    write("3. Menu3"),nl,
    write("pilihan Anda(1..3) : "),readint(X),
    pilihan_awal(X).
    pilihan_awal(X):-
    clearwindow,
    X>3,
    write("MAAF YANG ANDA INPUTKAN SALAH, BUKA KEMBALI PIKIRAN ANDA     DAN ULANGI...!").

Berikut outputnya:

1. Jika kita RUN maka outputnya: