/*

Copyright (c) 2003  EDMGROUP (Australia)

Project:  EZY_TEXT_MENU

FileName: EZY_TEXT_MENU.PRO

Purpose: Menu test compatibility with Turbo/PDC Prolog

Written by:

Serguei Penkov

ezy-soft@ezy-software.com

Comments:

Test for MENU system

Status:

Completed

*/

constants

window_main = 1

window_menu = 2

include "tx_tdoms.pro"

include "tx_READKEY.PRO"

include "tx_TPREDS.PRO"

include "tx_MENU2.PRO"

predicates

determ prolog_main

determ mainmenu

determ proces(INTEGER CHOICE)

nondeterm menu_repeat

clauses

menu_repeat()

menu_repeat():-

menu_repeat.

mainmenu():-

menu_repeat,

menu(2,25,20,6,

["Menu Item1","Menu Item2","Menu Item3","Menu Item4","Menu Item5"],

" Main Menu ",1,

CHOICE),

proces(CHOICE),

CHOICE=0,

!.

proces(0):-

shiftwindow(1),

write("\nAre you sure you want to quit? (y/n): "),

!,

readchar(T),

nl,

T=y,

write("Menu test completed").

proces(CHOICE):-

shiftwindow(1),

write("SELECTED CHOICE = ",CHOICE),

nl.

prolog_main():-

MAXCOL=45,

MAXROW=10,

textmode(MAXROW,MAXCOL),

makewindow(1,7,80,"Main Window",0,0,MAXROW,MAXCOL),

write("Welcome to EZY Prolog Text Menu test\n"),

write("Select item from the menu and press Enter\n"),

write("Press ESCAPE to stop test\n"),

write("Press any key to start test\n"),

readchar(_),

mainmenu.

goal():-

prolog_main().