xmail.scr

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

field("FirstNames",str,5,36,24)
field("LastName",str,7,33,26)
field("Street",str,9,33,26)
field("City",str,11,33,26)
field("State",str,13,33,26)
field("ZipCode",str,15,33,8)
field("SuppInfo",str,17,49,10)
field("discount",real,19,31,8)
field("Tel",str,19,50,14)
txtfield(2,22,19,"Mailing List Entry")
txtfield(3,22,19,"******************")
txtfield(5,22,14,"First Name(s):")
txtfield(7,22,11,"Last Name:")
txtfield(9,22,7,"Street:")
txtfield(11,22,11,"City:")
txtfield(13,22,11,"State:")
txtfield(15,22,9,"Zip Code:")
txtfield(17,22,27,"Supplementary Information:")
txtfield(19,22,9,"Discount:")
txtfield(19,39,11,"Telephone:")
windowsize(20,77)