/*************************************************************************/ /* PRICESIM: Price Simulation Stata Toolkit (version 1.0) */ /*************************************************************************/ /* Conceived and programmed by Dr. Araar Abdelkrim (2006-2012) */ /* Universite Laval, Quebec, Canada */ /* email : aabd@ecn.ulaval.ca */ /* Phone : 1 418 656 7507 */ /*************************************************************************/ /* pschset.dlg */ /*************************************************************************/ //A FINALISER.... VERSION 9.2 SYNCHRONOUS_ONLY INCLUDE graph_header POSITION . . 780 640 DIALOG main, label("SUBSIM| Setting the shedule of prices --> pschset command") tabtitle("Main") BEGIN DEFINE col0 20 DEFINE col1 50 DEFINE col2 130 DEFINE col3 250 DEFINE col4 370 DEFINE col5 490 DEFINE colwd0 55 DEFINE colwd1 100 DEFINE _x _xsetbu DEFINE _y _top GROUPBOX chk_per11 40 40 620 80, /// label("Dialog box information: ") /// TEXT txt_vname11 50 +20 140 ., /// label("Load the information: ") BUTTON bu_load 200 @ 330 ., /// label("Load") onpush("view dialog pschini") TEXT tx_dbsfile 50 +25 140 ., /// label("Save the information:") /// FILE dbsamex 200 @ 330 ., /// label ("Browse...") save option("inisave") /// filter("MetaFile (*.pcs)*.psc*.* (*.*)*.*") GROUPBOX chk_per2 40 +60 620 60, /// label("Name of shedule price structure: ") /// TEXT txt_vname 50 +20 100 ., /// label("Name: ") EDIT ed_vname 160 @ 350 ., /// label("psch1") default("psch1") GROUPBOX chk_per3 40 +60 620 400, /// label("The tarification structure: ") /// TEXT tx_ini 50 +20 180 ., /// label("Initialise information with:") COMBOBOX cb_ini 180 @ 180 ., /// contents(ini_contents) /// values(ini_values) /// onselchangelist(ini_change) default(1) /// dropdownlist option(oinf) TEXT tx_bracs 370 @ 110 ., /// label("Number of brackets:") COMBOBOX cb_bracs 480 @ 40 ., /// contents(brac_contents) /// values(brac_values) /// onselchangelist(brac_change) default(1) /// dropdownlist option(nblock) EDIT ed_bracs 480 @ 40 ., /// default(1) /// option(nblock) TEXT tx_bun 50 +30 200 ., /// label("Blocks defined by:") COMBOBOX cb_bun 180 @ 180 ., /// contents(bun_contents) /// values(bun_values) /// onselchangelist(bun_change) default(1) /// dropdownlist option(bun) TEXT tx_fr col2 +30 100 ., /// label("Minimun") TEXT tx_max col2 @ 200 ., /// label("Maximum of block") TEXT tx_sz col3 @ colwd1 ., /// label("Maximum") TEXT tx_in4 col4 @ @ ., /// label("Tariff") TEXT tx_in5 col5 @ @ ., /// label("Subsidy") TEXT tx_brac1 col1 +20 60 ., /// label("Bracket_1:") right TEXT ln_brac1 col2 @ colwd1 ., /// label("0.0") EDIT en_mxb1 col3 @ colwd1 ., /// label("") option(mxb1) default(100) VARNAME var_mxb col2 @ colwd1 ., /// label("") option(mxb) TEXT tx_mxb1 col3 @ colwd1 ., /// label("and more") EDIT en_tarif1 col4 @ @ ., /// option(tr1) default(1) /// label("") VARNAME var_tr col4 @ @ ., /// option(tr) /// label("") EDIT en_sub1 col5 @ @ ., /// option(sub1) default() /// label("") VARNAME var_sub col5 @ @ ., /// option(sub) default() /// label("") TEXT tx_brac2 col1 +30 60 ., /// label("Bracket_2:") right TEXT ln_brac2 col2 @ colwd1 ., /// label("Max Bracket_1") EDIT en_mxb2 col3 @ colwd1 ., /// label("") option(mxb2) default(200) TEXT tx_mxb2 col3 @ colwd1 ., /// label("and more") EDIT en_tarif2 col4 @ @ ., /// option(tr2) default(1) /// label("") EDIT en_sub2 col5 @ @ ., /// option(sub2) default() /// label("") TEXT tx_brac3 col1 +30 60 ., /// label("Bracket_3:") right TEXT ln_brac3 col2 @ colwd1 ., /// label("Max Bracket_2") EDIT en_mxb3 col3 @ colwd1 ., /// label("") option(mxb3) default(300) TEXT tx_mxb3 col3 @ colwd1 ., /// label("and more") EDIT en_tarif3 col4 @ @ ., /// option(tr3) default(1) /// label("") EDIT en_sub3 col5 @ @ ., /// option(sub3) default() /// label("") TEXT tx_brac4 col1 +30 60 ., /// label("Bracket_4:") right TEXT ln_brac4 col2 @ colwd1 ., /// label("Max Bracket_2") EDIT en_mxb4 col3 @ colwd1 ., /// label("") option(mxb4) default(400) TEXT tx_mxb4 col3 @ colwd1 ., /// label("and more") EDIT en_tarif4 col4 @ @ ., /// option(tr4) default(1) /// label("") EDIT en_sub4 col5 @ @ ., /// option(sub4) default() /// label("") TEXT tx_brac5 col1 +30 60 ., /// label("Bracket_5:") right TEXT ln_brac5 col2 @ colwd1 ., /// label("Max Bracket_4") EDIT en_mxb5 col3 @ colwd1 ., /// label("") option(mxb5) default(500) TEXT tx_mxb5 col3 @ colwd1 ., /// label("and more") EDIT en_tarif5 col4 @ @ ., /// option(tr5) default(1) /// label("") EDIT en_sub5 col5 @ @ ., /// option(sub5) default() /// label("") TEXT tx_brac6 col1 +30 60 ., /// label("Bracket_6:") right TEXT ln_brac6 col2 @ colwd1 ., /// label("Max Bracket_5") EDIT en_mxb6 col3 @ colwd1 ., /// label("") option(mxb6) default(600) TEXT tx_mxb6 col3 @ colwd1 ., /// label("and more") EDIT en_tarif6 col4 @ @ ., /// option(tr6) default(1) /// label("") EDIT en_sub6 col5 @ @ ., /// option(sub6) default() /// label("") TEXT tx_brac7 col1 +30 60 ., /// label("Bracket_7:") right TEXT ln_brac7 col2 @ colwd1 ., /// label("Max Bracket_6") EDIT en_mxb7 col3 @ colwd1 ., /// label("") option(mxb7) default(700) TEXT tx_mxb7 col3 @ colwd1 ., /// label("and more") EDIT en_tarif7 col4 @ @ ., /// option(tr7) default(1) /// label("") EDIT en_sub7 col5 @ @ ., /// option(sub7) default() /// label("") TEXT tx_brac8 col1 +30 60 ., /// label("Bracket_8:") right TEXT ln_brac8 col2 @ colwd1 ., /// label("Max Bracket_7") EDIT en_mxb8 col3 @ colwd1 ., /// label("") option(mxb8) default(800) TEXT tx_mxb8 col3 @ colwd1 ., /// label("and more") EDIT en_tarif8 col4 @ @ ., /// option(tr8) default(1) /// label("") EDIT en_sub8 col5 @ @ ., /// option(sub8) default() /// label("") TEXT tx_brac9 col1 +30 60 ., /// label("Bracket_9:") right TEXT ln_brac9 col2 @ colwd1 ., /// label("Max Bracket_8") EDIT en_mxb9 col3 @ colwd1 ., /// label("") option(mxb9) default(900) TEXT tx_mxb9 col3 @ colwd1 ., /// label("and more") EDIT en_tarif9 col4 @ @ ., /// option(tr9) default(1) /// label("") EDIT en_sub9 col5 @ @ ., /// option(sub9) default() /// label("") TEXT tx_brac10 col1 +30 60 ., /// label("Bracket_10:") right TEXT ln_brac10 col2 @ colwd1 ., /// label("Max Bracket_9") EDIT en_mxb10 col3 @ colwd1 ., /// label("") option(mxb10) default(1000) TEXT tx_mxb10 col3 @ colwd1 ., /// label("and more") EDIT en_tarif10 col4 @ @ ., /// option(tr10) default(1) /// label("") EDIT en_sub10 col5 @ @ ., /// option(sub10) default() /// label("") DEFINE _x 600 DEFINE _y 280 END PROGRAM POSTINIT_PROGRAM BEGIN put "pschini2" stata hidden END SCRIPT clear_all BEGIN main.cb_bracs.setvalue "1" main.ln_brac1.setvalue "" main.ln_brac2.setvalue "" main.ln_brac3.setvalue "" main.ln_brac4.setvalue "" main.ln_brac5.setvalue "" main.ln_brac6.setvalue "" main.ln_brac7.setvalue "" main.ln_brac8.setvalue "" main.ln_brac9.setvalue "" main.ln_brac10.setvalue "" END LIST ini_contents BEGIN Paramater values Variables END LIST ini_values BEGIN 1 2 END LIST bun_contents BEGIN Household consumption Individual consumption END LIST bun_values BEGIN 1 2 END SCRIPT PREINIT BEGIN create BOOLEAN has_brac1 create BOOLEAN has_brac2 create BOOLEAN has_brac3 create BOOLEAN has_brac4 create BOOLEAN has_brac5 create BOOLEAN has_brac6 create BOOLEAN has_brac7 create BOOLEAN has_brac8 create BOOLEAN has_brac9 create BOOLEAN has_brac10 create BOOLEAN has_ini END LIST brac_contents BEGIN 1 2 3 4 5 6 7 8 9 10 END LIST brac_change BEGIN script brac1 script brac2 script brac3 script brac4 script brac5 script brac6 script brac7 script brac8 script brac9 script brac10 END SCRIPT brac1 BEGIN has_brac1.settrue has_brac2.setfalse has_brac3.setfalse has_brac4.setfalse has_brac5.setfalse has_brac6.setfalse has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac2 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.setfalse has_brac4.setfalse has_brac5.setfalse has_brac6.setfalse has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac3 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.setfalse has_brac5.setfalse has_brac6.setfalse has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac4 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.setfalse has_brac6.setfalse has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac5 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.setfalse has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac6 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.settrue has_brac7.setfalse has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac7 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.settrue has_brac7.settrue has_brac8.setfalse has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac8 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.settrue has_brac7.settrue has_brac8.settrue has_brac9.setfalse has_brac10.setfalse program check_bracs END SCRIPT brac9 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.settrue has_brac7.settrue has_brac8.settrue has_brac9.settrue has_brac10.setfalse program check_bracs END SCRIPT brac10 BEGIN has_brac1.settrue has_brac2.settrue has_brac3.settrue has_brac4.settrue has_brac5.settrue has_brac6.settrue has_brac7.settrue has_brac8.settrue has_brac9.settrue has_brac10.settrue program check_bracs END LIST ini_change BEGIN script ini1 script ini2 END SCRIPT ini1 BEGIN has_ini.settrue program check_bracs END SCRIPT ini2 BEGIN has_ini.setfalse program check_bracs END PROGRAM check_bracs BEGIN if has_ini { call main.var_mxb.hide call main.var_tr.hide call main.var_sub.hide call main.tx_max.hide call main.tx_fr.show call main.tx_sz.show call main.ed_bracs.hide call main.cb_bracs.show if has_brac1 { call main.tx_mxb1.show call main.tx_brac1.show call main.ln_brac1.show call main.en_tarif1.show call main.en_sub1.show call main.en_mxb1.hide call main.tx_mxb2.hide call main.tx_mxb3.hide call main.tx_mxb4.hide call main.tx_mxb5.hide call main.tx_mxb6.hide call main.tx_mxb7.hide call main.tx_mxb8.hide call main.tx_mxb9.hide call main.tx_mxb10.hide } if !has_brac1 { call main.en_mxb1.show call main.tx_brac1.show call main.ln_brac1.hide call main.en_tarif1.hide call main.en_sub1.hide } if has_brac2 { call main.tx_mxb1.hide call main.en_mxb1.show call main.tx_mxb2.show call main.en_mxb2.hide call main.tx_brac2.show call main.ln_brac2.show call main.en_sub2.show call main.en_tarif2.show } if !has_brac2 { call main.tx_brac2.hide call main.en_mxb2.hide call main.ln_brac2.hide call main.en_tarif2.hide call main.en_sub2.hide } if has_brac3 { call main.tx_mxb2.hide call main.en_mxb2.show call main.tx_mxb3.show call main.en_mxb3.hide call main.tx_brac3.show call main.ln_brac3.show call main.en_tarif3.show call main.en_sub3.show } if !has_brac3 { call main.tx_brac3.hide call main.en_mxb3.hide call main.ln_brac3.hide call main.en_tarif3.hide call main.en_sub3.hide } if has_brac4 { call main.tx_mxb3.hide call main.en_mxb3.show call main.tx_mxb4.show call main.en_mxb4.hide call main.tx_brac4.show call main.ln_brac4.show call main.en_tarif4.show call main.en_sub4.show } if !has_brac4 { call main.tx_brac4.hide call main.en_mxb4.hide call main.ln_brac4.hide call main.en_tarif4.hide call main.en_sub4.hide } if has_brac5 { call main.tx_mxb4.hide call main.en_mxb4.show call main.tx_mxb5.show call main.en_mxb5.hide call main.tx_brac5.show call main.ln_brac5.show call main.en_tarif5.show call main.en_sub5.show } if !has_brac5 { call main.tx_brac5.hide call main.en_mxb5.hide call main.ln_brac5.hide call main.en_tarif5.hide call main.en_sub5.hide } if has_brac6 { call main.tx_mxb5.hide call main.en_mxb5.show call main.tx_mxb6.show call main.en_mxb6.hide call main.tx_brac6.show call main.ln_brac6.show call main.en_tarif6.show call main.en_sub6.show } if !has_brac6 { call main.tx_brac6.hide call main.en_mxb6.hide call main.ln_brac6.hide call main.en_tarif6.hide call main.en_sub6.hide } if has_brac7 { call main.tx_mxb6.hide call main.en_mxb6.show call main.tx_mxb7.show call main.en_mxb7.hide call main.tx_brac7.show call main.ln_brac7.show call main.en_tarif7.show call main.en_sub7.show } if !has_brac7 { call main.tx_brac7.hide call main.en_mxb7.hide call main.ln_brac7.hide call main.en_tarif7.hide call main.en_sub7.hide } if has_brac8 { call main.tx_mxb7.hide call main.en_mxb7.show call main.tx_mxb8.show call main.en_mxb8.hide call main.tx_brac8.show call main.ln_brac8.show call main.en_tarif8.show call main.en_sub8.show } if !has_brac8 { call main.tx_brac8.hide call main.en_mxb8.hide call main.ln_brac8.hide call main.en_tarif8.hide call main.en_sub8.hide } if has_brac9 { call main.tx_mxb8.hide call main.en_mxb8.show call main.tx_mxb9.show call main.en_mxb9.hide call main.tx_brac9.show call main.ln_brac9.show call main.en_tarif9.show call main.en_sub9.show } if !has_brac9 { call main.tx_brac9.hide call main.en_mxb9.hide call main.ln_brac9.hide call main.en_tarif9.hide call main.en_sub9.hide } if has_brac10 { call main.tx_mxb9.hide call main.en_mxb9.show call main.tx_mxb10.show call main.en_mxb10.hide call main.tx_brac10.show call main.ln_brac10.show call main.en_tarif10.show call main.en_sub10.show } if !has_brac10 { call main.tx_brac10.hide call main.en_mxb10.hide call main.ln_brac10.hide call main.en_tarif10.hide call main.en_sub10.hide } } if !has_ini { call main.var_mxb.show call main.var_tr.show call main.var_sub.show call main.tx_max.show call main.tx_fr.hide call main.tx_sz.hide call main.ed_bracs.show call main.cb_bracs.hide call main.tx_brac1.hide call main.en_mxb1.hide call main.tx_mxb1.hide call main.ln_brac1.hide call main.en_tarif1.hide call main.en_sub1.hide call main.tx_brac2.hide call main.en_mxb2.hide call main.ln_brac2.hide call main.en_tarif2.hide call main.en_sub2.hide call main.tx_mxb2.hide call main.tx_brac3.hide call main.en_mxb3.hide call main.tx_mxb3.hide call main.ln_brac3.hide call main.en_tarif3.hide call main.en_sub3.hide call main.tx_brac4.hide call main.en_mxb4.hide call main.tx_mxb4.hide call main.ln_brac4.hide call main.en_tarif4.hide call main.en_sub4.hide call main.tx_brac5.hide call main.en_mxb5.hide call main.tx_mxb5.hide call main.ln_brac5.hide call main.en_tarif5.hide call main.en_sub5.hide call main.tx_brac6.hide call main.en_mxb6.hide call main.tx_mxb6.hide call main.ln_brac6.hide call main.en_tarif6.hide call main.en_sub6.hide call main.tx_brac7.hide call main.en_mxb7.hide call main.tx_mxb7.hide call main.ln_brac7.hide call main.en_tarif7.hide call main.en_sub7.hide call main.tx_brac8.hide call main.en_mxb8.hide call main.tx_mxb8.hide call main.ln_brac8.hide call main.en_tarif8.hide call main.en_sub8.hide call main.tx_brac9.hide call main.en_mxb9.hide call main.tx_mxb9.hide call main.ln_brac9.hide call main.en_tarif9.hide call main.en_sub9.hide call main.tx_brac10.hide call main.en_mxb10.hide call main.tx_mxb10.hide call main.ln_brac10.hide call main.en_tarif10.hide call main.en_sub10.hide } END PROGRAM brac_output BEGIN if has_brac1 & !has_brac2 { optionarg main.en_tarif1 optionarg main.en_sub1 } if has_brac2 & !has_brac3 { optionarg main.en_mxb1 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_sub1 optionarg main.en_sub2 } if has_brac3 & !has_brac4{ optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 } if has_brac4 & !has_brac5 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 } if has_brac5 & !has_brac6 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 } if has_brac6 & !has_brac7 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_mxb5 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_tarif6 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 optionarg main.en_sub6 } if has_brac7 & !has_brac8 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_mxb5 optionarg main.en_mxb6 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_tarif6 optionarg main.en_tarif7 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 optionarg main.en_sub6 optionarg main.en_sub7 } if has_brac8 & !has_brac9 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_mxb5 optionarg main.en_mxb6 optionarg main.en_mxb7 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_tarif6 optionarg main.en_tarif7 optionarg main.en_tarif8 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 optionarg main.en_sub6 optionarg main.en_sub7 optionarg main.en_sub8 } if has_brac9 & !has_brac10 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_mxb5 optionarg main.en_mxb6 optionarg main.en_mxb7 optionarg main.en_mxb8 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_tarif6 optionarg main.en_tarif7 optionarg main.en_tarif8 optionarg main.en_tarif9 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 optionarg main.en_sub6 optionarg main.en_sub7 optionarg main.en_sub8 optionarg main.en_sub9 } if has_brac10 { optionarg main.en_mxb1 optionarg main.en_mxb2 optionarg main.en_mxb3 optionarg main.en_mxb4 optionarg main.en_mxb5 optionarg main.en_mxb6 optionarg main.en_mxb7 optionarg main.en_mxb8 optionarg main.en_mxb9 optionarg main.en_tarif1 optionarg main.en_tarif2 optionarg main.en_tarif3 optionarg main.en_tarif4 optionarg main.en_tarif5 optionarg main.en_tarif6 optionarg main.en_tarif7 optionarg main.en_tarif8 optionarg main.en_tarif9 optionarg main.en_tarif10 optionarg main.en_sub1 optionarg main.en_sub2 optionarg main.en_sub3 optionarg main.en_sub4 optionarg main.en_sub5 optionarg main.en_sub6 optionarg main.en_sub7 optionarg main.en_sub8 optionarg main.en_sub9 optionarg main.en_sub10 } END HELP hlp1, view("help pschset") RESET res1 OK ok1, label("OK") CANCEL can1, label("Cancel") SUBMIT sub1, label("Submit") COPY copy1 PROGRAM command BEGIN put "pschset " require main.ed_vname varlist main.ed_vname put " " beginoptions optionarg main.dbsamex optionarg main.cb_bracs optionarg main.ed_bracs if !main.cb_bun.isdefault() { optionarg main.cb_bun } put " " /program brac_output if !has_ini { optionarg main.var_tr optionarg main.var_sub optionarg main.var_mxb optionarg main.cb_ini } endoptions END