xtravel.scr

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

field("arrivet",str,5,35,9)
field("timenow",str,9,35,9)
field("miles",real,11,35,9)
field("speed",real,14,35,9)
field("flip",str,17,7,39)
txtfield(6,8,25,"(in form hh:mm:ss please)")
txtfield(5,8,24,"Time you want to arrive:")
txtfield(2,6,31,"             Will You Make It ?")
txtfield(3,6,31,"             ==================")
txtfield(3,2,4,"    ")
txtfield(9,25,7,"me now:")
txtfield(9,23,2,"Ti")
txtfield(9,8,5,"     ")
txtfield(11,8,26,"Input how many miles left:")
txtfield(14,8,27,"Average speed necessary:   ")
windowsize(19,55)