fork download 
  1. predicates
  2.    repeat
  3.    action(integer,string)
  4.    test(string)
  5.  
  6. goal
  7.    makewindow(1,7,7,"interaction window",0,2,11,43),
  8.    repeat,
  9.    shiftwindow(1),
  10.    clearwindow,
  11.    write("0. Enter 0 to end\n"),
  12.    write("1. Enter 1 to create a window and input\n   a new string\n"),
  13.    write("2. Enter 2 to remove the window and text\n"),
  14.    write("3. Enter 3 to write to existing window\n\n"),
  15.    write("Selection? "),
  16.    readint(Int),nl,
  17.    action(Int,Text),
  18.    Int = 0,!,               /* this cut will prevent backtracking even if you                                                    have not created a string */
  19.    test(Text).
  20.  
  21. clauses
  22.    action(0,"EXIT"):-!,              /* this cut prevents Turbo Prolog from looking                                                            at other options. */
  23.       exit.
  24.  
  25.    action(1,Str):- 
  26.       existwindow(2),
  27.       write("You have a window that already exists.\n"),
  28.       write("Do you wish to clear it.(y,n) "),
  29.       readchar(Ans),!,
  30.       Ans='y',    /* If you answer yes to the question this cut prevents the                                  backtracking to the second action(1) clause. */
  31.       nl,
  32.       shiftwindow(2),
  33.       clearwindow,
  34.       write("Enter your string\n"),
  35.       readln(Str).
  36.  
  37.    action(1,Str):- !,         /* this cut prevents Turbo Prolog from looking                                                            at other options. */
  38.       nl,
  39.       makewindow(2,7,7," simple window control ", 12, 3, 12, 40),
  40.       write("Enter your string\n"),
  41.       readln(Str).
  42.  
  43.    action(2,"window removed"):-
  44.       existwindow(2),
  45.       !,    /* If the window has been input, this cut will prevent the second                                                    action(2) clause from executing */
  46.       shiftwindow(2),
  47.       removewindow,
  48.       clearwindow.
  49.  
  50.    action(2,"ERROR"):- 
  51.       clearwindow,
  52.       write("You must first create a window\n"),
  53.       write("Press any key to continue "),
  54.       readchar(_).
  55.  
  56.    action(3,Str):- 
  57.       existwindow(2),!,
  58.       shiftwindow(2),
  59.       clearwindow,
  60.       write("Enter your string\n"),
  61.       readln(Str).
  62.  
  63.    action(3,Str):- 
  64.       write("There is no window. Do you\n"),
  65.       write("want to create one?(y/n) "),
  66.       readchar(ANS),
  67.       ANS = 'y',nl,
  68.       makewindow(2,7,7," simple window control ",12,3,12,40),
  69.       write("Enter your string\n"),
  70.       readln(Str).
  71.  
  72.    action(_,"ERROR"):-
  73.       write("not a valid option\n"),
  74.       write("press any key to continue").
  75.  
  76.    test(Text):-
  77.       write(Text).
  78.  
  79.    repeat.
  80.    repeat:-repeat.
Success #stdin #stdout #stderr 0.03s 6968KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
ERROR: /home/e87DQz/prog:2:2: Syntax error: Operator expected
ERROR: /home/e87DQz/prog:22:2: Syntax error: Operator expected
ERROR: /home/e87DQz/prog:79:
	No permission to modify static procedure `repeat/0'
ERROR: /home/e87DQz/prog:80:
	No permission to modify static procedure `repeat/0'
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/ABeDc0
language:
Prolog (swi 7.6.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!