xlabel.dba

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

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")