xlabel.dba

prolog,人工智能推理程序,运行环境prolog

actfield("saveconfig")
value("font3","\\027I\\003")
value("dbstrikecode","\\027G")
value("dir"," ")
value("dbstrikecode","\\027G")
value("font1","\\027I\\001")
value("initcode","\\027O")
value("indent","15")
value("font2","\\027I\\002")
value("number","1")
value("file","SPECIMEN.LBL")
value("labellines","9")
field("load",str,1,4,12)
field("print",str,1,22,17)
field("labellines",int,2,57,2)
field("indent",int,2,75,2)
field("save",str,3,4,12)
field("number",int,3,36,3)
field("dbstrike",str,4,54,3)
field("font",str,4,65,12)
field("edit",str,5,4,12)
field("printer",str,5,31,8)
field("font1",str,6,58,19)
field("dir",str,7,15,24)
field("font2",str,7,58,19)
field("font3",str,8,58,19)
field("file",str,9,15,24)
field("initcode",str,10,62,15)
field("saveconfig",str,11,4,35)
field("dbstrikecode",str,11,62,15)
txtfield(4,58,7,"Speed")
txtfield(4,44,9,"Dbstrike:")
txtfield(5,22,9,"Printer: ")
txtfield(1,22,12,"Print labels")
txtfield(7,4,10,"Directory:")
txtfield(9,0,13,"    Filename:")
txtfield(11,44,13,"Doublestrike:")
txtfield(1,4,10,"Load label")
txtfield(3,4,10,"Save label")
txtfield(5,4,10,"Edit label")
txtfield(11,5,19,"Save default values")
txtfield(10,44,13,"Initializing:")
txtfield(8,44,8,"Font 3:")
txtfield(7,44,8,"Font 2:")
txtfield(6,44,8,"Font 1:")
txtfield(2,60,12,"Indentation:")
txtfield(3,22,14,"No of labels: ")
txtfield(2,44,12,"No of lines:")
windowsize(20,77)
notopline
lineinpstate("",0)
lineinpflag
label("\nWilson S Megarry Jnr,\n1012 Sunset,\nSan Jose,\nCalifornia USA\n123456\n")
dbstrike
font(3)
printer("prn")