Visual Prolog C150

Question

有什麼不對？我嘗試構建prolog程序，但編譯器拋出錯誤號c150。如何修復

 
domains 
     NAME=string. 
     NUM=symbol. 
     N=integer. 
predicates 
     abon(NAME,NUM) 
     abonname(NAME,NUM) 
     abonnum(NAME,NUM) 
     punkt(N) 
     menu 
     repeat 
clauses 
     abon(alex,"111234"). 
     abon(ivan,"123456"). 
     abon(petr,"135679"). 
     abon(semen,"141258"). 
     abon(evgen,"157989"). 
     abon(dima,"234577"). 
     abon(semen,"245876"). 
     abon(oleg,"342588"). 
     abon(roman,"428576"). 

     abonname(NAME,NUM):-abon(NAME,NUM),!. 
          abonname(_,"No information about number"). 
     abonnum(NAME,NUM):-abon(NAME,NUM),!. 
         abonnum("No information about name",_). 

     menu:-repeat,write("nomer menu-"),nl, 
      write("1-all information"),nl, 
     write("2-search by name"),nl, 
     write("3-search by number"),nl, 
      write("0-exit"),nl, 
      readint(N),punkt(N),N=0. 

     punkt(N):-N=1,abon(NAME,NUM), 
       write(NAME,"-",NUM),nl,fail. 
     punkt(N):-N=2,write("Name?:"),nl,readln(NAME), 
       abonname(NAME,NUM),write("nomer-",NUM),nl,fail. 
     punkt(N):-N=3,write("Number?:"),nl,readln(NUM), 
      abonnum(NAME,NUM),write("imya-",NAME),nl,fail. 
     punkt(0):-write("Exit"). 

     repeat. 
     repeat:-repeat. 

goal 
     menu. 

Answer 1

該代碼是在一個非常古老的風格。從Visual Prolog 6.0開始，您將不得不使用更新的基於類的語法。