==CHECKPOINT Saves Current B34S Data file in tempb34s.mac /$ This "checkpoints the current data" /$ Default file is tempb34s.mac /$ note use of "' '" /$ Default macroname is file1 /$ Default disp is rewind . add is an option /$ Default head is "'Data built by B34S ...'" up to 32 characters /$ /$ user makes changes here %b34slet file ="'tempb34s.mac'"$ %b34slet b34smacro=file1$ %b34slet disp =rewind$ %b34slet head ="'Data built by B34S CHECKPOINT '"$ /$ /$ b34sexec options open(%b34seval(&file)) disp=unknown unit=46$ b34srun$ b34sexec scainput sformat(highaccuracy)$ makeb34s macro=%b34seval(&b34smacro) nohead disp=%b34seval(&disp) saveunit=46 heading=%b34seval(&head)$ b34srun$ b34sexec options close=46$ b34srun$ == ==RESTORE Restores Dataset in tempb34s.mac /$ This restores a B34S checkpoint of the current data /$ Default file is tempb34s.mac /$ note use of "' '" /$ Default macroname is file1 /$ /$ user makes changes here %b34slet file ="'tempb34s.mac'"$ %b34slet b34smacro=file1$ /$ /$ b34sexec options include(%b34seval(&file)) member=%b34seval(&b34smacro)$ b34srun$ == ==LINEEDIT Call B34S line editor to submit job B34SEXEC MAKEMENU COMMANDN('Line Edit Menu') FHCOLOR(REVERSE,GREEN,BLACK) COMMANDH('This menu allows user to submit a quick job.', 'Line Editing is allowed on each line.')$ FIELD TYPE=INPUT PAGE=1 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP B34SEEND$ == ==RELOADMENU Reload prior menu B34SEXEC MAKEMENU COMMANDN(' Reloaded Menu ') COMMANDH('Prior menu has been reloaded.') FHCOLOR(REVERSE,GREEN,BLACK) GETMENU$ B34SRUN$ == ==AUTOC Simple ACF and CCF using Small Sample Equation B34SEXEC MAKEMENU COMMANDN('ACF and CCF Command') COMMANDH('See help command for futher detail on AUTOC command.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Autocorrelations and Cross Correlations') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC AUTOC ')$ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=5 COL1=1 COL2=23 FIELDHELP('The field allows user to specify ACF and CCF' 'options. If CCF is requested, then an even number', 'of series can be supplied. A maximum of 8 series', 'can be supplied. Note that this command, in', 'contrast to BJIDEN, uses small sample formulas') TEXTID('Hit Fn6 key to see choices for ACF & CCF') TEXT('ACF and CCF options:') CHOICES('Calculate ACF only', 'Calculate CCF only', 'Calculate ACF and CCF') CHOICECODE('AUTO','CROSS','BOTH') DEFAULT=('AUTO') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL FIELDHELP('For Box-Jenkins approach see BJIDEN command.', 'If number of lags not set, program defaults', 'to maximum of 60 and NOOBS/4. ') TEXTID('Sets the lags to use to calculate ACF and CCF.') INTRANGE(0,60) TEXT('Number of lags:') PRELINE('PERIOD=') DEFAULT=' 0' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=9 COL1=1 COL2=25 REQUIRED TEXTID('Be sure variables are currently active') TEXT('Variables for analysis:') PRELINE('VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=10 COL1=1 COL2=25 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Variables for analysis:') DEFAULT=' ' $ field type=info page=1 row=12 col1=1 fieldtype=character textcolor(byellow) text('Use Data_View option under Matrix Command for High Res plots') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=17 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ B34SEEND$ == ==BJIDEN1 Identification of Box-Jenkins ARIMA Model B34SEXEC MAKEMENU COMMANDN('Identification of Box-Jenkins ARIMA Model') COMMANDH('See help command for futher detail on BJIDEN options.' 'Not all options in BJIDEN have been implemented.', 'If only series name supplied, will get 24 autocorrelations' 'and 24 partial autocorrelations. Menu has been setup for a' 'maximum of 1 series.') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Calculation of ACF and PACF for Box-Jenkins Analysis')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nac = 24^' '%A34SLET npac = 0 ^' '%A34SLET napl = 6 ^' '%A34SLET list = 0^' '%A34SLET plot = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET plotacf= 0^' '%A34SLET rtrans = 0^' '%A34SLET plam = 1.0^' '%A34SLET tm = 0.0 ^' '%A34SLET dif = 0^' '%A34SLET acf = 0^' '%A34SLET pacf = 0^' "%A34SLET diff ='_NULL_'^" '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning Obs:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=42 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=63 TEXTID='Zero defaults to last observation' TEXT('Ending Obs: ') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=4 COL1=1 fieldtype=varname col2=23 letname=(var) default=' ' required text=('Series:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam=1.0^','%A34SLET plam=0.0^') COL2=23 TEXTID='Hit space bar to log data' TEXT('Log data: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=real letname=(tm) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series so log can be taken' TEXT('Value added to series:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=qstring letname=(diff) PRELINE('%A34SLET dif = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, always get ACF of non ', ' differenced series' ) TEXT('Differencing: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Zero defaults to last 24' TEXT('Number of ACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=1 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Zero defaults to last 24' TEXT('Number of PACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 LETNAME(napl) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,12) COL2=23 TEXTID='Must be in range 1-12. Default = 6' TEXT('# ACF, PACF per line: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET list=0^','%A34SLET list=1^') COL2=23 TEXTID='Hit space bar to list series in compact form' TEXT('List series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plot=0^','%A34SLET plot=1^') COL2=23 TEXTID='Hit space bar to plot series' TEXT('Plot series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plotacf=0^','%A34SLET plotacf=1^') COL2=23 TEXTID='Hit space bar to plot ACF' TEXT('Plot ACF/PACF: ') $ field type=info page=1 row=15 col1=1 fieldtype=character textcolor(byellow) text('Use Data_View option under Matrix Command for High Res plots') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') $ field type=info page=1 row=15 col1=1 fieldtype=character textcolor(byellow) text('Use Data_View option under Matrix Command for High Res plots') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# B34SEXEC BJIDEN /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# nac =%b34seval(&nac) /$# %B34SIF(&npac.NE.0)%THEN ; /$# npac =%b34seval(&npac) /$# %B34SENDIF ; /$# napl =%b34seval(&napl) /$# %B34SIF(&list.NE.0)%THEN ; /$# list =%b34seval(&var) /$# %B34SENDIF ; /$# %B34SIF(&plot.NE.0)%THEN ; /$# plot =%b34seval(&var) /$# %B34SENDIF ; /$# %B34SIF(&plotacf.NE.0)%THEN ; /$# iwtpa /$# %B34SENDIF ; /$# $ /$# var =%b34seval(&var) $ /$# seriesn var = %b34seval(&var) /$# $ /$# rtrans plam(%b34seval(&plam)) /$# tm( %b34seval(&tm )) /$# var( %b34seval(&var )) /$# %b34sif(&dif.ne.0)%then ; /$# %b34seval(&diff) /$# %B34SENDIF ; /$# $ /$# rauto %b34seval(&var) $ /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==BJIDEN2 Identification of Box-Jenkins Transfer Function B34SEXEC MAKEMENU COMMANDN('Identification of Box-Jenkins Transfer Function Model') COMMANDH('See help command for futher detail on BJIDEN options.' 'Not all options in BJIDEN have been implemented.', 'Menu has been setup for a maximum of 2 series.', 'If only series names are supplied, will get 12', 'autocorrelations and 12 partial autocorrelations.', 'If only want cross correlations of raw data set NCC.', 'Prewhitened cross correlations generate an estimate', 'of the noise model. Can calculate an ACF of the CCF.', 'Menu has been setup for a maximum of 2 series.') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests')$ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Calculation of ACF, PACF and CCF for two series')$ field type=info page=1 row=2 col1=1 fieldtype=character textcolor(byellow) text('Use Data_View option under Matrix Command for High Res plots') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nac = 12^' '%A34SLET npac = 0 ^' '%A34SLET napl = 6 ^' '%A34SLET ncc = 0 ^' '%A34SLET iwtpcc = 0 ^' '%A34SLET list = 0^' '%A34SLET plot = 0^' '%A34SLET nirw = 0^' '%A34SLET iautcr = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET plotacf= 0^' '%A34SLET rtrans1= 0^' '%A34SLET plam1= 1.0^' '%A34SLET tm1= 0.0 ^' '%A34SLET dif1 = 0^' "%A34SLET diff1 ='_NULL_'^" '%A34SLET rtrans2= 0^' '%A34SLET plam2= 1.0^' '%A34SLET tm2= 0.0 ^' '%A34SLET dif2 = 0^' "%A34SLET diff2 ='_NULL_'^" '%A34SLET acf = 0^' '%A34SLET pacf = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning obs:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to last observation' TEXT('Ending Obs:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=5 COL1=1 fieldtype=varname col2=23 letname=(var1) default=' ' required text=('Series # 1:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=5 COL1=40 fieldtype=varname col2=63 letname=(var2) default=' ' required text=('Series # 2:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam1=1.0^','%A34SLET plam1=0.0^') COL2=23 TEXTID='Hit space bar to log series # 1' TEXT('Log series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam2=1.0^','%A34SLET plam2=0.0^') COL2=63 TEXTID='Hit space bar to log series # 2' TEXT('Log series 2:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=real letname=(tm1) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series # 1 so log can be taken' TEXT('Value added series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=40 FIELDTYPE=real letname=(tm2) DEFAULT='0.0 ' COL2=63 TEXTID='Enter value to add to series # 2 so log can be taken' TEXT('Value added series 2:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE=qstring letname=(diff1) PRELINE('%A34SLET dif1 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=qstring letname=(diff2) PRELINE('%A34SLET dif2 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, always get ACF of non ', ' differenced series' ) TEXT('Differencing series 2:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Default = 12' TEXT('Number of ACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Defaults = 12' TEXT('Number of PACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 LETNAME(napl) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,12) COL2=23 TEXTID='Must be in range 1-12. Default = 6' TEXT('# ACF, PACF per line: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 LETNAME(ncc) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,54) COL2=23 TEXTID='Sets NCC - # cross correlations of raw data. Range 0-54.' TEXT('# Cross Correlations:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET iwtpcc=0^','%A34SLET iwtpcc=1^') COL2=23 TEXTID='Hit space bar to plot cross correlation functions' TEXT('Plot CCF: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET list=0^','%A34SLET list=1^') COL2=23 TEXTID='Hit space bar to list series in compact form' TEXT('List series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=42 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plot=0^','%A34SLET plot=1^') COL2=64 TEXTID='Hit space bar to plot series' TEXT('Plot series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 LETNAME(nirw) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,54) COL2=23 TEXTID='# of cross correlations of differenced data. Range (0,54)' TEXT('# Diff Cross corr.: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plotacf=0^','%A34SLET plotacf=1^') COL2=64 TEXTID='Hit space bar to plot ACF' TEXT('Plot ACF/PACF: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET iautcr=0^','%A34SLET iautcr=1^') COL2=23 TEXTID='Hit space bar to autocorrelate cross correlations' TEXT('ACF of CCF: ') optional limitf(1) $ field type=info page=1 row=19 col1=1 fieldtype=character textcolor(byellow) text('Use Data_View option under Matrix Command for High Res plots') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macro sentences and ; for bjiden sentences PGMCARDS$ /$# B34SEXEC BJIDEN /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# nac =%b34seval(&nac) /$# %B34SIF(&npac.NE.0)%THEN ; /$# npac =%b34seval(&npac) /$# %B34SENDIF ; /$# napl =%b34seval(&napl) /$# ncc =%b34seval(&ncc) /$# nirw =%b34seval(&nirw) /$# %B34SIF(&iwtpcc.NE.0)%THEN ; /$# iwtpcc /$# %B34SENDIF ; /$# %B34SIF(&iautcr.NE.0)%THEN ; /$# iautcr /$# %B34SENDIF ; /$# %B34SIF(&list.NE.0)%THEN ; /$# list(%b34seval(&var1) %b34seval(&var2)) /$# %B34SENDIF ; /$# %B34SIF(&plot.NE.0)%THEN ; /$# plot(%b34seval(&var1) %b34seval(&var2)) /$# %B34SENDIF ; /$# %B34SIF(&plotacf.NE.0)%THEN ; /$# iwtpa /$# %B34SENDIF ; /$# %B34SIF(&nirw.NE.0)%THEN ; /$# type=transi /$# %B34SENDIF ; /$# $ /$# var =%b34seval(&var1) %b34seval(&var2) $ /$# seriesn var = %b34seval(&var1) $ /$# seriesn var = %b34seval(&var2) $ /$# rtrans plam(%b34seval(&plam1)) /$# tm( %b34seval(&tm1 )) /$# var( %b34seval(&var1 )) /$# %b34sif(&dif1.ne.0)%then ; /$# %b34seval(&diff1) /$# %B34SENDIF ; /$# $ /$# rtrans plam(%b34seval(&plam2)) /$# tm( %b34seval(&tm2 )) /$# var( %b34seval(&var2 )) /$# %b34sif(&dif2.ne.0)%then ; /$# %b34seval(&diff2) /$# %B34SENDIF ; /$# $ /$# rauto %b34seval(&var1) %b34seval(&var2) $ /$# %b34sif(&ncc.ne.0)%then ; /$# rcross(%b34seval(&var1) %b34seval(&var2)) /$# $ /$# %B34SENDIF ; /$# %b34sif(&nirw.ne.0)%then ; /$# pcross(%b34seval(&var1) %b34seval(&var2)) /$# $ /$# modelpre plam(%b34seval(&plam1)) /$# tm( %b34seval(&tm1 )) /$# var( %b34seval(&var1 )) /$# %b34sif(&dif1.ne.0)%then ; /$# %b34seval(&diff1) /$# %B34SENDIF ; /$# $ /$# output plam(%b34seval(&plam2)) /$# tm( %b34seval(&tm2 )) /$# %b34sif(&dif2.ne.0)%then ; /$# %b34seval(&diff2) /$# %B34SENDIF ; /$# $ /$# %b34sendif ; /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==BJ_ARIMA Estimation of Box-Jenkins ARIMA model B34SEXEC MAKEMENU COMMANDN('Estimation of Box-Jenkins ARIMA model') COMMANDH('See help command for futher detail on BJEST options.', 'Not all options in BJEST have been implemented.', 'If NAC and NPAC are not set they will default to 12', 'autocorrelations and 12 partial autocorrelations.') tabhelpposition(20) tlabels('Basic Settings','Advanced Diagnostic Tests') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('ARIMA Model building Menu')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nac = 12^' '%A34SLET npac = 0 ^' '%A34SLET napl = 6 ^' '%A34SLET mit = 20^' '%A34SLET list = 0^' '%A34SLET plot = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET plotacf= 0^' '%A34SLET rtrans= 0^' '%A34SLET plam= 1.0^' '%A34SLET tm= 0.0 ^' '%A34SLET dif = 0^' "%A34SLET diff ='_NULL_'^" "%A34SLET smodel ='_NULL_'^" '%A34SLET smodel1=0^' '%A34SLET P = 0^' "%A34SLET PP ='_NULL_'^" '%A34SLET Q = 0^' "%A34SLET QQ ='_NULL_'^" '%A34SLET AR = 0^' "%A34SLET ARR ='_NULL_'^" '%A34SLET MA = 0^' "%A34SLET MAA ='_NULL_'^" '%A34SLET NF =50^' "%A34SLET NT1 = 0^" "%A34SLET NT2 = 0^" "%A34SLET NT3 = 0^" "%A34SLET trepa =0.0^" "%A34SLET ISAVE= 0^" '%A34SLET acf = 0^' '%A34SLET pacf = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Begin obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=40 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=50 TEXTID='Zero defaults to last observation' TEXT('End Obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(smodel) FIELDTYPE=dqstring DEFAULT=' ' PRELINE('%A34SLET smodel1 = 1^') COL2=23 TEXTID='Set to file to save model results' TEXT('Save Model file:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=5 COL1=1 fieldtype=varname col2=23 letname=(var) default=' ' required text=('Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam=1.0^','%A34SLET plam=0.0^') COL2=63 TEXTID='Hit space bar to log series ' TEXT('Log series:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=real letname=(tm) DEFAULT=' ' COL2=23 TEXTID='Enter value to add to series so log can be taken' TEXT('Value added series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=40 FIELDTYPE=real letname=(trepa) DEFAULT=' ' COL2=63 TEXTID='If you want a trend paramater must supply initial value' TEXT('Trend Parm Est.: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=qstring letname=(diff) PRELINE('%A34SLET dif = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ) TEXT('Differencing series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Default = 12' TEXT('Number of ACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=40 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=63 TEXTID='Defaults = 12' TEXT('Number of PACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 LETNAME(napl) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,12) COL2=23 TEXTID='Must be in range 1-12. Default = 6' TEXT('# ACF, PACF per line: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET list=0^','%A34SLET list=1^') COL2=63 TEXTID='Hit space bar to list series in compact form' TEXT('List series:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plot=0^','%A34SLET plot=1^') COL2=23 TEXTID='Hit space bar to plot series' TEXT('Plot series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plotacf=0^','%A34SLET plotacf=1^') COL2=63 TEXTID='Hit space bar to plot ACF' TEXT('Plot ACF/PACF: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' fieldhelp('Saves residuals and optionally forecasts in SCA' 'FSAVE file arimafor.fsv. Residuals in dsn RESDUAL.' 'Forecasts in dsn FOREC1 ... FOREC3.' 'If graphics are available, HR plots are given. ') choicecode('%A34SLET isave=0^','%A34SLET isave=1^') COL2=27 TEXTID='Hit space bar to save resid. and fore. For info see Fn5' TEXT('Save res. in FSV and Plot:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=qstring letname=(pp) PRELINE('%A34SLET p = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter AR model - P(1,2)' fieldhelp( 'AR at lag 1 => P(1) ', 'AR at lag 1 4 6 => P(1,4,6) ', 'AR with two factors at 1 3 & 2 => P(1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('AR part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=qstring letname=(arr) PRELINE('%A34SLET ar = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter AR estimates' fieldhelp( 'AR at lag 1 => AR(.1) ', 'AR at lag 1 4 6 => AR(.1,.01,-.1) ', 'AR with two factors at 1 3 & 2 => AR(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('AR estimates: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=qstring letname=(qq) PRELINE('%A34SLET q = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter MA model - Q(1 2)' fieldhelp( 'MA at lag 1 => Q(1) ', 'MA at lag 1 4 6 => Q(1,4,6) ', 'MA with two factors at 1 3 & 2 => Q(1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('MA part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=qstring letname=(maa) PRELINE('%A34SLET ma = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter MA estimates' fieldhelp( 'MA at lag 1 => MA(.1) ', 'MA at lag 1 4 6 => MA(.1,.01,-.1) ', 'MA with two factors at 1 3 & 2 => MA(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('MA estimates: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 LETNAME(nf) FIELDTYPE=INTEGER DEFAULT='50' INTRANGE(1,50) COL2=23 TEXTID='# of forecasts if origin specified. range(1,50)' TEXT('# of forecasts: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=40 LETNAME(nt1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=63 TEXTID='If forecasts desired must specify at least one base' TEXT('Forecast base # 1: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 LETNAME(nt2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=23 TEXTID='If forecasts desired must specify base # 1 first' TEXT('Forecast base # 2: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=40 LETNAME(nt3) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=63 TEXTID='If forecasts desired must specify base # 1 first' TEXT('Forecast base # 3: ') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# %b34sif(&isave.ne.0)%then ; /$# b34sexec options open('arimafor.fsv') unit(44) /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44)$ b34seend$ /$# %b34sendif ; /$# B34SEXEC BJEST /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# %b34sif(&isave.ne.0)%then ; /$# irsav=44 /$# %b34sendif ; /$# %B34SIF(&smodel1.NE.0)%THEN ; /$# smodel=%B34SEVAL(&smodel) /$# %B34SENDIF ; /$# nac =%b34seval(&nac) /$# mit =%b34seval(&mit) /$# %B34SIF(&npac.NE.0)%THEN ; /$# npac =%b34seval(&npac) /$# %B34SENDIF ; /$# napl =%b34seval(&napl) /$# %B34SIF(&list.NE.0)%THEN ; /$# list(%b34seval(&var)) /$# %B34SENDIF ; /$# %B34SIF(&plot.NE.0)%THEN ; /$# plot(%b34seval(&var)) /$# %B34SENDIF ; /$# %B34SIF(&plotacf.NE.0)%THEN ; /$# iwtpa /$# %B34SENDIF ; /$# $ /$# model %b34seval(&var) $ /$# modeln plam(%b34seval(&plam)) /$# tm( %b34seval(&tm )) /$# %b34sif(&p.ne.0)%then ; /$# %b34seval(&pp) /$# %b34sendif ; /$# %b34sif(&q.ne.0)%then ; /$# %b34seval(&qq) /$# %b34sendif ; /$# %b34sif(&ar.ne.0)%then ; /$# %b34seval(&arr) /$# %b34sendif ; /$# %b34sif(&ma.ne.0)%then ; /$# %b34seval(&maa) /$# %b34sendif ; /$# %b34sif(&dif.ne.0)%then ; /$# %b34seval(&diff) /$# %B34SENDIF ; /$# %b34sif(&dif.eq.0)%then ; /$# avepa(.01) /$# %B34SENDIF ; /$# %b34sif(&trepa.ne.0)%then ; /$# trepa= %b34seval(&trepa) /$# %B34SENDIF ; /$# $ /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# %b34sif(&nt1.ne.0) ; /$# forecast /$# nf=%b34seval(&nf) /$# nt=(%b34seval(&nt1) /$# %b34sif(&nt2.ne.0)%then ; /$# %b34seval(&nt2) /$# %b34sendif ; /$# %b34sif(&nt3.ne.0)%then ; /$# %b34seval(&nt3) /$# %b34sendif ; /$# ) /$# %b34sif(&isave.ne.0)%then ; /$# scaunit /$# %b34sendif ; /$# $ /$# %b34sendif ; /$# B34SEEND$ /$# %b34sif(&isave.ne.0)%then ; /$# /$# b34sexec options close(44)$ b34srun$ /$# /$# b34sexec matrix; /$# call getsca('arimafor.fsv'); /$# call load(rtest); /$# call rtest(residual,data,%b34seval(&nac)); /$# %b34sendif ; B34SRETURN$ B34SEEND$ == ==BJ_RAW_CCF Raw CCF and ACF B34SEXEC MAKEMENU COMMANDN('Quick Identification of CCF for Transfer Function model') COMMANDH('See help command for futher detail on BJIDEN options.', 'Not all options in BJIDEN have been implemented.', 'If NAC and NPAC are not set they will default to 12', 'autocorrelations and 12 partial autocorrelations.') $ field type=info page=1 row=2 col1=1 fieldtype=character textcolor(byellow) text('Quick Transfer Function Model Identification Menu')$ field type=info page=1 row=3 col1=1 fieldtype=character textcolor(byellow) text('User needs only to input series in Menu')$ FIELD TYPE=HIDDEN PAGE=1 ROW=4 COL1=1 PRELINE('%A34SLET nac = 24^' '%A34SLET npac = 24^' '%A34SLET ncc = 24^' )$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='# of ACF terms ' TEXT('# ACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,150) COL2=23 TEXTID='# of PACF terms min(150,nacf)' TEXT('# PACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 LETNAME(ncc ) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='# Raw Cross Correlations - max 54' TEXT('NCC:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=9 COL1=1 fieldtype=varname col2=23 letname=(varin) default=' ' required text=('Input Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=10 COL1=1 fieldtype=varname col2=23 letname=(var) default=' ' required text=('Output Series: ') textid('Hit (Fn 9) for series list')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# b34sexec matrix; /$# call load(ccftest); /$# call load(rtest); /$# call loaddata; /$# call character(title,'Raw X vs Raw Y'); /$# input =%b34seval(&varin); /$# output=%b34seval(&var); /$# nac =%b34seval(&nac); /$# npac =%b34seval(&npac); /$# ncc =%b34seval(&ncc); /$# call print('Print--> Describe Independent Var: '); /$# call describe(input :print); /$# call print('Print--> ACF,Std.Err,PACF,Q-Stat,Prob.Q '); /$# acfx=acf(input,nac,sex,pacfx,mqx,pmqx); /$# pmqx=1.-pmqx; /$# call tabulate(acfx,sex,pacfx,mqx,pmqx); /$# call print('Print--> Describe Dependent Var: '); /$# call describe(output :print); /$# call print('Print--> ACF,Std.Err,PACF,Q-Stat,Prob.Q '); /$# acfy=acf(output,nac,sey,pacfy,mqy,pmqy); /$# pmqy=1.-pmqy; /$# call tabulate(acfy,sey,pacfy,mqy,pmqy); /$# /$# call graph(input :file 'xvar.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :nocontact /$# :colors black bblue /$# :heading 'Plot of Independent Variable '); /$# /$# call graph(output :file 'yvar.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :nocontact /$# :colors black bblue /$# :heading 'Plot of Dependent Variable '); /$# /$# call graph(acfx, sex :file 'acfx.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :histscale integers(0,nac,2) /$# :fitspline /$# :overlay acfplot /$# :colors black bblue bred /$# :heading 'ACF of Independent Variable'); /$# /$# call graph(pacfx, sex :file 'pacfy.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :histscale integers(0,nac,2) /$# :fitspline /$# :overlay acfplot /$# :colors black bblue bred /$# :heading 'Partial ACF of Independent Variable'); /$# /$# call graph(acfy, sey :file 'acfy.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :histscale integers(0,nac,2) /$# :fitspline /$# :overlay acfplot /$# :colors black bblue bred /$# :heading 'ACF of Dependent Variable'); /$# /$# call graph(pacfy, sey :file 'pacfy.wmf' /$# :pspaceon /$# :pgyscaleright 'i' /$# :pgborder /$# :pgxscaletop 'i' /$# :histscale integers(0,nac,2) /$# :fitspline /$# :overlay acfplot /$# :colors black bblue bred /$# :heading 'Partial ACF of Dependent Variable'); /$# /$# call ccftest(input ,output ,ncc,lags,title); /$# b34seend$ b34sreturn$ b34seend$ == ==BJ_TRANSID Transfer Function Identification B34SEXEC MAKEMENU COMMANDN('Identification of Box-Jenkins Transfer Function model') COMMANDH('See help command for futher detail on BJIDEN options.', 'Not all options in BJIDEN have been implemented.', 'If NAC and NPAC are not set they will default to 12', 'autocorrelations and 12 partial autocorrelations.') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Transfer Function Model Identification Menu')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nac = 24^' '%A34SLET ncc = 24^' '%A34SLET nirw = 24^' '%A34SLET ncc2 = 24^' '%A34SLET npac = 0 ^' '%A34SLET nwtgn = 12^' '%A34SLET napl = 12^' '%A34SLET rtrans= 0^' '%A34SLET plam = 1.0^' '%A34SLET tm = 0.0 ^' '%A34SLET avepa = 0.0 ^' '%A34SLET dif2 = 0^' "%A34SLET diff2 ='_NULL_'^" "%A34SLET smodel ='_NULL_'^" )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Begin obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=40 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=50 TEXTID='Zero defaults to last observation' TEXT('End Obs.:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=4 COL1=1 fieldtype=varname col2=23 letname=(varin) default=' ' required text=('Input Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=4 COL1=40 fieldtype=varname col2=63 letname=(var) default=' ' required text=('Output Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 LETNAME(smodel) FIELDTYPE=qefile DEFAULT=' ' COL2=23 TEXTID='Set to file for input prewhitening ' TEXT('Input Series Model:') required $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam=1.0^','%A34SLET plam=0.0^') COL2=23 TEXTID='Hit space bar to log series ' TEXT('Log output:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=40 FIELDTYPE=real letname=(tm) DEFAULT=' ' COL2=63 TEXTID='Enter value to add to series so log can be taken' TEXT('Value added to output: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=real letname=(avepa) DEFAULT=' ' COL2=23 TEXTID='Output series average' TEXT('AVEPA: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE=qstring letname=(diff2) PRELINE('%A34SLET dif2 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ) TEXT('Dif output: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' fieldhelp('Saves prewhitened input and filtered output ' 'in SCA FSAVE file arimafor.fsv. .' 'Series are PW_INPUT & FILTEROUT.' 'If graphics are available, HR plots are given. ') choicecode('%A34SLET isave=0^','%A34SLET isave=1^') COL2=23 TEXTID='Hit space bar to save resid. and fore. For info see Fn5' TEXT('Save & Plot res:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,150) COL2=23 TEXTID='# of ACF terms max 150' TEXT('# ACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=40 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,150) COL2=63 TEXTID='# of PACF terms min(150,nacf)' TEXT('# PACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 LETNAME(ncc ) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,54) COL2=23 TEXTID='# Raw Cross Correlations - max 54' TEXT('NCC:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=40 LETNAME(ncc2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,9999) COL2=63 TEXTID='# Cross Correlations Plotted' TEXT('NCC Plotted:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 LETNAME(nirw) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,54) COL2=23 TEXTID='# Pre-whitened Cross Correlations max 54' TEXT('NIRW:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=40 LETNAME(nwtgn) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,54) COL2=63 TEXTID='# Impulse Response weights used to get noise estimate max 54' TEXT('NWTGN:') OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# %b34sif(&isave.ne.0)%then; /$# b34sexec options open('arimafor.fsv') unit(44) /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44)$ b34seend$ /$# %b34sendif; /$# b34sexec bjiden type=transi /$# %b34sif(&ibegin.ne.0)%then; /$# ibegin=%b34seval(&ibegin) /$# %b34sendif; /$# %b34sif(&iend.ne.0)%then; /$# iend =%b34seval(&iend) /$# %b34sendif; /$# %b34sif(&isave.ne.0)%then; /$# irsav=44 /$# %b34sendif; /$# %b34sif(&nac.ne.0)%then; /$# nac =%b34seval(&nac) /$# %b34sendif; /$# %b34sif(&npac.ne.0)%then; /$# npac =%b34seval(&npac) /$# %b34sendif; /$# %b34sif(&ncc.ne.0)%then; /$# ncc =%b34seval(&ncc) /$# %b34sendif; /$# %b34sif(&nirw.ne.0)%then; /$# nirw =%b34seval(&nirw) /$# %b34sendif; /$# %b34sif(&nwtgn.ne.0)%then; /$# nwtgn =%b34seval(&nwtgn) /$# %b34sendif; /$# napl =%b34seval(&napl) /$# $ /$# var %b34seval(&varin) %b34seval(&var)$ /$# modelpre /$# %b34sinc file(&smodel); /$# $ /$# rcross=(%b34seval(&varin) %b34seval(&var)) $ /$# pcross=(%b34seval(&varin) %b34seval(&var)) $ /$# /$# output /$# %b34sif(&dif2.ne.0)%then; /$# %b34seval(&diff2) /$# %b34sendif; /$# plam =%b34seval(&plam) /$# tm =%b34seval(&tm) /$# avepa=%b34seval(&avepa) /$# $ /$# b34seend$ /$# %b34sif(&isave.ne.0)%then; /$# /$# b34sexec options close(44)$ b34srun$ /$# /$# b34sexec matrix; /$# call load(ccftest); /$# call getsca('arimafor.fsv',:member ccfun); /$# ncc=%b34seval(&ncc2); /$# call character(title,'Raw X vs Raw Y'); /$# call ccftest(input ,output ,ncc,lags,title); /$# call character(title,'Prewhittened X vs Filtered Y'); /$# call ccftest(pw_input,filterout,ncc,lags,title); /$# b34seend$ /$# %b34sendif; b34sreturn$ b34seend$ == ==BJ_TRANS B34SEXEC MAKEMENU COMMANDN('Estimation of Box-Jenkins Transfer Function model') COMMANDH('See help command for futher detail on BJEST options.', 'Not all options in BJEST have been implemented.', 'If NAC and NPAC are not set they will default to 12', 'autocorrelations and 12 partial autocorrelations.') tabhelpposition(20) tlabels('Basic Settings','Advanced Diagnostic Tests', 'Forecasting') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Transfer Function Model building Menu')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nac = 12^' '%A34SLET npac = 0 ^' '%A34SLET napl = 6 ^' '%A34SLET mit = 20^' '%A34SLET list = 0^' '%A34SLET plot = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET plotacf= 0^' '%A34SLET rtrans= 0^' '%A34SLET plam = 1.0^' '%A34SLET tm = 0.0 ^' '%A34SLET dif = 0^' "%A34SLET diff ='_NULL_'^" '%A34SLET dif2 = 0^' "%A34SLET diff2 ='_NULL_'^" "%A34SLET smodel ='_NULL_'^" '%A34SLET P = 0^' "%A34SLET PP ='_NULL_'^" '%A34SLET Q = 0^' "%A34SLET QQ ='_NULL_'^" '%A34SLET AR = 0^' "%A34SLET ARR ='_NULL_'^" '%A34SLET MA = 0^' "%A34SLET MAA ='_NULL_'^" '%A34SLET NUM1 = 0^' "%A34SLET NUM ='_NULL_'^" '%A34SLET DENOM1 = 0^' "%A34SLET DENOM ='_NULL_'^" '%A34SLET NUMC1 = 0^' "%A34SLET NUMC ='_NULL_'^" '%A34SLET DENOMC1 =0^' "%A34SLET DENOMC ='_NULL_'^" '%A34SLET LAG =0^' '%A34SLET NF =50^' "%A34SLET NT1 = 0^" "%A34SLET NT2 = 0^" "%A34SLET NT3 = 0^" "%A34SLET trepa =0.0^" "%A34SLET ISAVE = 0^" '%A34SLET acf = 0^' '%A34SLET pacf = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Begin obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=40 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=50 TEXTID='Zero defaults to last observation' TEXT('End Obs.:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=3 COL1=1 fieldtype=varname col2=23 letname=(varin) default=' ' required text=('Input Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=3 COL1=40 fieldtype=varname col2=63 letname=(var) default=' ' required text=('Output Series: ') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(smodel) FIELDTYPE=qefile DEFAULT=' ' COL2=23 TEXTID='Set to file for input prewhitening ' TEXT('Input Series Model:') required $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam=1.0^','%A34SLET plam=0.0^') COL2=23 TEXTID='Hit space bar to log series ' TEXT('Log input:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 FIELDTYPE=real letname=(tm) DEFAULT=' ' COL2=63 TEXTID='Enter value to add to series so log can be taken' TEXT('Value added series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=real letname=(trepa) DEFAULT=' ' COL2=23 TEXTID='If you want a trend paramater must supply initial value' TEXT('Trend Parm Est.: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=qstring letname=(diff) PRELINE('%A34SLET dif = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ) TEXT('Dif input: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE=qstring letname=(diff2) PRELINE('%A34SLET dif2 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ) TEXT('Dif output: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=qstring letname=(pp) PRELINE('%A34SLET p = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter AR model - P(1,2)' fieldhelp( 'AR at lag 1 => P(1) ', 'AR at lag 1 4 6 => P(1,4,6) ', 'AR with two factors at 1 3 & 2 => P(1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('AR part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=qstring letname=(arr) PRELINE('%A34SLET ar = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter AR estimates' fieldhelp( 'AR at lag 1 => AR(.1) ', 'AR at lag 1 4 6 => AR(.1,.01,-.1) ', 'AR with two factors at 1 3 & 2 => AR(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('AR estimates: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=qstring letname=(qq) PRELINE('%A34SLET q = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter MA model - Q(1 2)' fieldhelp( 'MA at lag 1 => Q(1) ', 'MA at lag 1 4 6 => Q(1,4,6) ', 'MA with two factors at 1 3 & 2 => Q(1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('MA part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=qstring letname=(maa) PRELINE('%A34SLET ma = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter MA estimates' fieldhelp( 'MA at lag 1 => MA(.1) ', 'MA at lag 1 4 6 => MA(.1,.01,-.1) ', 'MA with two factors at 1 3 & 2 => MA(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both AR and MA side. ' ) TEXT('MA estimates: ') optional $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=qstring letname=(num) PRELINE('%A34SLET num1 = 1^') DEFAULT=' ' COL2=23 TEXTID= 'Hit Fn5 to see how to enter input model - num(0,1,2) ' fieldhelp( 'input at lag 1 => NUM(0 1) ', 'input at lag 1 4 6 => NUM(01,4,6) ', 'input with two factors at 1 3 & 2 => NUM(0 1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both NUM and DENOM side. ' ) TEXT('NUM part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=qstring letname=(numc) PRELINE('%A34SLET numc1 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter NUM estimates' fieldhelp( 'NUM at lag 0 => NUMC(.1) ', 'NUM at lag 0 4 6 => NUMC(.1,.01,-.1) ', 'NUM with two factors at 1 3 & 2 => NUMC(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both NUM and DENOM side. ' ) TEXT('NUM estimates: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=qstring letname=(denom) PRELINE('%A34SLET denom1 = 1^') DEFAULT=' ' COL2=23 TEXTID= 'Hit Fn5 to see how to enter DENOM model - DENOM(1 2)' fieldhelp( 'DENOM at lag 1 => DENOM(1) ', 'DENOM at lag 1 4 6 => DENOM(1,4,6) ', 'DENOM with two factors at 1 3 & 2 => DENOM(1 3)(12) ', 'A maximum of three factors and 10 terms can be supplied' 'in this release of B34S for both NUM and DENOM side. ' ) TEXT('DENOM part of model: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE=qstring letname=(denomc) PRELINE('%A34SLET denomc1 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to optionally enter DENOM estimates' fieldhelp( 'DENOM at lag 1 => DENOMC(.1) ', 'DENOM at lag 1 4 6 => DENOMC(.1,.01,-.1)', 'DENOM with two factors at 1 3 & 2 => DENOMC(.1 .1)(.1) ', 'A maximum of three factors and 10 terms can be supplied ' 'in this release of B34S for both NUM and DENOM side. ' ) TEXT('DENOM estimates: ') optional $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,9999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Lag:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' fieldhelp('Saves residuals and optionally forecasts in SCA' 'FSAVE file arimafor.fsv. Residuals in dsn RESDUAL.' 'Forecasts in dsn FOREC1 ... FOREC3.' 'If graphics are available, HR plots are given. ') choicecode('%A34SLET isave=0^','%A34SLET isave=1^') COL2=63 TEXTID='Hit space bar to save resid. and fore. For info see Fn5' TEXT('Save & Plot res:') OPTIONAL limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=1 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=23 TEXTID='Default = 12' TEXT('Number of ACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=40 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999) COL2=63 TEXTID='Defaults = 12' TEXT('Number of PACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(napl) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,12) COL2=23 TEXTID='Must be in range 1-12. Default = 6' TEXT('# ACF, PACF per line: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET list=0^','%A34SLET list=1^') COL2=63 TEXTID='Hit space bar to list series in compact form' TEXT('List series:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plot=0^','%A34SLET plot=1^') COL2=23 TEXTID='Hit space bar to plot series' TEXT('Plot series: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plotacf=0^','%A34SLET plotacf=1^') COL2=63 TEXTID='Hit space bar to plot ACF' TEXT('Plot ACF/PACF: ') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=7 col1=1 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=7 col1=40 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=40 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=1 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=40 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=40 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=40 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' Forecasting Options') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 LETNAME(nf) FIELDTYPE=INTEGER DEFAULT='50' INTRANGE(1,50) COL2=23 TEXTID='# of forecasts if origin specified. range(1,50)' TEXT('# of forecasts: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 LETNAME(nt1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=63 TEXTID='If forecasts desired must specify at least one base' TEXT('Forecast base # 1: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 LETNAME(nt2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=23 TEXTID='If forecasts desired must specify base # 1 first' TEXT('Forecast base # 2: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=40 LETNAME(nt3) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999) COL2=63 TEXTID='If forecasts desired must specify base # 1 first' TEXT('Forecast base # 3: ') optional limitf(3) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# %b34sif(&isave.ne.0)%then ; /$# b34sexec options open('arimafor.fsv') unit(44) /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44)$ b34seend$ /$# %b34sendif ; /$# B34SEXEC BJEST /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# %b34sif(&isave.ne.0)%then ; /$# irsav=44 /$# %b34sendif ; /$# nac =%b34seval(&nac) /$# mit =%b34seval(&mit) /$# %B34SIF(&npac.NE.0)%THEN ; /$# npac =%b34seval(&npac) /$# %B34SENDIF ; /$# napl =%b34seval(&napl) /$# %B34SIF(&list.NE.0)%THEN ; /$# list(%b34seval(&var)) /$# %B34SENDIF ; /$# %B34SIF(&plot.NE.0)%THEN ; /$# plot(%b34seval(&var)) /$# %B34SENDIF ; /$# %B34SIF(&plotacf.NE.0)%THEN ; /$# iwtpa /$# %B34SENDIF ; /$# $ /$# model %b34seval(&var)=%b34seval(&varin) $ /$# modeli /$# var=%b34seval(&varin) /$# lag=%b34seval(&lag) /$# %b34sif(&num1.ne.0)%then ; /$# %b34seval(&num) /$# %b34sendif ; /$# %b34sif(&denom1.ne.0)%then ; /$# %b34seval(&denom) /$# %b34sendif ; /$# %b34sif(&numc1.ne.0)%then ; /$# %b34seval(&numc) /$# %b34sendif ; /$# %b34sif(&denomc1.ne.0)%then ; /$# %b34seval(&denomc) /$# %b34sendif ; /$# $ /$# modelpre /$# %b34sinc file(&smodel) ; /$# $ /$# modeln plam(%b34seval(&plam)) /$# tm( %b34seval(&tm )) /$# %b34sif(&p.ne.0)%then ; /$# %b34seval(&pp) /$# %b34sendif ; /$# %b34sif(&q.ne.0)%then ; /$# %b34seval(&qq) /$# %b34sendif ; /$# %b34sif(&ar.ne.0)%then ; /$# %b34seval(&arr) /$# %b34sendif ; /$# %b34sif(&ma.ne.0)%then ; /$# %b34seval(&maa) /$# %b34sendif ; /$# %b34sif(&dif.ne.0)%then ; /$# %b34seval(&diff) /$# %B34SENDIF ; /$# %b34sif(&dif.eq.0)%then ; /$# avepa(.01) /$# %B34SENDIF ; /$# %b34sif(&trepa.ne.0)%then ; /$# trepa= %b34seval(&trepa) /$# %B34SENDIF ; /$# $ /$# %b34sif(&dif2.ne.0)%then ; /$# output %b34seval(&diff2) $ /$# %B34SENDIF ; /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# %b34sif(&nt1.ne.0) ; /$# forecast /$# nf=%b34seval(&nf) /$# nt=(%b34seval(&nt1) /$# %b34sif(&nt2.ne.0)%then ; /$# %b34seval(&nt2) /$# %b34sendif ; /$# %b34sif(&nt3.ne.0)%then ; /$# %b34seval(&nt3) /$# %b34sendif ; /$# ) /$# %b34sif(&isave.ne.0)%then ; /$# scaunit /$# %b34sendif ; /$# $ /$# %b34sendif ; /$# B34SEEND$ /$# %b34sif(&isave.ne.0)%then ; /$# /$# b34sexec options close(44)$ b34srun$ /$# /$# b34sexec matrix; /$# call getsca('arimafor.fsv'); /$# call load(rtest); /$# call rtest(residual,data,%b34seval(&nac)); /$# call load(ccftest); /$# call getsca('arimafor.fsv',:member ccfun); /$# call character(title,'Residual vs Prewhittened Input'); /$# call ccftest(pw_input,residual,%b34seval(&nac),lags,title); /$# b34seend$ /$# %b34sendif ; B34SRETURN$ B34SEEND$ == ==BT_VARIDEN Identification of VAR Model using Cross Correlations B34SEXEC MAKEMENU COMMANDN('Identification of Box-Tiao VAR Model') COMMANDH('See help command for futher detail on BTIDEN options.' 'Menu has been setup for a maximum of 4 series.', 'If more series are desired, use Tasks command.', 'If only series names are supplied, will not get' 'lag matrices. This command can be used to get line' 'by line lists.') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Identification of VAR model using Box-Tiao Methods')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nstder = 2.^' '%A34SLET title = 0 ^' "%A34SLET title2 = '_NULL_'^" '%A34SLET isop = 0 ^' '%A34SLET itsp = 0 ^' '%A34SLET idsp = 0 ^' '%A34SLET isacf = 0^' '%A34SLET isccf = 0^' '%A34SLET ivalue = 0^' '%A34SLET lagrho = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET series1 = 0^' '%A34SLET var1 = 0^' '%A34SLET plam1= 1.0^' '%A34SLET tm1= 0.0 ^' '%A34SLET dif1 = 0^' "%A34SLET diff1 ='_NULL_'^" '%A34SLET series2 = 0^' '%A34SLET var2 = 0^' '%A34SLET plam2= 1.0^' '%A34SLET tm2= 0.0 ^' '%A34SLET dif2 = 0^' "%A34SLET diff2 ='_NULL_'^" '%A34SLET series3 = 0^' '%A34SLET var3 = 0^' '%A34SLET plam3= 1.0^' '%A34SLET tm3= 0.0 ^' '%A34SLET dif3 = 0^' "%A34SLET diff3 ='_NULL_'^" '%A34SLET series4 = 0^' '%A34SLET var4 = 0^' '%A34SLET plam4= 1.0^' '%A34SLET tm4= 0.0 ^' '%A34SLET dif4 = 0^' "%A34SLET diff4 ='_NULL_'^" '%A34SLET acf = 0^' '%A34SLET pacf = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning observation:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=40 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=63 TEXTID='Zero defaults to last observation' TEXT('Ending Observation:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=3 COL1=1 fieldtype=varname col2=23 letname=(var1) default=' ' required text=('Series # 1:') PRELINE('%A34SLET series1= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=3 COL1=40 fieldtype=varname col2=63 letname=(var2) default=' ' optional text=('Series # 2:') PRELINE('%A34SLET series2= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam1=1.0^','%A34SLET plam1=0.0^') COL2=23 TEXTID='Hit space bar to log series # 1' TEXT('Log series 1: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam2=1.0^','%A34SLET plam2=0.0^') COL2=63 TEXTID='Hit space bar to log series # 2' TEXT('Log series 2: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE=real letname=(tm1) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series # 1 so log can be taken' TEXT('Value added series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 FIELDTYPE=real letname=(tm2) DEFAULT='0.0 ' COL2=63 TEXTID='Enter value to add to series # 2 so log can be taken' TEXT('Value added series 2:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=6 COL1=1 fieldtype=varname col2=23 letname=(var3) default=' ' optional text=('Series # 3:') PRELINE('%A34SLET series3= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=6 COL1=40 fieldtype=varname col2=63 letname=(var4) default=' ' optional text=('Series # 4:') PRELINE('%A34SLET series4= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam3=1.0^','%A34SLET plam3=0.0^') COL2=23 TEXTID='Hit space bar to log series # 3' TEXT('Log series 3: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam4=1.0^','%A34SLET plam4=0.0^') COL2=63 TEXTID='Hit space bar to log series # 4' TEXT('Log series 4: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 8 COL1=1 FIELDTYPE=real letname=(tm3) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series # 3 so log can be taken' TEXT('Value added series 3:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=40 FIELDTYPE=real letname=(tm4) DEFAULT='0.0 ' COL2=63 TEXTID='Enter value to add to series # 4 so log can be taken' TEXT('Value added series 4:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=qstring letname=(diff1) PRELINE('%A34SLET dif1 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=qstring letname=(diff2) PRELINE('%A34SLET dif2 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 2:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=qstring letname=(diff3) PRELINE('%A34SLET dif3 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, always get ACF of non ', ' differenced series' ) TEXT('Differencing series 3:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=qstring letname=(diff4) PRELINE('%A34SLET dif4 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 4:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 LETNAME(lagrho) FIELDTYPE=INTEGER DEFAULT='0 ' INTRANGE(0,120) COL2=23 TEXTID='Sets LAGRHO # Cross correlation matrices. ' TEXT('# CC matrices (0-120: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=40 LETNAME(nstder) FIELDTYPE=real DEFAULT=' ' realrange(0.0,5.0) COL2=63 TEXTID='Defaults = 2.0' TEXT('# SE for ACF plots: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET isop=0^','%A34SLET isop=1^') COL2=23 TEXTID='Hit space bar to plot original data' TEXT('Plot Orig. data:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET itsp=0^','%A34SLET itsp=1^') COL2=63 TEXTID='Plot transformed data' TEXT('Plot Trans. data: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET idsp=0^','%A34SLET idsp=1^') COL2=23 TEXTID='Hit space bar to plot differenced data' TEXT('Plot Diff. data: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET isacf=0^','%A34SLET isacf=1^') COL2=63 TEXTID='Hit space bar to plot series acf' TEXT('Plot ACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET isccf=0^','%A34SLET isccf=1^') COL2=23 TEXTID='Hit space bar to plot cross correlations' TEXT('Plot CCF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET ivalue=0^','%A34SLET ivalue=1^') COL2=63 TEXTID='Hit space bar for numerical & significant indicators on plots' TEXT('Num + SI:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE=dqstring letname=(title2) PRELINE('%A34SLET title = 1^') DEFAULT=' ' COL2=23 TEXTID='Optionally supply a title' TEXT('Title:') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# B34SEXEC BTIDEN /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# nstder=%b34seval(&nstder) /$# %B34SENDIF ; /$# $ /$# %B34SIF(&title.NE.0)%THEN ; /$# title=(%b34seval(&title2)) /$# $ /$# %B34SENDIF ; /$# %b34sif(&series1.ne.0)%then ; /$# seriesn var = %b34seval(&var1) /$# plam(%b34seval(&plam1)) /$# tm( %b34seval(&tm1 )) /$# %b34sif(&dif1.ne.0)%then ; /$# %b34seval(&diff1) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series2.ne.0)%then ; /$# seriesn var = %b34seval(&var2) /$# plam(%b34seval(&plam2)) /$# tm( %b34seval(&tm2 )) /$# %b34sif(&dif2.ne.0)%then ; /$# %b34seval(&diff2) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series3.ne.0)%then ; /$# seriesn var = %b34seval(&var3) /$# plam(%b34seval(&plam3)) /$# tm( %b34seval(&tm3 )) /$# %b34sif(&dif3.ne.0)%then ; /$# %b34seval(&diff3) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series4.ne.0)%then ; /$# seriesn var = %b34seval(&var4) /$# plam(%b34seval(&plam4)) /$# tm( %b34seval(&tm4 )) /$# %b34sif(&dif4.ne.0)%then ; /$# %b34seval(&diff4) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# IDEN /$# %B34SIF(&isop.NE.0)%THEN ; /$# isop /$# %B34SENDIF ; /$# %B34SIF(&itsp.NE.0)%THEN ; /$# itsp /$# %B34SENDIF ; /$# %B34SIF(&idsp.NE.0)%THEN ; /$# idsp /$# %B34SENDIF ; /$# %B34SIF(&isacf.NE.0)%THEN ; /$# isacf /$# %B34SENDIF ; /$# %B34SIF(&isccf.NE.0)%THEN ; /$# isccf /$# %B34SENDIF ; /$# %B34SIF(&ivalue.NE.0)%THEN ; /$# ivalue /$# %B34SENDIF ; /$# lagrho=%b34seval(&lagrho) /$# $ /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==BT_VAR_EST Estimation of VAR Model using Box-Tiao Methods B34SEXEC MAKEMENU COMMANDN('Estimation of Box-Tiao VAR Model') COMMANDH('See help command for futher detail on BTIDEN options.' 'Menu has been setup for a maximum of 4 series.', 'The BTEST command will estimate a VARMA model', 'If more series are desired, use Tasks command.', 'If only series names are supplied, will not get', 'lag matrices. If residuals are saved they will be in' 'file VARRES.FSV') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests', 'Advanced Settings') $ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Estimation of VAR model using Box-Tiao Methods')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET nstder = 2.^' '%A34SLET title = 0 ^' "%A34SLET title2 = '_NULL_'^" '%A34SLET icanon = 0 ^' '%A34SLET phicor = 0 ^' '%A34SLET ilarf = 1 ^' '%A34SLET residuals= 2^' '%A34SLET granger = 0^' '%A34SLET p = 1^' '%A34SLET ps = 0^' '%A34SLET s = 0^' '%A34SLET lags = 0^' '%A34SLET lags2 = 0^' '%A34SLET numirf = 0^' "%A34SLET output = 'BRIEF'^" '%A34SLET lagrho = 0^' '%A34SLET ivalue = 0^' '%A34SLET ivalue2 = 0^' '%A34SLET hinich = 0^' '%A34SLET ismoo = 0^' '%A34SLET DFTEST = 0^' '%A34SLET PPTEST = 0^' '%A34SLET LMTEST = 0^' '%A34SLET ISACF = 0^' '%A34SLET ISCCF = 0^' '%A34SLET IPRINT = 0^' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET series1 = 0^' '%A34SLET var1 = 0^' '%A34SLET plam1= 1.0^' '%A34SLET tm1= 0.0 ^' '%A34SLET dif1 = 0^' "%A34SLET diff1 ='_NULL_'^" '%A34SLET series2 = 0^' '%A34SLET var2 = 0^' '%A34SLET plam2= 1.0^' '%A34SLET tm2= 0.0 ^' '%A34SLET dif2 = 0^' "%A34SLET diff2 ='_NULL_'^" '%A34SLET series3 = 0^' '%A34SLET var3 = 0^' '%A34SLET plam3= 1.0^' '%A34SLET tm3= 0.0 ^' '%A34SLET dif3 = 0^' "%A34SLET diff3 ='_NULL_'^" '%A34SLET series4 = 0^' '%A34SLET var4 = 0^' '%A34SLET plam4= 1.0^' '%A34SLET tm4= 0.0 ^' '%A34SLET dif4 = 0^' "%A34SLET diff4 ='_NULL_'^" '%A34SLET acf = 0^' '%A34SLET pacf = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning observation:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=40 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=63 TEXTID='Zero defaults to last observation' TEXT('Ending Observation:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=3 COL1=1 fieldtype=varname col2=23 letname=(var1) default=' ' required text=('Series # 1:') PRELINE('%A34SLET series1= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=3 COL1=40 fieldtype=varname col2=63 letname=(var2) default=' ' optional text=('Series # 2:') PRELINE('%A34SLET series2= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam1=1.0^','%A34SLET plam1=0.0^') COL2=23 TEXTID='Hit space bar to log series # 1' TEXT('Log series 1: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam2=1.0^','%A34SLET plam2=0.0^') COL2=63 TEXTID='Hit space bar to log series # 2' TEXT('Log series 2: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE=real letname=(tm1) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series # 1 so log can be taken' TEXT('Value added series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=40 FIELDTYPE=real letname=(tm2) DEFAULT='0.0 ' COL2=63 TEXTID='Enter value to add to series # 2 so log can be taken' TEXT('Value added series 2:') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=6 COL1=1 fieldtype=varname col2=23 letname=(var3) default=' ' optional text=('Series # 3:') PRELINE('%A34SLET series3= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=6 COL1=40 fieldtype=varname col2=63 letname=(var4) default=' ' optional text=('Series # 4:') PRELINE('%A34SLET series4= 1^') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam3=1.0^','%A34SLET plam3=0.0^') COL2=23 TEXTID='Hit space bar to log series # 3' TEXT('Log series 3: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plam4=1.0^','%A34SLET plam4=0.0^') COL2=63 TEXTID='Hit space bar to log series # 4' TEXT('Log series 4: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 8 COL1=1 FIELDTYPE=real letname=(tm3) DEFAULT='0.0 ' COL2=23 TEXTID='Enter value to add to series # 3 so log can be taken' TEXT('Value added series 3:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 8 COL1=40 FIELDTYPE=real letname=(tm4) DEFAULT='0.0 ' COL2=63 TEXTID='Enter value to add to series # 4 so log can be taken' TEXT('Value added series 4:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=1 FIELDTYPE=qstring letname=(diff1) PRELINE('%A34SLET dif1 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 1:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=qstring letname=(diff2) PRELINE('%A34SLET dif2 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 2:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=qstring letname=(diff3) PRELINE('%A34SLET dif3 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 3:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=qstring letname=(diff4) PRELINE('%A34SLET dif4 = 1^') DEFAULT=' ' COL2=23 TEXTID='Hit Fn5 to see how to enter differencing' fieldhelp( 'First Differencing dif(1,1) ', 'Second Differencing dif(2,1) ', '1st order Seasonal 12 dif(1,12) ', '2nd order Seasonal 12 dif(2,12) ', '1st order Seasonal 4 dif(1,4) ', '2nd order Seasonal 4 dif(2,4) ', 'Second differencing & seasonal(12) dif(2,1)(1,12)', 'Second differencing & seasonal(4) dif(2,1)(1,4) ', ' ' 'Note: Hinich tests performed on possible transformed data but' ' not on differenced data.' ' When differencing is requested, alwasy get ACF of non ', ' differenced series' ) TEXT('Differencing series 4:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=integer letname(p) DEFAULT=' ' COL2=23 TEXTID='Sets maximum VAR lag.' TEXT('Max. VAR lag: ') required $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=40 LETNAME(lagrho) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,120) COL2=63 TEXTID='Sets LAGRHO # Cross correlation matrices. ' TEXT('# CC matrices (0-120: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET ilarf=1^','%A34SLET ilarf=0^') COL2=23 TEXTID='Hit space bar to print all AR fits not just last fit' TEXT('Print all AR : ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=40 FIELDTYPE=choices letname(residuals) col2(63) choices('Do not list or save residuals' 'List residuals' 'Save residuals' 'List and save residuals') choicecode('0','1','2','3') DEFAULT='2' TEXTID='Hit (Fn6) to see choices. Default saves residuals.' TEXT('Residuals: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=choices letname(output) col2(23) choices('Brief output - Only summary table given' 'Lists estimated VAR coefficients' 'Lists estimated VAR coefficients in expanded form') choicecode('BRIEF', 'NORMAL', 'EXPANDED') DEFAULT= 'BRIEF ' TEXTID='Hit (Fn6) to see choices.' TEXT('Residuals: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=40 FIELDTYPE=integer letname(ps) DEFAULT='0 ' COL2=63 TEXTID='Sets maximum seasonal VAR lag.' TEXT('Max. VAR Seas. lag: ') intrange(0,99) OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE=integer letname(s) DEFAULT='1 ' COL2=23 TEXTID='Sets seasonal factor. For added info hit Fn5.' TEXT('Seasonal factor: ') fieldhelp('This must be set if PS is set') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=40 FIELDTYPE=integer letname(numirf) DEFAULT=' ' COL2=63 TEXTID='Sets number of impulse response functions to calculate' TEXT('# IR functions: ') fieldhelp('Impulse response functioins are given after last' 'AR fit.') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET granger=0^','%A34SLET granger=1^') COL2=23 TEXTID='Hit space bar to perform Granger Causality tests' TEXT('Granger test: ') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 FIELDTYPE=dqstring letname=(title2) PRELINE('%A34SLET title = 1^') DEFAULT=' ' COL2=23 TEXTID='Optionally supply a title' TEXT('Title:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE=character DEFAULT=' ' letname(ivalue) PRELINE('%A34SLET ivalue2=1^') COL2=6 Fieldhelp('Sets number of AR fits after which values in the' 'residual correlation matrix are given. The default' 'gives none. For example 1 3 5 gives CCF after fits' '1, 3 and 5.') TEXTID='Set intermediate lags to give residual ACF and CCF' TEXT('Lags:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 LETNAME(nstder) FIELDTYPE=real DEFAULT=' ' realrange(0.0,5.0) COL2=23 TEXTID='Defaults = 2.0' TEXT('# SE for ACF plots: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET icanon=0^','%A34SLET icanon=1^') COL2=23 TEXTID='Hit space bar for output associated with canonical analysis' TEXT('Canonical analy.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET phicor=0^','%A34SLET phicor=1^') COL2=23 TEXTID="Hit space bar for correlation form of (X'X)**-1" TEXT("Corr.(X'X)**-1: ") OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 8 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET isacf=0^','%A34SLET isacf=1^') COL2=23 TEXTID='Hit space bar to plot autocorrelations of residuals' TEXT('Plot residual ACF: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET isccf=0^','%A34SLET isccf=1^') COL2=23 TEXTID='Hit space bar to plot cross correlations of residuals' TEXT('Plot residual CCF: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET iprint=0^','%A34SLET IPRINT=1^') COL2=23 TEXTID='Hit space bar to list CCF matrices of residuals' TEXT('Print CCF Matrix: ') OPTIONAL limitf(3) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macrao sentences and ; for bjiden sentences PGMCARDS$ /$# %b34sif(&residuals.eq.2.or.&residuals.eq.3)%then ; /$# b34sexec options open('varres.fsv') unit=44 /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44)$ b34seend$ /$# %b34sendif ; /$# B34SEXEC BTIDEN /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# nstder=%b34seval(&nstder) /$# %B34SENDIF ; /$# $ /$# %B34SIF(&title.NE.0)%THEN ; /$# title=(%b34seval(&title2)) /$# $ /$# %B34SENDIF ; /$# %b34sif(&series1.ne.0)%then ; /$# seriesn var = %b34seval(&var1) /$# plam(%b34seval(&plam1)) /$# tm( %b34seval(&tm1 )) /$# %b34sif(&dif1.ne.0)%then ; /$# %b34seval(&diff1) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series2.ne.0)%then ; /$# seriesn var = %b34seval(&var2) /$# plam(%b34seval(&plam2)) /$# tm( %b34seval(&tm2 )) /$# %b34sif(&dif2.ne.0)%then ; /$# %b34seval(&diff2) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series3.ne.0)%then ; /$# seriesn var = %b34seval(&var3) /$# plam(%b34seval(&plam3)) /$# tm( %b34seval(&tm3 )) /$# %b34sif(&dif3.ne.0)%then ; /$# %b34seval(&diff3) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# %b34sif(&series4.ne.0)%then ; /$# seriesn var = %b34seval(&var4) /$# plam(%b34seval(&plam4)) /$# tm( %b34seval(&tm4 )) /$# %b34sif(&dif4.ne.0)%then ; /$# %b34seval(&diff4) /$# %B34SENDIF ; /$# $ /$# %B34SENDIF ; /$# ESTVAR /$# %B34SIF(&icanon.NE.0)%THEN ; /$# icanon /$# %B34SENDIF ; /$# %B34SIF(&phicor.NE.0)%THEN ; /$# phicor /$# %B34SENDIF ; /$# %B34SIF(&ilarf.NE.0)%THEN ; /$# ilarf /$# %B34SENDIF ; /$# %B34SIF(&residuals.NE.0)%THEN ; /$# residuals /$# %B34SENDIF ; /$# %B34SIF(&granger.NE.0)%THEN ; /$# granger /$# %B34SENDIF ; /$# %B34SIF(&isacf.NE.0)%THEN ; /$# isacf /$# %B34SENDIF ; /$# %B34SIF(&isccf.NE.0)%THEN ; /$# isccf /$# %B34SENDIF ; /$# %B34SIF(&iprint.NE.0)%THEN ; /$# IPRINT /$# %B34SENDIF ; /$# %B34SIF(&p.NE.0)%THEN ; /$# p=%b34seval(&p) /$# %B34SENDIF ; /$# %B34SIF(&ps.NE.0)%THEN ; /$# ps=%b34seval(&ps) /$# %B34SENDIF ; /$# %B34SIF(&s.NE.0)%THEN ; /$# s=%b34seval(&ps) /$# %B34SENDIF ; /$# %B34SIF(&lags2.NE.0)%THEN ; /$# lags(%b34seval(&lags) /$# ) /$# %B34SENDIF ; /$# %B34SIF(&numirf.NE.0)%THEN ; /$# numirf=%b34seval(&numirf) /$# %B34SENDIF ; /$# output=%b34seval(&output) /$# lagrho=%b34seval(&lagrho) /$# %b34sif(&residuals.eq.2)%then ; /$# ires=44 /$# %b34sendif ; /$# %b34sif(&residuals.eq.3)%then ; /$# ires=-44 /$# %b34sendif ; /$# %B34SIF(&ivalue2.NE.0)%THEN ; /$# ivalue(%b34seval(&ivalue) /$# ) /$# %B34SENDIF ; /$# ; /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif ; /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then ; /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif ; /$# %b34sif(&PPTEST.ne.0)%then ; /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif ; /$# %b34sif(&LMTEST.ne.0)%then ; /$# LM(%b34seval(&LMTEST)) /$# %b34sendif ; /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then ; /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif ; /$# %b34sif(&PACFVARSQ.ne.0)%then ; /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif ; /$# $ /$# b34srun$ /$# %b34sif(&residuals.eq.2.or.&residuals.eq.3)%then ; /$# b34sexec options close(44)$ b34srun$ /$# %b34sendif ; B34SRETURN$ B34SEEND$ == ==CITI_EDIT Edit further existing _citilist.lst %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ b34sexec makemenu commandn('Make Citibase extract file') FHCOLOR(REVERSE,GREEN,BLACK) Commandh('This command allows user to edit a file of series to be ' 'loaded from the master Citibase file into B34S using RATS386.' 'The file is used by the menu GETCITI command to series into' 'B34S.')$ box position(2,4,66,7) $ field type=info fieldtype=character page=1 row=4 col1=1 col2=1 default=' ' textid=(' ') optional text(' This command edits a Citibase extract file.')$ field type=info fieldtype=character page=1 row=6 col1=1 col2=1 default=' ' textid=(' ') optional text(' Hit Enter to proceed with command, otherwise esc.')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$#b34sexec citibase$ editciti$ b34seend$ b34sreturn$ b34seend$ == ==CITI_GET Loads Citibase data from previously built list %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ b34sexec makemenu commandn('Load Citibase from extract file') FHCOLOR(REVERSE,GREEN,BLACK) Commandh('This command allows user to load series listed in an extract' 'file of the master Citibase file into B34S using RATS386.')$ box position(2,3,66,16) $ field type=input fieldtype=dqstring page=1 row=3 col1=1 col2=11 default='_newciti.lst ' preline("A34SEXEC options open('myrun.por') unit(60)" 'disp=unknown^' 'A34SRUN^' 'A34SEXEC options clean(60)^ A34SRUN^' 'A34SEXEC options close(60)^ A34SRUN^' 'A34SEXEC citibase citilist( ') postline(')^ loadciti') textid=('Specify name of extract file') optional text('File name:')$ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=4 COL1=1 COL2=17 FIELDHELP('Field sets various frequency options.') TEXTID('Hit Fn6 key to see choices for final frequency') TEXT('Final Frequency:') CHOICES('Monthly ', 'Quarterly', 'Yearly ') CHOICECODE(' MONTHLY', 'QUARTERLY', ' YEARLY') PRELINE(' ') POSTSTRING(' ') DEFAULT=( 'QUARTERLY') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=5 COL1=1 COL2=12 FIELDHELP('Field sets whether RATS386 list info messages.') TEXTID('Hit space bar to set verbose info messages.') TEXT('Info level:') CHOICECODE(' VERBOSE', 'NOVERBOSE') PRELINE(' ') POSTSTRING(' ') DEFAULT=('1') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=1 COL2=14 FIELDHELP('Field sets how to treat missing data.') TEXTID('Sets how we handle missing data.') TEXT('Drop missing:') CHOICECODE('KEEPMISS', 'DROPMISS') PRELINE(' ') POSTSTRING(' ') DEFAULT=('1') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar to turn off listing of Rats output') TEXT('No RATS list in B34S:') choicecode(' ','NORATSLIST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=16 FIELDHELP('Field sets various compact options.') TEXTID('Hit Fn6 key to see choices for compact options') TEXT('Compact option:') CHOICES('Average data ', 'Sum data ', 'Geometric ', 'First data point ', 'Last data point ', 'Maximum data point ', 'Minumum data point ', 'Select point (default=1)') CHOICECODE(' COMPACT=AVERAGE', ' COMPACT=SUM', ' COMPACT=GEOMETRIC', ' COMPACT=FIRST', ' COMPACT=LAST', ' COMPACT=MAXIMUM', ' COMPACT=MINIMUM', ' SELECT=1 ') PRELINE(' ') POSTSTRING(' ') DEFAULT=( ' COMPACT=AVERAGE') $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=INTEGER DEFAULT='1945' INTRANGE(1,9999) COL2=13 TEXTID='Sets base year for RATS386 ALLOC command' TEXT(' Base year:') PRELINE('BASEYEAR=' ) OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=10 COL1=1 COL2=13 OPTIONAL INTRANGE(0,999999999) TEXTID('Sets baseperiod for RATS386 CAL command.') TEXT('Base period:') PRELINE('BASEPERIOD=') DEFAULT='1 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=11 COL1=1 COL2=13 OPTIONAL INTRANGE(0,999999999) TEXTID('Sets endyear for RATS386 ALLOC command.') TEXT(' End year:') PRELINE('ENDYEAR=') DEFAULT='1996 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=12 COL1=1 COL2=13 OPTIONAL INTRANGE(0,999999999) TEXTID('Sets end year for RATS386 ALLOC command.') TEXT(' End period:') PRELINE('ENDPERIOD=') DEFAULT='1 ' $ FIELD TYPE=HIDDEN ROW=1 COL1=12 COL2=1 PRELINE(' ^ A34SRUN^') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=14 COL1=1 COL2=23 TEXTID('Hit space bar to add labels to B34S output.') TEXT('List label in B34S:') choicecode(' ','A34SEXEC citibase^ addlabels ^ A34SRUN^') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP b34seend$ == ==CITI_MAKE Makes Citibase variable extraction list %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ b34sexec makemenu commandn('Make Citibase extract file') FHCOLOR(REVERSE,GREEN,BLACK) Commandh('This command allows user to use editor to make an extract ' 'file of series to be loaded from the master Citibase file ' 'into B34S using RATS386. The extract file is used by the' 'GETCITI menu command to load series in B34S.')$ box position(2,4,66,7) $ field type=info fieldtype=character page=1 row=4 col1=1 col2=1 default=' ' textid=(' ') optional text(' This command builds a Citibase extract file.')$ field type=info fieldtype=character page=1 row=6 col1=1 col2=1 default=' ' textid=(' ') optional text(' Hit Enter to proceed with command, otherwise esc.')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$#b34sexec citibase$ makeciti$ b34seend$ b34sreturn$ b34seend$ == ==COPYOUT Copies a File to Output %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Copy a File to output') COMMANDH('See help command for further detail on B34S files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Copy file to output unit ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File must be a text file.') $ box position(2,9,66,6) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('File to be copied. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC options copyfout(' ) DEFAULT=(' ') POSTLINE(') ') $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 COL1=1 PRELINE('^ A34SRUN^')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP b34srun$ == ==COPYLOG Copies a File to Log %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Copy a File to Log') COMMANDH('See help command for further detail on B34S files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Copy file to log unit ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File must be a text file.') $ box position(2,9,66,6) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('File to be copied. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC options copylog(' ) DEFAULT=(' ') POSTLINE(') ') $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 COL1=1 PRELINE('^ A34SRUN^')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP b34srun$ == ==CROSSTABS Simple Cross Tabulation Table %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Simple Cross Tabulation Table') COMMANDH('For more complex cross tabulation tables see' 'the capabiklity in SAS(r).')$ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Setup simple Cross Tabulation Table')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0^' '%A34SLET iend = 0^' '%A34SLET seriesx = 0^' '%A34SLET seriesy = 0^' '%A34SLET nrangex = 0^' '%A34SLET exact = 0^' '%A34SLET nrangey = 0^' )$ box position(2,4,78,12) $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning observation:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to last observation' TEXT('Ending Observation: ') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=6 COL1=1 fieldtype=varname col2=23 letname=(seriesx) default=' ' required text=('Series # 1:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=7 COL1= 1 fieldtype=varname col2=23 letname=(seriesy) default=' ' required text=('Series # 2:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT PAGE=1 ROW= 8 COL1=1 LETNAME(nrangex) FIELDTYPE=INTEGER DEFAULT=' ' COL2=23 TEXTID='# of equidistant x variable ranges' INTRANGE(2,999999999) TEXT('NRANGEX:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=1 LETNAME(nrangey) FIELDTYPE=INTEGER DEFAULT=' ' COL2=23 TEXTID='# of equidistant x variable ranges' INTRANGE(2,999999999) TEXT('NRANGEX:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=10 col1=1 choicecode('%A34SLET verthist=0^','%A34SLET verthist=1^') col2=23 fieldhelp('Turns on exact test.') textid('Hit space bar obtain exact test') text('Exact test:') default=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC freq nofreq /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# $ /$# table( /$# %b34seval(&seriesx) /$# %b34seval(&seriesy) /$# ) /$# %b34sif(&exact.ne.0)%then ; /$# exact /$# %B34SENDIF ; /$# %b34sif(&nrangex.eq.0)%then ; /$# typex=evalues /$# %B34SENDIF ; /$# %b34sif(&nrangey.eq.0)%then ; /$# typey=evalues /$# %B34SENDIF ; /$# %b34sif(&nrangex.ne.0)%then ; /$# typex=equidistant /$# nrangex=%b34seval(&nrangex) /$# %B34SENDIF ; /$# %b34sif(&nrangey.ne.0)%then ; /$# typey=equidistant /$# nrangey=%b34seval(&nrangey) /$# %B34SENDIF ; /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==DESCRIBE Describe Series Characteristics %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Describe Command') COMMANDH('Input series to list. For futher detail see help command.' 'A maximum of 10 series can be supplied. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' '%A34SLET IN3 = 0^' '%A34SLET IIN3 = 0^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN5 = 0^' '%A34SLET IIN5a = 0^' '%A34SLET IIN5b = 0^' '%A34SLET all = 0^' '%A34SLET pcorr = 0^' '%A34SLET scorr = 0^' '%A34SLET svarttest = 0^' '%A34SLET dvarttest = 0^' '%A34SLET pairttest = 0^' '%A34SLET vartest = 0^' '%A34SLET kendalltau= 0^' '%A34SLET kstest = 0^' '%A34SLET nprint = 0^' '%A34SLET nprint2 = 0^' '%A34SLET IVAR = 0^' )$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=1 textcolor=byellow TEXT('Specify series to describe.')$ box position(2,4,78,20) $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to first observation' TEXT('Beginning obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=41 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=63 TEXTID='Zero defaults to last observation' TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET nprint=0^','%A34SLET nprint=1^') col2=24 fieldhelp('Allows turning off describe info for all series.') textid('Hit space bar to turn off output') text('Turn off output:') default=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=6 COL1=2 TEXT('Optionally specify series. Blank describes all.')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to 8 series can be supplied.' 'If this field is left blank, all series used.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN3=1^') $ FIELD TYPE=INFO PAGE=1 ROW=8 COL1=2 TEXT('Optionally specify series for GROUPMEAN tests.')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(IN4) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to eight series can be supplied.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN4=1^') $ field type=input fieldtype=checkbox page=1 row=10 col1=2 choicecode('%A34SLET nprint2=0^','%A34SLET nprint2=1^') col2=24 fieldhelp('Turns off means listing for groupmean.') textid('Hit space bar to turn off groupmean means') text('Turn off means:') default=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=12 COL1=2 TEXT('Optionally specify two series for Bivariate tests.')$ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IIN5A) FIELDTYPE=VARNAME DEFAULT=' ' TEXTHELP('Specify bivariate variable # 1.') COL2=21 TEXTID='Specify variable name' TEXT('Bivariate Series 1:') OPTIONAL PRELINE('%A34SLET IN5=1^') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=41 LETNAME(IIN5B) FIELDTYPE=VARNAME DEFAULT=' ' TEXTHELP('Specify bivariate variable # 2.') COL2=63 TEXTID='Specify variable name' TEXT('Bivariate Series 2:') OPTIONAL PRELINE('%A34SLET IN5=1^') $ field type=input fieldtype=checkbox page=1 row=14 col1=2 choicecode('%A34SLET all=0^','%A34SLET all=1^') col2=24 fieldhelp('Turns on all tests.') textid('Hit space bar to turn on all bivariate tests') text('ALL:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=15 col1=2 choicecode('%A34SLET pcorr=0^','%A34SLET pcorr=1^') col2=24 fieldhelp('Turns on Pearson Correlation.') textid('Hit space bar to turn on Pearson correlation') text('PCORR:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=15 col1=41 choicecode('%A34SLET scorr=0^','%A34SLET scorr=1^') col2=63 fieldhelp('Turns on Spearman Correlation.') textid('Hit space bar to turn on Spearman correlation') text('SCORR:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=16 col1=2 choicecode('%A34SLET svarttest=0^','%A34SLET svarttest=1^') col2=24 fieldhelp('Turns on same variance ttest of means.') textid('Hit space bar to test means assuming same variance') text('SVARTTEST:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=16 col1=41 choicecode('%A34SLET dvarttest=0^','%A34SLET dvarttest=1^') col2=63 fieldhelp('Turns on different variance ttest of means.') textid('Hit space bar to test means assuming different variance') text('DVARTTEST:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=17 col1=2 choicecode('%A34SLET pairttest=0^','%A34SLET pairttest=1^') col2=24 fieldhelp('Turns on paired ttest of means.') textid('Hit space bar to test means assuming paired series') text('PAIRTTEST:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=17 col1=41 choicecode('%A34SLET vartest=0^','%A34SLET vartest=1^') col2=63 fieldhelp('Turns on test of variance of two series.') textid('Hit space bar to test variance of two series') text('VARTEST:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=18 col1=2 choicecode('%A34SLET kendalltau=0^','%A34SLET kendalltau=1^') col2=24 fieldhelp('Turns on Kendall Tau test.') textid('Hit space bar Kendall Tau test') text('KENDALLTAU:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=18 col1=41 choicecode('%A34SLET kstest=0^','%A34SLET kstest=1^') col2=63 fieldhelp('Turns on Kolmogorov-Smirnov Test.') textid('Hit space bar for Kolmogorov-Smirnov Test ') text('KSTEST:') default=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC describe /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&NPRINT.NE.0)%THEN $ /$# NPRINT /$# %B34SENDIF $ /$# $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# VAR = /$# %B34SEVAL(&IN3) /$# $ /$# %B34SENDIF $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# groupmean( /$# %B34SEVAL(&IN4) /$# ) /$# %B34SIF(&NPRINT2.NE.0)%THEN $ /$# NPRINT /$# %B34SENDIF $ /$# $ /$# %B34SENDIF $ /$# %B34SIF(&IN5.NE.0)%THEN $ /$# bivariate( /$# %B34SEVAL(&IIN5a) /$# %B34SEVAL(&IIN5b) /$# ) /$# %B34SIF(&all.NE.0)%THEN$ /$# pcorr scorr svarttest dvarttest pairttest /$# vartest kendalltau kstest /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&pcorr.ne.0)%THEN$ /$# pcorr /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&scorr.ne.0)%THEN$ /$# scorr /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&svarttest.ne.0)%THEN$ /$# svarttest /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&dvarttest.ne.0)%THEN$ /$# dvarttest /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&pairttest.ne.0)%THEN$ /$# pairttest /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&vartest.ne.0)%THEN$ /$# vartest /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&kendalltau.ne.0)%THEN$ /$# kendalltau /$# %B34SENDIF $ /$# %B34SIF(&all.eq.0.and.&kstest.ne.0)%THEN$ /$# kstest /$# %B34SENDIF $ /$# $ /$# %B34SENDIF $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==DATA_LOAD Load Data from a file B34SEXEC MAKEMENU COMMANDN('Load Data into B34S from file') COMMANDH('See help command for further detail on B34S data loading.', 'Only a small subset of the data loading capability in B34S' 'has been implemented. For complex data loading users should' 'build the data loading sets with editor and save with file' 'name username.b34. This way the run command can be used to' 'run the data file. This menu assumes user has a file which' 'contains the data to load into B34S.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from a file ') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET HEAD2=0^')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=3 COL1=1 COL2=18 TEXT('Heading for job:') LETNAME(HEAD) DEFAULT=' ' POSTLINE('%A34SLET HEAD2=1^')$ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=4 COL1=1 COL2=23 REQUIRED TEXTID('File name for data to load into B34S. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=10^ A34SEEND^') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 PRELINE('%A34SLET BUILD=0^', 'A34SEXEC DATA UNIT=10' '%A34SIF(&HEAD2.EQ.1)%THEN^' 'HEADING=(%A34SEVAL(&HEAD))' '%A34SENDIF^' ' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar to get correlations matrix') TEXT('Output correlations:') choicecode(' ','CORR') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to output covariance matrix') TEXT('Output covariance:') choicecode(' ','COV') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum lag for any series') INTRANGE(0,99) TEXT('Maximum lag:') PRELINE('MAXLAG=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=41 COL2=63 OPTIONAL TEXTID('Sets base frequency') TEXT('Base Frequency:') PRELINE('SETFREQ(') DEFAULT=' ' POSTLINE(')') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=1 COL2=23 FIELDHELP('Set base year, month year etc.') TEXTID('Hit Fn6 key to see base year template - substitute for y, m, ,q, d') TEXT('Time base:') CHOICES('Yearly data', 'Monthly data', 'Quaterly data', 'Daily data') CHOICECODE('SETYEAR( y )','SETMY(m , y)', 'SETQY(q ,y )','SETDMY(d ,m ,y)') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('Field sets data file format.') TEXTID('Hit Fn6 key to see data file format') TEXT('Data file format:') CHOICES('Free format file', 'Unformatted double precision file', 'Fixed format file (needs format statement)', '@@ format file') CHOICECODE('FREE','DP','FIXED','@@') PRELINE('FILEF(') DEFAULT=('FREE ') POSTSTRING(')') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 PRELINE=('^')$ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=8 TEXTID('Variable format if file format = FIXED') TEXT('Format:') PRELINE('FORMAT(') DEFAULT= ' ' POSTLINE(')^') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=18 REQUIRED PRELINE('INPUT') TEXTID('Give names for variables to load from file') TEXT('Input variables:') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to to load from file') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=11 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=12 COL1=1 COL2=18 OPTIONAL TEXTID('Give names for variables to build') TEXT('Build Variables:') PRELINE('%A34SLET BUILD=1^' 'BUILD') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=13 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to build') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=13 PRELINE('%A34SIF(&BUILD.EQ.1)%THEN^' '^' '%A34SENDIF^')$ FIELD TYPE=INFO PAGE=1 ROW=14 COL1=1 OPTIONAL COL2=23 TEXTID('Optional comment in command file') TEXT('Specify comment on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 FIELDTYPE=DQSTRING OPTIONAL PRELINE('COMMENT=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and ^') DEFAULT( ' ')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^')$ B34SRUN$ == ==DATA_BUILD Change the current B34S dataset B34SEXEC MAKEMENU COMMANDN('Change the Current B34S Dataset') COMMANDH('See help command for further detail on B34S data loading.', 'Only a small subset of the data loading capability in B34S' 'has been implemented. For complex data loading users should' 'build the data loading sets with editor and save with file' 'name username.b34. This way the run command can be used to' 'run the data file. This menu assumes user has a file which' 'contains the data to load into B34S.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Change current data in B34S / add series ') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET HEAD2=0^' '%A34SLET HEAD ="-"^')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=3 COL1=1 COL2=18 TEXT('Heading for job:') LETNAME(HEAD) DEFAULT=' ' POSTLINE('%A34SLET HEAD2=1^')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('%A34SLET BUILD=0^', 'A34SEXEC DATA SET ' '%A34SIF(&HEAD2.EQ.1)%THEN^' 'HEADING=(%A34SEVAL(&HEAD))' '%A34SENDIF^' ' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Hit space bar to output correlations matrix') TEXT('Output correlations:') choicecode(' ','CORR') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit space bar to output covariance matrix') TEXT('Output covariance:') choicecode(' ','COV') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum lag for any series') INTRANGE(0,99) TEXT('Maximum lag:') PRELINE('MAXLAG=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=5 COL1=41 COL2=63 OPTIONAL TEXTID('Sets base frequency') TEXT('Base Frequency:') PRELINE('SETFREQ=') DEFAULT=' ' POSTLINE(')') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=6 COL1=1 COL2=23 FIELDHELP('Set base year, month year etc.') TEXTID('Hit Fn6 key to see choices for base year template') TEXT('Time base:') CHOICES('Yearly data', 'Monthly data', 'Quaterly data', 'Daily data') CHOICECODE('SETYEAR( n )','SETMY(m , y)', 'SETQY(q ,y )','SETDMY(d ,m ,y)') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE=('^')$ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=7 COL1=1 COL2=18 OPTIONAL TEXTID('Give names for variables to build') TEXT('Build Variables:') PRELINE('%A34SLET BUILD=1^', 'BUILD') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to build') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=8 PRELINE('%A34SIF(&BUILD.EQ.1)%THEN^' '^' '%A34SENDIF^')$ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=1 OPTIONAL COL2=23 TEXTID('Optional Comment ') TEXT('Specify a Comment on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 FIELDTYPE=DQSTRING OPTIONAL PRELINE('COMMENT=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^')$ B34SRUN$ == ==DATA_GEN Generate Data B34SEXEC MAKEMENU COMMANDN('Generate Data') COMMANDH('See help command for further detail on B34S data loading.', 'Only a small subset of the data loading capability in B34S' 'has been implemented. For complex data loading users should' 'build the data loading sets with editor and save with file' 'name username.b34. This way the run command can be used to' 'run the data file. This menu assumes user has a file which' 'contains the data to load into B34S.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Generate data in B34S ') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET HEAD2=0^', '%A34SLET HEAD ="-"^')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=3 COL1=1 COL2=18 TEXT('Heading for job:') LETNAME(HEAD) DEFAULT=' ' POSTLINE('%A34SLET HEAD2=1^')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('%A34SLET BUILD=0^', 'A34SEXEC DATA ' '%A34SIF(&HEAD2.EQ.1)%THEN^' 'HEADING=(%A34SEVAL(&HEAD))' '%A34SENDIF^' ' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Hit space bar to output correlations matrix') TEXT('Output correlations:') choicecode(' ','CORR') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit space bar to output covariance matrix') TEXT('Output covariance:') choicecode(' ','COV') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 REQUIRED TEXTID('Specify number of observations') INTRANGE(2,9999999) TEXT('# of observations:') PRELINE('NOOB=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=41 COL2=63 OPTIONAL TEXTID('Specify maximum lag for any series') INTRANGE(0,99) TEXT('Maximum lag:') PRELINE('MAXLAG=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Sets base frequency') TEXT('Base Frequency:') PRELINE('SETFREQ=') DEFAULT='1 ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=6 COL2=23 FIELDHELP('Set base year, month year etc.') TEXTID('Hit Fn6 key to see choices for base year template') TEXT('Time base:') CHOICES('Yearly data', 'Monthly data', 'Quaterly data', 'Daily data') CHOICECODE('SETYEAR( n )','SETMY(m , y)', 'SETQY(q ,y )','SETDMY(d ,m ,y)') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE=('^')$ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=18 REQUIRED TEXTID('Give names for variables to build') TEXT('Build Variables:') PRELINE('%A34SLET BUILD=1^', 'BUILD') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to build') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 PRELINE('%A34SIF(&BUILD.EQ.1)%THEN^' '^' '%A34SENDIF^')$ FIELD TYPE=INFO PAGE=1 ROW=10 COL1=1 OPTIONAL COL2=23 TEXTID('Optional Comment ') TEXT('Specify a Comment on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 FIELDTYPE=DQSTRING OPTIONAL PRELINE('COMMENT=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=2 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^')$ B34SRUN$ == ==DM_COLORS Set Display Manager Colors B34SEXEC MAKEMENU COMMANDN('Display Manager Colors') COMMANDH('See help command for OPTIONS command for further detail', 'on the Display Manager settings. When best colors are found' 'user should change the setting in AUTOEXEC.B34 file') tabhelpposition(20) tlabels('Basic DM Settings','Advanced Settings') $ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' Set Display Manager Colors ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET WC1F=green^', '%A34SLET WC1B=black^', '%A34SLET WC2F=yellow^', '%A34SLET WC2B=black^', '%A34SLET WC3F=red^', '%A34SLET WC3B=black^', '%A34SLET WC4F=cyan^', '%A34SLET WC4B=black^', '%A34SLET WTC1F=cyan^', '%A34SLET WTC1B=black^', '%A34SLET WTC2F=cyan^', '%A34SLET WTC2B=black^', '%A34SLET WTC3F=cyan^', '%A34SLET WTC3B=black^', '%A34SLET WTC4F=cyan^', '%A34SLET WTC4B=black^', '%A34SLET WB1=double^', '%A34SLET WB2=single^', '%A34SLET WB3=single^', '%A34SLET WB4=double^', '%A34SLET WBC1=green^', '%A34SLET WBC2=yellow^', '%A34SLET WBC3=red^', '%A34SLET WBC4=blue^', '%A34SLET WBC5=black^', '%A34SLET WBC6=black^', '%A34SLET WBC7=black^', '%A34SLET WBC8=black^', '%A34SLET GRAYS=graysoff^', '%A34SLET GRAYS1=red ^', '%A34SLET GRAYS2=gray^', 'A34SEXEC OPTIONS') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=2 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit spacebar or Fn2 for screen foreground color') TEXT('DM Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC1F=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=3 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Background') TEXTID('Hit spacebar or Fn2 for sscreen background color') TEXT('DM Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC1B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=4 COL1=1 COL2=33 FIELDHELP('Set Display Manager Help Foreground') TEXTID('Hit spacebar or Fn2 for Help Window Foreground') TEXT('Help Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC2F=') DEFAULT=('yellow ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=5 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Help Background') TEXTID('Hit spacebar or Fn2 for Help Window Background') TEXT('Help Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC2B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=6 COL1=1 COL2=33 FIELDHELP('Set Display Manager Errow window foreground.') TEXTID('Hit spacebar or Fn2 for Error Window Fore. Color') TEXT('Error Foreground color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC3F=') DEFAULT=('red ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=7 COL1=1 COL2=33 FIELDHELP('Set Error Window Background color.') TEXTID('Hit spacebar or Fn2 for Errow Window background color') TEXT('Error Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC3B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Command Window Foreground color.') TEXTID('Hit spacebar or Fn2 for Command window Foreground color') TEXT('Command Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC4F=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Command Window Background Color.') TEXTID('Hit spacebar or Fn2 for Command window background color') TEXT('Command Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC4B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=10 COL1=1 COL2=33 FIELDHELP('Set Display Manager Sreeen Title Foreground') TEXTID('Hit spacebar or Fn2 for DM title foreground color') TEXT('DM title Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC1F=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=11 COL1=1 COL2=33 FIELDHELP('Set Display Manager Sreeen Title Background') TEXTID('Hit spacebar or F2 for DM Title Background color') TEXT('DM Title Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC1B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=12 COL1=1 COL2=33 FIELDHELP('Set Display Manager Help Foreground') TEXTID('Hit space bar or Fn2 for Help Window Foreground') TEXT('Help Title Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC2F=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Display Manager Sreeen Help Background') TEXTID('Hit spacebar or Fn2 for Help Window Background') TEXT('Help Title Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC2B=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=14 COL1=1 COL2=33 FIELDHELP('Set Display Manager Errow window title foreground.') TEXTID('Hit spacebar or Fn2 for Error window title fore. color') TEXT('Error Title Foreground color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC3F=') DEFAULT=('blue ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=15 COL1=1 COL2=33 FIELDHELP('Set Error Window Background') TEXTID('Hit spacebar or Fn2 for errow title background color') TEXT('Error Title Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC3B=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=16 COL1=1 COL2=33 FIELDHELP('Set Display Manager command title Foreground') TEXTID('Hit spacebar or Fn2 for Command title foreground color') TEXT('Command Title Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC4F=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=17 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Help Background') TEXTID('Hit spacebar or Fn2 for errow title background color') TEXT('Command Title Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WTC4B=') DEFAULT=('black ') POSTSTRING('^') $ /$EXIT GROUP limitf(1) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(1) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=2 COL1=1 COL2=20 FIELDHELP('Set Display Manager Screen Frame') TEXTID('Hit spacebar or Fn2 for choices for Frame') TEXT('DM Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET WB1=') DEFAULT=('double ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=2 COL1=38 COL2=60 FIELDHELP('Set Help Window Frame') TEXTID('Hit spacebar or Fn2 for choices for Frame') TEXT('Help Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET WB2=') DEFAULT=('single ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=3 COL1=1 COL2=20 FIELDHELP('Set Error Window Frame') TEXTID('Hit spacebar or Fn2 for error window frame choices') TEXT('Error Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET WB3=') DEFAULT=('single ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=3 COL1=38 COL2=60 FIELDHELP('Set Command Window Frame') TEXTID('Hit spacebar or Fn2 to see command window frame choices') TEXT('Command Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET WB4=') DEFAULT=('double ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=7 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Frame Foreground') TEXTID('Hit spacebar or Fn2 for screen frame foreground') TEXT('DM Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC1=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Frame Background') TEXTID('Hit Fn6 key to see choices for Display Manager colors') TEXT('DM Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC5=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Display Manager Help Frame Foreground') TEXTID('Hit spacebar or Fn2 to see Help Window Foreground choices') TEXT('Help Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC2=') DEFAULT=('yellow ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=10 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Help Frame Background') TEXTID('Hit spacebar or Fn2 for Help Window Background') TEXT('Help Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC6=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=11 COL1=1 COL2=33 FIELDHELP('Set Display Manager Errow window Frame foreground.') TEXTID('Hit spacebar or Fn2 for Error Window Fore. Color') TEXT('Error Frame Foreground color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC3=') DEFAULT=('red ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=12 COL1=1 COL2=33 FIELDHELP('Set Error Window Frame Background color.') TEXTID('Hit spacebar or Fn2 for Error window frame Back. color') TEXT('Error Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC7=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Command Window Frame Foreground color.') TEXTID('Hit spacebar or Fn2 for command window frame fore. color') TEXT('Command Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC4=') DEFAULT=('blue ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=14 COL1=1 COL2=33 FIELDHELP('Set Command Window Frame Background Color.') TEXTID('Hit spacebar or Fn2 for comd. window frame back. color') TEXT('Command Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WBC8=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=16 COL1=1 COL2=11 FIELDHELP('Set Grayscale ') TEXTID('Hit space bar to set') TEXT('Grayscale:') CHOICECODE('%A34SLET GRAYS=graysoff^','%A34SLET GRAYS=grayson^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=16 COL1=20 COL2=30 FIELDHELP('Set Grayscale color 1') TEXTID('Hit spacebar or Fn2 for Grayscale color 1') TEXT('Color 1:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET GRAYS1=') DEFAULT=('red ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=16 COL1=50 COL2=60 FIELDHELP('Set Grayscale color 2') TEXTID('Hit spacebar or Fn2 for grayscale color 2') TEXT('Color 2:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET GRAYS2=') DEFAULT=('gray ') POSTSTRING('^') $ /$EXIT GROUP limitf(2) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(2) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('WBORDER(%A34SEVAL(&WB1 &WB2 &WB3 &WB4))', 'WBORDERC(%A34SEVAL(&wbc1 &wbc2 &wbc3 &wbc4 &wbc5 &wbc6 &wbc7 &wbc8))' 'WCOLOR(%A34SEVAL(&WC1F &WC2F &WC3F &WC4F))', 'WBCOLOR(%A34SEVAL(&WC1B &WC2B &WC3B &WC4B))')$ FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE( 'WTCOLOR(%A34SEVAL(&WTC1F &WTC2F &WTC3F &WTC4F))', 'WTBCOLOR(%A34SEVAL(&WTC1B &WTC2B &WTC3B &WTC4B))', '%A34SEVAL(&GRAYS)', 'GRAYSMIX(%A34SEVAL(&GRAYS1 &GRAYS2))', '^ A34SRUN ^') $ B34SEEND$ b34sexec options gcolor(bwhite,bred,bgreen,bblue,bcyan,yellow,white, cyan,green); b34srun; == ==DMCOLORS_2 Select DM colors from supplied files B34SEXEC MAKEMENU COMMANDN('Sets DM Colors from Supplied Files') COMMANDH('See help command for further detail on B34S DM Colors.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Set DM Colors') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET color = 0 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('The usual setting for colors is WCOLOR.') TEXTCOLOR=byellow $ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(4) TEXT('Set DM Colors:') choicecode('doscolor', 'wcolor ', 'bcolor ', 'b2color ') DEFAULT=('wcolor ') prestring('%A34SLET color = ') poststring('^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %b34sif(&color.eq.doscolor)%then$ /$# b34sexec options ginclude('doscolor.b34') $ /$# b34srun$ /$# %b34sendif$ /$# %b34sif(&color.eq.wcolor)%then $ /$# b34sexec options ginclude('wcolor.b34') $ /$# b34srun$ /$# %b34sendif$ /$# %b34sif(&color.eq.bcolor)%then $ /$# b34sexec options ginclude('bcolor.b34') $ /$# b34srun$ /$# %b34sendif$ /$# %b34sif(&color.eq.b2color)%then $ /$# b34sexec options ginclude('b2color.b34') $ /$# b34srun$ /$# %b34sendif$ b34sreturn$ b34srun$ == ==DMF_BACKUP Backup Current Dataset in DMF file %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Backup B34S DMF file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Backup current data in DMF file ') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET file = _NULL_^' '%A34SLET isfmt = 0 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('Data can be read with RESTORE or DMF facility') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 COL2=1 OPTIONAL TEXT('Member name CHECKPOINT assumed.') TEXTCOLOR=byellow $ box position(2,8,66,6) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED letname=(file) TEXTID('File name to use for data. Use form ____.DMF') TEXT('Data file:') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar to save in formated.') TEXT('Formated save:') choicecode('%A34SLET isfmt=0^', '%A34SLET isfmt=1^') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=11 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=11 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %b34sif(&isfmt.eq.0)%then$ /$# b34sexec options open( /$# %b34seval(&file) /$# ) unit=60 form=unformatted disp=unknown $ /$# b34srun$ /$# b34sexec dmf dmfmember(checkpoint) outfmt=unformatted$ /$# create disp=rewind$ /$# b34srun$ /$# %b34sendif $ /$# %b34sif(&isfmt.ne.0)%then$ /$# b34sexec options open( /$# %b34seval(&file) /$# ) unit=60 form=(formatted) disp=unknown $ /$# b34srun$ /$# b34sexec dmf dmfmember(checkpoint) outfmt=formatted$ /$# create disp=rewind$ /$# b34srun$ /$# %b34sendif $ /$# b34sexec options close(60)$ b34srun$ b34sreturn$ b34srun$ == ==DMF_RESTORE Restore a Dataset backed up with BACKUP command %B34SLET ibatch = %b34sget(ib34sg,ibatch,1) $ B34SEXEC MAKEMENU COMMANDN('Restore a file saved with BACKUP') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Select DMF dataset backed up with RESTORE') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET idvar=_NULL_^')$ FIELD TYPE=INFO PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File of the form ______.dmf') $ FIELD TYPE=INFO PAGE=1 ROW=5 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Takes first member in dataset by default.') $ FIELD TYPE=INFO PAGE=1 ROW=7 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('BROWSEDMF can be used check contents of a DMF file.') $ box position(2,10,66,7) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=10 COL1=1 COL2=23 REQUIRED TEXTID('File name to RESTORE. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=10') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=11 COL1=1 COL2=23 TEXTID('Hit space bar to drop missing observations.') TEXT('Drop missing:') choicecode('%A34SLET it=0^', '%A34SLET it=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=12 COL1=1 COL2=23 optional letname=idvar TEXTID('IDVAR variable name') TEXT('IDVAR Var:') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('^ A34SRUN^')$ pgmcards$ /$# b34sexec data filef=dmf unit=10 /$# %b34sif(&idvar.ne._NULL_)%then$ /$# idvar=%b34seval(&idvar) /$# %b34sendif $ /$# %b34sif(&it.eq.1)%then$ /$# dropmiss /$# %b34sendif $ /$# $ /$# b34srun$ /$# b34sexec options close(10)$ b34srun$ b34sreturn$ b34srun$ == ==DMF_BROWSE Browse B34S DMF file %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Browse B34S DMF file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Browse DMF file ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File made by BACKUP or a DMF command.') $ box position(2,9,66,6) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('File name for DMF file to browse. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=60') $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 COL1=1 PRELINE('^ A34SRUN^')$ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 TEXTID('Hit space bar to list series names.') TEXT('Output series list:') preline('A34SEXEC DMF unit=60 ^ browse ') choicecode(' ','LISTNAMES') DEFAULT=('x') postline('^ A34SRUN^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options close(60)$ b34srun$ b34sreturn$ b34srun$ == ==DMF_LOAD Load DMF Data from a file B34SEXEC MAKEMENU COMMANDN('LOAD Data into B34S from a DMF file') COMMANDH('See help command for further detail on B34S data loading.', 'Only a small subset of the data loading capability in B34S' 'has been implemented. For complex data loading users should' 'build the data loading sets with editor and save with file' 'name username.b34. This way the run command can be used to' 'run the data file. This menu assumes user has a file which' 'contains the data to load into B34S.') formt(tabbed) tabposition(top) tlabels('Page One','Page Two')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from a DMF file ') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET HEAD2=0^', "%A34SLET HEAD ='_NULL_'^")$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=3 COL1=1 COL2=18 TEXT('Heading for job:') LETNAME(HEAD) DEFAULT=' ' POSTLINE('%A34SLET HEAD2=1^')$ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=4 COL1=1 COL2=23 REQUIRED TEXTID('File name for data to load into B34S. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=60^ A34SEEND^') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 PRELINE('%A34SLET BUILD=0^', '%A34SLET input=0^', 'A34SEXEC DATA UNIT=60 filef=DMF ' '%A34SIF(&HEAD2.EQ.1)%THEN^' 'HEADING=(%A34SEVAL(&HEAD))' '%A34SENDIF^' ' ') $ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=5 COL1=1 COL2=23 FIELDHELP('Field sets DMF member to input.') TEXTID('Member of DMF file to input. Blank takes first member.') TEXT('DMF member:') PRELINE('DMFMEMBER(') DEFAULT=(' ') POSTSTRING(')') optional $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to drop missing observations.') TEXT('Drop missing:') choicecode(' ', 'dropmiss') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=41 COL2=63 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar to get correlations matrix') TEXT('Output correlations:') choicecode(' ','CORR') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=7 COL1=41 COL2=63 TEXTID('Hit space bar to output covariance matrix') TEXT('Output covariance:') choicecode(' ','COV') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=8 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum lag for any series') INTRANGE(0,99) TEXT('Maximum lag:') PRELINE('MAXLAG=') DEFAULT=' 0' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=41 COL2=63 OPTIONAL TEXTID('Sets base frequency') TEXT('Base Frequency:') PRELINE('SETFREQ(') DEFAULT=' ' POSTLINE(')') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=1 COL2=23 FIELDHELP('Set base year, month year etc.') TEXTID('Hit Fn6 key to see base year template - substitute for y, m, ,q, d') TEXT('Time base:') CHOICES('Yearly data', 'Monthly data', 'Quaterly data', 'Daily data') CHOICECODE('SETYEAR( y )','SETMY(m , y)', 'SETQY(q ,y )','SETDMY(d ,m ,y)') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 PRELINE=('^')$ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=18 OPTIONAL PRELINE('%A34SLET input=1^' 'INPUT') TEXTID('Give names for variables to load from file') TEXT('Input variables:') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to load from file') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=11 COL1=1 PRELINE('%A34SIF(&INPUT.EQ.1)%THEN^' '^' '%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=12 COL1=1 COL2=18 OPTIONAL TEXTID('Give names for variables to build') TEXT('Build Variables:') PRELINE('%A34SLET BUILD=1^' 'BUILD') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=13 COL1=1 COL2=1 OPTIONAL TEXTID('Give names for variables to build') DEFAULT= ' ' $ FIELD TYPE=HIDDEN PAGE=1 ROW=13 PRELINE('%A34SIF(&BUILD.EQ.1)%THEN^' '^' '%A34SENDIF^') $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=DQSTRING OPTIONAL COL2=1 TEXTID('Optional Comment in command file ') PRELINE('COMMENT=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ /$EXIT GROUP with limitf(1) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(1) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=INPUT PAGE=1 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL col2=1 TEXTID('Enter B34S GEN sentence complete with GEN and $') DEFAULT( ' ')$ /$EXIT GROUP with limitf(2) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(2) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^')$ B34SRUN$ == ==DMF_RENAME Rename Members in a DMF file %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet newname = _NULL_ $ B34SEXEC MAKEMENU COMMANDN('Browse B34S DMF file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Rename members of a DMF file ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File made by BACKUP or a DMF command.') $ box position(2,9,66,6) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('File name for DMF file to rename. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD UNIT=60') $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 COL1=1 PRELINE('^ A34SRUN^')$ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=10 COL1=1 COL2=23 FIELDHELP('Field sets DMF member prefix.') letname=newname TEXTID('DMF member prefix.') TEXT('DMF member prefix:') DEFAULT=(' ') required $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec dmf unit=60 outunit=60 $ /$# rename(%b34seval(&newname))$ /$# b34srun$ b34sreturn$ b34srun$ == ==DMF_RECODE Rename Variables in a DMF file %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet newname = _NULL_ $ %b34slet i1 = _NULL_ $ %b34slet i2 = _NULL_ $ %b34slet i3 = _NULL_ $ %b34slet i4 = _NULL_ $ B34SEXEC MAKEMENU COMMANDN('Browse B34S DMF file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Rename variables in a DMF file ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File made by BACKUP or a DMF command.') $ box position(2,7,66,10) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=7 COL1=1 COL2=23 REQUIRED TEXTID('File name for DMF file. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD UNIT=60') $ FIELD TYPE=HIDDEN PAGE=1 ROW=9 COL1=1 PRELINE('^ A34SRUN^')$ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('Field sets DMF member prefix.') letname=newname TEXTID('DMF member prefix. Blank takes DMF file 1.') TEXT('DMF member:') DEFAULT=(' ') optional $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=9 COL1=1 COL2=10 FIELDHELP('Passes oldname and newname pairs for recode') letname=i1 TEXTID('Pass oldname newname pairs.') TEXT('Recode:') DEFAULT=(' ') required $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=10 COL1=1 COL2=10 FIELDHELP('Passes oldname and newname pairs for recode') letname=i2 TEXTID('Pass oldname newname pairs.') TEXT('Recode:') DEFAULT=(' ') optional $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=11 COL1=1 COL2=10 FIELDHELP('Passes oldname and newname pairs for recode') letname=i3 TEXTID('Pass oldname newname pairs.') TEXT('Recode:') DEFAULT=(' ') optional $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=12 COL1=1 COL2=10 FIELDHELP('Passes oldname and newname pairs for recode') letname=i4 TEXTID('Pass oldname newname pairs.') TEXT('Recode:') DEFAULT=(' ') optional $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec dmf unit=60 outunit=60 $ /$# %b34sif(&newname.ne.'_NULL_')%then$ /$# rename(%b34seval(&newname)) /$# %b34sendif $ /$# %b34sif(&newname.eq.'_NULL_')%then$ /$# rename /$# %b34sendif $ /$# recode( /$# %b34sif(&i1.ne.'_NULL_')%then$ /$# %b34seval(&i1) /$# %b34sendif $ /$# %b34sif(&i2.ne.'_NULL_')%then$ /$# %b34seval(&i2) /$# %b34sendif $ /$# %b34sif(&i3.ne.'_NULL_')%then$ /$# %b34seval(&i3) /$# %b34sendif $ /$# %b34sif(&i4.ne.'_NULL_')%then$ /$# %b34seval(&i4) /$# %b34sendif $ /$# ) $ /$# b34srun$ b34sreturn$ b34srun$ == ==DROPMISS Drops Missing Data %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Drops Missing data') COMMANDH('Drops Missing data.', 'Data set must have been loaded')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL TEXT('Drop missing data from a file.') TEXTCOLOR=byellow $ box position(2,12,66,5) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# b34sexec data dropmiss set$ b34srun$ B34SRETURN$ B34SEEND$ == ==ECOMP Error Component Model B34SEXEC MAKEMENU COMMANDN('Error Component Model') COMMANDH('See help command for futher detail on Error Component Model.' )$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Error Component Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC ECOMP')$ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=4 COL1=1 COL2=23 FIELDHELP('The field allows user to set data input convention.', 'Region first means data stored PERIOD 1 REGION 1 ', ' PERIOD 2 REGION 1. ', 'Period first means data stored PERIOD 1 REGION 1 ', ' PERIOD 1 REGION 2. ') TEXTID('Hit space bar to set period first data setup.') TEXT('Data input convention:') CHOICECODE('REGFIRST','PERFIRST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=5 COL1=1 COL2=23 FIELDHELP('The field allows user to set p calculation method.') TEXTID('Hit Fn6 key to see choices for calculating p') TEXT('Method to calculate p:') CHOICES('Calculate p from OLS stage', 'Calculate p from second stage', 'Calculate p from both stages, use second stage') CHOICECODE('OLSP','STAGE2P','BOTHP') DEFAULT=('OLSP ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=6 COL1=1 COL2=23 FIELDHELP('The field allows user to set print options') TEXTID('Hit Fn6 key to see choices for printing') TEXT('Printing options:') CHOICES('No data is printed', 'First 100 observations are printed' 'All data is printed') CHOICECODE(' ','PRINT','PRINTALL') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=7 COL1=1 COL2=23 REQUIRED FIELDHELP('The # regions * # of period = # observations') TEXTID('Specify number of regions') INTRANGE(1,999999999) TEXT('Number of Regions:') PRELINE('NREG=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED INTRANGE(1,999999999) TEXTID('Specify number of periods') TEXT('Number of periods:') PRELINE('NPER=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 PRELINE('^') $ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID='Optional title' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE= QSTRING PRELINE('TITLE=(') POSTLINE(')^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=12 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=13 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=14 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ B34SEEND$ == ==EXCEL_GET Get XLS or WK1 File %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Loads an Excel *.xls or *.wk1 file using Rats') COMMANDH('Gets series from *.wk1 or Excel 97 *.xls file.' 'Names must be in row # 1 over Cols of Data.' 'For futher detail see help command. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = "_excel.xls"^' '%A34SLET RATSPRT=0^' '%A34SLET iswk1 =0^' )$ FIELD TYPE=INFO PAGE=1 ROW=3 COL1=1 textcolor=byellow TEXT(' Specify Excel 97 *.xls or *.wk1 file format.')$ box position(2,6,66,10) $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(IN1) FIELDTYPE=qstring col2=23 DEFAULT='_excel.xls ' TEXTHELP('Sets Excel input file name.') COL2=2 TEXTID='Sets Excel output file. Use xls or wk1 extension.' TEXT('Excel input file:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=2 COL2=23 TEXTID('Hit space bar if *.wk1 file.') TEXT('WK1 Format:') choicecode('%A34SLET iswk1=0^', '%A34SLET iswk1=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=8 COL1=2 COL2=23 TEXTID('Hit space bar to suppress data list in RATS.') TEXT('Suppress Rats List:') choicecode('%A34SLET ratsprt=0^', '%A34SLET ratsprt=1^') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# b34sexec options open('ratjunk') unit=60 disp=unknown$ /$# b34seend$ /$# b34sexec options clean(60)$ b34seend$ /$# b34sexec options /$# copyf(4,60,1,999999,1,80,0,0)$ /$# pgmcards; /$# * load wk1 or xls file /$# allocate 20000 /$# open data $ /$# %b34seval(&in1) /$# /$# %B34SIF(&ISWK1.eq.0)%THEN $ /$# data(format=excel,org=obs) /$# %B34SENDIF $ /$# /$# %B34SIF(&ISWK1.eq.1)%THEN $ /$# data(format=wk1,org=obs) /$# %B34SENDIF $ /$# /$# %B34SIF(&RATSPRT.EQ.0)%THEN $ /$# print /$# %B34SENDIF $ /$# /$# table /$# * make a portable file /$# open copy _rats.por /$# copy(format=portable) /$# b34sreturn; /$# b34seend$ /$# b34sexec options close(60)$ b34seend$ /$# b34sexec options dodos('start /w /r rats32s ratjunk /run'); /$# b34srun; /$# b34sexec options copyfout('ratjunk.out'); b34srun; /$# b34sexec options dodos('erase ratjunk'); b34srun; /$# b34sexec options dodos('erase ratsjunk.out'); b34srun; /$# b34sexec options open('_rats.por') disp=old unit(45)$ /$# b34srun$ /$# b34sexec scainput $ getrats ratsunit=45 $ b34srun$ /$# b34sexec options close=45$ b34srun$ B34SRETURN$ B34SEEND$ == ==EXCEL_PUT Passes all series to Excel in *.xls Format %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Makes Excel *.xls file') COMMANDH('Uses Rats to make *.xls file ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = "_b34s.xls"^' )$ FIELD TYPE=INFO PAGE=1 ROW=3 COL1=1 textcolor=byellow TEXT('Makes *.xls file using RATS for B34S series.')$ box position(2,6,66,8) $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(IN1) FIELDTYPE=qstring col2=23 DEFAULT='_b34s.xls ' TEXTHELP('Sets Excel file name.') COL2=2 TEXTID='Sets Excel output file. Use xls extension.' TEXT('Excel input file:') OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# b34sexec options open('rats.dat') unit(28) disp=unknown$ b34srun$ /$# b34sexec options open('rats.in') unit(29) disp=unknown$ b34srun$ /$# b34sexec options clean(28)$ b34srun$ /$# b34sexec options clean(29)$ b34srun$ /$# /$# b34sexec pgmcall$ /$# rats passasts /$# PCOMMENTS('* ', /$# '* Data passed from B34S(r) system to RATS', /$# '* ') $ /$# PGMCARDS$ /$# * /$# open copy $ /$# %b34seval(&in1) /$# /$# copy(format=xls,org=columns) /$# b34sreturn$ /$# b34srun $ /$# /$# b34sexec options close(28)$ b34srun$ /$# b34sexec options close(29)$ b34srun$ /$# b34sexec options dodos('start /w /r rats386 rats.in rats.out ')$ /$# b34srun$ /$# /$# b34sexec options npageout /$# WRITEOUT('Output from RATS',' ',' ') /$# COPYFOUT('rats.out') /$# dodos('ERASE rats.in','ERASE rats.out','ERASE rats.dat') /$# dounix('rm rats.in','rm rats.out','rm rats.dat') /$# $ /$# b34srun$ B34SRETURN$ B34SEEND$ == ==EXCEL_PUT2 Pass up to 15 series to Excel or QP is csv Format %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Makes Excel file') COMMANDH('Input series to list. For futher detail see help command.' 'A maximum of 15 series can be supplied. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = "_excel.in"^' '%A34SLET IIN3 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN3 = 0^' '%A34SLET IN4 = 0^' '%A34SLET IN5 = 0^' '%A34SLET IIN5 = 0^' '%A34SLET QP = 0^' )$ FIELD TYPE=INFO PAGE=1 ROW=3 COL1=1 textcolor=byellow TEXT(' Specify up to 15 series to pass to Excel or QP.')$ box position(2,6,66,10) $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(IN1) FIELDTYPE=dqstring col2=23 DEFAULT='_excel.csv ' TEXTHELP('Sets Excel input file name.') COL2=2 TEXTID='Sets Excel output file. Use csv extension.' TEXT('Excel input file:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=2 COL2=23 TEXTID('Hit space bar to save in QP format.') TEXT('QP Format:') choicecode('%A34SLET QP=0^', '%A34SLET QP=1^') DEFAULT=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=8 COL1=2 TEXT('Optionally specify series to pass. Blank lists all.')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to 15 series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN3=1^') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(IN4) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to 15 series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN4=1^') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(IN5) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to 15 series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN5=1^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open( /$# %b34seval(&in1) /$# ) unit(60) disp=unknown$ b34srun$ /$# b34sexec options clean(60)$ b34srun$ /$# b34sexec list output= /$# %B34SIF(&QP.eq.0)%THEN $ /$# punchexcel /$# %B34SENDIF $ /$# %B34SIF(&QP.eq.1)%THEN $ /$# punchqp /$# %B34SENDIF $ /$# unit=60$ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# VAR = /$# %B34SEVAL(&IN3) /$# %B34SENDIF $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# %B34SEVAL(&IN4) /$# %B34SENDIF $ /$# %B34SIF(&IIN5.NE.0)%THEN $ /$# %B34SEVAL(&IN5) /$# %B34SENDIF $ /$# $ /$# %B34SENDIF $ /$# B34SEEND$ /$# b34sexec options close(60)$ b34srun$ B34SRETURN$ B34SEEND$ == ==EXPAND Expand active dataset %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet by = _NULL_ $ B34SEXEC MAKEMENU COMMANDN('Expand Active B34S Dataset') COMMANDH('See help command for futher detail on EXPAND option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT(' Expand Dataset.') TEXTCOLOR=byellow $ box position(2,8,78,8) $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW= 9 COL1=1 COL2=23 TEXTID('Be sure variable is currently active') TEXT('Dataset is expanded if weight var ge 2') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=11 COL1=1 COL2=23 REQUIRED letname(by) FIELDHELP('The dataset will be expanded using weight variable') TEXTID('Be sure variable is currently active. ') text('Weight Variable:') DEFAULT=' ' $ /$EXIT Group FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=42 COL2=66 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec expand weight= /$# %b34seval(&by) /$# $ /$# b34srun$ b34sreturn$ b34srun$ == ==FREQ Frequency Distribution %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Freq Command') COMMANDH('Input series to list. For futher detail see help command.' 'A maximum of 10 series can be supplied. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' '%A34SLET IN3 = 0^' '%A34SLET IIN3 = 0^' '%A34SLET verthist = 0^' '%A34SLET horizhist = 0^' '%A34SLET nrange = 0^' '%A34SLET range = _NULL_^' '%A34SLET IVAR = 0^' )$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=1 textcolor=byellow TEXT('Specify series to calculate Frequencies.')$ box position(2,4,78,16) $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to first observation' TEXT('Beginning obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=41 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=63 TEXTID='Zero defaults to last observation' TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET verthist=0^','%A34SLET verthist=1^') col2=24 fieldhelp('Turns on vertical histogram.') textid('Hit space bar obtain vertical histogram') text('Vertical Hist:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=6 col1=2 choicecode('%A34SLET horizhist=0^','%A34SLET horizhist=1^') col2=24 fieldhelp('Turns on horizontal histogram.') textid('Hit space bar to obtain horizontal histogram') text('Horizontal Hist:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(nrange) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Sets number of Equidistant ranges. 0 means exact values.' TEXT('# Ranges:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=QSTRING PAGE=1 ROW=8 COL1=1 COL2=12 TEXT('User Range:') LETNAME(range) DEFAULT=' ' textid='Sets user range for Frequency tabulation.' POSTLINE('%A34SLET nrange=-1^')$ FIELD TYPE=INFO PAGE=1 ROW=11 COL1=2 TEXT('Optionally specify series. Blank describes all.')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to 8 series can be supplied.' 'If this field is left blank, all series used.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN3=1^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC freq /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&VERTHIST.NE.0)%THEN $ /$# verthist /$# %B34SENDIF $ /$# %B34SIF(&HORIZHIST.NE.0)%THEN $ /$# horizhist /$# %B34SENDIF $ /$# %B34SIF(&nrange.le.1.and.&nrange.ge.0)%then$ /$# type=evalues /$# %B34SENDIF $ /$# %B34SIF(&nrange.gt.1)%THEN $ /$# type=equidistant /$# nrange=%b34seval(&nrange) /$# %B34SENDIF $ /$# %B34SIF(&nrange.lt.0)%THEN $ /$# type=usergroup /$# range( /$# %b34seval(&range) /$# ) /$# %B34SENDIF $ /$# $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# VAR = /$# %B34SEVAL(&IN3) /$# $ /$# %B34SENDIF $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==FORT_LIST List Fortran Subroutines %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('List Fortran Subroutines') COMMANDH('See help command for further detail on B34S Source', 'command.'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('List FORTRAN') TEXTCOLOR=byellow $ box position(2,4,74,9) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=5 COL1=1 COL2=23 REQUIRED LETNAME(file) TEXTID('Fortran File to process.') TEXT('Fortran file name:') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar to give list of calling sequences.') TEXT('List Calls:') choicecode('%A34SLET list=0^', '%A34SLET list=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec source infile(%b34seval(&file)) $ /$# /$# * $ /$# %b34sif(&list.eq.0)%then$ /$# display subs$ /$# %b34sendif$ /$# %b34sif(&list.eq.1)%then$ /$# display subinfo$ /$# %b34sendif$ /$# exit$ /$# b34srun$ /$# b34sexec options close(42)$ b34seend$ b34sreturn$ B34SRUN$ == ==G_COLORS Set Graph Colors B34SEXEC MAKEMENU COMMANDN('Set Graph Colors') COMMANDH('See help command for OPTIONS command for further detail', 'on the Graph Color settings. When best colors are found' 'user should change the setting in AUTOEXEC.B34 file') $ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' Set Graph Colors ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET N1=black^', '%A34SLET N2=bred^', '%A34SLET N3=bgreen^', '%A34SLET n4=black^', '%A34SLET n5=red^', '%A34SLET n6=black^', '%A34SLET n7=cyan^', '%A34SLET n8=black^', '%A34SLET n9=cyan^', 'A34SEXEC OPTIONS') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=6 COL1=1 COL2=33 FIELDHELP('Set Graph color # 1') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 1:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n1=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=7 COL1=1 COL2=33 FIELDHELP('Set Graph color # 2') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 2:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n2=') DEFAULT=('bred ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Graph color # 3') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 3:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n3=') DEFAULT=('blue ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Graph color # 4') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 4:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n4=') DEFAULT=('bgreen ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=10 COL1=1 COL2=33 FIELDHELP('Set Graph color # 5:') TEXTID('Hit spacebar or Fn2 for Color') TEXT('Graph color # 5:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n5=') DEFAULT=('bcyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=11 COL1=1 COL2=33 FIELDHELP('Set Graph color # 6') TEXTID('Hit spacebar or Fn2 for ') TEXT('Graph color # 6:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n6=') DEFAULT=('yellow ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=12 COL1=1 COL2=33 FIELDHELP('Set Graph color # 7') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 7:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n7=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Graph color # 8') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 8:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n8=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=14 COL1=1 COL2=33 FIELDHELP('Set Graph color # 9') TEXTID('Hit spacebar or Fn2 for color') TEXT('Graph color # 9:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET n9=') DEFAULT=('bblue ') POSTSTRING('^') $ /$ EXIT GROUP limitf(1) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(1) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('GCOLOR(%A34SEVAL(&N1 &N2 &N3 &N4 &n5)', ' %A34SEVAL( &n7 &n8 &n9 ))' '^ A34SRUN ^') $ B34SEEND$ == ==HELP Supply a help file name %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet name = _NULL_ $ B34SEXEC MAKEMENU COMMANDN('Access B34S Help file') COMMANDH('See HELP command for futher detail on HELP option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL textcolor = byellow TEXT(' Call Help File for printing. Page numbers supplied.') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor = byellow TEXT(' Make Page bigger and print with Word. Use fixed Font') $ box position(2,8,78,8) $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW= 9 COL1=1 COL2=23 TEXTID('Supply a HELP name') TEXT('Help file Name from b34shelp.dat. User must know name') $ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=11 COL1=1 COL2=23 REQUIRED letname(name) FIELDHELP('Access HELP file to get infomation') TEXTID('Be sure help file is currently available. ') text('Help Name:') DEFAULT=' ' $ /$EXIT Group FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=42 COL2=66 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec help= /$# %b34seval(&name) /$# newpage /$# $ /$# b34srun$ b34sreturn$ b34srun$ == ==KFILTER State Space Modeling of Multiple Time Series B34SEXEC MAKEMENU COMMANDN('State Space Model Building') COMMANDH('See help command for futher detail on KFILTER options.' 'Menu has been setup for a maximum of 5 series.') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('State Space Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 PRELINE('%A34SLET S1 = 0^' '%A34SLET S2 = 0^' '%A34SLET S3 = 0^' '%A34SLET S4 = 0^' '%A34SLET S5 = 0^' )$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('A34SEXEC KFILTER')$ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=41 COL2=63 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 COL2=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=4 COL1=1 COL2=10 TEXTID('Input series # 1') TEXT('Series 1:') PRELINE('%A34SLET S1=1^' 'SERIESN VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit space bar to take logs of series 1 ') TEXT('Log series 1:') choicecode(' ','LOGS') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 PRELINE('%A34SIF(&S1.EQ.1)%THEN^' '^', '%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=5 COL1=1 COL2=10 TEXTID('Input series # 2') TEXT('Series 2:') PRELINE('%A34SLET S2=1^' 'SERIESN VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= Checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to take logs of series 2') TEXT('Log series1 :') choicecode(' ', 'LOGS') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=5 COL1=1 PRELINE('%A34SIF(&S2.EQ.1)%THEN^' '^', '%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=6 COL1=1 COL2=10 TEXTID('Input series # 3') TEXT('Series 3:') PRELINE('%A34SLET S3=1^' 'SERIESN VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=6 COL1=41 COL2=63 TEXTID('Hit space bar to take logs of series 3') TEXT('Log series 3:') choicecode(' ','LOGS') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('%A34SIF(&S3.EQ.1)%THEN^' '^', '%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=7 COL1=1 COL2=10 TEXTID('Input series # 4') TEXT('Series 4:') PRELINE('%A34SLET S4=1^' 'SERIESN VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=41 COL2=63 TEXTID('Hit space bar to take logs of series 4') TEXT('Log series 4:') choicecode(' ','LOGS') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=7 COL1=1 PRELINE('%A34SIF(&S4.EQ.1)%THEN^' '^', '%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=8 COL1=1 COL2=10 TEXTID('Input series # 5') TEXT('Series 5:') PRELINE('%A34SLET S5=1^' 'SERIESN VAR=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=8 COL1=41 COL2=63 TEXTID('Hit space bar to take logs of series 5') TEXT('Log series 5:') choicecode(' ','LOGS') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 PRELINE('%A34SIF(&S5.EQ.1)%THEN^' '^', '%A34SENDIF^') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 PRELINE('ESTIMATE') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar for print of original data') TEXT('Print data:') choicecode(' ','IORGS') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=41 COL2=63 TEXTID('Hit space bar to print data with means subtracted') TEXT('Print zero mean data:') choicecode(' ','INEWS') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 TEXTID('Hit space bar for print of residuals') TEXT('Print residuals:') choicecode(' ','IRES') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=41 COL2=63 TEXTID('Hit space bar for print of in sample forecast') TEXT('Print in samp. fore.:') choicecode(' ','INSFOR') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=11 COL1=1 COL2=23 TEXTID('Hit space bar for print of Hankle matrix') TEXT('Print hankle mat.:') choicecode(' ','IHANKL') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=11 COL1=41 COL2=63 TEXTID('Hit space bar for print of eigenvector matrix') TEXT('Print eigen mat:') choicecode(' ','GEIGENV') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=12 COL1=1 COL2=23 TEXTID('Hit space bar for print of U matrix') TEXT('Print U matrix:') choicecode(' ','GUMATRIX') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=12 COL1=41 COL2=63 TEXTID('Hit space bar for print of A matrix') TEXT('Print A matrix:') choicecode(' ','GAMATRIX') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=13 COL1=1 COL2=23 TEXTID('Hit space bar to generate 23 out of sample forecasts') TEXT('Forecast:') choicecode(' ','FORECAST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=14 COL1=1 COL2=33 REQUIRED TEXTID('Set maximum lags on Hankle matrix') INTRANGE(1,9999) TEXT('Hankle matrix lags:') PRELINE('K=') DEFAULT='6 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=15 COL1=1 COL2=33 REQUIRED TEXTID('Set dimension of state vector') INTRANGE(1,9999) TEXT('Dimension state vector:') PRELINE('NSTAR=') DEFAULT='1 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=16 COL1=1 COL2=33 REQUIRED TEXTID('Set maximum number of iterations') INTRANGE(1,9999) TEXT('Maximum iterations:') PRELINE('MXITER=') DEFAULT='500 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=17 COL1=1 COL2=33 REQUIRED TEXTID('Sets step size') TEXT('Step size:') PRELINE('EPS=') DEFAULT='.05 ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=19 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=19 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=20 COL1=1 COL2=1 PRELINE('^ A34SRUN^') $ B34SEEND$ == ==LIST Line Printer list of series %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('List Command') COMMANDH('Input series to list. For futher detail see help command.' 'A maximum of 10 series can be supplied. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' '%A34SLET IIN3 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN3 = 0^' '%A34SLET IN4 = 0^' '%A34SLET IPOBS= 0^' '%A34SLET Ilist2=0^' '%A34SLET CCOM =0^' )$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=1 textcolor=byellow TEXT('Specify series to list.')$ box position(2,4,78,13) $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to first observation' TEXT('Beginning obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to last observation' TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=6 col1=2 choicecode('%A34SLET ipobs=0^','%A34SLET ipobs=1^') col2=24 fieldhelp('Allows turning off date info for time series.') textid('Hit space bar to display observation number') text('Print obs number:') default=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=7 COL1=2 COL2=23 TEXTID='Optional title' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(ccom) FIELDTYPE=DQSTRING PRELINE('%A34SLET ilist2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=2 TEXT('Optionally specify series to list. Blank lists all.')$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to ten series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN3=1^') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(IN4) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to ten series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN4=1^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC LIST /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&IPOBS.NE.0)%THEN $ /$# PRINTOBS /$# %B34SENDIF $ /$# %B34SIF(&ILIST2.NE.0)%THEN $ /$# COMMENT( /$# %B34SEVAL(&CCOM) /$# ) /$# %B34SENDIF $ /$# $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# VAR = /$# %B34SEVAL(&IN3) /$# %B34SENDIF $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# %B34SEVAL(&IN4) /$# %B34SENDIF $ /$# $ /$# %B34SENDIF $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==LOGLIN Logit Model B34SEXEC MAKEMENU COMMANDN('LOGISTIC Model') COMMANDH('See help command for futher detail on LOGLIN Model.' 'While simple models can be estimated, up to four' 'equations can be jointly solved. The LOGLIN command' 'supports only 0/1 variables. See MLOGLIM for a more' 'complex command. LOGLIN uses the Nerlove-Press ' 'functional form. For more detail on this see Stokes (1991)' )$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Logit Model') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE( '%A34SLET ICARD1=0^', '%A34SLET ICARD2=0^', '%A34SLET ICARD3=0^', '%A34SLET ICARD4=0^', 'A34SEXEC LOGLIN')$ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=3 COL1=1 COL2=23 TEXTID('Hit space bar if want to test input data') TEXT('Test input:') choicecode(' ','KTEST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=3 COL1=41 COL2=63 TEXTID('Hit space bar if want output at each iteration') TEXT('Show iterations:') choicecode(' ','KCHCK') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Hit space bar to suppress bivariate interaction terms') TEXT('Suppress bivariate:') choicecode(' ','IALLB') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit space bar to suppress trivariate interaction terms') TEXT('Suppress trivariate:') choicecode(' ','IALLT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar to suppress 4 way intercation terms') TEXT('No 4-way terms:') choicecode(' ','IALL4') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=5 COL1=41 COL2=63 OPTIONAL TEXTID('Set variable to use as weight.') TEXT('Weight:') PRELINE('WVWT=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Convergence tolerence for likelihood function') REALRANGE(.000000000001,.9) TEXT('Convergence Tol # 1.:') PRELINE('ITOL1=') DEFAULT='.1E-03 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=6 COL1=41 COL2=63 OPTIONAL TEXTID('Convergence tolerence for coefficients') REALRANGE(.000000000001,.9) TEXT('Convergence Tol # 1.:') PRELINE('ITOL2=') DEFAULT='.1E-02 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=7 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum number of iterations') INTRANGE(1,999999999) TEXT('Max. # of iterations:') PRELINE('LIMIT=') DEFAULT='20 ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=12 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED TEXTID('Set up to 4 left hand variables') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=10 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=16 COL1=1 COL2=22 OPTIONAL POSTLINE('^ ') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=1 OPTIONAL TEXT('Variables to be optionally suppressed from all equations') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=12 COL1=1 COL2=23 OPTIONAL FIELDHELP('Set variables to be suppressed from all equations') TEXTID('Variables to be suppressed from all equations') DEFAULT=' ' PRELINE('%A34SLET ICARD1=1^', '%A34SIF(&CARD1.EQ.1)%THEN^', 'EVARSUPP') DEFAULT= ' ' POSTLINE('^', '%A34SENDIF') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=13 COL1=1 COL2=1 OPTIONAL TEXT('Bivariate pairs to be optionally suppressed') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=14 COL1=1 COL2=23 OPTIONAL FIELDHELP('Sets bivariate pairs to be suppressed') TEXTID('Bivariate pairs to be suppressed') DEFAULT=' ' PRELINE('%A34SLET ICARD2=1^', '%A34SIF(&ICARD2.EQ.1)%THEN^', 'BSUPP') DEFAULT= ' ' POSTLINE('^', '%A34SENDIF') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 COL2=1 OPTIONAL TEXT('Trivariate variables to be optionally suppressed') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=16 COL1=1 COL2=23 OPTIONAL FIELDHELP('Sets trivariate variables to be suppressed') TEXTID('Trivariate pairs to be suppressed') DEFAULT=' ' PRELINE('%A34SLET ICARD3=1^', '%A34SIF(&ICARD3.EQ.1)%THEN^', 'BSUPP') DEFAULT= ' ' POSTLINE('^', '%A34SENDIF') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=17 COL1=1 COL2=1 OPTIONAL TEXT('Set variables to be optionally selectively suppressed') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=18 COL1=1 COL2=23 OPTIONAL FIELDHELP('Set variables to be selectively suppressed ') TEXTID('Set pairs of variables to be selectively suppressed') DEFAULT=' ' PRELINE('%A34SLET ICARD4=1^', '%A34SIF(&CARD4.EQ.1)%THEN^', 'SSUPP') DEFAULT= ' ' POSTLINE('^', '%A34SENDIF') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=19 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=19 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^') $ B34SEEND$ == ==LPGRAPH Menu for specifying a line printer graph B34SEXEC MAKEMENU COMMANDN('Line Printer Graph Command') COMMANDH('Input series to graph. For futher detail see help command.', 'A maximum of two series can be supplied.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Line printer graph of two series ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN2 = 0^') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN4 = 0^') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IIN4 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify two variable names here' TEXT('Variables to graph:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=7 COL1=2 COL2=23 TEXTID='Optional title' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=10 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=10 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC PLOT GRAPH /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# $ /$# VAR =%B34SEVAL(&IN3)$ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) $ /$# %B34SENDIF $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==LPPLOT Menu for specifying a line printer plot B34SEXEC MAKEMENU COMMANDN('Line Printer Plot Command') COMMANDH('Input series to plot. For futher detail see help command.', 'A maximum of two series can be supplied.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Line printer plot of up to 9 series ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IIIN3= 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=6 COL1=1 COL2=24 choicecode('%A34SLET IIN2=_NULL_^','%A34SLET IIN2=CSCALE^') TEXTID('Hit space bar for common scale plot') TEXT('Common scale:') DEFAULT=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables to plot:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(IIN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables to plot:') PRELINE('%A34SLET IIIN3=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC PLOT LPPLOT /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# $ /$# VAR =%B34SEVAL(&IN3) /$# %B34SIF(&IIIN3.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3) /$# %B34SENDIF $ /$# $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) $ /$# %B34SENDIF $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==MATRIX_HELP Matrix Command Summary & Overview B34SEXEC MAKEMENU COMMANDN('Obtain Matrix Command Help Info') COMMANDH('See help command for futher detail on MATRIX option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('After Command look in log for results.') TEXTCOLOR=byellow $ box position(2,4,78,4) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec help=matrix1; b34srun; b34sreturn; b34srun; == ==MATRIX Submit Matrix Job B34SEXEC MAKEMENU COMMANDN('Enter Matrix commands on this screen. Then run.') FHCOLOR(REVERSE,GREEN,BLACK) COMMANDH('This menu allows user to submit a quick Matrix Command job.', 'Line Editing is allowed on each line.')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC matrix;' ' ') $ FIELD TYPE=INPUT PAGE=1 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SRUN;')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Matrix job:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=59 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Matrix job:') DEFAULT=' ' $ /$EXIT GROUP B34SEEND$ == ==MATRIX_INT Call Matrix Command in Interactive Mode /$ Shell to get into Interactive Matrix Command b34sexec matrix; call cls(2); call outstring(3,3,' Welcome to B34S Interactive MATRIX Mode'); call outstring(3,4,' Enter Commands at the Prompt.'); call outstring(3,6,' Hit any key to begin.'); /$ This is a pause call stop(i); call manual; b34srun; == ==MATRIX_MAC Matrix Command Index %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Obtain Index of matrix.mac files') COMMANDH('See help command for futher detail on MATRIX option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('After Command look in out for results.') TEXTCOLOR=byellow $ box position(2,4,78,4) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %B34SIF(&ibatch.eq.4.or.&ibatch.eq.5)%THEN $ /$# b34sexec options macindex('c:\b34slm\matrix.mac')$ b34srun$ /$# %b34sendif; /$# %B34SIF(&ibatch.ne.4.and.&ibatch.ne.5)%THEN $ /$# b34sexec options macindex('/usr/local/lib/b34slm/matrix.mac')$ /$# b34srun$ /$# %b34sendif; b34sreturn; b34srun; == ==MATRIX_LST Lists all Matrix Command Help files %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Obtain Listing of matrix.mac files') COMMANDH('See help command for futher detail on MATRIX option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('After Command look in out for results.') TEXTCOLOR=byellow $ box position(2,4,78,4) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %B34SIF(&ibatch.eq.4.or.&ibatch.eq.5)%THEN $ /$# b34sexec options maclist('c:\b34slm\matrix.mac')$ /$# b34srun$ /$# %b34sendif; /$# %B34SIF(&ibatch.ne.4.and.&ibatch.ne.5)%THEN $ /$# b34sexec options maclist('/usr/local/lib/b34slm/matrix.mac')$ /$# b34srun$ /$# %b34sendif; b34sreturn; b34srun; == ==MAC_INDEX Macfile Index %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Index the Members of a MAC file') COMMANDH('See help command for further detail on MAC files') FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Mac file Index') TEXTCOLOR=byellow $ box position(2,4,74,4) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=5 COL1=1 COL2=23 REQUIRED TEXTID('Mac file to process. Fn 6 for menu.') TEXT('Mac file name:') PRELINE('A34SEXEC OPTIONS macindex(') DEFAULT=(' ') POSTLINE(')^ A34SRUN^') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP b34srun; == ==MAC_LIST Macfile List %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('List Members of a MAC file') COMMANDH('See help command for further detail on MAC files') FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('List Members of MAC file') TEXTCOLOR=byellow $ box position(2,4,74,4) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=5 COL1=1 COL2=23 REQUIRED TEXTID('Mac file to process. Fn 6 for menu.') TEXT('Mac file name:') PRELINE('A34SEXEC OPTIONS maclist(' ) DEFAULT=(' ') POSTLINE(')^ A34SRUN^')$ $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$ EXIT GROUP b34srun; == ==MATRIX_VLIST Lists Commands Available for Matrix B34SEXEC MAKEMENU COMMANDN('Obtain Matrix Command Vocabulary') COMMANDH('See help command for futher detail on MATRIX option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('After Command look in log for results.') TEXTCOLOR=byellow $ box position(2,4,78,4) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 8 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 8 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options writeout('B34S Procedures listed in log',' '); /$# b34srun; /$# B34SEXEC options vocabulary$ b34srun$ /$# b34sexec matrix; /$# call echooff; /$# call print('Matrix Command CALL ______ Vocabulary'); /$# call vocab(c); /$# call sort(c); /$# call print(c); /$# call print('Matrix Command Function Vocabulary'); /$# c=vocab(c); /$# call sort(c); /$# call print(c); /$# b34srun; b34sreturn; b34srun; == ==MATLAB_PUT Loads Current Data in Matlab /$ Builds a MATLAB input file for MATLAB version 5. /$ Changes made 22 May 1997 /$ /$ Since MATLAB is case sensitive, use lower case for all variable /$ references that are from b34s. /$ /$ This job assumes user has already loaded data in B34S /$ The file name for file1 is hard coded in the matlab m file (file2) /$ /$ User changes this to default matlab file directory /$ The B34S default is set below /$ /$ %b34slet file1="'_b34sdat.dat'"$ /$ %b34slet file2="'b34sdata.m'"$ /$ %b34slet file1="'c:\mfiles\_b34sdat.dat'"$ /$ %b34slet file2="'c:\mfiles\b34sdata.m'"$ /$ /$ Note: To save Matlab output use matlab commands /$ /$ diary c:\junk\moutput /$ diary off /$ /$ Use B34S menu command COPYOUT to list this file in b34s /$ %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Load Data From B34S to a Matlab File') COMMANDH('See help command for further detail on B34S data loading.', 'This menu assumes user has MATLAB on system'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from B34S to Matlab ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Data has to be loaded in b34s to run this command.') $ box position(2,5,74,10) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=23 REQUIRED letname=(file1) TEXTID('File name to use for data.') TEXT('Data file:') %b34sif(&ibatch.eq.4)%then; DEFAULT=('c:\mfiles\_b34sdat.dat ') %b34sendif; %b34sif(&ibatch.ne.4)%then; DEFAULT=('_b34sdat.dat ') %b34sendif; $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED letname=(file2) TEXTID('File name to for Matlab m file.') TEXT('M file Name:') %b34sif(&ibatch.eq.4)%then; DEFAULT=('c:\mfiles\b34sdata.m ') %b34sendif; %b34sif(&ibatch.ne.4)%then; DEFAULT=('b34sdata.m ') %b34sendif; $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar to suppress means.') TEXT('Suppress means:') choicecode('%A34SLET nomeans=0^', '%A34SLET nomeans=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options open(%b34seval(&file1)) unit(28) disp=unknown$ /$# b34seend$ /$# b34sexec options clean(28)$ b34seend$ /$# b34sexec options open(%b34seval(&file2)) unit(29) disp=unknown$ /$# b34seend$ /$# b34sexec options clean(29)$ b34seend$ /$# b34sexec pgmcall$ /$# matlab /$# %b34sif(&nomeans.ne.0)%then$ /$# nomeans /$# %b34sendif$ /$# lowercase outfile(%b34seval(&file1))$ /$# pgmcards$ /$# % MATLAB File built by b34s /$# whos /$# b34sreturn$ /$# b34seend$ /$# b34sexec options close(28)$ b34srun$ /$# b34sexec options close(29)$ b34srun$ b34sreturn; B34SRUN$ == ==MAKEB34S Make a B34S DATA loading step with current Data %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Make B34S data file') COMMANDH('See help command for further detail on B34S DATA files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Backup current data in B34S MACRO file ') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET file = _NULL_^' '%A34SLET head2 = 0^ ' "%A34SLET head = '-' ^" '%A34SLET macro = FILE1 ^' '%A34SLET disp = 1 ^' '%A34SLET corr = 0 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('Data can be read with file command') TEXTCOLOR=byellow $ box position(2,8,66,10) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED letname=(file) TEXTID('File name to use for data. Use form ____.B34') TEXT('Data file:') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar to give correlations.') TEXT('Correlations:') choicecode('%A34SLET corr=0^', '%A34SLET corr=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 TEXTID('Hit space bar to add to files.') TEXT('Add to file:') choicecode('%A34SLET disp=1^', '%A34SLET disp=0^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=11 COL1=1 COL2=18 TEXT('Heading for job:') LETNAME(HEAD) DEFAULT=' ' POSTLINE('%A34SLET HEAD2=1^')$ FIELD TYPE=INPUT FIELDTYPE=QSTRING PAGE=1 ROW=12 COL1=1 COL2=18 TEXT('B34S Macro name:') LETNAME(macro) DEFAULT='FILE1 ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options open( /$# %b34seval(&file) /$# ) unit=46 form=formatted disp=unknown $ /$# b34srun$ /$# b34sexec scainput sformat(highaccuracy)$ /$# makeb34s macro=%b34seval(¯o) nohead /$# %b34sif(&corr.eq.1)%then$ /$# corr /$# %b34sendif$ /$# %b34sif(&disp.eq.1)%then$ /$# disp=rewind /$# %b34sendif$ /$# saveunit=46 /$# %b34sif(&head2.eq.1)%then$ /$# heading=%b34seval(&head) /$# %b34sendif$ /$# $ /$# b34srun$ /$# b34sexec options close(46)$ b34srun$ b34sreturn$ b34srun$ == ==MAKESAS Make a SAS DATA loading step with current Data %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Make SAS data file') COMMANDH('See help command for further detail on B34S DATA files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Backup current data in SAS DATA step ') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET file = _NULL_^' )$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('Data can be read with file command') TEXTCOLOR=byellow $ box position(2,8,66,3) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED letname=(file) TEXTID('File name to use for data. Use form ____.sas') TEXT('Data file:') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options open( /$# %b34seval(&file) /$# ) unit=29 form=formatted disp=unknown $ /$# b34srun$ /$# b34sexec options clean(29) $ b34seend$ /$# b34sexec pgmcall idata=29 icntrl=29$ /$# sas $ /$# pgmcards$ /$# * sas statements after here ; /$# run; /$# b34sreturn$ /$# b34srun $ /$# b34sexec options close(29)$ b34srun$ b34sreturn$ b34srun$ == ==MPROBIT Setup to run Ordered Probit Model B34SEXEC MAKEMENU COMMANDN('Ordered Probit Model') COMMANDH('See help command for futher detail MPROBIT Model.', 'Ordered probit required from 2-10 ordered catagories.' 'If only two catagories, then use PROBIT procedure.') FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Ordered Probit Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC MPROBIT')$ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar for residual analysis') TEXT('Residual analysis:') choicecode(' ','RESIDA') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to show coefficient change at every step') TEXT('Coefficient change:') choicecode(' ','SHOWIT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum number of iterations') INTRANGE(1,999999999) TEXT('Max. # of iterations:') PRELINE('NIT=') DEFAULT='50 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=6 COL1=41 COL2=63 OPTIONAL TEXTID('Convergence tolerence. Max of 10 digits allowed.') REALRANGE(.000000000001,.9) TEXT('Convergence:') PRELINE('TOLA=') DEFAULT='.000001 ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('^') $ FIELD TYPE=INFO PAGE=1 ROW=7 COL1=1 OPTIONAL COL2=23 TEXTID='Optional title # 1' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 FIELDTYPE=DQSTRING PRELINE('TITLE1=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=1 OPTIONAL COL2=23 TEXTID='Optional title # 2' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 FIELDTYPE=DQSTRING PRELINE('TITLE2=(') DEFAULT= ' ' POSTLINE(')^ ') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 TEXT('Valid values for left hand variable')$ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=12 COL1=1 COL2=1 REQUIRED TEXTID('Specify up to 10 real numbers for valid values') PRELINE('VVALUES=(') DEFAULT= ' ' POSTLINE(')^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=13 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=14 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=15 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=17 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=17 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ B34SEEND$ == ==MARS Multivariate Adaptive Spline Models (MARS) B34SEXEC MAKEMENU COMMANDN('MARS Model Building') COMMANDH('Controls setting up a MARS Model. Optionally model ', 'diagnostic files can be produced & nonlinearity tests can', 'be requested. If outputfiles are requested the default' 'output file name is _MARS.FSV. If LOGIT MARS models are' 'desired, custom setups are required due to the need to set' 'NMCV, NTCV and the need for LX sentences.') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' MARS Model Building') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRABASISS = 0^ ' '%A34SLET IRABASIS = 0^ ' '%A34SLET MI = 1^ ' '%A34SLET NK = 5^ ' '%A34SLET M ="SEARCH"^ ' '%A34SLET ICX ="ENTIRE"^ ' '%A34SLET DF = 3.^ ' '%A34SLET FV = 0.0^ ' '%A34SLET NGC = 100^ ' '%A34SLET NGS = 40 ^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET HINICH = 0 ^ ' '%A34SLET ismoo = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' ); FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=5 COL1=2 COL2=24 fieldhelp('Field sets Model Interpolation Approximation') PRELINE('%A34SLET M=') postline('^') TEXTID('Hit Fn 6 to see choices') TEXT('Model Type::') choices('Piecewise-Linear Model', 'Piecewise-Cubic Model', 'Search between Linear and Piecewise Model') Choicecode('LINEAR','CUBIC','SEARCH') DEFAULT=('SEARCH ') $ field type=input fieldtype=dqstring page=1 row=6 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_mars.fsv ') $ field type=input fieldtype=checkbox page=1 row=7 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Save MARC Curve and Surface estimates') textid('Hit space bar to save Mars Curve and Surface') text('Save Surface:') default=(' ') $ FIELD TYPE=INPUT FIELDTYPE= choices PAGE=1 ROW=7 COL1=42 COL2=64 fieldhelp('Field sets Model Interpolation Approximation') PRELINE('%A34SLET ICX =') postline('^') TEXTID('Hit Fn 6 to see choices') TEXT('Model Type:') choices('Plots of surface done for entire range of argument', 'Plots done inside convex hull of bivariate point set') Choicecode('ENTIRE','INSIDE') DEFAULT=('ENTIRE') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(MS) FIELDTYPE=INTEGER DEFAULT='0 ' fieldhelp('Span must be set in the range 0 - # of obs.' 'Span determines number of obs between successive knots' 'A larger value => a simplier model') COL2=24 TEXTID='0 => # of obs + # right hand variables set span' INTRANGE(0,999999999) TEXT('Knot Span:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=42 LETNAME(DF) FIELDTYPE=REAL DEFAULT='3.0 ' fieldhelp('Sets the number of degrees of freedom charged for' 'unrestricted knot optimization. A bigger value ' 'implies a simplier model.') COL2=64 TEXTID='Sets number of degrees of freedom charged for knot' realrange(0.0,1.0E+32) TEXT('Knot Penalty:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(FV) FIELDTYPE=REAL DEFAULT='0.0 ' fieldhelp('Sets the incrumental penalty for increasing the' 'number of variables in the model.') COL2=24 TEXTID='Sets number of degrees of freedom charged RHS variable' realrange(0.0,1.0E+32) TEXT('Variable Penalty:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(MI) FIELDTYPE=INTEGER DEFAULT='1 ' fieldhelp('Sets maximum number of variables per basis function' 'MI = 1 => additive model.' 'MI > 1 => up to MI variable interactions allowed.') TEXTID=' Sets maximum number of variables per basis function' INTRANGE(1,999999999) col2=64 TEXT('Vars per BF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(NK) FIELDTYPE=INTEGER DEFAULT='5 ' fieldhelp('Sets maximum number of basis functions allowed.' 'A Larger NK => more complex model is possible.') TEXTID=' Sets maximum number of basis functions allowed' INTRANGE(1,999999999) col2=24 TEXT('Max BF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(NGC) FIELDTYPE=INTEGER DEFAULT='100 ' fieldhelp('Sets number of raser points for computing MARS ' 'curve estimates. The matrix saved is:' 'CRF(i,j,k),i=1,NGC),j=1,2),k=1,NC where NC LE NK)') TEXTID=' Sets number of raster points for MARS curve estimate' INTRANGE(1,999999999) col2=24 TEXT('NGC:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(NGS) FIELDTYPE=INTEGER DEFAULT='40 ' fieldhelp('Sets number of raster points for MARS surface plot.' 'The matrix saved is:' 'SRF(i,j,k),i=1,NGS),j=1,NGS),k=1,NS where NS LE NK.') TEXTID=' Sets number of raster points for MARS surface plot' INTRANGE(1,999999999) col2=64 TEXT('NGS:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=12 col1=2 choicecode('%A34SLET ires=0^','%A34SLET IRES=1^') col2=24 fieldhelp('List MARS Residuals in output file') textid('Hit space bar to list Mars residuals in a file') text('List Resid.:') default=(' ') $ field type=input fieldtype= checkbox page=1 row=12 col1=42 choicecode('%A34SLET IRESSAVE=0^','%A34SLET IRESSAVE=1^') col2=64 fieldhelp('Save MARS Residuals in a file') textid('Hit space bar to save Mars residuals in a file') text('Save Resid.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=13 col1=2 choicecode('%A34SLET irabasis=0^','%A34SLET IRABASIS=1^') col2=24 fieldhelp('List MARS Basis information in output file') textid('Hit space bar to list Mars basis info') text('List Binfo.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=13 col1=42 choicecode('%A34SLET irabasiss=0^','%A34SLET IRABASISS=1^') col2=64 fieldhelp('Save MARS Basis information in a file') textid('Hit space bar to save Mars basis info in a file') text('Save Binfo.:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(var3) FIELDTYPE=QVARLIST DEFAULT=' ' preline('%A34SLET IIN2=1^') COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# %b34sif(&igraph.ne.0.or.&iressave .ne.0.or. /$# &irabasiss.ne.0)%then$ /$# b34sexec options open(%b34seval(&dsn)) unit(44) /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44) $ b34seend$ /$# %b34sendif $ /$# B34SEXEC MARS /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&IRESSAVE.NE.0)%THEN $ /$# SPUNCHRES /$# %B34SENDIF $ /$# %B34SIF(&IRES.NE.0)%THEN $ /$# IRES /$# %B34SENDIF $ /$# %B34SIF(&IGRAPH.NE.0)%THEN $ /$# IGRAPH ngc =%b34seval(&ngc) ngs=%b34seval(&ngs) /$# %B34SENDIF $ /$# %B34SIF(&IRABASISS.NE.0)%THEN $ /$# RABASISS /$# %B34SENDIF $ /$# %B34SIF(&IRABASIS.NE.0)%THEN $ /$# RABASIST /$# %B34SENDIF $ /$# m=%b34seval(&M) /$# nk=%b34seval(&nk) /$# mi=%b34seval(&mi) /$# ms=%b34seval(&ms) /$# icx=%b34seval(&icx) /$# df =%b34seval(&df ) /$# fv =%b34seval(&fv ) /$# ngc =%b34seval(&ngc ) /$# ngs =%b34seval(&ngs ) /$# ICUNIT=44 ISUNIT=44 /$# $ /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# MODEL %b34seval(&var1) = /$# %b34seval(&var2) /$# %b34sif(&iin2.ne.0)%then $ /$# %b34seval(&var3) /$# %b34sendif $ /$# $ /$# B34SRUN $ /$# %b34sif(&igraph.ne.0.or.&iressave .ne.0.or. /$# &irabasiss.ne.0)%then$ /$# b34sexec options close(44) $ b34srun$ /$# %b34sendif $ B34SRETURN$ B34SEEND$ == ==OLS_BAYES Bayesian Analysis of OLS Model B34SEXEC MAKEMENU COMMANDN('Regression Command') COMMANDH('See help command for futher detail on REGRESSION command.' 'If high resoluation graphics are selected, RESIDUAL, Y ' 'and YHAT are saved in work SCA FSAVE file _JUNK.FSV. ' 'The file _JUNK.FSV will automatically be reused. ' ' ' 'Only a small part of the capability of the REGRESSION ' 'command is being used. To select more options, save the ' 'menu generated command file to the buffer and edit in ' 'custom changes.')$ FIELD TYPE=HIDDEN ROW=1 COL1=1 COL2=1 PRELINE("A34SEXEC OPTIONS OPEN('_junk.fsv') DISP=UNKNOWN UNIT(44)^", "A34SRUN^", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", "%A34SLET IN1=0^", "%A34SLET FILE1=_NO_^", "%A34SLET bayes=0^", "%A34SLET bayel=0^", "%A34SLET NBE=5^", "%A34SLET NRO=5^", "%A34SLET RLO=0.0d+00^", "%A34SLET RHI=0.0d+00^", "%A34SLET NRS=0^", "%A34SLET FILE ='DUMMY.WPG'^", "A34SEXEC REGRESSION ")$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=2 COL2=1 OPTIONAL TEXT(' Bayesian and BLUS Analysis of Regression model.') TEXTCOLOR=byellow $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=3 COL1=1 COL2=23 TEXTID('Hit space bar for residual analysis without plots') TEXT(' Residual analysis:') choicecode(' ','RESIDUALA') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=3 COL1=41 COL2=63 TEXTID('Hit space bar for residual anal. with line printer plots') FIELDHELP('If this option is called and high resolution plots' 'are requested, line printer plots will not be given.') TEXT(' Residuals listed:') choicecode(' ','RESIDUALP') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= cycling PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Use spacebar or Fn2 to set maximum order of GLS desired') TEXT('Maximum order for GLS:') FIELDHELP('The method of GLS analysis is discussed in the book' 'Specifying and Diagnostically Testing Econometric' 'Models by Houston Stokes and Goldberger s book ' 'Econometric Theory.') PRELINE('MAXGLS= ') DEFAULT=(' ') choicecode('0','1','2','3','4','5','6','7','8','9') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit Fn6 key to see choices for BLUS analysis') TEXT('Out of core BLUS: ') FIELDHELP('Chapter 5 of "Econometric Methods" by Theil (1971)' 'provides a reference for the BLUS option.') CHOICES('First K BLUS residuals', 'Middle K BLUS residuals', 'Last K BLUS residuals', 'BEST K BLUS residuals', 'HET K BLUS residuals', 'BOTH (best & het) BLUS residuals') CHOICECODE('FIRST ','MIDDLE','LAST ','BEST ','HET ','BOTH ') PRELINE('BLUS= ') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar for high resolution plot of residuals') TEXT('High resolution plots:') choicecode('%A34SLET IN1=0^','%A34SLET IN1=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to suppress the intercept of model') TEXT('Force no intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=11 LETNAME=FILE TEXTID('Enter file name to save high resolution plots') TEXT('Plot file:') PRELINE('%A34SLET FILE1=YES^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=41 COL2=63 TEXTID('Hit space bar for stepwise model.') TEXT('Stepwise:') choicecode(' ','stepwise') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=7 COL1=1 COL2=23 OPTIONAL TEXTID('Multicollinearity tolerance') FIELDHELP('Prospective variables are checked against those' 'in regression. If R**2 is > 1-TOLL, those' 'variables will not be placed in regression.' 'Default = .1e-5. ') REALRANGE(.00000000000001,.9) TEXT('Mult. Tol:') PRELINE('TOLL=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=7 COL1=41 COL2=63 OPTIONAL TEXTID('GLS tolerence') FIELDHELP('Sets convergence tolerance for GLS. Default is ' '1 / sqrt(noob). A lower value will insure that' 'GLS is calculated.') REALRANGE(.00000000001,.1) TEXT('GLS Tol.:') PRELINE('TOLG=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('%A34SIF(&IN1.EQ.1.OR.&FILE1.NE._NO_)%THEN^') PRESTRING('SPUNCHRES') POSTLINE('%A34SENDIF^')$ FIELD TYPE=INFO FIELDTYPE=VARLIST PAGE=1 ROW=8 COL1=1 COL2=25 FIELDHELP('The Bayes Option allows calculation of the ' 'distribution of the coefficients, rho' 'and the R**2. Zellner (1971) provides ' 'a good reference on this option.') OPTIONAL textcolor(byellow) TEXT('-------- Bayesian Analysis:----------------') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar for Bayesian Analysis') TEXT('Bayesian analysis:') choicecode('%A34SLET BAYES=0^','%A34SLET BAYES=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=9 COL1=41 COL2=63 TEXTID('Hit space bar to list and plot Bayesian output') TEXT('List Bayesian anal.:') choicecode('%A34SLET BAYESL=BAYPLOT^', '%A34SLET BAYESL=BAYLISTP^') DEFAULT=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW= 10 COL1=1 LETNAME(nbe) FIELDTYPE=INTEGER DEFAULT=' 5' COL2=23 TEXTID='Set Number of points in Bayes Coefficient grid' INTRANGE(5,100) TEXT('NBE:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 10 COL1=41 LETNAME(nro) FIELDTYPE=INTEGER DEFAULT=' 5' COL2=63 TEXTID='Set Number of points in Bayes Rho Coefficient grid' INTRANGE(5,100) TEXT('NRO:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW= 11 COL1=1 LETNAME(nrs) FIELDTYPE=INTEGER DEFAULT=' 0' COL2=23 TEXTID='Set Number of points in Bayes R**2 Coefficient grid' INTRANGE(0,100) TEXT('NRS:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=12 COL1=1 COL2=23 OPTIONAL letname(RLO) TEXTID('Lower Limit of Rho integration') FIELDHELP('Default = p - 4/sqrt(T-K)') REALRANGE(-1.5, 1.5) TEXT('Lower Rho:') DEFAULT='0.0 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=12 COL1=41 COL2=63 OPTIONAL letname(RHI) TEXTID('Upper Limit of Rho integration') FIELDHELP('Default = p + 4/sqrt(T-K)') REALRANGE(-1.5, 1.5) TEXT('Upper Rho:') DEFAULT='0.0 ' $ FIELD TYPE=HIDDEN ROW=15 COL1=1 COL2=1 PRELINE("%A34SIF(&BAYES.ne.0)%then^", "BAYES=%A34SEVAL(&BAYESL) ", "NBE=%A34SEVAL(&NBE) ", "NRO=%A34SEVAL(&NRO) ", "RLO=%A34SEVAL(&RLO) ", "RHI=%A34SEVAL(&RHI) ", "NRS=%A34SEVAL(&NRS) ", "%A34SENDIF^")$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 textcolor(byellow) TEXT('--------------------------------------------') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 PRELINE('^') $ FIELD TYPE=INFO PAGE=1 ROW=16 COL1=1 FIELDTYPE=INFO TEXT('Enter optional comment to identify regression on next line') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE=QSTRING TEXTID('Enter optional comment to identify regression') PRELINE('COMMENT=(') POSTLINE(')^') DEFAULT= ' ' OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=18 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=19 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=20 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=21 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ PGMCARDS$ /$# %B34SIF(&IN1.EQ.1)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# SCAFNAME(RESIDUAL)$ /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.)$ /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.)$ /$# B34SRUN$ /$# %B34SENDIF$ /$# %B34SIF(&FILE1.NE._NO_)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# PRINT GPORT( /$# %B34SEVAL(&FILE) /$# ) /$# SCAFNAME(RESIDUAL)$ /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.)$ /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.)$ /$# B34SRUN$ /$# %B34SENDIF$ B34SRETURN$ B34SEEND$ == ==OLS_QR High Accuracy Regression and PC Regression B34SEXEC MAKEMENU COMMANDN('High Accuracy Regression Model') COMMANDH('See help command for futher detail on QR options.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('High Accuracy Regression Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC QR ')$ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar to calculate U & V & residual') TEXT('PC Regression Opts: ') CHOICECODE('PCREG','PCREGLIST') PRELINE('IPCC= ') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to do residual plot') TEXT('Residual Plot:') choicecode=(' ','PLOT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar to suppress intercept of model') TEXT('Force no intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=7 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=10 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP B34SEEND$ == ==OLS_REG OLS Model using REG command B34SEXEC MAKEMENU COMMANDN('OLS Model Building') COMMANDH('Controls setting up a simple OLS Model. Optionally model' 'diagnostic tests and nonlinearity tests can be requested. In' 'contrast to other B34S commands, variable names for right hand' 'side variables can be set as NAME, NAME{1} & NAME{1 to 20}') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("A34SEXEC OPTIONS OPEN('_junk.fsv') DISP=UNKNOWN UNIT(44)^", "A34SRUN^", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", '%A34SLET IN1 = 0^ ' "%A34SLET IN11=0^", "%A34SLET FILE1=_NO_^", "%A34SLET FILE ='DUMMY.WPG'^", '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET testv = "_NULL_"^' '%A34SLET white = 0 ^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET TEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET RESIDUALP = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET HINICH = 0 ^ ' /$PASS1 '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' OLS Model Building') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=6 col1=2 choicecode('%A34SLET white=0^','%A34SLET white=1^') col2=24 fieldhelp('Use White or Robust SE in place of usual formula.') textid('Hit space bar to use White SE') text('White (1980) SE:') default=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1= 2 COL2=24 TEXTID('Hit space bar for high resolution plot of residuals') TEXT('High resolution plots:') choicecode('%A34SLET IN11=0^','%A34SLET IN11=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=2 COL2=24 LETNAME=FILE TEXTID('Enter file name to save high resolution plots') TEXT('Plot file name:') PRELINE('%A34SLET FILE1=YES^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=2 COL2=24 TEXTID('Hit space bar for Line printer plot of residuals') TEXT('Print/plot residuals:') choicecode('%A34SLET RESIDUALP=0^','%A34SLET RESIDUALP=1^') DEFAULT=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=12 COL1=2 TEXTCOLOR=byellow TEXT('Right hand variables can be set as name{lag} & name{1 to 6}') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var1) FIELDTYPE=qVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable name here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(var3) FIELDTYPE=QVARLIST DEFAULT=' ' preline('%A34SLET IIN2=1^') COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') optional $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(TESTV) FIELDTYPE=QVARLIST DEFAULT=' ' preline('%A34SLET test=1^') COL2=7 TEXTID='Specify test restriction variables' TEXT('test:') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC REG /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&WHITE.NE.0)%THEN $ /$# WHITE /$# %B34SENDIF $ /$# %B34SIF(&RESIDUALP.NE.0)%THEN $ /$# RESIDUALP /$# %B34SENDIF $ /$# %B34SIF(&in11.NE.0)%THEN $ /$# SPUNCHRES /$# %B34SENDIF $ /$# ; /$# bispec /$# %b34sif(&hinich.ne.0)%then $ /$# iturno iauto vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then $ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then $ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# ; /$# MODEL %b34seval(&var1) = /$# %b34seval(&var2) /$# %b34sif(&iin2.ne.0)%then $ /$# %b34seval(&var3) /$# %b34sendif $ /$# ; /$# %b34sif(&test.ne.0)%then $ /$# TEST /$# %b34seval(&testv) /$# ; /$# %b34sendif $ /$# B34SEEND ; /$# /$# %B34SIF(&IN11.EQ.1)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# SCAFNAME(RESIDUAL)$ /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# b34sexec matrix; /$# call getsca('_junk.fsv'); /$# call load(rtest2); /$# jj=dmin1(norows(residual)/4,24); /$# call rtest2(residual,y,jj); /$# b34srun; /$# %B34SENDIF $ /$# %B34SIF(&FILE1.NE._NO_)%THEN $ /$# b34sexec options open('_junk.fsv') unit=44; b34srun; /$# b34sexec options rewind(44); b34srun; /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# PRINT GPORT( /$# %B34SEVAL(&FILE) /$# ) /$# SCAFNAME(RESIDUAL) ; /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# %B34SENDIF$ B34SRETURN $ B34SEEND $ == ==OLS_REG_2 Setup to run a regression B34SEXEC MAKEMENU COMMANDN('Regression Command') COMMANDH('See help command for futher detail on REGRESSION command.' 'If high resoluation graphics are selected, RESIDUAL, Y ' 'and YHAT are saved in work SCA FSAVE file _JUNK.FSV. ' 'The file _JUNK.FSV will automatically be reused. ' ' ' 'Only a small part of the capability of the REGRESSION ' 'command is being used. To select more options, save the ' 'menu generated command file to the buffer and edit in ' 'custom changes.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=2 COL2=1 OPTIONAL TEXT(' Regression model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN ROW=1 COL1=1 COL2=1 PRELINE("A34SEXEC OPTIONS OPEN('_JUNK.FSV') DISP=UNKNOWN UNIT(44)^", "A34SRUN", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", "%A34SLET IN1=0^", "%A34SLET FILE1=_NO_^", "%A34SLET FILE ='DUMMY.WPG'^", "A34SEXEC REGRESSION ")$ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=3 COL1=1 COL2=23 TEXTID('Hit space bar for residual analysis without plots') TEXT(' Residual analysis:') choicecode(' ','RESIDUALA') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=3 COL1=41 COL2=63 TEXTID('Hit space bar for residual anal. with line printer plots') FIELDHELP('If this option is called and high resolution plots' 'are requested, line printer plots will not be given.') TEXT(' Residuals listed:') choicecode(' ','RESIDUALP') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= cycling PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Use spacebar or Fn2 to set maximum order of GLS desired') TEXT('Maximum order for GLS:') FIELDHELP('The method of GLS analysis is discussed in the book' 'Specifying and Diagnostically Testing Econometric' 'Models by Houston Stokes and Goldberger s book ' 'Econometric Theory.') PRELINE('MAXGLS= ') DEFAULT=(' ') choicecode('0','1','2','3','4','5','6','7','8','9') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit Fn6 key to see choices for BLUS analysis') TEXT('Out of core BLUS: ') FIELDHELP('Chapter 5 of "Econometric Methods" by Theil (1971)' 'provides a reference for the BLUS option.') CHOICES('First K BLUS residuals', 'Middle K BLUS residuals', 'Last K BLUS residuals', 'BEST K BLUS residuals', 'HET K BLUS residuals', 'BOTH (best & het) BLUS residuals') CHOICECODE('FIRST ','MIDDLE','LAST ','BEST ','HET ','BOTH ') PRELINE('BLUS= ') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar for high resolution plot of residuals') TEXT('High resolution plots:') choicecode('%A34SLET IN1=0^','%A34SLET IN1=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar to suppress the intercept of model') TEXT('Force no intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=11 LETNAME=FILE TEXTID('Enter file name to save high resolution plots') TEXT('Plot file:') PRELINE('%A34SLET FILE1=YES^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=41 COL2=63 TEXTID('Hit space bar for stepwise model.') TEXT('Stepwise:') choicecode(' ','stepwise') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=7 COL1=1 COL2=23 OPTIONAL TEXTID('Multicollinearity tolerance') FIELDHELP('Prospective variables are checked against those' 'in regression. If R**2 is > 1-TOLL, those' 'variables will not be placed in regression.' 'Default = .1e-5. ') REALRANGE(.00000000000001,.9) TEXT('Mult. Tol:') PRELINE('TOLL=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=7 COL1=41 COL2=63 OPTIONAL TEXTID('GLS tolerence') FIELDHELP('Sets convergence tolerance for GLS. Default is ' '1 / sqrt(noob). A lower value will insure that' 'GLS is calculated.') REALRANGE(.00000000001,.1) TEXT('GLS Tol.:') PRELINE('TOLG=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('%A34SIF(&IN1.EQ.1.OR.&FILE1.NE._NO_)%THEN^') PRESTRING('SPUNCHRES') POSTLINE('%A34SENDIF^')$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('^') POSTLINE('%A34SLET RA=NO^') $ FIELD TYPE=INFO PAGE=1 ROW=8 COL1=1 FIELDTYPE=INFO TEXT('Enter optional comment to identify regression on next line') $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=QSTRING TEXTID('Enter optional comment to identify regression') PRELINE('COMMENT=(') POSTLINE(')^') DEFAULT= ' ' OPTIONAL $ FIELD TYPE=INFO FIELDTYPE=VARLIST PAGE=1 ROW=10 COL1=1 COL2=25 FIELDHELP('Input up to eight variables for RA analysis.' 'If cross correlation analysis is desired, an' 'even number of series must be supplied.' 'For further detail on this option see Stokes (1991)' 'chapter 3 and the B34S on line help document') OPTIONAL textcolor(byellow) TEXT('-------- Variables for RA analysis:--------') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=11 COL1=1 COL2=1 FIELDHELP('Input up to eight variables for RA analysis.' 'If cross correlation analysis is desired, an' 'even number of series must be supplied.' 'For further detail on this option see Stokes (1991)' 'chapter 3 and the B34S on line help document') OPTIONAL TEXTID('Enter variables for RA analysis') PRELINE('%A34SLET RA=YES^' '%A34SIF(&RA.EQ.YES)%THEN^ ' 'RA VARS=(' ) DEFAULT= ' ' POSTLINE(')','%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=12 COL1=1 COL2=23 FIELDHELP('The field allows user to set type of analysis') TEXTID('Hit Fn6 key to see choices for differencing') TEXT('Type of analysis:') CHOICES('Residuals from out of core BLUS', 'OLS out of core residuals used', 'Both OUTBLUS and OLS residuals used' 'Calculate BLUS residuals for convex. test', 'Calculate BLUS residuals for het. test', 'Calculate BLUS residuals for parabola test', 'Calculates convex. het. and parabola BLUS test') CHOICECODE('OUTBLUS','OLS','ALL','CONVEX','HET', 'PARAB','ALLBLUS') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') PRESTRING('RESID=') DEFAULT=('ALLBLUS') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=12 COL1=41 COL2=63 OPTIONAL FIELDHELP('If number of lags not set, program defaults', 'to maximum of 60 and NOOBS/4. ') TEXTID('Sets the lags to use to calculate ACF and CCF.') INTRANGE(0,60) TEXT('Number of lags:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') PRESTRING('PERIOD=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=13 COL1=1 COL2=23 FIELDHELP('The field allows user to set differencing.') TEXTID('Hit Fn6 key to see choices for differencing') TEXT('Differencing options:') CHOICES('No differencing', 'Up to first differencing', 'Up to second differencing' 'Only first differencing' 'Only second differencing') CHOICECODE('0,','1','2','3','4') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') PRELINE('DIF=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=13 COL1=41 COL2=63 TEXTID('Hit space bar to graph residual against appropriate X ') TEXT('Residual * X plot:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','GRAPH') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=14 COL1=1 COL2=23 TEXTID('Hit space bar to turn off nonlinearity tests on OLS residuals') TEXT('OLS Nonlinearity test:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','NONONLIN') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=14 COL1=41 COL2=63 TEXTID('Hit space bar to list resorted residual vs first X variable') TEXT('One Residual List:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','LIST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=15 COL1=1 COL2=23 TEXTID('Hit space bar to list resorted residual vs all X variables') TEXT('All Residual Lists:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','LISTA') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=15 COL1=41 COL2=63 TEXTID('Hit space bar for autocorrelation analysis on OLS residuals') TEXT('ACF of OLS residuals:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','AUTO') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=16 COL1=1 COL2=23 FIELDHELP('Cross correlations of the residuals and the right hand' 'side variables will give an indication of the dynamic' 'specification of the model. Cross correlations were done' 'using the small sample formulas') TEXTID('Hit space bar for cross correlation analysis on OLS residuals') TEXT('Cross Correlations:') PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') POSTLINE('%A34SENDIF^') choicecode(' ','CROSS') DEFAULT=(' ') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=17 COL1=1 textcolor(byellow) TEXT('--------------------------------------------') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 PRELINE('%A34SIF(&RA.EQ.YES)%THEN^') PRESTRING('^') POSTLINE('%A34SENDIF^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=18 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=19 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=20 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=20 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ PGMCARDS$ /$# /$# %B34SIF(&IN1.EQ.1)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# SCAFNAME(RESIDUAL)$ /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# b34sexec matrix; /$# call getsca('_junk.fsv'); /$# call load(rtest2); /$# jj=dmin1(norows(residual)/4,24); /$# call rtest2(residual,y,jj); /$# b34srun; /$# %B34SENDIF $ /$# %B34SIF(&FILE1.NE._NO_)%THEN $ /$# b34sexec options open('_junk.fsv') unit=44; b34srun; /$# b34sexec options rewind(44); b34srun; /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# PRINT GPORT( /$# %B34SEVAL(&FILE) /$# ) /$# SCAFNAME(RESIDUAL) ; /$# PLOT(RESIDUAL) GPOSITION(1) /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# PLOT(Y YHAT) GPOSITION(2) /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# %B34SENDIF$ B34SRETURN$ B34SEEND$ == ==OLS_ROBUST OLS, L1 and Minimax Estimation B34SEXEC MAKEMENU COMMANDN('OLS Model Building') COMMANDH('Controls setting up a simple OLS, L! and Minimax Models. ' 'Diagnostic tests and nonlinearity tests can be requested. In' 'contrast to other B34S commands, variable names for right hand' 'side variables can be set as NAME, NAME{1} & NAME{1 to 20}') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("A34SEXEC OPTIONS OPEN('_JUNK.FSV') DISP=UNKNOWN UNIT(44)^", "A34SRUN", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", '%A34SLET IN1 = 0^ ' "%A34SLET IN11=0^", "%A34SLET FILE1=_NO_^", "%A34SLET FILE ='DUMMY.WPG'^", "%A34SLET FILE2='ROBUST.DMF'^", '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET white = 0 ^ ' '%A34SLET nol1 = 0 ^ ' '%A34SLET nomm = 0 ^ ' '%A34SLET fore = 0 ^ ' '%A34SLET nools = 0 ^ ' '%A34SLET mwindow = 0 ^ ' '%A34SLET member = RCOEF^', '%A34SLET recur = 0 ^ ' '%A34SLET recur2 = 0 ^ ' '%A34SLET fmt = 0 ^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET RESIDUALP = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET HINICH = 0 ^ ' /$PASS1 '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' OLS, L1 and Minimax Model Building') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=4 col1=2 choicecode('%A34SLET white=0^','%A34SLET white=1^') col2=24 fieldhelp('Use White or Robust SE in place of usual formula.') textid('Hit space bar to use White SE') text('White (1980) SE:') default=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1= 2 COL2=24 TEXTID('Hit space bar for high resolution plot of residuals') TEXT('High resolution plots:') choicecode('%A34SLET IN11=0^','%A34SLET IN11=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=2 COL2=24 LETNAME=FILE TEXTID('Enter file name to save high resolution plots') TEXT('Plot file name:') PRELINE('%A34SLET FILE1=YES^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=8 COL1=2 COL2=24 TEXTID('Hit space bar for Line printer plot of residuals') TEXT('Print/plot residuals:') choicecode('%A34SLET RESIDUALP=0^','%A34SLET RESIDUALP=1^') DEFAULT=(' ') $ FIELD TYPE=INFO PAGE=1 ROW=10 COL1=2 TEXTCOLOR=byellow TEXT('Right hand variables can be set as name{lag} & name{1 to 6}') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var3) FIELDTYPE=QVARLIST DEFAULT=' ' preline('%A34SLET IIN2=1^') COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') optional $ field type=input fieldtype=checkbox page=1 row=15 col1=2 choicecode('%A34SLET NOL1=0^','%A34SLET NOL1=1^') col2=24 fieldhelp('Turns off L1 estimation.') textid('Hit space bar to turn off L1 estimation') text('No L1 est: ') default=(' ') $ field type=input fieldtype=checkbox page=1 row=15 col1=42 choicecode('%A34SLET NOMM=0^','%A34SLET NOMM=1^') col2=64 fieldhelp('Turns off Minimax estimation.') textid('Hit space bar to turn off Minimax estimation') text('No Minimax est:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=16 col1=2 choicecode('%A34SLET NOOLS=0^','%A34SLET NOOLS=1^') col2=24 fieldhelp('Turns off OLS listing.') textid('Hit space bar to turn off OLS listing') text('NO OLS list: ') default=(' ') $ field type=input fieldtype=checkbox page=1 row=16 col1=42 choicecode('%A34SLET fore =0^','%A34SLET fore =1^') col2=64 fieldhelp('Turn on Forecasting.') textid('Hit space bar to turn on forecasting') text('Forecast: ') default=(' ') $ field type=input fieldtype=checkbox page=1 row=17 col1=2 choicecode('%A34SLET RECUR=0^','%A34SLET RECUR=1^') col2=24 fieldhelp('Turn on Recursive Estimation.') textid('Hit space bar to turn on recursive estimation') text('Recursive Est: ') default=(' ') $ field type=input fieldtype=checkbox page=1 row=17 col1=42 choicecode('%A34SLET fmt =0^','%A34SLET fmt =1^') col2=64 fieldhelp('Turn on Forecasting.') textid('Hit space bar to turn to save as unformatted') text('Unformatted: ') default=(' ') $ FIELD TYPE=INPUT FIELDTYPE=character PAGE=1 ROW=18 COL1=2 COL2=24 LETNAME=member TEXTID('Enter DMF member name save recursive output') TEXT('DMF Member Name:') DEFAULT=('RCOEF ') $ field type=input fieldtype=checkbox page=1 row=18 col1=42 choicecode('%A34SLET RECUR2=0^','%A34SLET RECUR2=1^') col2=64 fieldhelp('Suppress saving recursive results.') textid('Hit space bar to suppress recursive saving') text('No Recursive save: ') default=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=19 COL1=2 COL2=24 optional letname(file2) TEXTID('File name for Recursive Save.') TEXT('DMF file:') DEFAULT=('ROBUST.DMF ') limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=2 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# %b34sif(&recur.ne.0.and.&recur2.eq.0)%then $ /$# b34sexec options unit(60) /$# disp=unknown /$# %b34sif(&fmt.eq.0)%then $ /$# form = formatted /$# %b34sendif $ /$# %b34sif(&fmt.ne.0)%then $ /$# form = unformatted /$# %b34sendif $ /$# open(%b34seval(&file2)) $ /$# b34sexec options clean(60) $ /$# b34srun$ /$# %b34sendif $ /$# B34SEXEC ROBUST /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&fmt.eq.0)%THEN $ /$# FDMF /$# %B34SENDIF $ /$# %B34SIF(&fmt.ne.0)%THEN $ /$# DMF /$# %B34SENDIF $ /$# %b34sif(&recur.ne.0)%then $ /$# dmfmname(%b34seval(&member)) /$# savercoef /$# %b34sendif $ /$# %b34sif(&recur2.ne.0)%then $ /$# recursive print /$# %b34sendif $ /$# %B34SIF(&WHITE.NE.0)%THEN $ /$# WHITE /$# %B34SENDIF $ /$# %B34SIF(&RESIDUALP.NE.0)%THEN $ /$# RESIDUALP /$# %B34SENDIF $ /$# %B34SIF(&in11.NE.0)%THEN $ /$# SPUNCHRES /$# %B34SENDIF $ /$# %b34sif(&nol1.ne.0)%then $ /$# NOL1 /$# %b34sendif $ /$# %b34sif(&nomm.ne.0)%then $ /$# NOMM /$# %b34sendif $ /$# %b34sif(&nools.ne.0)%then $ /$# NOOLS /$# %b34sendif $ /$# %b34sif(&fore.ne.0)%then $ /$# FORECAST /$# %b34sendif $ /$# ; /$# bispec /$# %b34sif(&hinich.ne.0)%then $ /$# iturno iauto vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then $ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then $ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# ; /$# MODEL %b34seval(&var1) = /$# %b34seval(&var2) /$# %b34sif(&iin2.ne.0)%then $ /$# %b34seval(&var3) /$# %b34sendif $ /$# ; /$# B34SEEND ; /$ ******************************************* /$# %B34SIF(&IN11.EQ.1)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# SCAFNAME(RESIDUAL)$ /$# %b34sif(&nol1.ne.0.and.&nomm.ne.0)%then $ /$# PLOT(RESIDUAL) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.ne.0.and.&nomm.eq.0)%then $ /$# PLOT(RESIDUAL MMRES) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.ne.0)%then $ /$# PLOT(RESIDUAL L1RES) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.eq.0)%then $ /$# PLOT(RESIDUAL L1RES MMRES) GPOSITION(1) /$# %b34sendif $ /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# %b34sif(&nol1.ne.0.and.&nomm.ne.0)%then $ /$# PLOT(YHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.ne.0.and.&nomm.eq.0)%then $ /$# PLOT(YHAT MMYHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.ne.0)%then $ /$# PLOT(YHAT L1YHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.eq.0)%then $ /$# PLOT(YHAT L1YHAT MMYHAT Y) GPOSITION(2) /$# %b34sendif $ /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# %B34SENDIF $ /$# %B34SIF(&FILE1.NE._NO_)%THEN $ /$# B34SEXEC HRGRAPHICS GFORMAT(TWOGRAPH) SCAUNIT(44) /$# PRINT GPORT( /$# %B34SEVAL(&FILE) /$# ) /$# SCAFNAME(RESIDUAL) ; /$# %b34sif(&nol1.ne.0.and.&nomm.ne.0)%then $ /$# PLOT(RESIDUAL) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.ne.0.and.&nomm.eq.0)%then $ /$# PLOT(RESIDUAL MMRES) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.ne.0)%then $ /$# PLOT(RESIDUAL L1RES) GPOSITION(1) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.eq.0)%then $ /$# PLOT(RESIDUAL L1RES MMRES) GPOSITION(1) /$# %b34sendif $ /$# TITLE('Residuals') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# %b34sif(&nol1.ne.0.and.&nomm.ne.0)%then $ /$# PLOT(YHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.ne.0.and.&nomm.eq.0)%then $ /$# PLOT(YHAT MMYHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.ne.0)%then $ /$# PLOT(YHAT L1YHAT Y) GPOSITION(2) /$# %b34sendif $ /$# %b34sif(&nol1.eq.0.and.&nomm.eq.0)%then $ /$# PLOT(YHAT L1YHAT MMYHAT Y) GPOSITION(2) /$# %b34sendif $ /$# TITLE('Fitted and actual values') HTITLE(1.5,1.5) /$# axisheight(1.,1.) ; /$# B34SRUN ; /$# %B34SENDIF$ B34SRETURN $ B34SEEND $ == ==OLS_RR Recursive Residual analysis B34SEXEC MAKEMENU COMMANDN('Recursive Residual Command') COMMANDH('See help command for futher detail on RR command.', 'If high resoluation graphics are selected, data is', 'work SCA FSAVE file _JUNK.FSV. ', 'The file _JUNK.FSV will automatically be reused. ', ' ', 'Only a small part of the capability of the RR command ', 'is being inplemented. To select more options, save the ' , 'menu generated command file to the buffer and edit in ', 'custom changes.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Recursive Residual analysis of OLS Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE("A34SEXEC OPTIONS OPEN('_JUNK.FSV') DISP=UNKNOWN UNIT(44)^") POSTLINE("A34SRUN")$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE("A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^") POSTLINE("%A34SLET IN1=0^")$ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC RR ')$ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 OPTIONAL FIELDHELP('The data is sorted against the first NTEST right', 'hand side variables. ') TEXTID('Sets the number of variables to use for sorts.') INTRANGE(1,999999999) TEXT('Number of sorts:') PRELINE('NTEST=') DEFAULT='1 ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=5 COL1=41 COL2=63 FIELDHELP('This field provides various SORT options') TEXTID('Hit Fn6 key to see choices for SORT options') TEXT('SORT Opts: ') CHOICES('Use original data ordering', 'Sorts data against each variable on NTEST', 'Reverse sorts the data against original ordering') CHOICECODE(' ','SORTF','SORTB') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL FIELDHELP('The usual setting is 1. For further detail see ', 'Stokes (1991) ') TEXTID('Sets maximum order for RR.') INTRANGE(1,99) TEXT('Max order RR:') PRELINE('IRB=') DEFAULT=' 1' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=6 COL1=41 COL2=63 OPTIONAL TEXTID('Hit space bar for printer plot of recursive residual.') TEXT('RR Plot:') choicecode(' ','IRRPT=PLOTO') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=1 COL2=23 FIELDHELP('The field provides various RR listing and saving', 'options. Options usually selected include listing', 'and saving to the SCA FSAVE file. This file can ', 'be read back into B34S for high resolution graphs') TEXTID('Hit Fn6 key to see choices for RR listing') TEXT('RR listing and saving:') CHOICES('List Recursive Residuals', 'List Recursive Residuals and punch on unit 37', 'List Recursive Residuals and save in SCA file RRES', 'Save Recursive Residuals in SCA FSAVE file _JUNK.FSV') CHOICECODE('LIST','LISTPE','LISTPA','SCAP') PRELINE('IRRLS=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=41 COL2=63 optional TEXTID('Hit space bar for line printer plot of recursive coef.') TEXT('RR Coef. Plot:') choicecode(' ','IBCPT=PLOTO') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('The field provides various RR coefficient listing and', 'saving options. Options usually selected include listing', 'and saving to the SCA FSAVE file. This file can ', 'be read back into B34S for high resolution graphs') TEXTID('Hit Fn6 key to see choices for RR coeffienent listing') TEXT('RR Coef. list: ') CHOICES('List Recursive Coefficients', 'List and save in SCA format recursive coefficients ', 'List recursive & standardized recursive coef.', 'List & save recursive & standardized recursive coef.', 'List standardized coefficients', 'Save recursive coeficients in SCA file RCOEF', 'Save standardized recursive coeficients in SCA file RSCOEF', 'Save both sets of recursive coefficients in SCA file') CHOICECODE('LIST','LISTP','LISTBSB','LISTPBSB','LISTB','SCAP', 'SCASBP','SCABBP') PRELINE('IBCLS=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=41 COL2=63 FIELDHELP('The field provides various Cusum test listing, plotting', 'saving options. Options usually selected include plotting', 'and saving to the SCA FSAVE file. This file can ', 'be read back into B34S for high resolution graphs.') TEXTID('Hit Fn6 key to see choices for Cusum test') TEXT('Cusum test:') CHOICES('Line printer plot against order', 'Line printer plot against X variable', 'Line printer plot against order, list and save', 'Line printer plot against order, list', 'Line printer plot against X and list', 'Line printer plot against X, list and save', 'Line printer plot against order and save', 'Line printer plot against X, list and save') CHOICECODE('PLOTO','PLOTX','PLOTOLS','PLOTOL','PLOTXL','PLOTXLS', 'PLOTOS','PLOTXS') PRELINE('ICUM=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=1 COL2=23 FIELDHELP('The field provides options for setting the', 'significance bounds on the CUSUM plot.') TEXTID('Hit Fn6 key to see choices for significance') TEXT('CUSUM significance:') CHOICES('Significance set as 10%', 'Significance set as 5%', 'Significance set as 1%') CHOICECODE('CUSUM10','CUSUM5','CUSUM1') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=41 COL2=63 FIELDHELP('The field provides various Cusumsq test listing, plotting', '& saving options. Options usually selected include plotting', 'and saving to the SCA FSAVE file. This file can ', 'be read back into B34S for high resolution graphs.') TEXTID('Hit Fn6 key to see choices for Cusum test') TEXT('Cusumsq test:') CHOICES('Line printer plot against order', 'Line printer plot against X variable', 'Line printer plot against order, list and save', 'Line printer plot against order, list', 'Line printer plot against X and list', 'Line printer plot against X, list and save', 'Line printer plot against order and save', 'Line printer plot against X, list and save') CHOICECODE('PLOTO','PLOTX','PLOTOLS','PLOTOL','PLOTXL','PLOTXLS', 'PLOTOS','PLOTXS') PRELINE('ICUMSQ=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=10 COL1=1 COL2=23 FIELDHELP('This field provides various RR Quandt test options') TEXTID('Hit Fn6 key to see choices for RR Quandt test') TEXT('Quandt test:') CHOICES('Plot Quandt Log-Likelihood Ratio Test', 'List Quandt Log-Likelihood Ratio Test', 'List & plot Quandt Log-Likelihood Ratio Test', 'List plot and save Quandt Log-Likelihood Ratio Test', 'Plot and save Quandt Log-Likelihood Ratio Test',) CHOICECODE('PLOT','LIST','PLIST','PPLIST','SCAP') PRELINE('IQUANT=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=10 COL1=41 COL2=63 OPTIONAL FIELDHELP('Sets maximum order of ACF of Recursive Residual.', 'Small sample formulas hav been used. ') TEXTID('Sets maximum order for ACF of RR') INTRANGE(0,60) TEXT('Max order ACF RR:') PRELINE('IMOVE=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=11 COL1=1 COL2=23 FIELDHELP('The field provides various RR Chow test options') TEXTID('Hit Fn6 key to see choices for RR Chow test') TEXT('Chow test:') CHOICES('Perform Chow test', 'Perform Chow test and print OLS subsamples', 'Print OLS subsamples but do not do Chow test',) CHOICECODE('CAL','CALPRINT','PRINT') PRELINE('ICHOW=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=11 COL1=41 COL2=63 OPTIONAL TEXTID('Sets number of observations for Chow test.') INTRANGE(0,9999999) TEXT('Chow # obs:') PRELINE('IOBSCH=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=12 COL1=1 COL2=23 FIELDHELP('This field provides various moving regression options.', 'If punching is selected, statistics are placed on unit', '44 in SCA FSAVE filesorm # observations in regression,', '44 in SCA FSAVE files MCOEF and MVALUE. Data saved are', 'NOOBSREG NOBBEGIN, coef 1-K, M1, M2, M, M3 RSUMSQ.', 'NOOBSREG = # of observations in regression', 'NOBBEGIN = # of observation regression begins in', 'M1 = first step ahead. M2 = first step behind. ', 'M = M1 + M2 while standardizes over a range for all ', 'sets of moving regressions.') TEXTID('Hit Fn6 key to see choices for moving regression') TEXT('Moving Regression:') CHOICES('M1, M2, M3 and M are calculated and listed', 'M1, M2, M3, M and moving coefficients are listed', 'M1, M2, M3, M and moving coefficients are punched', 'M1, M2, M3, M and moving coefficients are listed & punched', 'Saves paper. Test statistics listed after each set only') CHOICECODE('MTEST','LIST','PUNCH','LPUNCH','SOUTPUT') PRELINE('IMORR=') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=12 COL1=41 COL2=63 OPTIONAL TEXTID('Sets number of observations to increment moving reg.') INTRANGE(1,9999999) TEXT('# obs incr. Move Reg:') PRELINE('incr=') DEFAULT=' 1' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=13 COL1= 1 COL2=23 OPTIONAL TEXTID('Sets number of observations to begin moving regression.') INTRANGE(1,9999999) TEXT('# obs begin Move Reg:') PRELINE('NBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=13 COL1=41 COL2=63 OPTIONAL TEXTID('Sets number of observations to end moving regression.') INTRANGE(1,9999999) TEXT('# obs end Move Reg:') PRELINE('MMRNOB=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=14 COL1=1 COL2=23 TEXTID('Hit space bar to suppress the intercept of model') TEXT('Force no intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=14 COL1=41 COL2=63 TEXTID('Hit space bar to use White (1980) SE calculation') TEXT('White (1980) SE:') choicecode(' ','ACOV') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=14 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=15 COL1=1 COL2=23 TEXTID('Hit space bar for Hinich (1982) Nonlinearity test') TEXT(' Nonlinearity Test:') choicecode(' ','BISPEC ITURNO IAUTO VHTEST ^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=16 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=17 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=18 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=19 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=20 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ B34SEEND$ == ==PISPLINE Pispline Model Building B34SEXEC MAKEMENU COMMANDN('PISPLINE Model Building') COMMANDH('Controls setting up a PISPLINE Model. Optionally model ', 'diagnostic files can be produced & nonlinearity tests can', 'be requested. If outputfiles are requested the default' 'output file name is _PISP.FSV. ') tabhelpposition(20) tlabels('Basic Settings','Advanced Dignoistic Tests') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' '%A34SLET ismoo = 0^' '%A34SLET BDSorder = 0 ^ ' '%A34SLET BDSEPS = 1.0^ ' '%A34SLET TSAYorder = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Pispline Model Building') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ field type=input fieldtype=dqstring page=1 row=5 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=6 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Save PISPLINE Curve and Surface estimates') textid('Hit space bar to save PISPLINE Curve and Surface') text('Save Surface:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=6 col1=42 choicecode('%A34SLET iressave=0^','%A34SLET IRESSAVE=1^') col2=64 fieldhelp('Save PISPLINE Residuals in a file') textid('Hit space bar to save PISPLINE residuals in a file') text('Save Resid.:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=42 LETNAME(KMT) FIELDTYPE=INTEGER DEFAULT='7 ' COL2=64 TEXTID='Upper bound on number of knots to fit' INTRANGE(2,99) TEXT('Upper # Knots:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(MNFIT) FIELDTYPE=INTEGER DEFAULT='3 ' INTRANGE(2,999) COL2=24 TEXTID='Maximum number of products to fit' TEXT('Max # Prod:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=42 LETNAME(NG) FIELDTYPE=INTEGER DEFAULT='50 ' fieldhelp('Sets number of equispaced values at which the' 'unidimensional fits are evaluated. A larger value' 'means a better fit.') COL2=64 TEXTID='Number of points to evaluate fits (NG)' INTRANGE(20,1000) TEXT('# E. Points:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Center Value:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(JRDF) FIELDTYPE=INTEGER DEFAULT='-1 ' INTRANGE(-10,999) COL2=24 TEXTID='Lower limit of Degrees of Freedom' TEXT('Min DF:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=42 LETNAME(TH) FIELDTYPE=REAL DEFAULT='.02 ' fieldhelp('Sets convergence criterion. A smaller value leads' 'to more iterations.') COL2=64 TEXTID='Sets convergence (TH) criterion' REALRANGE(0.0,1.0e+32) TEXT('Convergence:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(EDTH) FIELDTYPE=REAL DEFAULT='.1 ' fieldhelp('Sets multiple knot deletion criterion.' 'A smaller value => less likely multiple knots' 'will be deleted in one pass.') COL2=24 TEXTID='Sets multiple knot deletion criterion' REALRANGE(0.0,1.0) TEXT('EDTH:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(CPTH) FIELDTYPE=REAL DEFAULT='0.0 ' fieldhelp('Controls model complexity. A larger value causes' 'more deleted models to be selected.') COL2=64 TEXTID='Set larger for more deleted models' REALRANGE(0.0,10.) TEXT('CPTH:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(RADD) FIELDTYPE=REAL DEFAULT='1.0 ' fieldhelp('Set larger to favor models with fewer products') COL2=24 TEXTID='Larger values favor selection of fewer products' REALRANGE(0.0,1.0e+32) TEXT('RADD:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=13 col1=2 choicecode('%A34SLET ires=0^','%A34SLET IRES=1^') col2=24 fieldhelp('List PISPLINE Residuals in output file.') textid('Hit space bar to list PISPLINE Y, Yhat and residual') text('List Residuals:') default=(' ') optional $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(var3) FIELDTYPE=QVARLIST DEFAULT=' ' preline('%A34SLET IIN2=1^') COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') optional limitf(1) $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Diagnostic and Specification Tests') TEXTID(' ')$ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET HINICH=0^','%A34SLET HINICH=1^') col2=24 fieldhelp('Turns on Hinich residual testing options.') textid('Hit space bar to perform Hinich Non-linearity tests') text('Hinich t.:') default=(' ') $ field type=input fieldtype=checkbox page=1 row=5 col1=42 choicecode('%A34SLET ismoo =0^','%A34SLET ismoo =1^') col2=64 fieldhelp('Smooth estimated spectrum with cosine bell') textid('Hit space bar to smooth spectrum') text('Smooth:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(DFTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set Order of Dickey-Fuller Test' INTRANGE(0,999999999) TEXT('D-F Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(PPTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of Phillips-Perrone test' INTRANGE(0,999999999) TEXT('P-P Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(LMTEST) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Engle Lagrangian Multiplier test' INTRANGE(0,999999999) TEXT('L-M Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(tsayorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of Tsay Test' INTRANGE(0,30) TEXT('Tsay Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=2 LETNAME(bdsorder) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of BDS Test' INTRANGE(0,999) TEXT('BDS Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=42 LETNAME(BDSEPS) FIELDTYPE=real DEFAULT='1.0' COL2=64 TEXTID='Set Eps for BDS test of Residuals' REALRANGE(.1,4.) TEXT('Eps for BDS:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF of Residuals' INTRANGE(0,999) TEXT('ACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(PACF) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF of Residuals' INTRANGE(0,999) TEXT('PACF Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Set order of ACF for ARCH Test on Squared Residuals' INTRANGE(0,999) TEXT('ACF ARCH Test:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(PACFVARSQ) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Set order of PACF for ARCH test on Squared Residuals' INTRANGE(0,999) TEXT('PACF ARCH Test:') OPTIONAL limitf(2) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# %b34sif(&igraph.ne.0.or.&iressave .ne.0)%then$ /$# b34sexec options open(%b34seval(&dsn)) unit(44) /$# disp=unknown$ b34seend$ /$# b34sexec options clean(44) $ b34seend$ /$# %b34sendif $ /$# B34SEXEC PISPLINE /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&IRESSAVE.NE.0)%THEN $ /$# SPUNCHRES /$# %B34SENDIF $ /$# %B34SIF(&IGRAPH.NE.0)%THEN $ /$# OUTPUTXG OUTPUTYG /$# %B34SENDIF $ /$# %B34SIF(&IRES.NE.0)%THEN $ /$# IRES /$# %B34SENDIF $ /$# %B34SIF(&ICENTER.NE.0)%THEN $ /$# CENTER=%b34seval(¢er) /$# %B34SENDIF $ /$# KMB = %b34seval(&kmb) /$# KMT = %b34seval(&kmt) /$# JRDF = %b34seval(&jrdf) /$# TH = %b34seval(&th) /$# EDTH = %b34seval(&edth) /$# CPTH = %b34seval(&cpth) /$# RADD = %b34seval(&radd) /$# ICUNIT=44 ISUNIT=44 /$# $ /$# bispec /$# %b34sif(&hinich.ne.0)%then ; /$# iauto iturno vhtest /$# %b34sendif $ /$PASS2 /$# %b34sif(&bdsorder.ne.0)%then $ /$# bds bdsorder=%b34seval(&bdsorder) /$# bdseps =%b34seval(&bdseps ) /$# %b34sendif $ /$# %b34sif(&tsayorder.ne.0)%then $ /$# tsay tsayorder=%b34seval(&tsayorder) /$# %b34sendif $ /$# %b34sif(&ismoo.ne.0)%then ; /$# ismoo /$# %b34sendif $ /$PASS2 /$# %b34sif(&DFTEST.ne.0)%then$ /$# DF ADF(%b34seval(&DFTEST)) ADFT(%b34seval(&DFTEST)) /$# %b34sendif $ /$# %b34sif(&PPTEST.ne.0)%then$ /$# PP APP(%b34seval(&PPTEST)) APPT(%b34seval(&PPTEST)) /$# %b34sendif $ /$# %b34sif(&LMTEST.ne.0)%then$ /$# LM(%b34seval(&LMTEST)) /$# %b34sendif $ /$# %b34sif(&ACF.ne.0)%then $ /$# ACF(%b34seval(&ACF)) /$# %b34sendif $ /$# %b34sif(&PACF.ne.0)%then $ /$# PACF(%b34seval(&PACF)) /$# %b34sendif $ /$# %b34sif(&ACFVARSQ.ne.0)%then $ /$# ACFVARSQ(%b34seval(&ACFVARSQ)) /$# %b34sendif $ /$# %b34sif(&PACFVARSQ.ne.0)%then $ /$# PACFVARSQ(%b34seval(&PACFVARSQ)) /$# %b34sendif $ /$# $ /$# MODEL %b34seval(&var1) = /$# %b34seval(&var2) /$# %b34sif(&iin2.ne.0)%then $ /$# %b34seval(&var3) /$# %b34sendif $ /$# $ /$# b34srun $ /$# %b34sif(&igraph.ne.0.or.&iressave .ne.0)%then$ /$# b34sexec options close(44) $ b34srun$ /$# %b34sendif $ B34SRETURN$ B34SEEND$ == ==POLYDIVIDE Division of ARIMA polynomials %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Division of Polynomials') COMMANDH('See help command for POLYSOLV for further detail.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT(' Division of Polynomials') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=23 PRELINE('A34SEXEC POLYSOLV$ POLYDIVIDE') $ box position(2,5,76,11) $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 OPTIONAL INTRANGE(1,999999999) TEXTID('Number of terms for answer.') TEXT('Number of terms:') PRELINE('NTERMS=') DEFAULT='12 ' $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 COL2=23 TEXT('Enter numerator polynomial - lower order terms first') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=7 COL1=1 COL2=1 REQUIRED TEXTID('Enter polynomial, lower order terms first') PRELINE('TOP(') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=1 OPTIONAL TEXTID('Enter polynomial, lower order terms first') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE(')') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=23 TEXT('Enter denominator polynomial - lower order terms first') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=1 REQUIRED TEXTID('Enter polynomial, lower order terms first') PRELINE('BOT(') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=1 OPTIONAL TEXTID('Enter polynomial, lower order terms first') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 PRELINE(') ^', 'A34SRUN^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP B34SRUN$ == ==PROBIT Probit Model B34SEXEC MAKEMENU COMMANDN('Probit Model') COMMANDH('See help command for futher detail on PROBIT command.', 'Not all options have been implemented. For ordered', 'probit see MPROBIT command.' )$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Probit Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('%A34SLET MEANS=0^', 'A34SEXEC PROBIT')$ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=1 COL2=23 TEXTID('Hit space bar for output of second derivatives') TEXT('Second derivatives:') choicecode(' ','ISECD') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=4 COL1=41 COL2=63 TEXTID('Hit space bar for Log likelihood after each iteration') TEXT('Log Likelihood:') choicecode(' ','IITLK') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar for estimates after each iteration') TEXT('Estimates at iter:') choicecode(' ','IIEST') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=41 COL2=63 TEXTID('Hit space bar if want model with no intercept') TEXT('No intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=6 COL1=1 COL2=23 OPTIONAL TEXTID('Specify optional equation number') INTRANGE(1,99) TEXT('Equation number:') PRELINE('NEQ=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=7 COL1=1 COL2=23 OPTIONAL TEXTID('Begin observation number of residual list') INTRANGE(1,999999999) TEXT('Observation #:') PRELINE('NSTRT=') DEFAULT='1 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=7 COL1=41 COL2=63 OPTIONAL TEXTID('Ending observation number of residual list') INTRANGE(1,999999999) TEXT('Observation #:') PRELINE('NSTOP=') DEFAULT='5 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=8 COL1=1 COL2=23 OPTIONAL TEXTID('Convergence tolerence') REALRANGE(.000000000001,.9) TEXT('Convergence Tol.:') PRELINE('TOLA=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=9 COL1=1 COL2=23 FIELDHELP('The PROBIT allows the user to input values for' 'which to evaluate the model. These are set as' 'NAME1( val1 val2 valk) NAME2(val1 val2 valk).' 'If is imperative that exactly the specified number' 'are supplied. If this field is set, values must' 'be supplied below. If any variable name is supplied,' 'the specified number of values MUST be supplied.') OPTIONAL TEXTID('Number of values for MEANS sentence') INTRANGE(1,20) TEXT('# of Mean values:') PRELINE('NADJ=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=11 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=12 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=13 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=13 COL1=1 COL2=22 OPTIONAL POSTLINE('^ ')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 COL2=1 OPTIONAL TEXT('MEANS values supplied below if # Mean values set') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=16 COL1=1 COL2=1 FIELDHELP('Means values set NAME( R1 R2) where R1 and R2 are' 'real numbers') OPTIONAL PRELINE('%A34SLET MEANS=1^', 'MEANS ') TEXTID('Specify MEANS values IF # of MEANS set above') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=17 COL1=1 COL2=1 FIELDHELP('Means values set NAME( R1 R2) where R1 and R2 are' 'real numbers') OPTIONAL TEXTID('Specify MEANS values IF # of MEANS set above') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=17 COL1=1 COL2=22 OPTIONAL POSTLINE('%A34SIF(&MEANS.EQ.1)%THEN^', '^ ' '%A34SENDIF^ ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=19 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=19 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^') $ B34SEEND$ == ==PSV_LIST LIST PSV file from MATRIX B34S %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('List Data in a PSV file') COMMANDH('See help command for further detail on B34S data loading.', 'This menu assumes user has a file built with MATRIX or ' 'SPEAKEASY to load into B34S.'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXTCOLOR=byellow TEXT(' List data from a PSV file ') $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=6 COL1=1 COL2=23 REQUIRED TEXTID('File name for *.PSV file to list. Fn 6 for menu.') TEXT('PSV file:') PRELINE('A34SEXEC matrix^ call restore(:file ') DEFAULT=(' ') POSTLINE(')^ call names(all)^ b34srun^' ) $ box position(2,5,66,6) $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(1) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP B34SRUN$ == ==PSV_LOAD Load PSV file from MATRIX into B34S %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet nomiss = 0; B34SEXEC MAKEMENU COMMANDN('Load Data into B34S from file') COMMANDH('See help command for further detail on B34S data loading.', 'This menu assumes user has a file built with MATRIX or ' 'SPEAKEASY to load into a B34S file.'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from a PSV file ') TEXTCOLOR=byellow $ box position(2,4,74,13) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=5 COL1=1 COL2=23 REQUIRED TEXTID('File name for *.PSV file to load. Fn 6 for menu.') TEXT('PSV file name:') DEFAULT=(' ') PRELINE('%A34SLET var = _null_^ ' 'A34SEXEC matrix^ call restore(:file ') DEFAULT=(' ') POSTLINE(')^ ' ) $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=7 COL1=1 COL2=18 required LETNAME(var) TEXTID('Give names for variables to load from file') TEXT('Input variables:') DEFAULT= ' ' $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=8 COL1=1 COL2=23 TEXTID('Hit space bar to remove missing data prior to load.') TEXT('Drop Missing Data:') choicecode('%A34SLET nomiss=0^', '%A34SLET nomiss=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=11 COL1=1 COL2=23 REQUIRED LETNAME(file) TEXTID('File name to use for data. Use form ____.b34') TEXT('B34S Data file:') DEFAULT=('_matdata.b34 ') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=13 COL1=1 COL2=1 OPTIONAL TEXTCOLOR=byellow TEXT('Note: Use LISTPSV menu command to see names in _.psv file.') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# call makedata( /$# %b34seval(&var) /$# :file %b34seval(&file)); b34srun; /$# b34sexec options include( /$# %b34seval(&file) /$# ); b34srun; /$# %b34sif(&nomiss.ne.0)%then; /$# b34sexec data set dropmiss; b34srun; /$# %b34sendif; b34sreturn$ B34SRUN$ == ==RATS_GET Loads A Rats Portable file into B34S %B34SLET ibatch = %b34sget(ib34sg,ibatch,1) $ B34SEXEC MAKEMENU COMMANDN('Load a RATS portable file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Select Rats portable file to load') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET idvar=_NULL_^')$ FIELD TYPE=INFO PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File of the form ______.por') $ FIELD TYPE=INFO PAGE=1 ROW=6 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('BROWSERATS can be used to check contents of a *.por file.') $ box position(2,8,66,5) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED TEXTID('File name to Load. Fn 6 for menu.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=45') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 TEXTID('Hit space bar to keep missing observations.') TEXT('keep missing:') choicecode('%A34SLET it=0^', '%A34SLET it=1^') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('^ A34SRUN^')$ pgmcards$ /$# b34sexec scainput $ getrats ratsunit=45 /$# %b34sif(&it.eq.1)%then $ /$# keepmiss /$# %b34sendif $ /$# $ /$# b34srun$ /$# b34sexec options close(45)$ b34srun$ b34sreturn$ b34srun$ == ==RATS_BROWSE Browse A Rats Portable file %B34SLET ibatch = %b34sget(ib34sg,ibatch,1) $ B34SEXEC MAKEMENU COMMANDN('Browse a rats portable file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Select Rats portable file to Browse') $ FIELD TYPE=INFO PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File of the form ______.por') $ FIELD TYPE=INFO PAGE=1 ROW=5 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('GETRATS can be used to load *.por file.') $ box position(2,7,66,6) $ FIELD TYPE=INPUT FIELDTYPE=EFILE PAGE=1 ROW=7 COL1=1 COL2=23 REQUIRED TEXTID('File name to Browse. Fn 6 for menu.') TEXT('Rats file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=OLD READONLY UNIT=45') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=9 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=9 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('^ A34SRUN^')$ pgmcards$ /$# b34sexec scainput $ getrats ratsunit=45 browse $ /$# b34srun$ b34sreturn$ b34srun$ == ==RATS_MAKE Makes a Rats Portable file from B34S Data %B34SLET ibatch = %b34sget(ib34sg,ibatch,1) $ B34SEXEC MAKEMENU COMMANDN('Make a RATS portable file') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Select Rats portable file name') $ FIELD TYPE=INFO PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('File of the form ______.por') $ FIELD TYPE=INFO PAGE=1 ROW=6 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('BROWSERATS can be used to check contents of a *.por file.') $ box position(2,8,66,3) $ FIELD TYPE=INPUT FIELDTYPE=qstring PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED TEXTID('File name to make.') TEXT('Data file:') PRELINE('A34SEXEC OPTIONS OPEN(') DEFAULT=(' ') POSTLINE(') DISP=unknown UNIT=45') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('^ A34SRUN^')$ pgmcards$ /$# b34sexec options clean(45); b34srun; /$# b34sexec scainput $ makerats ratsunit=45 /$# comment=('Data from B34S') /$# disp=rewind$ /$# b34srun$ /$# b34sexec options close(45)$ b34srun$ b34sreturn$ b34srun$ == ==RUN_ADOBE Runs Adobe /$ /$ This file will have to be changed if the adobe.bat is not /$ at in the path /$ b34sexec options dodos('adobe'); b34srun; == ==SCA_WRITE Loads Current Data in SCA /$ /$ This job assumes user has already loaded data in B34S /$ %b34slet file1="'scadata.mad'"$ /$ %b34slet file2="DATA"$ /$ /$ Use B34S menu command COPYOUT to list this file in b34s /$ %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Load Data From B34S to a SCA File') COMMANDH('See help command for further detail on B34S data loading.', 'This menu assumes user has SCA on system'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from B34S to Sca ') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL textcolor=byellow TEXT('Data has to be loaded in b34s to run this command.') $ box position(2,5,74,10) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=12 REQUIRED letname=(file1) TEXTID('File name to use for data.') TEXT('Data file:') DEFAULT=( 'scadata.mad ') $ FIELD TYPE=INPUT FIELDTYPE=QSTRING PAGE=1 ROW=8 COL1=1 COL2=12 REQUIRED letname=(file2) TEXTID('Dataset Name ') TEXT('DATASET') DEFAULT=('DATA ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar to add at end of file.') TEXT('Add at end of file:') choicecode('%A34SLET add=0^', '%A34SLET add=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec scaio writesca file(%b34seval(&file1)) /$# dataset(%b34seval(&file2)) /$# %b34sif(&add.ne.0)%then$ /$# add /$# %b34sendif$ /$# %b34sif(&add.eq.0)%then$ /$# rewind /$# %b34sendif$ /$# $ /$# b34srun$ b34sreturn; B34SRUN$ == ==SCA_READ Loads SCA DATA File into B34S /$ /$ %b34slet file1="'scadata.mad'"$ /$ %b34slet file2="data"$ /$ /$ Use B34S menu command COPYOUT to list this file in b34s /$ %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Load Data From SCA MAD file to B34S') COMMANDH('See help command for further detail on B34S data loading.', 'This menu assumes user has SCA on system'); FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Load data from SCA to B34S') TEXTCOLOR=byellow $ box position(2,5,74,10) $ FIELD TYPE=INPUT FIELDTYPE=qefile PAGE=1 ROW=6 COL1=1 COL2=12 REQUIRED letname=(file1) TEXTID('SCA file name to use for data. F6 to get file list') TEXT('Data file:') DEFAULT=( 'scadata.mad ') $ FIELD TYPE=INPUT FIELDTYPE=QSTRING PAGE=1 ROW=8 COL1=1 COL2=12 REQUIRED letname=(file2) TEXTID('Dataset name') TEXT('Dateset:') DEFAULT=('DATA ') $ FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec scaio readsca file(%b34seval(&file1)) /$# dataset(%b34seval(&file2)) $ /$# b34srun$ b34sreturn; B34SRUN$ == ==SET_COLS Sets Linesize and Digits for Output B34SEXEC MAKEMENU COMMANDN('Sets Print and Digits options') COMMANDH('See help command options LINESIZE and SIGD') FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Set Linesize and Print Digits options') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET linesize = 132 ^' '%A34SLET sigd = 8 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('The usual setting is linesize132 sigd=8.') TEXTCOLOR=byellow $ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(4) TEXT('Set Editor:') choicecode('col80' , 'col132'), DEFAULT= ('col132') prestring('%A34SLET linesize = ') poststring('^') $ FIELD TYPE=INPUT FIELDTYPE= cycling PAGE=1 ROW=11 COL1=1 COL2=23 TEXTID('Use spacebar or Fn2 to set maximum width of B34S Output') TEXT('# Of Digits (1-10):') FIELDHELP('Sets default width of B34S Data editor') prestring('%A34SLET sigd = ') poststring('^') DEFAULT=('08') choicecode('01','02','03','04','05','06',' 7','08','09','10') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options /$# %b34sif(&linesize.eq.col132)%then$ /$# linesize(132) /$# %b34sendif $ /$# %b34sif(&linesize.eq.col80)%then$ /$# linesize(80) /$# %b34sendif $ /$# sigd(%b34seval(&sigd)) $ /$# b34srun$ b34sreturn$ b34srun$ == ==SET_DATE Sets Date and Frequency %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Set ID Variable') COMMANDH('See help command for futher detail on Frequency of Data.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Sets Frequency and Start date.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET freq=12^', '%A34SLET day=1^', '%A34SLET month=1^', '%A34SLET year=1960^')$ box position(2,7,72,8) $ FIELD TYPE=INFO FIELDTYPE=integer PAGE=1 ROW=7 COL1=1 COL2=23 REQUIRED Default='12 ' letname(freq) TEXTID('Set frequency. Zero turns off dates') TEXT('Frequency:') $ FIELD TYPE=INFO FIELDTYPE=integer PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED Default=' 1' intrange(1,31) letname(day) TEXTID('Set day.') TEXT('Day:') $ FIELD TYPE=INFO FIELDTYPE=integer PAGE=1 ROW=9 COL1=1 COL2=23 REQUIRED Default=' 1' intrange(1,12) letname(month) TEXTID('Set month.') TEXT('Month:') $ FIELD TYPE=INFO FIELDTYPE=integer PAGE=1 ROW=10 COL1=1 COL2=23 REQUIRED Default='1960 ' intrange(0,3000) letname(year) TEXTID('Set year.') TEXT('Year:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=11 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=11 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec options /$# setfreq=%b34seval(&freq) setdmy( /$# %b34seval(&day) %b34seval(&month) %b34seval(&year) )$ /$# b34srun$ b34sreturn$ b34srun$ == ==SET_DUMP Lists current B34S Settings /$ Settings usually set in autoexec.b34 file B34SEXEC MAKEMENU COMMANDN('Obtain Listing of b34s internal settings') COMMANDH('See help command for futher detail on MATRIX option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Look in *.out file for listing of Internal B34S settings.') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('B34S run time settings supplied in autoexec.b34.') TEXTCOLOR=byellow $ box position(2,12,78,4) $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW= 12 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW= 12 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options dumpset; b34srun; b34sreturn; b34srun; == ==SET_EDITOR Sets Kedit / KeditW / Edit and Data editor %b34slet batch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Sets Kedit - Keditw under windows 95/NT') COMMANDH('See help command for further detail on B34S Editors.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Set Editor options') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET kedit = 0 ^' '%A34SLET edit = 12 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('The usual setting for editor is KEDIT.') TEXTCOLOR=byellow $ /$ Non Windows 95 path %b34sif(&batch.eq.4)%then$ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(4) TEXT('Set Editor:') choicecode('kedit' , 'keditw', 'notepad' 'wordpad') DEFAULT= (' ') prestring('%A34SLET kedit = ') poststring('^') $ %b34sendif$ /$ SUN & RS/6000 %b34sif(&batch.eq.6.or.&batch.eq.7)%then$ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(4) TEXT('Set Editor:') choicecode('pico ', 'vi ', 'emacs ', 'x ') DEFAULT= (' ') prestring('%A34SLET kedit = ') poststring('^') $ %b34sendif$ /$ Linux %b34sif(&batch.eq.9)%then$ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(4) TEXT('Set Editor:') choicecode('pico ', 'vi ', 'emacs ', 'gnp ') DEFAULT= (' ') prestring('%A34SLET kedit = ') poststring('^') $ %b34sendif$ /$ Windows 95 path %b34sif(&batch.eq.5)%then$ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar to select choice.') intrange(3) TEXT('Set Editor:') choicecode('kedit' , 'keditw', 'edit ') DEFAULT= (' ') prestring('%A34SLET kedit = ') poststring('^') $ %b34sendif$ FIELD TYPE=INPUT FIELDTYPE= cycling PAGE=1 ROW=12 COL1=1 COL2=23 TEXTID('Use spacebar or Fn2 to set maximum width of B34S Data editor') TEXT('Data Editor width:') FIELDHELP('Sets default width of B34S Data editor') prestring('%A34SLET edit = ') poststring('^') DEFAULT=('12') choicecode('12','13','14','15','16','17','18', '19','20','21','22','23','24') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %b34sif(&kedit.eq.kedit)%then$ /$# b34sexec options editor('KEDIT') $ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.x)%then$ /$# b34sexec options editor('x ') $ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.keditw)%then$ /$# b34sexec options editor('KEDITW')$ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.edit)%then$ /$# b34sexec options editor('EDIT') $ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.notepad)%then$ /$# b34sexec options editor('NOTEPAD')$ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.wordpad)%then$ /$# b34sexec options editor('WORDPAD')$ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.vi)%then$ /$# b34sexec options editor('vi') $ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.pico)%then$ /$# b34sexec options editor('pico')$ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.gnp)%then$ /$# b34sexec options editor('gnp')$ b34seend$ /$# %b34sendif $ /$# %b34sif(&kedit.eq.emacs)%then$ /$# b34sexec options editor('emacs')$ b34seend$ /$# %b34sendif $ /$# b34sexec options iwidth(%b34seval(&edit))$ b34seend$ b34sreturn$ b34srun$ == ==SET_IDVAR Sets ID Variable (which must be character) %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Set ID Variable') COMMANDH('See help command for futher detail on IDVAR option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 COL2=1 OPTIONAL TEXT('Sets (character) ID Variable.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC OPTIONS idvar=')$ box position(2,8,72,6) $ FIELD TYPE=INFO FIELDTYPE=varname PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED Default=' ' TEXTID('Be sure variable is currently active and character') TEXT('Character ID Variable:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=10 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=10 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=11 COL1=1 COL2=22 OPTIONAL POSTLINE('^ A34SEEND^')$ B34SEEND$ == ==SET_MENU Set Menu Facility Colors B34SEXEC MAKEMENU COMMANDN('Menu Facility Color') COMMANDH('See help command for MAKEMENU for further detail', 'on the Display Manager settings. When best colors are found' 'user should change the setting in AUTOEXEC.B34 file') tabhelpposition(20) tabposition(top) tlabels('Menu Setup Page # 1' 'Menu Setup Page # 2')$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' Set Menu Colors ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET MC1=green^', '%A34SLET MC2=black^', '%A34SLET MF1=window3d1^', '%A34SLET MF2=green^', '%A34SLET MF3=white^', '%A34SLET MTC1=green^', '%A34SLET MTC2=black^', '%A34SLET MTF1=none^', '%A34SLET MTF2=yellow^', '%A34SLET MTF3=black^', '%A34SLET MFC1=blue^', '%A34SLET MFC2=black^', '%A34SLET MFF1=field3d1^', '%A34SLET MFF2=green^', '%A34SLET MTF3=yellow^', '%A34SLET FHC1=bold^', '%A34SLET FHC2=black^', '%A34SLET FHC3=green^', '%A34SLET FHC4=window3d1^', '%A34SLET FHC5=cyan^', '%A34SLET FHC6=cyan^', 'A34SEXEC makemenu setdefault') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=2 COL1=1 COL2=33 FIELDHELP('Set Menu Screen Foreground') TEXTID('Hit spacebar or Fn2 for Menu Screen Foreground colors') TEXT('Menu Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MC1=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=3 COL1=1 COL2=33 FIELDHELP('Set Menu Screen Background Color') TEXTID('Hit spacebar or Fn2 for Menu Screen Background color') TEXT('Menu Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MC2=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=4 COL1=1 COL2=33 FIELDHELP('Set Menu Window Frame') TEXTID('Hit spacebar or Fn2 for Menu Window Frame') TEXT('Menu Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1', 'button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET MF1=') DEFAULT=('double ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=5 COL1=1 COL2=33 FIELDHELP('Set Menu Frame Foreground Color') TEXTID('Hit spacebar or Fn2 for Menu Frame Foreground color') TEXT('Menu Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MF2=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=6 COL1=1 COL2=33 FIELDHELP('Set Menu Frame Background Color') TEXTID('Hit spacebar or Fn2 for Menu Frame Background Color') TEXT('Menu Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MF3=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Menu Text Foreground Color.') TEXTID('Hit spacebar or Fn2 for Text Foreground Color') TEXT('Text Foreground color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MTC1=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Text Background Color.') TEXTID('Hit spacebar or Fn2 for Text Background color') TEXT('Text Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MTC2=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=10 COL1=1 COL2=33 FIELDHELP('Set Text Menu Frame') TEXTID('Hit spacebar or Fn2 for Manu Frame Choices') TEXT('Text Menu Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET MTF1=') DEFAULT=('none ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=11 COL1=1 COL2=33 FIELDHELP('Set Text Frame Foreground Color') TEXTID('Hit spacebar or Fn2 for Text Frame Foreground color') TEXT('Text Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MTF2=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=12 COL1=1 COL2=33 FIELDHELP('Set Text Frame Background Color') TEXTID('Hit spacebar or Fn2 for Text Frame Background Color') TEXT('Text Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MTF3=') DEFAULT=('black ') POSTSTRING('^') $ /$EXIT GROUP limitf(1) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=15 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=15 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(1) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=2 COL1=1 COL2=33 FIELDHELP('Set Menu Field Foreground Color.') TEXTID('Hit spacebar or Fn2 for Field Foreground Color') TEXT('Field Foreground color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MFC1=') DEFAULT=('cyan ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=3 COL1=1 COL2=33 FIELDHELP('Set Menu Field Background Color.') TEXTID('Hit spacebar or Fn2 for Menu Field Background Color') TEXT('Field Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MFC2=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=4 COL1=1 COL2=33 FIELDHELP('Set Menu Field Frame') TEXTID('Hit spacebar or Fn2 for Menu Field Frame') TEXT('Menu Field Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET MFF1=') DEFAULT=('none ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=5 COL1=1 COL2=33 FIELDHELP('Set Menu Field Frame Foreground Color') TEXTID('Hit spacebar or Fn2 for Menu Field Frame Foreground color') TEXT('Field Frame Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MFF2=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=6 COL1=1 COL2=33 FIELDHELP('Set Field Frame Background Color') TEXTID('Hit spacebar or Fn2 for Menu Field Frame Back. Color') TEXT('Field Frame Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET MFF3=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Help Field Attribute') TEXTID('Hit spacebar or Fn2 for Field Attribute') TEXT('Help Field Frame:') CHOICECODE('none','bold','flash','italics','reverse', 'underline') PRESTRING('%A34SLET FHC1=') DEFAULT=('none ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Help Field Foreground Color') TEXTID('Hit spacebar or Fn2 for help Field Foregroud color') TEXT('Help Field Foreground Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET HFC2=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=10 COL1=1 COL2=33 FIELDHELP('Set Help Field Background Color') TEXTID('Hit spacebar or Fn2 for Help Field Background Color') TEXT('Help Field Background Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET FHC3=') DEFAULT=('black ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=11 COL1=1 COL2=33 FIELDHELP('Set Help Field Frame') TEXTID('Hit spacebar or Fn2 for Help Field Frame') TEXT('Help Field Frame:') CHOICECODE('none','single','double','single2','dropshadow', 'field3d1','field3d2','button3d1','button3d2', 'window3d1','window3d2') PRESTRING('%A34SLET FHC4=') DEFAULT=('none ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=12 COL1=1 COL2=33 FIELDHELP('Set Help Field Frame Foreground Color') TEXTID('Hit spacebar or Fn2 for Help Field Frame Foreground color') TEXT('Help Field Frame Fore. Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET FHC5=') DEFAULT=('green ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Help Field Frame Background Color') TEXTID('Hit spacebar or Fn2 for Help Field Frame Background Color') TEXT('Help Field Frame Back. Color:') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET FHC6=') DEFAULT=('black ') POSTSTRING('^') $ /$EXIT GROUP limitf(2) FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=15 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=15 COL1=30 COL2=55 FIELDHELP('Escape ') limitf(2) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=20 COL1=1 PRELINE('menucolor(%A34SEVAL(&MC1 &MC2))', 'menuframe(%A34SEVAL(&mf1 &mf2 &mf3))', 'menutextcolor(%A34SEVAL(&mtc1 &mtc2))', 'menutextframe(%A34SEVAL(&mtf1 &mtf2 &mtf2))', 'menufieldcolor(%A34SEVAL(&mfc1 &mfc2))', 'menufieldframe(%A34SEVAL(&mff1 &mff2 &mff3))', 'fhcolor(%A34SEVAL(&fhc1 &fhc2 &fhc3 &fhc4 &fhc5 &fhc6))' '^ A34SRUN ^') $ B34SEEND$ == ==SET_SCREEN Resets the screen %b34slet batch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Sets Screen size - Overrides autoexec.b34') COMMANDH('See help command for further detail OPTIONS.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Set Screen options') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET bigwin= 0 ^' )$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('The usual setting for screen is opt=0 for 800 - 600.') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 COL2=1 OPTIONAL TEXT('Opt=1 => 1024 - 768.') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=7 COL1=1 COL2=1 OPTIONAL TEXT('Opt=2 => 1052 - 864.') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=1 OPTIONAL TEXT('Opt=3 => 1280 -1024') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=1 OPTIONAL TEXT('Opt=4 => 1600 -1200.') TEXTCOLOR=byellow $ box position(2,4,66,12)$ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=11 COL1=5 COL2=30 FIELDHELP('Field sets display sizes size options.') TEXTID('Hit fn-6 key to see choices for screen size') TEXT('Screen size:') CHOICES('Screen size 800 - 600 ', 'Screen size 1024 - 768 ', 'Screen size 1052 - 864 ', 'Screen size 1280 -1024 ', 'Screen size 1600 -1200 ' ) CHOICECODE('0', '1', '2', '3', '4') PRELINE('%A34SLET bigwin=') POSTSTRING('^') DEFAULT=( '0') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options /$# %b34sif(&bigwin.eq.0)%then; /$# gmode( 800, 600,256,132,30,256,0,132,30) /$# %b34sendif $ /$# %b34sif(&bigwin.eq.1)%then; /$# gmode(1024, 768,256,132,30,256,0,132,30) /$# %b34sendif $ /$# %b34sif(&bigwin.eq.2)%then; /$# gmode(1152, 864,256,132,30,256,0,132,30) /$# %b34sendif $ /$# %b34sif(&bigwin.eq.3)%then; /$# gmode(1280,1024,256,132,30,256,0,132,30) /$# %b34sendif $ /$# %b34sif(&bigwin.eq.4)%then; /$# gmode(1600,1200,256,132,30,256,0,132,30) /$# %b34sendif $ /$# ; /$# b34srun; b34sreturn; b34srun$ == ==SET_SEED Sets Random Number seed and generators %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Set Random Number Generators and Seeds') COMMANDH('See DATA command for detail on Random Number Generators.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Seed works for Random Number Generators.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET seed=123457.^', '%A34SLET recver=0 ^', '%A34SLET rnver=0 ^'); box position(2,2,72,21) $ FIELD TYPE=INFO FIELDTYPE=real PAGE=1 ROW=3 COL1=1 COL2=23 REQUIRED Default='123457. ' letname(seed) realrange(.1,2147483647.) TEXTID('Set seed. Must be positive in range 1. - 2147483647.') TEXT('Seed:') $ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=5 COL1=1 COL2=40 TEXTID('Hit space bar to select choice.') intrange(13) TEXT('Random Rectangular Generator:') choicecode('GGUBS' , 'RAND', 'RAN1' 'RAN2' 'RAN3' 'FORT90' 'IMSL_1' 'IMSL_2' 'IMSL_3' 'IMSL_4' 'IMSL_5' 'IMSL_6' 'IMSL_7') DEFAULT= ('GGUBS ') prestring('%A34SLET recver = ') poststring('^') $ FIELD TYPE=INPUT FIELDTYPE= vertical PAGE=1 ROW=10 COL1=1 COL2=60 TEXTID('Hit space bar to select choice.') intrange(8) TEXT('Random Normal Generator:') choicecode('GGNML' , 'GRAND', 'GASDEV' 'GASDEV2' 'GASVEV3' 'GASDEV4' 'DRNNOA' 'DRNNOR') DEFAULT= ('GGNML ') prestring('%A34SLET rnver = ') poststring('^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec options /$# recver(%b34seval(&recver)) /$# rnver(%b34seval(&rnver)) /$# setseed=%b34seval(&seed) /$# $ /$# b34srun$ b34sreturn$ b34srun$ == ==SET_WINSIZ Sets Window Size %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Sets Default Window Size') COMMANDH('See help command for further detail on GMODE.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Set Default Window Characteristics') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET big = 0 ^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('The usual setting for Window is Small.') TEXTCOLOR=byellow $ box position(2,4,66,8)$ /$ FIELD TYPE=INPUT FIELDTYPE= choices PAGE=1 ROW=6 COL1=1 COL2=23 /$ letname=big /$ TEXTID('Hit space bar to select choice.') /$ TEXT('Set Type of Window:') /$ choices('Small Window', /$ 'Large Window') /$ choicecode('0','1') /$ DEFAULT= ('0') /$ $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('Field sets whether are in Small or Large Window.') TEXTID('Hit space bar for a large default Window') TEXT('Window size:') CHOICECODE('0', '1') PRELINE('%A34SLET big= ') POSTSTRING('^ ') DEFAULT=(' ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options /$# %b34sif(&big.eq.0)%then$ /$# gmode( 800,600,16 ,132,25, 16,0,132,30) /$# %b34sendif $ /$# %b34sif(&big.ne.0)%then$ /$# gmode(1024,768,16 ,132,30,256,0,132,30) /$# %b34sendif$ /$# $ b34seend$ b34sreturn$ b34srun$ == ==SORT Sort active dataset %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ %b34slet by = _NULL_ $ %b34slet iass = 0 $ B34SEXEC MAKEMENU COMMANDN('Sort Active B34S Dataset') COMMANDH('See help command for futher detail on SORT option.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Sort Data.') TEXTCOLOR=byellow $ box position(2,8,78,8) $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar for descending sort.') TEXT('Descending sort:') choicecode('%A34SLET iass=0^', '%A34SLET iass=1^') DEFAULT=(' ') $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=10 COL1=1 COL2=23 info TEXTID('Be sure variable is currently active') TEXT('Sort variables listed next:')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=11 COL1=1 COL2=2 REQUIRED letname(by) FIELDHELP('The order of the sort is determined by the order of' 'the variables listed next.') TEXTID('Be sure variables are currently active. ') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec sort /$# %b34sif(&iass.eq.0)%then$ /$# ascending /$# %b34sendif $ /$# %b34sif(&iass.eq.1)%then$ /$# descending /$# %b34sendif $ /$# $ /$# by /$# %b34seval(&by) /$# $ /$# b34srun$ b34sreturn$ b34srun$ == ==SPECTRAL1 Spectral analysis of one series B34SEXEC MAKEMENU COMMANDN('Spectral Analysis') COMMANDH('See help command for futher detail on spectral options.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT(' Spectral Analysis of one series') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN ROW=1 COL1=1 COL2=1 PRELINE("A34SEXEC OPTIONS OPEN('_JUNK.FSV') DISP=UNKNOWN UNIT(44)^", "A34SRUN", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", "%A34SLET PLOT1=NO^" , "%A34SLET PLOT2=NO^" , "%A34SLET HARDCOPY=NO^" , '%A34SLET file1 = _NULL_^' '%A34SLET file2 = _NULL_^' "A34SEXEC SPECTRAL ", "SCAFNAME=SPEC SCAUNIT=44 OUTPUT=ALL") $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 OPTIONAL INTRANGE(1,999999999) TEXTID('Observations per period') TEXT( 'Observations:') PRELINE('NOBSPP=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=1 COL2=23 FIELDHELP('Field sets axis for plots as FREQ of PERIOD.') TEXTID('Hit space bar for Freq on axis of plots') TEXT('Axis:') CHOICECODE('plotby(PERIOD)','plotby(FREQ)') DEFAULT=('1') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=1 COL2=23 FIELDHELP('Field sets various line printer plot options.') TEXTID('Hit Fn6 key to see choices for line printer plot') TEXT('Line printer plot:') CHOICES('Plot sin', 'Plot cos', 'Plot periodogram', 'Plot spectrum', 'Plot sin cos', 'Plot periodogram and spectrum' 'Plot sin, cos and periodogram' 'Plot sin, cos, periodogram and spectrum') CHOICECODE('SIN','COS','P','S','SIN COS','P S', 'SIN COS P ','SIN COS P S') PRELINE('PLOT(') POSTSTRING(')') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('Field sets various line printer list options.') TEXTID('Hit Fn6 key to see choices for line printer list') TEXT('Line printer list:') CHOICES('List sin', 'List cos', 'List periodogram', 'List spectrum', 'List sin cos', 'List periodogram and spectrum' 'List sin, cos and periodogram' 'List sin, cos, periodogram and spectrum') CHOICECODE('SIN','COS','P','S','SIN COS','P S', 'SIN COS P ','SIN COS P S') PRELINE('LIST(') POSTSTRING(')') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=10 OPTIONAL FIELDHELP('Specify weights. 1 1 1 is rectangular. 1 2 1 is' 'triangular. SPECTRAL command works in a fashion' 'similar to SAS') TEXTID('Enter odd number of weights.') TEXT('Weights:') DEFAULT=' ' PRELINE('WEIGHTS( ') POSTLINE(')^') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 LETNAME(PLOT1) TEXTID('Hit space bar for high resolution composite plot') TEXT('Composite Plot:') choicecode('NO','YES') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=40 COL2=63 LETNAME(HARDCOPY) TEXTID('Hit space bar to generate a plot file') TEXT('Plot to file:') choicecode('NO','YES') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=11 COL1=1 COL2=23 FIELDHELP('Field sets various high resolution plot options.') TEXTID('Hit Fn6 key to see choices for high resolution plot') TEXT('High Resolution plot:') CHOICES('Plot sin', 'Plot cos', 'Plot periodogram', 'Plot spectrum') CHOICECODE('SIN_1','COS_1','P_1','S_1') PRESTRING('%A34SLET PLOT2=') POSTSTRING('^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=12 COL1=1 COL2=23 REQUIRED letname=(file1) TEXTID('File name to use for plot1. Use form ____.WMF') TEXT('Plot 1 file:') DEFAULT=('plot1.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=13 COL1=1 COL2=23 REQUIRED letname=(file2) TEXTID('File name to use for plot2. Use form ____.WMF') TEXT('Plot 2 file:') DEFAULT=('plot2.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=14 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT('Variable for analysis:') DEFAULT=' ' PRELINE('VAR ') POSTLINE('^','B34SRUN^')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macro sentences and ; for command sentences PGMCARDS$ /$# %B34SIF(&PLOT1.EQ.YES.OR.&PLOT1.EQ.yes)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform") ; /$# PLOT=(FREQ COS_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform") ; /$# PLOT=(FREQ P_1 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram") ; /$# PLOT=(FREQ S_1 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.SIN_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.COS_1)%THEN $ /$# %B34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ COS_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.P_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ P_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.S_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ S_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&HARDCOPY.NE.NO)%THEN $ /$# %B34SIF(&PLOT1.EQ.YES.OR.&PLOT1.EQ.yes)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE1) /$# ) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform") ; /$# PLOT=(FREQ COS_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform") ; /$# PLOT=(FREQ P_1 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram") ; /$# PLOT=(FREQ S_1 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.SIN_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE2) /$# ) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.COS_1)%THEN $ /$# %B34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE2) /$# ) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ COS_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.P_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE2) /$# ) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ P_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# /$# %B34SIF(&PLOT2.EQ.S_1)%THEN $ /$# b34SEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE2) /$# ) /$# PLOTTYPE=XYPLOT ; /$# PLOT=(FREQ S_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum") ; /$# b34SRUN ; /$# %B34SENDIF $ /$# %B34SENDIF $ b34sreturn $ B34SRUN$ == ==SPECTRAL2 Spectral analysis of two series %b34slet file1 = "'cs1.wmf'"; %b34slet file2 = "'cs2.wmf'"; %b34slet file3 = "'cs3.wmf'"; %b34slet file4 = "'cs4.wmf'"; %b34slet file5 = "'cs5.wmf'"; B34SEXEC MAKEMENU COMMANDN('Cross Spectral Analysis') COMMANDH('See help command for futher detail on spectral options.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT(' Cross Spectral Analysis ') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN ROW=1 COL1=1 COL2=1 PRELINE("A34SEXEC OPTIONS OPEN('_JUNK.FSV') DISP=UNKNOWN UNIT(44)^", "A34SRUN", "A34SEXEC OPTIONS CLEAN(44)^ A34SRUN^", "%A34SLET PLOT1=NO^" , "%A34SLET PLOT2=NO^" , "%A34SLET HARDCOPY=NO^" , "A34SEXEC SPECTRAL ", "SCAFNAME=SPEC SCAUNIT=44 OUTPUT=ALL") $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=3 COL1=1 COL2=23 OPTIONAL TEXTID('Blank defaults to observation 1.') INTRANGE(0,999999999) TEXT('Beginning observation:') PRELINE('IBEGIN=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=4 COL1=1 COL2=23 OPTIONAL INTRANGE(0,999999999) TEXTID('Blank defaults to last observation.') TEXT(' Last observation:') PRELINE('IEND=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=5 COL1=1 COL2=23 OPTIONAL INTRANGE(1,999999999) TEXTID('Observations per period') TEXT( 'Observations:') PRELINE('NOBSPP=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=6 COL1=1 COL2=23 FIELDHELP('Field sets axis for plots as FREQ of PERIOD.') TEXTID('Hit space bar to see FREQ on LP plots') TEXT('Axis:') CHOICECODE('PERIOD','FREQ') PRELINE('PLOTBY(') POSTSTRING(')') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=1 COL2=23 FIELDHELP('Field sets various line printer plot options.') TEXTID('Hit Fn6 key to see choices for line printer plot') TEXT('Line printer plot:') CHOICES('Plot sin', 'Plot cos', 'Plot periodogram', 'Plot spectrum', 'Plot sin cos', 'Plot periodogram and spectrum' 'Plot sin, cos and periodogram' 'Plot cross periodogram and spectrum' 'Plot amplitude, coherency and phase' 'Plot all values' ) CHOICECODE('SIN','COS','P','S','SIN COS','P S', 'SIN COS P ','RP IP CS QS' 'A K PH','ALL') PRELINE('PLOT(') POSTSTRING(')') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=23 FIELDHELP('Field sets various line printer list options.') TEXTID('Hit Fn6 key to see choices for line printer list') TEXT('Line printer list:') CHOICES('List sin', 'List cos', 'List periodogram', 'List spectrum', 'List sin cos', 'List periodogram and spectrum' 'List sin, cos and periodogram' 'List cross periodogram and spectrum' 'List amplitude, coherency and phase' 'List all values' ) CHOICECODE('SIN','COS','P','S','SIN COS','P S', 'SIN COS P ','RP IP CS QS' 'A K PH','ALL') PRELINE('LIST(') POSTSTRING(')') DEFAULT=(' ') $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=9 COL1=1 COL2=10 OPTIONAL FIELDHELP('Specify weights. 1 1 1 is rectangular. 1 2 1 is' 'triangular. SPECTRAL command works in a fashion' 'similar to SAS') TEXTID('Enter odd number of weights.') TEXT('Weights:') DEFAULT=' ' PRELINE('WEIGHTS( ') POSTLINE(')^') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 LETNAME(PLOT1) TEXTID('Hit space bar for high resolution composite plot') TEXT('Composite Plot:') choicecode('NO','YES') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=40 COL2=63 LETNAME(HARDCOPY) TEXTID('Hit space bar to generate a plot file') TEXT('Plot to file:') choicecode('NO','YES') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=11 COL1=1 COL2=23 FIELDHELP('Field sets various high resolution plot options.') TEXTID('Hit Fn6 key to see choices for high resolution plot') TEXT('High Resolution plot:') CHOICES('Plot sin series 1', 'Plot cos series 1', 'Plot periodogram series 1', 'Plot spectrum series 1' 'Plot sin series 2', 'Plot cos series 2', 'Plot periodogram series 2', 'Plot spectrum series 2', 'Plot real part of cross periodogram', 'Plot imag part of cross periodogram', 'Plot cospectral density', 'Plot quadrature spectrum', 'Plot amplitude', 'Plot coherency', 'Plot phase') CHOICECODE('SIN_1','COS_1','P_1','S_1', 'SIN_2','COS_2','P_2','S_2', 'RP_1','IP_1','CS_1','QS_1', 'A_1','K_1','PH_1') PRESTRING('%A34SLET PLOT2=') POSTSTRING('^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=13 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT('Series names:') DEFAULT=' ' PRELINE('VAR ') POSTLINE('^','B34SRUN^')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=15 COL1=1 COL2=23 REQUIRED letname=(file1) TEXTID('File name to use for plot1. Use form ____.WMF') TEXT('Plot 1 file:') DEFAULT=('cs1.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=16 COL1=1 COL2=23 REQUIRED letname=(file2) TEXTID('File name to use for plot2. Use form ____.WMF') TEXT('Plot 2 file:') DEFAULT=('cs2.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=17 COL1=1 COL2=23 REQUIRED letname=(file3) TEXTID('File name to use for plot3. Use form ____.WMF') TEXT('Plot 3 file:') DEFAULT=('cs3.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=18 COL1=1 COL2=23 REQUIRED letname=(file4) TEXTID('File name to use for plot4. Use form ____.WMF') TEXT('Plot 4 file:') DEFAULT=('cs4.wmf ') $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=19 COL1=1 COL2=23 REQUIRED letname=(file5) TEXTID('File name to use for plot5. Use form ____.WMF') TEXT('Plot 5 file:') DEFAULT=('cs5.wmf ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ' ) TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# %b34sIF(&PLOT1.EQ.YES.OR.&PLOT1.EQ.yes)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform series 1"); /$# PLOT=(FREQ COS_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform series 1"); /$# PLOT=(FREQ P_1 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram series 1"); /$# PLOT=(FREQ S_1 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum series 1"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform series 2"); /$# PLOT=(FREQ COS_2) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform series 2"); /$# PLOT=(FREQ P_2 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram series 2"); /$# PLOT=(FREQ S_2 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum series 2"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ RP_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Real Part Cross Period"); /$# PLOT=(FREQ IP_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Imag Part Cross Period"); /$# PLOT=(FREQ CS_1) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cospectral Density"); /$# PLOT=(FREQ QS_1) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Quadrature-Spectrum"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ A_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Amplitude"); /$# PLOT=(FREQ K_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Coherency"); /$# PLOT=(FREQ PH_1) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Phase"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.SIN_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.COS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ COS_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.P_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ P_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.S_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ S_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.SIN_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.COS_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ COS_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.P_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ P_2 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.S_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ S_2 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.RP_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOT=(FREQ RP_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Real Part Cross Periodogram"); /$# PLOTTYPE=XYPLOT; /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.IP_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOT=(FREQ IP_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Imag Part Cross Periodogram"); /$# PLOTTYPE=XYPLOT; /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.CS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ CS_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cospectral Density"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.QS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ QS_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Quadrature Spectrum"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.A_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ A_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Amplitude"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.K_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ K_1 ) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Coherency Squared"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.PH_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ PH_1 ) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Phase Spectrum"); /$# b34sRUN; /$# %b34sENDIF; /$# /$# %B34SIF(&HARDCOPY.NE.NO)%THEN $ /$# %b34sIF(&PLOT1.EQ.YES.OR.&PLOT1.EQ.yes)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE1) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform series 1"); /$# PLOT=(FREQ COS_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform series 1"); /$# PLOT=(FREQ P_1 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram series 1"); /$# PLOT=(FREQ S_1 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum series 1"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE2) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Sine transform series 2"); /$# PLOT=(FREQ COS_2) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cos transform series 2"); /$# PLOT=(FREQ P_2 ) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Periodogram series 2"); /$# PLOT=(FREQ S_2 ) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Spectrum series 2"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE3) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ RP_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Real Part Cross Period"); /$# PLOT=(FREQ IP_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Imag Part Cross Period"); /$# PLOT=(FREQ CS_1) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Cospectral Density"); /$# PLOT=(FREQ QS_1) GPOSITION(4) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Quadrature-Spectrum"); /$# b34sRUN; /$# b34sEXEC HRGRAPHICS GFORMAT=(FOURGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE4) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ A_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Amplitude"); /$# PLOT=(FREQ K_1) GPOSITION(2) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Coherency"); /$# PLOT=(FREQ PH_1) GPOSITION(3) /$# htitle(1.5 1.5) axisheight(.8 .8) /$# TITLE("Phase"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.SIN_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.COS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ COS_1) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.P_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ P_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.S_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ S_1 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum series 1"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.SIN_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ SIN_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Sine transform series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.COS_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ COS_2) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cos transform series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.P_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ P_2 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Periodogram series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.S_2)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ S_2 ) GPOSITION(1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Spectrum series 2"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.RP_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOT=(FREQ RP_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Real Part Cross Periodogram"); /$# PLOTTYPE=XYPLOT; /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.IP_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOT=(FREQ IP_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Imag Part Cross Periodogram"); /$# PLOTTYPE=XYPLOT; /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.CS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ CS_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Cospectral Density"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.QS_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ QS_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Quadrature Spectrum"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.A_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ A_1) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Amplitude"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.K_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ K_1 ) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Coherency Squared"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sIF(&PLOT2.EQ.PH_1)%THEN; /$# b34sEXEC HRGRAPHICS GFORMAT=(ONEGRAPH) SCAFNAME(SPEC) /$# PRINT GPORT( /$# %B34SEVAL(&FILE5) /$# ) /$# PLOTTYPE=XYPLOT; /$# PLOT=(FREQ PH_1 ) /$# htitle(1.5 1.5) axisheight(.6 .6) /$# TITLE("Phase Spectrum"); /$# b34sRUN; /$# %b34sENDIF; /$# %b34sendif$ b34sreturn$ B34SEEND$ == ==STRIPFILE Strip Current Output File %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Strip B34S Output File') COMMANDH('See help command for further detail on B34S DMF files.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=2 COL1=1 COL2=1 OPTIONAL TEXT('Strip Text from Output file') TEXTCOLOR=byellow $ field type=hidden page=1 row=1 col1=1 preline('%A34SLET string = _NULL_^' '%A34SLET Blankout = x ' '%A34SLET Leadblank= x ' '%A34SLET jump = 1^')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=4 COL1=1 COL2=1 OPTIONAL TEXT('Removes lines from output file.') TEXTCOLOR=byellow $ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=6 COL1=1 COL2=1 OPTIONAL TEXT('Text can be added using ADDTEXT option.') TEXTCOLOR=byellow $ box position(2,8,66,8) $ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=8 COL1=1 COL2=23 REQUIRED letname=(string) TEXTID('Text to Search for') TEXT('Text:') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=9 COL1=1 COL2=23 TEXTID('Hit space bar to blankout search line.') TEXT('Blankout line:') choicecode('%A34SLET blankout=0^', '%A34SLET blankout=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=10 COL1=1 COL2=23 TEXTID('Hit space bar to set Leadblank.') TEXT('Set Leadblank:') choicecode('%A34SLET leadblank=0^', '%A34SLET leadblank=1^') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=11 COL1=1 COL2=23 OPTIONAL letname(jump) TEXTID('Number of lines after string to remove.') INTRANGE(1,999999999) TEXT('Lines to remove:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=13 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=13 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP pgmcards$ /$# b34sexec options run$ b34srun$ /$# b34sexec dtassm$ strip= /$# %b34seval(&string) /$# jump(%b34seval(&jump)) /$# %b34sif(&blankout.eq.1)%then$ /$# leadblank /$# %b34sendif $ /$# %b34sif(&blankout.eq.0)%then$ /$# blankoff /$# %b34sendif $ /$# %b34sif(&blankout.eq.1)%then$ /$# blankon /$# %b34sendif $ /$# $ /$# b34srun$ b34sreturn$ b34srun$ == ==TRANSPOSE Line Printer list of Transposed Data Matrix %b34slet ibatch = %b34sget(ib34sg,ibatch,1)$ B34SEXEC MAKEMENU COMMANDN('Transpose Command') COMMANDH('Input series to list. For futher detail see help command.' 'A maximum of 10 series can be supplied. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' '%A34SLET IIN3 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN3 = 0^' '%A34SLET IN4 = 0^' '%A34SLET COLPREFIX = Col^' '%A34SLET COLVAR = _NULL_^' '%A34SLET CCOM = _NULL_^' '%A34SLET IROW= 0^' '%A34SLET ICOL= 0^' '%A34SLET ILIST2= 0^' )$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=1 textcolor=byellow TEXT('Specify series to transpose.')$ box position(2,4,78,14) $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to first observation' TEXT('Beginning obs.:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Zero defaults to last observation' TEXT('Ending obs.:') OPTIONAL $ field type=input fieldtype=checkbox page=1 row=6 col1=2 choicecode('%A34SLET irow=0^','%A34SLET irow=1^') col2=24 fieldhelp('Allows turning off date info for time series.') textid('Hit space bar to number rows') text('Number rows:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(colprefix) FIELDTYPE=character DEFAULT='Col' COL2=24 TEXTID='Sets Col Prefix' TEXT('Column Prefix:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(colvar) FIELDTYPE=VARNAME PRELINE('%A34SLET icol=1^') DEFAULT=' ' COL2=24 TEXTID='Sets name of Variable for Columns' TEXT('Column Var. Name:') OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=9 COL1=2 COL2=23 TEXTID='Optional title' TEXT('Specify a title on next line:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(ccom) FIELDTYPE=DQSTRING PRELINE('%A34SLET ilist2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=11 COL1=2 TEXT('Optionally specify series. Blank lists all.')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to ten series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN3=1^') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IN4) FIELDTYPE=QVARLIST DEFAULT=' ' TEXTHELP('Up to ten series can be supplied.' 'If this field is left blank, all series listed.') COL2=2 TEXTID='Optionally specify variable names' TEXT(' ') OPTIONAL PRELINE('%A34SLET IIN4=1^') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=15 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=15 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC TRANSPOSE /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SIF(&IROW.NE.0)%THEN $ /$# ROWVAR=NUMBERED /$# %B34SENDIF $ /$# %B34SIF(&IROW.eq.0)%THEN $ /$# ROWVAR=NAME /$# %B34SENDIF $ /$# %B34SIF(&ICOL.NE.0)%THEN $ /$# COLVAR=%B34SEVAL(&COLVAR) /$# %B34SENDIF $ /$# %B34SIF(&ILIST2.NE.0)%THEN $ /$# COMMENT( /$# %B34SEVAL(&CCOM) /$# ) /$# %B34SENDIF $ /$# colprefix=%b34seval(&colprefix) /$# $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# %B34SIF(&IIN3.NE.0)%THEN $ /$# VAR = /$# %B34SEVAL(&IN3) /$# %B34SENDIF $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# %B34SEVAL(&IN4) /$# %B34SENDIF $ /$# $ /$# %B34SENDIF $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==TOBIT Tobit Model B34SEXEC MAKEMENU COMMANDN('Tobit Model') COMMANDH('See help command for futher detail on Tobit Model.')$ FIELD TYPE=INFO FIELDTYPE=CHARACTER PAGE=1 ROW=1 COL1=1 COL2=1 OPTIONAL TEXT('Tobit Model.') TEXTCOLOR=byellow $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=3 COL1=1 PRELINE('A34SEXEC TOBIT')$ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=4 COL1=1 COL2=23 FIELDHELP('The field allows user to set limit as ' 'LOWER or UPPER.') TEXTID('Hit space bar to set UPPER limit') TEXT('Type of limit:') CHOICECODE('LOWER','UPPER') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=5 COL1=1 COL2=23 TEXTID('Hit space bar for summary table for each observation') TEXT('Summary table:') choicecode(' ', 'ISUMM') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=6 COL1=1 COL2=23 TEXTID('Hit space bar if want reduced output to save paper') TEXT('Reduced output:') choicecode(' ','ROUTPUT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE= checkbox PAGE=1 ROW=7 COL1=1 COL2=23 TEXTID('Hit space bar if want model with no intercept') TEXT('No intercept:') choicecode(' ','NOINT') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=8 COL1=1 COL2=23 OPTIONAL TEXTID('Specify maximum number of iterations') INTRANGE(1,999999999) TEXT('Max. # of iterations:') PRELINE('NIT=') DEFAULT='25 ' $ FIELD TYPE=INPUT FIELDTYPE=REAL PAGE=1 ROW=9 COL1=1 COL2=23 OPTIONAL TEXTID('Sets limit value. Default = 0.0') REALRANGE(-.1D+32, .1D+32) TEXT('Limit value') PRELINE('LIMIT=') DEFAULT='0.0 ' $ FIELD TYPE=INPUT FIELDTYPE=INTEGER PAGE=1 ROW=10 COL1=1 COL2=23 OPTIONAL TEXTID('Specify optional equation number') INTRANGE(1,99) TEXT('Equation number:') PRELINE('NEQU=') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=11 COL1=1 COL2=23 OPTIONAL TEXTID('Set variable to use as weight.') TEXT('Weight:') PRELINE('WEIGHT=') DEFAULT=' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=12 COL1=1 PRELINE('^') $ FIELD TYPE=INPUT FIELDTYPE=VARNAME PAGE=1 ROW=14 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Left hand variable:') DEFAULT=' ' PRELINE('MODEL ') POSTLINE('=')$ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=15 COL1=1 COL2=23 REQUIRED TEXTID('Be sure variable is currently active') TEXT(' Right hand variables:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=VARLIST PAGE=1 ROW=16 COL1=1 COL2=1 OPTIONAL TEXTID('Be sure variable is currently active') TEXT('Right hand variables:') DEFAULT= ' ' $ FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=16 COL1=1 COL2=22 OPTIONAL POSTLINE('^ ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=19 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=19 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN FIELDTYPE=CHARACTER PAGE=1 ROW=15 COL1=1 COL2=22 OPTIONAL POSTLINE(' A34SEEND^') $ B34SEEND$ == ==TS_CBIS Calculate Bispectrum Between two series B34SEXEC MAKEMENU COMMANDN('Calculate Bispectrum Between two series ') COMMANDH('See Hinich (1996). This command allows calculation' 'of the Cross Bispectrum and spectrum of two', 'series. The test provides information about', 'nonlinear relationships between the two series.', 'If the gain of the cross bispectrum is > 1 this ', 'means there is a nonlinear relationship.')$ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Calculation of Bispectrum between two series.')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0 ^' '%A34SLET iend = 0 ^' '%A34SLET scaunit = 44 ^' "%A34SLET filename ='cbis.fsv'^" "%A34SLET scafname1 ='SPEC' ^" "%A34SLET scafname2 ='CBIS' ^" '%A34SLET savespec = 0 ^' '%A34SLET printspec = 0 ^' '%A34SLET savecbis = 0 ^' '%A34SLET printcbis = 0 ^' '%A34SLET freq = 0 ^' '%A34SLET nosprod = 0 ^' '%A34SLET freqsampu = 0 ^' '%A34SLET smooth = 0 ^' '%A34SLET samplerate = 1 ^' '%A34SLET resband = 5 ^' '%A34SLET clip = 0.0 ^' '%A34SLET ssband = 0.0 ^' '%A34SLET nwd = 0.0 ^' '%A34SLET fl = 0.0 ^' '%A34SLET fu = 0.475 ^' '%A34SLET percentt = 0.0 ^' )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT= ' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning observation:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT= ' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to last observation' TEXT('Ending Observation: ') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=5 COL1=1 fieldtype=varname col2=23 letname=(var1) default=' ' required text=('Series # 1:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=5 COL1=40 fieldtype=varname col2=63 letname=(var2) default=' ' required text=('Series # 2:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=23 REQUIRED letname=(filename) TEXTID('File name to use for data. Use form ____.fsv') TEXT('Data file:') DEFAULT=('cbis.fsv ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 LETNAME(SCAUNIT) FIELDTYPE=INTEGER DEFAULT='44' COL2=23 TEXTID='Set SCA Save File Unit Number' INTRANGE(30,99) TEXT('SCA File UNIT:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=23 OPTIONAL TEXTID('SCA FSAVE File name for Spectrum') TEXT('Spectrun File name:') letname(scafname1) DEFAULT='SPEC ' $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=40 COL2=63 OPTIONAL TEXTID('SCA FSAVE File name for CrossSpectrum') TEXT('BisSpectrun File name:') letname(scafname2) DEFAULT='CBIS ' $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET savespec=0^','%A34SLET savespec=1^') COL2=23 TEXTID='Hit space bar to save spectrum' TEXT('Save Spectrum:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET printspec=0^','%A34SLET printspec=1^') COL2=63 TEXTID='Hit space bar to print spectrum' TEXT('Print Spectrum:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET savecbis=0^','%A34SLET savecbis=1^') COL2=23 TEXTID='Hit space bar to save cross bispectrum' TEXT('Save Cross Bispectrum:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET printcbis=0^','%A34SLET printcbis=1^') COL2=63 TEXTID='Hit space bar to print bispectrum' TEXT('print Cross Bispectrum:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET freq=0^','%A34SLET freq=1^') COL2=23 TEXTID='Hit space bar to give period values' TEXT('Period Values:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET nosprod=0^','%A34SLET nosprod=1^') COL2=63 TEXTID='Hit space bar if series have no autocorrelation' TEXT('Series have no Autoc:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET freqsampu=0^','%A34SLET freqsampu=1^') COL2=23 TEXTID='Hit space bar if sampling unit is frequency' TEXT('Freq Sampling:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET smooth=0^','%A34SLET smooth=1^') COL2=63 TEXTID='Hit space bar to smooth series' TEXT('Smooth series:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=real letname=(samplerate) DEFAULT='1.0 ' COL2=23 TEXTID='Enter sampling rate' TEXT('Sampling rate:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=40 FIELDTYPE=real letname=(resband) DEFAULT='5.0 ' COL2=63 TEXTID='Enter Resolution Bandwidth' TEXT('Resolution Bandwidth:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE=real letname=(clip) DEFAULT='0.0 ' COL2=23 TEXTID='Enter data clip value' TEXT('Clip Value:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=40 FIELDTYPE=real letname=(ssband) DEFAULT='0.0 ' COL2=63 TEXTID='Enter Resolution Bandwidth' TEXT('Spec. smoo. Bandwidth:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=real letname=(nwd) DEFAULT='0.0 ' COL2=23 TEXTID='Enter width for smoothing cosin' TEXT('NWD:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=40 FIELDTYPE=real letname=(percentt) DEFAULT='0.0 ' COL2=63 TEXTID='Enter Percent Taper' TEXT('Percent Taper:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE=real letname=(fl) DEFAULT='00 ' COL2=23 TEXTID='Enter Lower Frequency for Aalysis' TEXT('Lower Freq:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=40 FIELDTYPE=real letname=(fu) DEFAULT='.475 ' COL2=63 TEXTID='Enter Upper Frequency for Analysis' TEXT('Upper Frequency:') OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macro sentences and ; for bjiden sentences PGMCARDS$ /$# %B34SIF(&SAVESPEC.NE.0.or.&SAVECBIS.NE.0)%THEN ; /$# b34sexec options open(%B34SEVAL(&FILENAME) /$# ) unit(%B34SEVAL(&SCAUNIT)) disp=unknown $ /$# b34seend $ /$# b34sexec options clean(%B34SEVAL(&SCAUNIT)) $ /$# b34seend $ /$# %B34SENDIF ; /$# B34SEXEC MVNLTEST /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# scaunit =%B34SEVAL(&SCAUNIT) /$# scafname1 =%B34SEVAL(&SCAFNAME1) /$# scafname2 =%B34SEVAL(&SCAFNAME2) /$# $ /$# var =%b34seval(&var1) %b34seval(&var2) $ /$# CBIS /$# %B34SIF(&savespec.NE.0)%THEN ; /$# savespec /$# %B34SENDIF ; /$# %B34SIF(&printspec.NE.0)%THEN ; /$# printspec /$# %B34SENDIF ; /$# %B34SIF(&savecbis.NE.0)%THEN ; /$# savecbis /$# %B34SENDIF ; /$# %B34SIF(&printcbis.NE.0)%THEN ; /$# printcbis /$# %B34SENDIF ; /$# %B34SIF(&freq.eq.0)%THEN ; /$# freq /$# %B34SENDIF ; /$# %B34SIF(&freq.ne.0)%THEN ; /$# period /$# %B34SENDIF ; /$# %B34SIF(&nosprod.ne.0)%THEN ; /$# nosprod /$# %B34SENDIF ; /$# %B34SIF(&smooth.ne.0)%THEN ; /$# smooth /$# %B34SENDIF ; /$# samplerate=%B34SEVAL(&SAMPLERATE) /$# resrand =%B34SEVAL(&RESBAND) /$# clip =%B34SEVAL(&CLIP) /$# ssband =%B34SEVAL(&ssband) /$# nwd =%B34SEVAL(&nwd) /$# fl =%B34SEVAL(&fl) /$# fu =%B34SEVAL(&fu) /$# percentt =%B34SEVAL(&percentt) /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==THIRDORDER Third Order Portmentau Test B34SEXEC MAKEMENU COMMANDN('Calculation of Hinich Third Order Portmentau Test') COMMANDH('See Hinich (1996) for further detail. THIRDORDER ' 'option of the MVNLTEST command controls the', 'calculation of second and third order portmentau', 'test statistics for two series. Such measures ', 'can be used to detect the presence of a nonlinear.', 'relationship between the series. The test statistics.', 'are affected by autocorrelation in the series.')$ field type=info page=1 row=1 col1=1 fieldtype=character textcolor(byellow) text('Calculation Third Order Portmentau Test')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET ibegin = 0 ^' '%A34SLET iend = 0 ^' '%A34SLET scaunit = 44 ^' "%A34SLET filename ='cbis.fsv'^" "%A34SLET scafname3 ='THIRDO' ^" '%A34SLET SAVESTAT =0 ^' '%A34SLET LISTMSTAT =0 ^' '%A34SLET PLOTACF =0 ^' '%A34SLET NAC =0 ^' '%A34SLET NPAC =0 ^' '%A34SLET NAPL =0 ^' '%A34SLET C =.4 ^' '%A34SLET window =0 ^' '%A34SLET poverl =0.0 ^' )$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 LETNAME(ibegin) FIELDTYPE=INTEGER DEFAULT= ' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to first observation' TEXT('Beginning observation:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 LETNAME(iend) FIELDTYPE=INTEGER DEFAULT= ' ' INTRANGE(0,999999999) COL2=23 TEXTID='Zero defaults to last observation' TEXT('Ending Observation: ') OPTIONAL $ FIELD TYPE=input PAGE=1 ROW=5 COL1=1 fieldtype=varname col2=23 letname=(var1) default=' ' required text=('Series # 1:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=input PAGE=1 ROW=5 COL1=40 fieldtype=varname col2=63 letname=(var2) default=' ' required text=('Series # 2:') textid('Hit (Fn 9) for series list')$ FIELD TYPE=INPUT FIELDTYPE=DQSTRING PAGE=1 ROW=6 COL1=1 COL2=23 REQUIRED letname=(filename) TEXTID('File name to use for data. Use form ____.fsv') TEXT('Data file:') DEFAULT=('thirdo.fsv ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 LETNAME(SCAUNIT) FIELDTYPE=INTEGER DEFAULT='44' COL2=23 TEXTID='Set SCA Save File Unit Number' INTRANGE(30,99) TEXT('SCA File UNIT:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=CHARACTER PAGE=1 ROW=8 COL1=1 COL2=23 OPTIONAL TEXTID('SCA FSAVE File name to save third order tests') TEXT('ThirdO File name:') letname(scafname3) DEFAULT='THIRDO ' $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET savestat=0^','%A34SLET savestat=1^') COL2=23 TEXTID='Hit space bar to save 2nd & 3rd Order tests' TEXT('Save tests:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=40 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET listmstat=0^','%A34SLET listmstat=1^') COL2=63 TEXTID='Hit space bar to list tests' TEXT('List tests:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE=checkbox DEFAULT=' ' choicecode('%A34SLET plotacf =0^','%A34SLET plotacf =1^') COL2=23 TEXTID='Hit space bar to plot ACF and PACF' TEXT('Plot ACF/PACF:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 LETNAME(nac) FIELDTYPE=INTEGER DEFAULT=' 12' INTRANGE(0,150) COL2=23 TEXTID='Default = 12' TEXT('Number of ACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=40 LETNAME(npac) FIELDTYPE=INTEGER DEFAULT=' 12' INTRANGE(0,150) COL2=63 TEXTID='Defaults = 12' TEXT('Number of PACF terms: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 LETNAME(napl) FIELDTYPE=INTEGER DEFAULT=' 8' INTRANGE(1,12) COL2=23 TEXTID='Must be in range 1-12. Default = 6' TEXT('# ACF, PACF per line: ') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=1 FIELDTYPE=real letname=(c) DEFAULT='.4 ' COL2=23 TEXTID='Enter c of nob**c for lags. Must not be > .5' TEXT('C:') realrange(0.0,.5) OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 LETNAME(window) FIELDTYPE=INTEGER DEFAULT= '0 ' INTRANGE(0,99999) COL2=23 TEXTID='Sets window. Zero => Complete sample.' TEXT('Window:') OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE=real letname=(poverl) DEFAULT='0.0 ' COL2=23 TEXTID='Enter percent overlap for windows' TEXT('Percent Overlap:') realrange(0.0,.99) OPTIONAL $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP /$ using $ for macro sentences and ; for bjiden sentences PGMCARDS$ /$# %B34SIF(&SAVESTAT.NE.0)%THEN ; /$# b34sexec options open(%B34SEVAL(&FILENAME) /$# ) unit(%B34SEVAL(&SCAUNIT)) disp=unknown $ /$# b34seend $ /$# b34sexec options clean(%B34SEVAL(&SCAUNIT)) $ /$# b34seend $ /$# %B34SENDIF ; /$# B34SEXEC MVNLTEST /$# %B34SIF(&ibegin.NE.0)%THEN ; /$# IBEGIN=%B34SEVAL(&ibegin) /$# %B34SENDIF ; /$# %B34SIF(&iend.NE.0)%THEN ; /$# IEND =%B34SEVAL(&iend) /$# %B34SENDIF ; /$# scaunit =%B34SEVAL(&SCAUNIT) /$# scafname3 =%B34SEVAL(&SCAFNAME3) /$# $ /$# var =%b34seval(&var1) %b34seval(&var2) $ /$# THIRDORDER /$# %B34SIF(&savestat.NE.0)%THEN ; /$# savestat /$# %B34SENDIF ; /$# %B34SIF(&listmstat.NE.0)%THEN ; /$# listmstat /$# %B34SENDIF ; /$# %B34SIF(&plotacf.NE.0)%THEN ; /$# plotacf /$# %B34SENDIF ; /$# nac =%b34seval(&NAC) /$# npac =%b34seval(&NPAC) /$# napl =%b34seval(&NAPL) /$# c =%b34seval(&C) /$# %B34SIF(&window.gt.11)%THEN ; /$# window =%b34seval(&window) /$# %B34SENDIF ; /$# poverl =%b34seval(&poverl) /$# $ /$# B34SEEND$ B34SRETURN$ B34SEEND$ == ==TEMPLATE1 Template for Simple Menu B34SEXEC MAKEMENU COMMANDN('Template # 1 - Simple Menu') COMMANDH('Add help sentences here ', 'More here ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 1 ') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') textid('Hit space bar to setup option') text('Set option:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Real input:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit Fn6 key to see choices for Display Manager colors') TEXT('DM Foreground Color:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan (L Blue) ', 'Blue ', 'Magenta/Purple', 'White ', 'Gray ', 'Bold Red ', 'Bold Yellow ', 'Bold Green ', 'Bold Cyan ', 'Bold Blue ', 'Bold Magenta ', 'Bold White ') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC1F=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ PGMCARDS$ B34SRETURN$ B34SEEND$ == ==TEMPLATE2 Template for Simple Menu with Boxes B34SEXEC MAKEMENU COMMANDN('Template # 2 - Menu with Boxes') COMMANDH('Add help sentences here ', 'More here ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 2 ') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') textid('Hit space bar to setup option') text('Set option:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Real input:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit Fn6 key to see choices for Display Manager colors') TEXT('DM Foreground Color:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan (L Blue) ', 'Blue ', 'Magenta/Purple', 'White ', 'Gray ', 'Bold Red ', 'Bold Yellow ', 'Bold Green ', 'Bold Cyan ', 'Bold Blue ', 'Bold Magenta ', 'Bold White ') CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC1F=') DEFAULT=(' ') POSTSTRING('^') $ BOX position(10,10,37,3) $ BOX position( 3,14,72,4) $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ PGMCARDS$ B34SRETURN$ B34SEEND$ == ==TEMPLATE3 Window menu B34SEXEC MAKEMENU COMMANDN('Template # 3 Window Menu with Boxes') formt(window,70,18) COMMANDH('This shows a window menu ', 'More here ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 3 Window menu ') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') textid('Hit space bar to setup option') text('Set option:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ * position arguments set col, row width height $ BOX position(10,10,37,3) boxframe(single,yellow,black,black)$ BOX position( 3,14,20,4) boxframe(double,blue,green,black)$ PGMCARDS$ B34SRETURN$ B34SEEND$ == ==TEMPLATE4 Shows Tabbed form with boxes B34SEXEC MAKEMENU COMMANDN('Template # 4 - Tabbed Menu') fhcolor(bold,red,green,single,blue,white) tabhelpposition(20) COMMANDH('Add help sentences here ', 'More here ') formt(tabbed) tabposition(top) tlabels('Blue Color','Red Color','Green Color')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) textcolor=blue COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=8 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') textcolor=blue text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') limitf(1) textcolor=blue textid('Hit space bar to setup option') text('Set option:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) textcolor=red COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ box position(2,2,40,3) limitb(1) boxframe(single,red,green)$ box position(2,2,40,3) limitb(2) boxframe(single,cyan,red)$ box position(2,2,40,3) limitb(3) boxframe(single,green,black)$ box position(2,16,40,3) limitb(0) boxframe(double,yellow,red)$ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL limitf(2) textcolor=red preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Real input:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit Fn6 key to see choices for Display Manager colors') TEXT('DM Foreground Color:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan (L Blue) ', 'Blue ', 'Magenta/Purple', 'White ', 'Gray ', 'Bold Red ', 'Bold Yellow ', 'Bold Green ', 'Bold Cyan ', 'Bold Blue ', 'Bold Magenta ', 'Bold White ') textcolor=green CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET WC1F=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' textcolor=green COL2=24 TEXTID='Specify left hand variable name here' TEXT('Left Hand Var:') limitf(3) optional $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') textcolor=byellow optional $ FIELD TYPE=INFO PAGE=1 ROW=4 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 1 ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET HINICH = 0 ^ ' )$ PGMCARDS$ B34SRETURN$ B34SEEND$ == ==TEMPLATE5 Shows Cycling and Vertical menu B34SEXEC MAKEMENU COMMANDN('Template # 1 - Simple Menu') COMMANDH('Add help sentences here ', 'More here ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 1 ') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=checkbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') textid('Hit space bar to setup option') text('Set option:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Real input:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=8 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit space bar to cycle choices') TEXT('DM Foreground Color:') fieldcolor(red,blue) CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET cycle=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=vertical PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit space bar to cycle choices') TEXT('DM Foreground Color:') fieldcolor(red,white) intrange(3) CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET vertical=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ PGMCARDS$ B34SRETURN$ B34SEEND$ == ==TEMPLATE6 Shows radiocheck box B34SEXEC MAKEMENU COMMANDN('Template # 1 - Simple Menu') COMMANDH('Add help sentences here ', 'More here ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^ ' '%A34SLET IN2 = 0^ ' '%A34SLET IIN2 = 0^ ' '%A34SLET var3 = "_NULL_"^' '%A34SLET IGRAPH = 0^ ' '%A34SLET IRESSAVE = 0^ ' '%A34SLET IRES = 0^ ' '%A34SLET CENTER = 0^ ' '%A34SLET ICENTER = 0^ ' '%A34SLET KMB = 2^ ' '%A34SLET KMT = 7^ ' '%A34SLET JRDF =-1^ ' '%A34SLET TH =.02^ ' '%A34SLET EDTH =.1^ ' '%A34SLET CPTH =0.0^ ' '%A34SLET RADD =1.0^ ' '%A34SLET DFTEST = 0 ^ ' '%A34SLET PPTEST = 0 ^ ' '%A34SLET LMTEST = 0 ^ ' '%A34SLET ACF = 0 ^ ' '%A34SLET PACF = 0 ^ ' '%A34SLET ACFVARSQ = 0 ^ ' '%A34SLET PACFVARSQ = 0 ^ ' '%A34SLET HINICH = 0 ^ ' )$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' Template # 1 ') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('integer in :') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets SCA FSAVE file name') testid('File for all output') text('FSAVE file:') default=('_pisp.fsv ') $ field type=input fieldtype=rcheckbox page=1 row=5 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') intrange(2) textid('Hit space bar to setup option') text('Radio 1:') default=(' ') $ field type=input fieldtype=rcheckbox page=1 row=6 col1=2 choicecode('%A34SLET igraph=0^','%A34SLET IGRAPH=1^') col2=24 fieldhelp('Shows check box') intrange(0) textid('Hit space bar to setup option') text('Radio 2:') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(KMB) FIELDTYPE=INTEGER DEFAULT='2 ' INTRANGE(2,999) COL2=24 TEXTID='Lower bound on number of knots to fit' TEXT('Lower # Knots:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(CENTER) FIELDTYPE=REAL preline('%A34SLET ICENTER=1^') col2=24 DEFAULT=' ' fieldhelp('Sets value to subtract from each Y value before' 'the fitting process. After fitting, this value is' 'added back in. Blank => mean Y is used.') TEXTID='Data center value. If blank, mean used.' REALRANGE(-1.e+32,1.0e+32) TEXT('Real input:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE=cycling PAGE=1 ROW=9 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit space bar to cycle choices') TEXT('DM Foreground Color:') fieldcolor(red,blue) CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET cycle=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT FIELDTYPE=vertical PAGE=1 ROW=13 COL1=1 COL2=33 FIELDHELP('Set Display Manager Screen Foreground') TEXTID('Hit space bar to cycle choices') TEXT('DM Foreground Color:') fieldcolor(red,white) intrange(3) CHOICECODE('black','red','yellow','green','cyan','blue', 'magenta','white','gray','bred','byellow', 'bgreen','bcyan','bblue','bmagenta', 'bwhite') PRESTRING('%A34SLET vertical=') DEFAULT=(' ') POSTSTRING('^') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var1) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify left hand variable names here' TEXT('Left Hand Var:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(var2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify right hand variables' TEXT('Right Hand Var:') required $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ B34SRETURN$ B34SEEND$ ==