formula.bs1

利用人工智能程序设计语言prolog编程实现的公式计算软件源代码。

akob(["PROJECT.FKB","6.1"])
tmpsl("alterL",s("AKO",0,13,el([e("alterLP","PROJECT.FKB")]),n,n,0,0,0))
tmpsl("alterL",s("ctrl",0,2,f("alterL"),n,n,0,0,0))
tmpsl("bm",s("OWN",0,12,e("status","bmp"),n,n,0,0,0))
tmpsl("bm",s("AKO",0,13,el([e("idb_130","FORMULA.VPR"),e("idb_61","FORMULA.VPR"),e("idb_60","FORMULA.VPR"),e("idb_58","FORMULA.VPR"),e("idb_57","FORMULA.VPR"),e("idb_55","FORMULA.VPR"),e("idb_54","FORMULA.VPR"),e("idb_52","FORMULA.VPR"),e("idb_51","FORMULA.VPR"),e("idb_49","FORMULA.VPR"),e("idb_48","FORMULA.VPR"),e("idb_46","FORMULA.VPR"),e("idb_45","FORMULA.VPR"),e("idb_43","FORMULA.VPR"),e("idb_42","FORMULA.VPR"),e("idb_40","FORMULA.VPR"),e("idb_39","FORMULA.VPR"),e("idb_37","FORMULA.VPR"),e("idb_36","FORMULA.VPR"),e("","a")]),n,sl([]),0,0,0))
tmpsl("bm",s("rc_all",0,11,p(1),n,sl([]),0,0,0))
tmpsl("bool",s("OWN",0,12,e("exprt","bool"),n,n,0,0,0))
tmpsl("bool",s("MDI",0,3,i(1),n,n,0,0,0))
tmpsl("bool",s("Toolbar",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("3DControl",0,3,i(1),n,n,0,0,0))
tmpsl("bool",s("Editor",0,3,i(1),n,n,0,0,0))
tmpsl("bool",s("Dialog",0,3,i(1),n,n,0,0,0))
tmpsl("bool",s("Tree",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Message",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("TreeBrowser",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("DirBrowser",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("TabControl",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("OwnerDraw",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Date",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Grid",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("ListProperty",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Palette",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("ProgressBar",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("SQL",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("ODBC",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Socket",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("DOC",0,3,i(0),n,n,0,0,0))
tmpsl("bool",s("Runt",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("OWN",0,12,e("status","cfg_set"),n,n,0,0,0))
tmpsl("cfg_set",s("align",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("str_sym",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("int_over",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("break",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("stack",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("errlvl",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("prn_mn",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("debug",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("dbg_info",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("ansi_oem",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("diag",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("brow",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("verb",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("symfile",0,1,st("FORMULA.SYM"),n,n,0,0,0))
tmpsl("cfg_set",s("max_e",0,3,i(25),n,n,0,0,0))
tmpsl("cfg_set",s("max_w",0,3,i(25),n,n,0,0,0))
tmpsl("cfg_set",s("inc",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("sym",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("var",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("scm",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("pro",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("nup",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("now",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("err",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("hsize",0,3,i(0),n,n,0,0,0))
tmpsl("cfg_set",s("ssize",0,3,i(8000),n,n,0,0,0))
tmpsl("cfg_set",s("defcon",0,1,st("formula_proj"),n,n,0,0,0))
tmpsl("cfg_set",s("unqpr",0,1,st("dtm"),n,n,0,0,0))
tmpsl("cfg_set",s("chdom",0,3,i(1),n,n,0,0,0))
tmpsl("cfg_set",s("exefile",0,1,st("EXE\\FORMULA.EXE"),n,n,0,0,0))
tmpsl("codexp",s("OWN",0,12,e("status","codexp"),n,n,0,0,0))
tmpsl("codexp",s("upd_res",0,5,sh(0),n,sl([]),0,0,0))
tmpsl("codexp",s("add_new",0,5,sh(0),n,sl([]),0,0,0))
tmpsl("codexp",s("rebuild",0,3,i(0),n,n,0,0,0))
tmpsl("cr",s("OWN",0,12,e("status","curs"),n,n,0,0,0))
tmpsl("cr",s("AKO",0,13,el([e("idc_66","FORMULA.VPR"),e("","a")]),n,sl([]),0,0,0))
tmpsl("cr",s("rc_all",0,11,p(1),n,sl([]),0,0,0))
tmpsl("dlg",s("OWN",0,12,e("status","dial"),n,n,0,0,0))
tmpsl("dlg",s("AKO",0,13,el([e("idd_157","FORMULA.VPR"),e("idd_23","FORMULA.VPR"),e("","a")]),n,sl([]),0,0,0))
tmpsl("dlg",s("rc_all",0,11,p(1),n,sl([]),0,0,0))
tmpsl("errMS",s("AKO",0,13,el([e("errMSP","PROJECT.FKB")]),n,n,0,0,0))
tmpsl("errMS",s("ctrl",0,2,f("errMS"),n,n,0,0,0))
tmpsl("exprt",s("OWN",0,12,e("status","exprt"),n,n,0,0,0))
tmpsl("exprt",s("prj",0,1,st("FORMULA"),n,sl([]),0,0,0))
tmpsl("exprt",s("hbase",0,1,st("FORMULA.HAM"),n,sl(["FORMULA","Copyright (c)",""]),0,0,0))
tmpsl("exprt",s("tgt",0,1,st("[2,0,0,0]"),n,sl([]),0,0,0))
tmpsl("exprt",s("bool",0,2,f("bool"),n,sl(["vpi","mdi","tb","hlp","C"]),0,0,0))
tmpsl("exprt",s("c_dir",0,1,st("d:\\BC5"),n,sl([]),0,0,0))
tmpsl("exprt",s("comp",0,1,st("Phd 301 Workshop"),n,sl([]),0,0,0))
tmpsl("exprt",s("vers",0,1,st("Version 1.0"),n,sl([]),0,0,0))
tmpsl("exprt",s("auth",0,1,st("Dr. Chen Hongbiao (陈鸿标 )"),n,sl([]),0,0,0))
tmpsl("exprt",s("copy",0,1,st("Copyright (c)"),n,sl([]),0,0,0))
tmpsl("exprt",s("dscr",0,1,st("Developed by Chen Hongbiao, All Rights Reserved. 本软件使用权属于许王电脑公司。"),n,sl([]),0,0,0))
tmpsl("exprt",s("upd_dt",0,1,st(""),n,sl([]),0,9,1))
tmpsl("exprt",s("efile",0,1,st(""),n,st("0"),0,0,1))
tmpsl("ic",s("OWN",0,12,e("status","icon"),n,n,0,0,0))
tmpsl("ic",s("AKO",0,13,el([e("idi_121","FORMULA.VPR"),e("","a")]),n,sl([]),0,0,0))
tmpsl("ic",s("rc_all",0,11,p(1),n,sl([]),0,0,0))
tmpsl("id_10",s("OWN",0,12,e("id_5","3"),n,n,0,0,0))
tmpsl("id_10",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_10",s("title",0,1,st("存盘(&S\\tF2)"),d,sl([]),2,16,1))
tmpsl("id_10",s("const",0,1,st("id_file_save"),m("pu",""),sl([]),6,0,1))
tmpsl("id_10",s("att",0,1,st("item_attr(0,0,1,\"F2\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_10",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_10",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_11",s("OWN",0,12,e("id_5","4"),n,n,0,0,0))
tmpsl("id_11",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_11",s("title",0,1,st("换名存盘(&A)"),d,sl([]),2,16,1))
tmpsl("id_11",s("const",0,1,st("id_file_save_as"),m("pu",""),sl([]),6,0,1))
tmpsl("id_11",s("att",0,1,st("item_attr(0,0,1,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_11",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_11",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_12",s("OWN",0,12,e("id_5","6"),n,n,0,0,0))
tmpsl("id_12",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_12",s("title",0,1,st("退出(&x)"),d,sl([]),2,16,1))
tmpsl("id_12",s("const",0,1,st("id_file_exit"),m("pu",""),sl([]),6,0,1))
tmpsl("id_12",s("att",0,1,st("item_attr(0,0,0,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_12",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_12",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_154",s("OWN",0,12,e("idr_152","1"),n,n,0,0,0))
tmpsl("id_154",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_154",s("title",0,1,st(""),d,sl([]),2,16,1))
tmpsl("id_154",s("const",0,1,st("id_w1"),m("pu",""),sl([]),6,0,2))
tmpsl("id_154",s("att",0,1,st("item_attr(0,0,0,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_154",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_21",s("OWN",0,12,e("id_7","1"),n,n,0,0,0))
tmpsl("id_21",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_21",s("title",0,1,st("&Contents\\tCtrl-F1"),d,sl([]),2,16,1))
tmpsl("id_21",s("const",0,1,st("id_help_contents"),m("pu",""),sl([]),6,0,1))
tmpsl("id_21",s("att",0,1,st("item_attr(0,0,0,\"F1\",0,1,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_21",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_21",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_22",s("OWN",0,12,e("id_7","3"),n,n,0,0,0))
tmpsl("id_22",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_22",s("title",0,1,st("&About"),d,sl([]),2,16,1))
tmpsl("id_22",s("const",0,1,st("id_help_about"),m("pu",""),sl([]),6,0,1))
tmpsl("id_22",s("att",0,1,st("item_attr(0,0,0,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_22",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_22",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_5",s("OWN",0,12,e("idr_4","1"),n,n,0,0,0))
tmpsl("id_5",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_5",s("title",0,1,st("文件(&F)"),d,sl([]),2,16,1))
tmpsl("id_5",s("const",0,1,st("id_file"),m("pu",""),sl([]),6,0,1))
tmpsl("id_5",s("att",0,1,st("item_attr(0,0,0,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_5",s("pref",0,1,st("id_file"),m("su",""),sl([]),0,0,1))
tmpsl("id_5",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_5",s("1",0,2,f("id_8"),n,st(""),0,0,2))
tmpsl("id_5",s("2",0,2,f("id_9"),n,st(""),0,0,2))
tmpsl("id_5",s("3",0,2,f("id_10"),n,st(""),0,0,2))
tmpsl("id_5",s("4",0,2,f("id_11"),n,st(""),0,0,2))
tmpsl("id_5",s("5",0,2,n,n,st(""),0,0,2))
tmpsl("id_5",s("6",0,2,f("id_12"),n,st(""),0,0,2))
tmpsl("id_7",s("OWN",0,12,e("idr_4","3"),n,n,0,0,0))
tmpsl("id_7",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_7",s("title",0,1,st("帮助(&H)"),d,sl([]),2,16,1))
tmpsl("id_7",s("const",0,1,st("id_help"),m("pu",""),sl([]),6,0,1))
tmpsl("id_7",s("att",0,1,st("item_attr(0,0,0,\"\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_7",s("pref",0,1,st("id_help"),m("su",""),sl([]),0,0,1))
tmpsl("id_7",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_7",s("1",0,2,f("id_21"),n,st(""),0,0,2))
tmpsl("id_7",s("4",0,2,f("id_74"),n,n,0,0,2))
tmpsl("id_7",s("2",0,2,n,n,st(""),0,0,2))
tmpsl("id_7",s("3",0,2,f("id_22"),n,st(""),0,0,2))
tmpsl("id_74",s("OWN",0,12,e("id_7","4"),n,n,0,0,0))
tmpsl("id_74",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_74",s("title",0,1,st("&Local\\tF1"),d,sl([]),2,16,1))
tmpsl("id_74",s("const",0,1,st("id_help_local"),m("pu",""),sl([]),6,0,2))
tmpsl("id_74",s("att",0,1,st("item_attr(0,0,0,\"F1\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_74",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_8",s("OWN",0,12,e("id_5","1"),n,n,0,0,0))
tmpsl("id_8",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_8",s("title",0,1,st("新文件(&N\\tF7)"),d,sl([]),2,16,1))
tmpsl("id_8",s("const",0,1,st("id_file_new"),m("pu",""),sl([]),6,0,1))
tmpsl("id_8",s("att",0,1,st("item_attr(0,0,0,\"F7\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_8",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_8",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("id_9",s("OWN",0,12,e("id_5","2"),n,n,0,0,0))
tmpsl("id_9",s("AKO",0,13,el([e("m_item","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("id_9",s("title",0,1,st("打开(&O\\tF8)"),d,sl([]),2,16,1))
tmpsl("id_9",s("const",0,1,st("id_file_open"),m("pu",""),sl([]),6,0,1))
tmpsl("id_9",s("att",0,1,st("item_attr(0,0,1,\"F8\",0,0,0)"),m("pu",""),sl([]),0,0,1))
tmpsl("id_9",s("pref",0,1,n,m("su",""),sl([]),0,0,1))
tmpsl("id_9",s("func",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("idb_130",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_130",s("name",0,1,st("fcalc"),m("cr","class"),sl([]),0,0,1))
tmpsl("idb_130",s("const",0,1,st("idb_fcalc"),n,sl([]),6,0,2))
tmpsl("idb_130",s("file",0,1,st("FCALC.BMP"),d,sl([]),0,11,1))
tmpsl("idb_36",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_36",s("name",0,1,st("New file Up"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_36",s("const",0,1,st("idb_new_up"),n,sl([]),6,0,1))
tmpsl("idb_36",s("file",0,1,st("RES\\NEWF.BMP"),d,sl([]),0,11,1))
tmpsl("idb_37",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_37",s("name",0,1,st("New file Down"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_37",s("const",0,1,st("idb_new_dn"),n,sl([]),6,0,1))
tmpsl("idb_37",s("file",0,1,st("RES\\NEWF1.BMP"),d,sl([]),0,11,1))
tmpsl("idb_39",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_39",s("name",0,1,st("Open file Up"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_39",s("const",0,1,st("idb_open_up"),n,sl([]),6,0,1))
tmpsl("idb_39",s("file",0,1,st("RES\\OPEN.BMP"),d,sl([]),0,11,1))
tmpsl("idb_40",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_40",s("name",0,1,st("Open file Down"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_40",s("const",0,1,st("idb_open_dn"),n,sl([]),6,0,1))
tmpsl("idb_40",s("file",0,1,st("RES\\OPEN1.BMP"),d,sl([]),0,11,1))
tmpsl("idb_42",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_42",s("name",0,1,st("Save file Up"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_42",s("const",0,1,st("idb_save_up"),n,sl([]),6,0,1))
tmpsl("idb_42",s("file",0,1,st("RES\\SAVE.BMP"),d,sl([]),0,11,1))
tmpsl("idb_43",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_43",s("name",0,1,st("Save file Down"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_43",s("const",0,1,st("idb_save_dn"),n,sl([]),6,0,1))
tmpsl("idb_43",s("file",0,1,st("RES\\SAVE1.BMP"),d,sl([]),0,11,1))
tmpsl("idb_45",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_45",s("name",0,1,st("Help up"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_45",s("const",0,1,st("idb_help_up"),n,sl([]),6,0,1))
tmpsl("idb_45",s("file",0,1,st("RES\\HELP.BMP"),d,sl([]),0,11,1))
tmpsl("idb_46",s("AKO",0,13,el([e("bmp","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idb_46",s("name",0,1,st("Help down"),m("cr","class"),sl([]),1,0,1))
tmpsl("idb_46",s("const",0,1,st("idb_help_down"),n,sl([]),6,0,1))