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:-
        go_once,nl,nl,nl,nl,nl,
        write("terima kasih anda telah melakukan pendaftaran! daftar baru (y/n) ?"),
        readchar(Jawab),nl,
        clearwindow,
        Jawab='y',
        go.