xclub.scr

来自「prolog,人工智能推理程序,运行环境prolog」· SCR 代码 · 共 16 行

field("f1",str,6,8,39)
field("f2",str,8,11,36)
field("f3",int,10,9,2)
field("f4",str,10,18,1)
field("f5",str,12,14,33)
txtfield(6,2,5,"Name:")
txtfield(8,2,8,"Address:")
txtfield(10,2,4,"Age:")
txtfield(10,13,4,"Sex:")
txtfield(12,2,10,"Interests:")
txtfield(10,23,29,"( m for male or f for female)")
txtfield(14,2,51,"( Enter interests separated by one or more spaces )")
txtfield(2,16,38,"Database of people and their interests")
txtfield(3,16,38,"**************************************")
windowsize(20,77)