home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH23EX03.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  1.3 KB  |  47 lines
  1. /*
  2.    Turbo Prolog 2.0 Reference Guide Chapter 3, Example Program 3
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. project "dummy"  /* Use your own project name here */
  9.  
  10. constants
  11.   % Choose the language calling convention, either C or Pascal
  12.   lang = c
  13.  
  14. global predicates
  15.   myfail language lang as "fail"
  16.   mymakewindow(integer,integer,integer,string,integer,integer,integer,integer)
  17.      - (i,i,i,i,i,i,i,i) language lang as "makewindow"
  18.   myshiftwindow(integer) - (i) language lang as "shiftwindow"
  19.   myremovewindow language lang as "removewindow"
  20.   write_integer(integer) - (i) language lang as "write_integer"
  21.   write_real(real) - (i) language lang as "write_real"
  22.   write_string(string) - (i) language lang as "write_string"
  23.   myreadchar(char) - (o) language lang as "readchar"
  24.   myreadline(string) - (o) language lang as "readline"
  25.  
  26.   extprog language lang as "extprog"
  27.  
  28. clauses
  29.    myfail :- fail.
  30.  
  31.    mymakewindow(Wno, Wattr, Fattr, Text, Srow, Scol, Rows, Cols):-
  32.       makewindow(Wno, Wattr, Fattr, Text, Srow, Scol, Rows, Cols).
  33.  
  34.   myshiftwindow(WNO) :- shiftwindow(WNO).
  35.  
  36.   myremovewindow :- removewindow.
  37.  
  38.   write_integer(I) :- write(I).
  39.  
  40.   write_real(R) :- write(R).
  41.  
  42.   write_string(S) :- write(S).
  43.  
  44.   myreadchar(CH) :- readchar(CH).
  45.  
  46.   myreadline(S) :- readln(S).
  47.