********************************************************
*SPSS syntax to convert the People's Activities and Use*
*of Time (conducted by the BBC) - UK 1974-75           *
*into Multinational Time Use Study versions 5.3/5.8/6.0*
*initial set up by Sally Jones and Jonathan Gershuny   *
*University of Bath early 1980s                        *
*modified by Tingting Lu and Anne Gauthier, University *
*of Calgary , last update 6 July 2004                  *
*upgraded following the correction of identifier errors*
*by Kimberly Fisher, University of Oxford 5 March 2007 *
*further improved 15 October 2008, with corrections    *
*12 February 2010                                      *
********************************************************.

Get file='C:\Documents and Settings\All Users\Documents\time-use-library\UK\1974-75\edemfixed.sav'.

**************************************
*COMPUTATION OF DEMOGRAPHIC VARIABLES*
**************************************.
freq country tvregion.
cro country by tvregion.

rename variables (country=regiono).
recode regiono (1=1) (2=7) (3=6) (else=-8) into region.
if tvregion=1 or tvregion=2 region=4.
if tvregion=5 region=2.
if tvregion=6 or tvregion=9 region=3.
if tvregion=3 or tvregion=4 region=5.
var lab region country and English region.
val lab region
   -8 missing
    1 North of England
    2 English Midlands
    3 East of England
    4 London and South East
    5 South & West of England
    6 Wales
    7 Scotland
    8 Northern Ireland.
freq region.
cro region by regiono tvregion.

compute countreg = 37.
compute survey = 1974.
compute swave = 0.
compute msamp = 0.
*persid already exits in the right form.
compute hldid = hid.

freq wave.
do if wave=1.
   compute month = 8.
   compute year=1974.
Else if wave=2.
   compute month = 9.
   compute year=1974.
Else if wave=3.
   compute month = 2.
   compute year=1975.
Else if wave=4.
   compute month = 2.
   compute year=1975.
end if.
cro wave by month year.

freq soclass fos. 
cro soclass by fos. 

compute incorig = -9.
compute empinclm = -9.

Do if fos=1 or fos=2 or (fos>6 and soclass=1).
   compute income=3.
Else if fos=3 or fos=4.
   compute income=2.
Else if fos=5 or fos=6 or soclass=3.
   compute income=1.
Else if soclass=2.
   compute income=2.
Else.
   compute income=-8.
End if.
freq income.
cro income by fos soclass.
recode fos (1=1) (2=7) (3=9) (4=11) (5=13) (else=-8) into occup.
cro occup by fos income.

compute tenure=-9.
compute computer=-9.
compute carer=-9.
compute sector=-9.
compute citizen=-9.
compute health=-9.
compute rushed=-9.
compute cohab = -9.
compute disab = -9.
compute ownhome=-9.

freq car carrads. 
recode car carrads (sysmis=-8).
cro car by carrads. 

Do if carrads>1 and carrads<11.
   compute vehicle=4.
Else if carrads=1 or car=1.
   compute vehicle=3.
Else if carrads=11 or car=2.
   compute vehicle=0.
Else.
   compute vehicle=-8.
End if.
freq vehicle.
cro vehicle by carrads car.

freq sex.
recode sex (5=-8).
freq sex age.

*age cap applied.
recode age (132=-8) (80 thru hi=80).
freq age.

temp.
select if sex=-8.
freq hhrel1 hhrel2.
*some other data that indicates the sex of people with missing sex.
if sex=-8 and (hhrel1=4 or hhrel1=6) sex=2.
if sex=-8 and (hhrel1=5 or hhrel2=1) sex=1.
freq sex.

temp.
select if age=-8.
freq hhrel1 hhrel2.
*all missing age people are adults.

temp.
select if age=-8.
cro hhrel1 by ykids okids.
*no obvious conclusions about the missing age cases.

temp.
select if age>-8 and age<18.
freq hhrel1 hhrel2.

temp.
select if age>-8.
means age by hhrel1 hhrel2 absence
   /cells count min max mean.
cro hhrel1 by hhrel2.
cro hhrel1 by persid.

freq marital absence hhtype femp7 femp5 femp3 femp1 inlaws.

temp.
select if absence=4.
freq age hhrel1.
*missing age cases also checked. Some clearly older people, parent
*of someone else aged late 20s or older or partner of some aged 50+.
*some grandparents in households with children.

Do if ykids>10 and okids>10 and (age>17 and age<40).
   compute famstat=0.
Else if ykids>10 and okids>10 and age>39.
   compute famstat=3.
Else if age>17 and ykids<11.
   compute famstat=1.
Else if age>17 and ykids>10 and okids<11.
   compute famstat=2.
Else if (age>-8 and age<18) and any(hhrel1, 5,6) and absence~=4.
   compute famstat = 4.
Else if (age>-8 and age<18).
   compute famstat=5.
Else if hid=225 or hid=339 or hid=836.
     compute famstat=3.
Else if hid=647.
     compute famstat=1. 
Else if hid=948.
     compute famstat=2. 
Else.
   compute famstat = -8.
End if.
cro famstat by ykids okids hhrel1.
means age by famstat
   /cells count min max.
*22 cases coded as famstat=5 visually checked
*all seem appropriate for this code.

cro sex by femp7 femp5 femp3 femp1.
compute test=0.
if sex=2 and (femp3=1 or femp1=1) test=1.
freq test.
*the two cases where a codes of a man whose wife works
*apply to a woman, the woman is young and the daughter of 
*person 1 in the household.

recode marital (sysmis=12).
execute.

temp.
select if marital=12.
freq age.

cro marital by hhrel1 hhrel2 absence.

temp.
select if marital=12 and absence=1.
freq hhrel1 hhrel2.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /N_BREAK=N.

temp.
select if hhtype=1.
freq N_BREAK.
*people in household type single person household
*all from households with 1 diary.

temp.
select if marital=12 and hhtype=3.
freq N_BREAK hhrel2.
*most people in household type married couple only whose
*marital status is missing in households with 2 diaries,
*some have 1 diary (likely people whose spouse did not keep
*the diary). All but two of these cases are coded as 
*having the relationship of a spouse of another diarist.

temp.
select if marital=12 and hhtype=4.
freq N_BREAK.
compute test=0.
if marital=12 and hhtype=4 test=1.
freq test.
*most people in household type married couple only whose
*marital status is missing in households with 2 diaries,
*some have 1 diary (likely people whose spouse did not keep
*the diary).

cro marital hhtype by hhrel2.
*mark where 2 grandparents or 2 parents present.
compute gdad=0.
compute gmom=0.
compute dad=0.
compute mom=0.
if hhrel1=1 gdad=1.
if hhrel1=2 gmom=1.
if hhrel1=3 dad=1.
if hhrel1=4 mom=1.
cro hhrel1 by gdad gmom dad mom. 

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /gdadpres=MAX(gdad)
  /gmompres=MAX(gmom)
  /dadpres=MAX(dad)
  /mompres=MAX(mom).

compute civstat=-8.
Do if marital=2 or hhrel2=1 or hhrel2=2.
   compute civstat=1.
Else if marital=1 or hhrel2=4 or hhrel1=8 or hhtype=1 or hhtype=2.
   compute civstat=2.
Else if (gdad=1 or gmom=1) and gdadpres=1 and gmompres=1.
   compute civstat=1.
Else if (dad=1 or mom=1) and dadpres=1 and mompres=1.
   compute civstat=1.
*young diarists not likely to be married.
Else if age<17.
   compute civstat=2.
Else if femp7=1 or femp5=1 or femp3=1 or femp1=1 or inlaws=1.
   compute civstat=1.
Else if marital=3 or absence=1.
   compute civstat=2.
end if.
freq civstat.

*some peculiar cases visually checked and fixed.
if id=1119 hhrel1=3.
if id=1118 hhrel1=4.
if id=1217 civstat=2.
if id=1445 civstat=2.
if id=1823 civstat=1.
if hid=333 hhtype=7.
if id=1853 civstat=1. 
if id=2017 civstat=1.
if id=2020 civstat=1.
if id=2045 civstat=1.
if hid=419 and civstat=-8 civstat=1.
if id=2457 civstat=2.
if id=2544 civstat=1.
if id=2545 civstat=2.
if hid=630 and civstat=-8 civstat=1.
if id=2832 civstat=2.
if id=2834 civstat=2.
if id=2833 civstat=1.
if id=2894 civstat=2.
if id=4697 civstat=2.
if id=1076 civstat=2.
if id=1086 civstat=1.
if id=1087 civstat=2.
freq civstat.

*the single grandparents and other relatives are in multigeneration
*households with a couple and children, in mist cases the number of
*adults tallies with the number of adult diaries, thus as these
*people are not missing a partner in the household, they are
*coded as not in couples. Most of the fathers or mothers whose
*partnership status remains unknown are in households where an
*adult diary is missing and their children are present, and 
*in 2 generation households. The sons and daughters are mostly
*young adults and living with parents, thus likely to not yet
*be in couples.

compute test=0.
if civstat=-8 and hhrel1=3 test=1.
freq test.
*these cases checked. 
If test=1 civstat=1.
cro civstat by hhrel1.
compute test=0.
if civstat=-8 and hhrel1=4 test=1.
freq test.

temp.
select if test=1.
freq persid.

if test=1 civstat=1.
freq civstat.
cro civstat by hhrel1 hhrel2.

compute test=0.
if civstat=-8 and hhrel1=11 test=1.
cro test by fempx.
if test=1 civstat=2.
freq civstat.
cro civstat by hhrel1 hhrel2.

compute test=0.
if civstat=-8 and hhrel1=1 test=1.
freq test.
if test=1 civstat=2.
freq civstat.
cro civstat by hhrel1.

compute test=0.
if civstat=-8 and hhrel1=7 test=1.
freq test.
if test=1 civstat=2.
freq civstat.
cro civstat by hhrel1.

temp.
select if civstat=-8.
freq hhtype age.

if civstat=-8 and (hhtype=5 or hhtype=7 or age<25) civstat=2.
freq civstat.
recode civstat (-8=2).
*remaining examined, look likely singles in 1 couple households.
cro civstat by marital inlaws absence hhrel1 hhrel2 hhtype.   

compute cphome=0.
if ((hhrel1=5 or hhrel1=6) or ((hhrel1=3 or hhrel1=4) and (gdadpres=1 or gmompres=1))) 
   and civstat=2 and absence~=4 cphome = 1.
freq cphome.
cro cphome by hhtype civstat famstat absence inlaws.
means age by cphome
   /cells mean min max count.
compute test=0.
if cphome=1 and age>50 test=1.
freq test.
*7 cases where an older person coded as in parental home.
*these checked; 2 are cases of the oldest person who is
*more likely to be a grandparent than a child.
If id=2702 or id=2877 cphome=0.
If id=2702 hhrel1=2.
If id=2877 hhrel1=1.
freq cphome.

compute singpar=0.
*make markers for child in household with 1 parent missing/dead.
compute parmis=0.
if absence=2 or absence=3 parmis=1.
freq parmis.
*aggregate - sum number of parents, simply maker marker for
*parent absent.

compute m2=0.
if civstat=1 m2=1.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /mar=SUM(m2)
  /sp=MAX(singpar)
  /parmism=MAX(parmis).
cro dadpres by mompres by parmism.

if (mom=1 or dad=1) and parmism=1 and ((dadpres=1 and mompres=0) or 
   (dadpres=0 and mompres=1)) singpar=1.
freq singpar.
cro singpar by hhtype parmism hhrel1.
cro civstat sex by singpar.
*check if any non-coupled parents not coded as signle parents.
compute test=0.
if (mom=1 and civstat=2) or (dad=1 and civstat=2) test=1.
cro test by singpar.
compute test2=0.
if test=1 and singpar=0 test2=1.
cro test2 by hhtype.
*these 20 additional people are parents in multi-generation households
*by not couple households.
If test2=1 singpar=1.
cro singpar by civstat hhtype.

rename variables hhtype=hhtypea.
recode hhtypea (1=1) (3=2) (4=3) (2,9=4) (5, 6, 7, 8, 11=-8) into hhtype.
freq hhtype.
cro hhtype by hhtypea hhsize hhrel2.

*as some adjustments have been made to civstat and empstat
*make new variables to count the number of potential couples.
compute nc=0.
if civstat=1 nc=1.
*also determine types of pairings in couples.
compute ct=0.
Do if civstat=1 and hhrel1=1.
   compute ct=1000.
Else if civstat=1 and hhrel1=2.
   compute ct=1001.
Else if civstat=1 and hhrel1=3.
   compute ct=100.
Else if civstat=1 and hhrel1=4.
   compute ct=101.
Else if civstat=1 and hhrel1>4 and hhrel2=1.
   compute ct=10.
Else if civstat=1 and hhrel1>4 and hhrel2=2.
   compute ct=11.
Else if civstat=1 and hhrel1>4 and (hhrel2=0 or hhrel2>2).
   compute ct=1.
End if.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /ncoup=SUM(nc)
  /ctype=SUM(ct).
freq ncoup ctype.
temp.
select if civstat=1.
cro ncoup by ctype.

Do if hhtype=-8 and ncoup=2 and hhsize=2.
   compute hhtype=2.
Else if hhtype=-8 and ncoup>0.
   compute hhtype=3.
Else if hhtype=-8 and (sp=1 or (hhtypea>4 and hhtypea<9)).
   compute hhtype=4.
End if.
freq hhtype.
cro hhtype by hhtypea civstat ncoup sp.

*remaining 8 hhtype missing are cases where the diarist in
*not in a couple and no diarist is in a couple.

temp.
select if hhtype=-8.
freq hhsize.
*these are 2 or 3 person households.
recode hhtype (-8=4).
freq hhtype.

recode hhsize (sysmis=-8).
freq hhsize.

temp.
select if hhsize=-8.
freq N_BREAK civstat absence hhtype hhtypea persid.
Do if hhsize=-8.
   compute hhsize= electors+ nonelect.
end if.
freq hhsize.
compute hhldsize=hhsize.

freq ykids okids.
*one household have value 12 for ykids and okids.
*this household contains a household size of 3 and
*3 electors, so assume the 12 is a mistype of 11, the
*value for no children of that age group present.
recode ykids okids (11,12=0).
compute t=0.
if age>15 and age<18 t=1.
means age by t
   /cells min max.
AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /teen=SUM(t).
freq teen.

compute nchild=ykids+okids+teen.
freq nchild.
cro nchild by ykids okids teen nonelect hhsize famstat.

*check anomoly.
compute test=0.
if famstat=4 and nchild=0 test=1.
freq test.

If famstat=4 and nchild=0 nchild=1.
cro famstat by nchild.

cro famstat by teen.
*some errors in famstat, as this variable initially
*created with a variable that does not account for
*the presence of people aged 16 and 17 in the household.
*fix this now.
freq famstat.
If famstat=0 and teen>0 famstat=2.
If famstat=3 and teen>0 famstat=2.
freq famstat.
cro famstat by teen.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /minage=MIN(age).
freq minage.

compute agekidx=-7.
Do if ykids>0.
   compute agekidx=1.
Else if okids>0 and (ageykid=4 or minage=12). 
   compute agekidx=2.
Else if okids>0.
   compute agekidx=3.
Else if teen>0 or ageykid=5.
   compute agekidx=3.
Else if ageykid=4.
   compute agekidx=2.
Else if (cphome=1 or ((hhrel1=5 or hhrel1=6) and absence~=4 
   and inlaws ~=1)) and age=minage.
   compute agekidx=4.
End if.
freq agekidx.
cro agekidx by ykids okids teen nchild ageykid minage famstat. 

*look into 6 anomolies.
compute test=0.
if agekidx=3 and (famstat=0 or famstat=3) test=1.
freq test.

temp.
select if test=1.
freq civstat cphome age ageykid.

freq famstat.
*6 anomolies with agekidx=3 but famstat=0 or 3.
if test=1 famstat=2.
freq famstat.
cro agekidx by famstat ageykid.

temp.
select if age>-8.
means age minage by agekidx
   /cells min max mean.

Do if agekidx=-7.
   compute agekid2=-7.
Else if ageykid=1.
   compute agekid2=0.
Else if ageykid=2. 
   compute agekid2=1.
Else if ageykid=3. 
   compute agekid2=3.
Else if agekidx=1.
   compute agekid2=2.
Else if ageykid=4.
   compute agekid2=8.
Else if ageykid=5 and agekidx=2.
   compute agekid2=12.
Else if ageykid=5 and agekidx=3.
   compute agekid2=15.
Else if ageykid=6 and agekidx=3. 
   compute agekid2=17.
Else if ageykid=6 and agekidx=4.
   compute agekid2=20.
Else if agekidx=3.
   compute agekid2=15.
Else if agekidx=4.
   compute agekid2=minage.
Else.
   compute agekid2=-8.
End if.
if (cphome=1 or ((hhrel1=5 or hhrel1=6) and absence~=4 and 
   inlaws ~=1)) and age<agekid2 agekid2=age.
freq agekid2.
means agekid2 by agekidx
   /cells min max mean.
cro agekid2 by agekidx.

temp.
select if agekidx=3 and agekid2=11.
freq famstat age cphome.

*there are 3 errors involving 11-year-olds.
if agekidx=3 and agekid2=11 agekidx=2.
means agekid2 by agekidx
   /cells min max mean.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /minak=MIN(agekidx)
  /maxak=MAX(agekidx)
  /minagekid2=MIN(agekid2)
  /maxagekid2=MAX(agekid2).
cro minak by maxak.
cro minagekid2 by maxagekid2.

if minak=-7 and maxak=4 agekidx=4.
if minagekid2>-7 and minagekid2<maxagekid2 agekid2=minagekid2.
if minagekid2=-7 and minagekid2<maxagekid2 agekid2=maxagekid2.
if agekidx=3 and agekid2=11 agekidx=2.
means agekid2 by agekidx
   /cells min max mean.

*there is a variable for main relation to others in the
*household. Set the people with the persid=1 to be person 1.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /minid=MIN(persid).
freq minid.

temp.
select if minid>1.
freq hhsize hhrel1 hhrel2. 

*households with the lowest persid>1 have more than 1 person
*in the household.

temp.
select if persid>1.
freq hhrel1 hhrel2. 

temp.
select if persid=minid.
freq age hhrel1 hhrel2. 

temp.
select if persid=1.
freq age hhrel1 hhrel2. 
*all people with persid=1 age adults.

compute spprev=0.
if hid=lag(hid) and lag(persid)=1 and persid=2 and lag(civstat)=1 and civstat=1 spprev=1.
freq spprev.

temp.
select if spprev=1.
freq hhrel1 hhrel2. 
*hhrel1 and hhrel2 related to a general household definition and not directly
*relation to person 1 in the household.

temp.
select if hhtypea=2.
cro hhrel1 by hhrel2.
*people in 2 person household not couple either other family or not related.

*fix some additional errors observed while creating relrefp.

freq hhtype civstat.

compute relrefp=0.
Do if persid=1.
   compute relrefp=1.
Else if hhtypea=2 and hhrel1=7.
   compute relrefp=9.  
Else if hhtypea=2.
   compute relrefp=10.
Else if hhtypea=3.
   compute relrefp=2.   
*people whose hhrel1 value is child consistently seem to be children mostly of person 1.
Else if persid>1 and hhrel1=5 or hhrel1=6.
   compute relrefp=3.
*spouses seem more likely to be coded in hhrel2.
Else if persid=2 and hhrel2=1 or hhrel2=2.
   compute relrefp=2.
*deal with remaining unrelated people.
Else if hhrel1=8 or hhrel1=11.
   compute relrefp=10.
*remove other relatives.
Else if hhrel1=7.
   compute relrefp=9.
*if a parent and in partnership, code as a spouse.
Else if civstat=1 and (hhrel1=3 or hhrel1=4).
   compute relrefp=2.
End if.
freq relrefp.
cro relrefp by persid hhrel1 hhrel2.

temp.
select if relrefp=0.
cro hhrel1 by hhrel2.

temp.
select if relrefp=0.
cro civstat by singpar by hhrel1.
*45 single parents with a missing relrefp - seem cases
*where a child is the reference person.
if relrefp=0 and singpar=1 relrefp=4.
freq relrefp. 

temp.
select if relrefp=0 and hhrel1<3.
freq hhtypea persid. 

temp.
select if relrefp=0.
cro hhtypea by hhrel1.

if relrefp=0 and hhrel1<3 relrefp=4.
recode relrefp (0=-8).
freq relrefp.

recode econact (1=1) (2=2) (3 thru 6=4) (else=-8) into empstat.
freq empstat.
cro empstat by econact working slage daytype.

if empstat=-8 and working<8 empstat=3.
if empstat=-8 and daytype=1 empstat=3.
freq empstat.

temp.
select if empstat=-8.
freq age.

if empstat=-8 and age>65 empstat=4.
freq empstat.

recode empstat (1,2,3=1) (4=0) (-8=-8) into emp.
freq emp.

compute unemp=0.
compute student=0.
compute retired=0.
if econact=6 unemp=1.
if (econact=5 or slage=8)  student = 1.
if any(econact,1,2,3,4,6) student = 0.
if econact=4 retired=1.
cro unemp student retired by econact slage working.

means age by student retired
   /cells = min max mean.

temp.
select if retired=0 and age>65.
means age by econact
   /cells = min max mean count.

if econact>2 and retired=0 and (age>65 and age<132) retired=1.
freq retired.

freq slage.
compute educa = slage.
compute edtry = -8.
compute aglftsch=-8.
var lab aglftsch age left formal education.
val lab aglftsch
   -8 missing
    0 still in school
   15 15 or less
   21 21 or older.
recode slage (1=15) (2=16) (3=17) (4=18) (5=19) (6=20)
   (7=21) (8=0) (12=-8) into aglftsch.
means age by aglftsch
   /cells = min max.

if educa=1 edtry = 1.
if educa=8 and age<16 edtry = 1.
if educa=2 or educa=3 edtry = 2.
if educa=8 and (age=16 or age=17) edtry = 2.
if educa>3 and educa<8 edtry = 3.
if educa=8 and age>17 edtry = 3.
recode areatype (1,2 = 1) (3 = 2) (else=-8) into urban.
cro areatype by urban.
cro edtry by slage.

*produce what can be produced of empsp without matching information.
Compute empsp=-5.
Do if civstat=2.
   compute empsp=-7.
Else if sex=1 and civstat=1 and femp1=1.
   compute empsp=1.
Else if sex=1 and civstat=1 and femp3=1.
   compute empsp=2. 
Else if sex=1 and civstat=1 and fempx=1.
   compute empsp=4.
Else if sex=2 and civstat=1 and femp5=1.
   compute empsp=4.
Else if sex=2 and civstat=1 and femp7=1.
   compute empsp=2. 
Else if sex=2 and civstat=1 and fempx=1.
   compute empsp=1.
End if.
freq empsp.
*note 24 -5 empsp cases which need addressing.

cro famstat by nchild.
if famstat=2 and nchild=0 nchild=1.
cro famstat by nchild.

compute parntid1=-5.
compute parntid2=-5.
if cphome=0 and inlaws~=1 parntid1=-7.
if cphome=0 and inlaws~=1 parntid2=-7.
freq parntid1 parntid2.

compute tp1=99.
compute tp2=-5.
compute tp3=99.
compute tp4=-5.
if gdad=1 or gmom=1 tp1= persid.
if gdad=1 or gmom=1 tp2= persid.
if dad=1 or mom=1 tp3= persid.
if dad=1 or mom=1 tp4= persid.
freq tp1 to tp4.

compute np=0.
if dad=1 or mom=1 or gdad=1 or gmom=1 np=1.
freq np.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hid
  /nparent=sum(np)
  /gppidlow=MIN(tp1)
  /gppidhi=MAX(tp2)
  /ppidlow=MIN(tp3)
  /ppidhi=MAX(tp4).
desc nparent gppidlow gppidhi ppidlow ppidhi.

cro nparent by gdadpres gmompres dadpres mompres.
freq gppidlow to ppidhi.
cro gppidlow by gppidhi.

Do if (hhrel1=3 or hhrel1=4) and (gdadpres=1 and gmompres=1)
   and (gppidlow<99 and gppidhi>-5).
   compute parntid1=gppidlow.
   compute parntid2=gppidhi.
Else if (hhrel1=3 or hhrel1=4) and (gdadpres=1 and gmompres=1)
   and gppidhi>-5.
   compute parntid1=gppidhi.   
   compute parntid2=-8.
Else if (hhrel1=3 or hhrel1=4) and (gdadpres=1 or gmompres=1)
   and gppidhi>-5.
   compute parntid1=gppidhi.   
   compute parntid2=-7.
Else if (hhrel1=5 or hhrel1=6) and (dadpres=1 and mompres=1)
   and (ppidlow<99 and ppidhi>-5).
   compute parntid1=ppidlow.
   compute parntid2=ppidhi.
Else if (hhrel1=5 or hhrel1=6) and (dadpres=1 and mompres=1)
   and ppidhi>-5.
   compute parntid1=ppidhi.   
   compute parntid2=-8.
Else if (hhrel1=5 or hhrel1=6) and (dadpres=1 or mompres=1)
   and ppidhi>-5.
   compute parntid1=ppidhi.   
   compute parntid2=-7.
End if.
recode parntid1 parntid2 (-5=-8).
freq parntid1 parntid2.
cro parntid1 by parntid2.

compute test=0.
if cphome=0 and (parntid1>0 or parntid2>0) test=1.
freq test.

temp.
select if test=1.
freq civstat.

if test=1 and civstat=2 cphome=1.
freq cphome.
cro cphome by civstat.
cro cphome by hhtype.

*74 of the 76 cases where people are coded as not in their parental home
*are married - meaning that they should be cphome=0. 6 people living in 
*their parental home are not in a couple, and thus should have a cphome 
*value of 1.

*save the base MTUS file up to this point and also a base file for 
*constructing couples matching identifiers and spouse employment.

apply dictionary from 
   'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW553schema.sav'.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
   /keep countreg survey swave msamp hldid persid id parntid1 parntid2 month 
    year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome 
    urban computer vehicle sex age famstat cphome singpar relrefp civstat 
    cohab citizen empstat emp unemp student retired empsp empinclm 
    occup sector educa edtry rushed health carer disab aglftsch region
    hhrel1 hhrel2 wave.

**this datasets also included in the couples file dataset, the next steps
*create the couples base file.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'.

*as some adjustments have been made to civstat and empstat
*make new variables to count the number of potential couples.
compute nc=0.
if civstat=1 nc=1.
*also determine types of pairings in couples.
compute ct=0.
Do if civstat=1 and hhrel1=1.
   compute ct=1000.
Else if civstat=1 and hhrel1=2.
   compute ct=1001.
Else if civstat=1 and hhrel1=3.
   compute ct=100.
Else if civstat=1 and hhrel1=4.
   compute ct=101.
Else if civstat=1 and hhrel1>4 and hhrel2=1.
   compute ct=10.
Else if civstat=1 and hhrel1>4 and hhrel2=2.
   compute ct=11.
Else if civstat=1 and hhrel1>4 and (hhrel2=0 or hhrel2>2).
   compute ct=1.
End if.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK= hldid
  /ncoup=SUM(nc)
  /ctype=SUM(ct).
freq ncoup ctype.

select if civstat=1.
freq ncoup. 

*the cases of diaries from only 1 partner in a couple do
*not permit matching of data within the couple. The 15 households
*with 3 diarists in couples checked, all 4 cases with 2 diaries from 
*parents and 1 diary from either their adult child or the adult child's
*spouse. aim to select diaries where both partners in the household
*completed diaries. Start by eliminating single cases.

select if ncoup=2 or ncoup=4 or id=1118 or id=1119 or id=1351 or id=1352 
   or id=2169 or id=2171 or id=2427 or id=2429 or id=2705 or id=2706.
freq ncoup. 

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK= hldid
  /maxage=MAX(age)
  /minage=MIN(age)
  /maxhrel=MAX(hhrel1)
  /minhrel=MIN(hhrel1)
  /maxsex=MAX(sex)
  /minsex=MIN(sex).

temp.
select if ncoup<4.
cro maxsex by minsex.

*mostly cases match up as we would expect, but some
*oddities. In this time period, few lesbian and gay couples
*identified themselves as such in this era. Check these 
*apparent cases.
compute test=0.
if maxsex=2 and minsex=2 test=1.
if hldid=419 and (persid=2 or persid=5) test=1.  
freq test.
*these are both cases of a man who did not complete a diary,
*his wife and his mother living in the same household.

select if test=0.

temp.
select if ncoup<4.
cro maxhrel by minhrel.

compute test=0.
if minhrel=4 and maxhrel=7 test=1.
*this household has a non-responding diarist who lives with
*mother and another relative. 
freq test.

select if test=0.

compute agedif=maxage-minage.

temp.
select if ncoup<4.
freq agedif.
*80% within 5 years of each other. 99.2% within 15 years -
*plausible. check cases with an age gap exceeding 15 years.
compute test=0.
if agedif>15 test=1.
freq test.
cro test by ncoup.
*most of these cases in 34 in 2 couple households, 
*14 in 1 couple households.

temp.
select if test=1 and ncoup=2.
freq minage.

*this leaves 852 couples (1704 diarists).
compute empsp2=-5.
compute partid=-5.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK= hldid
  /maxpid=MAX(persid)
  /minpid=MIN(persid)
  /maxemp=MAX(empstat)
  /minemp=MIN(empstat).
freq maxpid minpid maxemp minemp.

if hldid=419 ncoup=2.
freq ncoup.

*start with 1 couple households.
Do if ncoup<4.
   if persid=maxpid partid=minpid.
   if persid=minpid partid=maxpid.
End if.
Do if maxemp=minemp.
   compute empsp2=maxemp.
Else if ncoup<4.
   if empstat=maxemp empsp2=minemp.
   if empstat=minemp empsp2=maxemp.
End if.

*deal with 2 couple households.
Do if hldid=53 and persid=1.
   compute partid=2.
   compute empsp2=4.
Else if hldid=53 and persid=2.
   compute partid=1.
   compute empsp2=4.
Else if hldid=53 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=53 and persid=4.
   compute partid=3.
   compute empsp2=1.
Else if hldid=383 and persid=1.
   compute partid=2.
   compute empsp2=2.
Else if hldid=383 and persid=2.
   compute partid=1.
   compute empsp2=1.
Else if hldid=383 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=383 and persid=4.
   compute partid=3.
   compute empsp2=1.
Else if hldid=1028 and persid=1.
   compute partid=2.
   compute empsp2=1.
Else if hldid=1028 and persid=2.
   compute partid=1.
   compute empsp2=4.
Else if hldid=1028 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=1028 and persid=4.
   compute partid=3.
   compute empsp2=1.
Else if hldid=1030 and persid=1.
   compute partid=2.
   compute empsp2=2.
Else if hldid=1030 and persid=2.
   compute partid=1.
   compute empsp2=1.
Else if hldid=1030 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=1030 and persid=4.
   compute partid=3.
   compute empsp2=1.
Else if hldid=1047 and persid=1.
   compute partid=2.
   compute empsp2=4.
Else if hldid=1047 and persid=2.
   compute partid=1.
   compute empsp2=4.
Else if hldid=1047 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=1047 and persid=4.
   compute partid=3.
   compute empsp2=4.
Else if hldid=1210 and persid=1.
   compute partid=4.
   compute empsp2=2.
Else if hldid=1210 and persid=2.
   compute partid=3.
   compute empsp2=4.
Else if hldid=1210 and persid=3.
   compute partid=2.
   compute empsp2=4.
Else if hldid=1210 and persid=4.
   compute partid=1.
   compute empsp2=1.
Else if hldid=1395 and persid=1.
   compute partid=2.
   compute empsp2=4.
Else if hldid=1395 and persid=2.
   compute partid=1.
   compute empsp2=1.
Else if hldid=1395 and persid=3.
   compute partid=4.
   compute empsp2=1.
Else if hldid=1395 and persid=4.
   compute partid=3.
   compute empsp2=1.
Else if hldid=1401 and persid=1.
   compute partid=4.
   compute empsp2=4.
Else if hldid=1401 and persid=2.
   compute partid=3.
   compute empsp2=1.
Else if hldid=1401 and persid=3.
   compute partid=2.
   compute empsp2=4.
Else if hldid=1401 and persid=4.
   compute partid=1.
   compute empsp2=1.
End if.
freq empsp2 partid.

cro persid by partid.
*partid and persid should not have the same values -
*and they do not have such values - works fine.

cro empsp by empsp2.
if empsp=-5 empsp=empsp2.
if empsp~=empsp2 empsp=empsp2.
cro empsp by empsp2.

save outfile=
   'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975coupid.sav'
   /keep hldid persid partid empsp2.

match files 
      files='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
      files='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975coupid.sav'
   /by hldid persid.
recode partid (sysmis=-7).
if partid=-7 and civstat=1 partid=-8.
freq partid.

recode empsp2 (sysmis=-5).
cro empsp by empsp2.
if empsp=-5 empsp=empsp2.
cro empsp by empsp2.
recode empsp (-5=-8).
if empsp>0 and empsp2>0 empsp=empsp2.
cro empsp by empsp2.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
   /keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid
    month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome 
    urban computer vehicle sex age famstat cphome singpar relrefp civstat 
    cohab citizen empstat emp unemp student retired empsp empinclm occup 
    sector educa edtry rushed health carer disab wave aglftsch region.

get file='C:\Documents and Settings\All Users\Documents\time-use-library\UK\1974-75\edayseqfixed.sav'.

rename variables (hid=hldid).

freq main1 to loc42. 
*some missing cases.
recode main1 to loc42 (sysmis=-8).
freq main1 to loc42.

save outfile=
   'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq.sav'
   /keep hldid persid 
    main1  main2  main3  main4  main5  main6  main7  main8  main9  main10 
    main11 main12 main13 main14 main15 main16 main17 main18 main19 main20 
    main21 main22 main23 main24 main25 main26 main27 main28 main29 main30 
    main31 main32 main33 main34 main35 main36 main37 main38 main39 main40 
    main41 main42  
    sec1  sec2  sec3  sec4  sec5  sec6  sec7  sec8  sec9  sec10 
    sec11 sec12 sec13 sec14 sec15 sec16 sec17 sec18 sec19 sec20 
    sec21 sec22 sec23 sec24 sec25 sec26 sec27 sec28 sec29 sec30 
    sec31 sec32 sec33 sec34 sec35 sec36 sec37 sec38 sec39 sec40
    sec41 sec42 
    loc1  loc2  loc3  loc4  loc5  loc6  loc7  loc8  loc9  loc10 
    loc11 loc12 loc13 loc14 loc15 loc16 loc17 loc18 loc19 loc20 
    loc21 loc22 loc23 loc24 loc25 loc26 loc27 loc28 loc29 loc30 
    loc31 loc32 loc33 loc34 loc35 loc36 loc37 loc38 loc39 loc40
    loc41 loc42 day. 

************************
*put MTUS file together*
************************.

match files 
      files='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq.sav' /in=seq
      table='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav' /in=pers
   /BY hldid persid.
cro seq by pers.

freq wave day.
rename variables (day=dday).
recode dday (sysmis=-8).
freq dday.
*missing case checked - this is a Tuesday, as the only day of the 7 days
*that is not accounted.
recode dday (-8=7).
freq dday.

If wave=4 and dday>3 month=3.
cro month dday by wave. 

sort cases by hldid persid dday. 

compute diary=1.
if hldid=lag(hldid) and persid=lag(persid) diary=diary+lag(diary).
freq diary.
cro diary by dday.

compute id=dday.
freq id.

Do if wave=1.
   if dday=1 cday=14.
   if dday=2 cday=15.
   if dday=3 cday=16.
   if dday=4 cday=17.
   if dday=5 cday=18.
   if dday=6 cday=19.
   if dday=7 cday=20.
Else if wave=2.
   if dday=6 cday=9.
   if dday=7 cday=10.
Else if wave=3.
   if dday=1 cday=12.
   if dday=2 cday=13.
   if dday=3 cday=14.
   if dday=4 cday=15.
   if dday=5 cday=16.
   if dday=6 cday=17.
   if dday=7 cday=18.
Else if wave=4.
   if dday=1 cday=26.
   if dday=2 cday=27.
   if dday=3 cday=28.
   if dday=4 cday=1.
   if dday=5 cday=2.
   if dday=6 cday=3.
   if dday=7 cday=4.
End if.
freq cday.
cro cday by wave by dday.

recode dday (1=4) (2=5) (3=6) (4=7) (5=1) (6=2) (7=3) into day.
cro dday by day.

*code 95 is a real activity code - other in home leisure.
*codes 91 and 92 are bad entry codes. Change order of codes
*so that all legitimate codes in a single range. Codes 87 and
*88 are errors in the original data. 87 codes appear to be
*misentered 89 - travel - in places of change of location
*and following or preceding a leisure act; 88 appears in
*a string of walking in a diary where the diarist did a lot
*of walking, so assume is more walking.

Do If hldid=221.
   recode main33 to main36 (16=66).
Else if hldid=186.
   recode main35 to main36 (16=71).
Else if hldid=15 and main16=26.
   compute main16=99.
Else if hldid=20 and main12=16.
   compute main12=61.
Else if hldid=59 and main37=27.
   compute main37=2.
Else if hldid=318 and main33=28.
   compute main33=68.
Else if hldid=264 and main34=27.
   compute main34=2.
Else if hldid=445 and main39=26.
   compute main39=42.
Else if hldid=519 and main12=29.
   compute main12=89.
Else if hldid=745 and main31=7.
   compute main31=67.
Else if hldid=781 and main39=5.
   compute main39=2.
Else if hldid=832 and main36=25.
   compute main36=2.
Else if hldid=841 and main10=16.
   compute main10=46.
   compute loc10=4.
Else if hldid=844 and main33=27.
   compute main33=97.
Else if hldid=1021 and main36=25.
   compute main36=2.
Else if hldid=1063 and main19=16.
   compute main19=99.
Else if hldid=1072 and main18=7.
   compute main18=47.
Else if hldid=1338 and main25=7.
   compute main25=47.
End if.

*there are some mystery codes, these are individually examined
*in conjunction with the context of the diaries, and these
*mystery codes are recoded into the code frame.
recode main1 to main42 sec1 to sec42 (91=97) (93=91)
   (95=91) (87=89) (88=21) (92=99) (97=79) (24=21) (96=99) 
   (120=20) (15=13) (102=10) (6=66) (8=3) (else=copy).
freq main26.

compute miss1=0.
compute miss2=0.

Do repeat a=main1 to main42.
   Do if a>95.
      Compute miss1=miss1+1.
   End if.
End repeat. 
freq miss1.
*17252 diaries (85.2%) are missing no time.

*where no main activity recorded but secondary activity recorded,
*change secondary activity to no secondary activity and recode the
*main activity as the activity recorded in the secondary activity 
*section of the diary.

compute test=0.

Do repeat a=main1 to main42 / b=sec1 to sec42.
   Do if a>95 and b<96.
      Do if test=0.
         compute test=b.
      Else if test>0 and test <200.
         compute test=test + b*100.
      Else if test>99.
         compute test=test + b*1000.
      End if.
      Compute a=b.
      Compute b=99.
   End if.
End repeat. 

freq test.
*only 6 cases where there is more than one instance of a secondary 
*activity recorded but no main activity recorded.

Do repeat a=main1 to main42.
   Do if a>95.
      Compute miss2=miss2+1.
   End if.
End repeat. 
freq miss2 test.

*0.1% of diaries have entries modified by this procedure. a range
*of activities recorded in the secondary activity when no main 
*activity reported. Now
*17270 diaries (85.3%) are missing no time.

*tidy up location codes.
recode loc1 to loc42 (0=8).

temp.
select if loc1=8.
freq main1.

*initial location missing in 44 cases.

*initial location missing activity at school case checked.
*location must be away from home as later movement to home.
do if hldid=42 and persid=1 and id=4.
   recode loc1 to loc6 (8=4).
End if.
execute.

temp.
select if loc1=8 and main1=3.
freq loc4 loc5 loc6 loc7 loc8 loc9 main4 main5 main6 main7
     main8 main9 loc42.

*set 2 cases of wake up at home to location at home.
Do if loc1=8 and main1=3 and loc5=1.
   recode loc1 to loc4 (8=1).
end if.

temp.
select if loc1=8 and main1=3.
freq loc8 loc9 loc10 loc11 loc12 main6 main7 main8 main9.

*these 33 cases of people with unknown initial location
*whose initial main activity is sleep are awake by 7. These
*cases checked, and all set to at home as this is the logical
*inference from reading these diaries (went to bed at home
*the day before, 1 whole household behaving like family at
*home on normal week and not on holiday.
if loc1=8 and main1=3 loc1=1.

Vector main=main1 to main42 / loc=loc1 to loc42.
*if same activity continues, but location becomes missing
*set missing location to previous location.
Loop i=1 to 41.
   compute j=i+1.
   if loc(i)<8 and loc(j)=8 and main(i)=main(j) loc(j)=loc(i).
End loop.
execute.

Do repeat a=loc1 to loc42 / b=main1 to main42.
*if location still missing but activity is one coded as happening
*at home, set location to home.
   If a=8 and (b=43 or b=59 or b=66) a=1.
*set missing location during travel to location away from
*home, radio unknown.
   if a=8 and (b=37 or (b>44 and b<50) or b=58 or b=89) a=4.
End repeat.
execute.

*if location at home and next location missing but next activity
*not travel or activity likely to take place away from home, next
*location set to home.
Vector main=main1 to main42 / loc=loc1 to loc42.
Loop i=1 to 41.
   compute j=i+1.
   
   if loc(i)=1 and loc(j)=8 and (main(j)<36 or main(j)=38 or
   main(j)=39 or main(j)=40 or main(j)=43 or (main(j)>49 and 
   main(j)<57) or (main(j)>58 and main(j)<70 or main(j)=91)) loc(j)=1.

*if location away from home and next activity is away from home
*set location to away from home radio unknown.

   if (loc(i)>1 and loc(i)<8) and loc(j)=8 and ((main(j)>33 and
   main(j)<43) or (main(j)>43 and main(j)<50) or (main(j)>55 and 
   main(j)<59) or (main(j)>66 or main(j)<90)) loc(j)=4.

End loop.

*if no main activity recorded, the previous activity took place
*at home or not at home and no intervening travel, then code the gap 
*as imputed travel. When people about to leave home to travel or return
*home from travel and the activity is missing, code the gap as imputed 
*personal and household care - which combines with the existing code 59 
*- arrive home - relabel 59 (though check as code 599 then recode to 59). 
*If someone asleep, then gap, then travel or at home activities, compute 
*gap as personal care. These amendments apply to 1/2 hour gaps only.

loop i=1 to 40.
     compute j=i+1.
     compute k=i+2.
*travel followed by gap at home, set missing activity to arrive home.
   Do if (main(i)=37 or (main(i)>44 and main(i)<50) or main(i)=58 or main(i)=89) 
      and main(j)>95 and loc(j)=1.
      compute main(j)=599.
*gap at home followed by travel, set missing activity to prepare to leave home.
   Else if loc(i)=1 and main(i)>95 and (main(j)=37 or (main(j)>44 and main(j)<50) or 
      main(j)=58 or main(j)=89).
      compute main(i)=599.
*if location is home, next activity missing and next location has changed next
*activity not travel, set missing activity to imputed travel.
   Else if loc(i)=1 and main(j)>95 and ((loc(j)>1 and loc(j)<8) or (loc(k)>1 and loc(k)<8))
      and ( (main(j)<37 or (main(j)>37 and main(j)<45) or (main(j)>49 and main(j)<58) or
     (main(j)>58 and main(j)<95)) and (main(k)<37 or (main(k)>37 and main(k)<45) or 
     (main(k)>49 and main(k)<58) or (main(k)>58 and main(k)<95)) ).
      compute main(j)=90.
   End if.
End loop.

loop i=1 to 39.
     compute j=i+1.
     compute k=i+2.
     compute l=i+3.
*if two activities prior to gap not travel but away from home, then gap then
*home, code gap as imputed travel.
   if (loc(j)>1 and loc(j)<8) and ( (main(i)<37 or (main(i)>37 and main(i)<45) or 
   (main(i)>49 and main(i)<58) or (main(i)>58 and main(i)<95)) and (main(j)<37 or 
   (main(j)>37 and main(j)<45) or (main(j)>49 and main(j)<58) or (main(j)>58 and
    main(j)<95))) and main(k)>95 and loc(l)=1 main(k)=90.
End loop.

Loop i=1 to 40.
     compute j=i+1.
     compute k=i+2.
*if asleep, gap, leave home, set missing time to personal care.
   If main(i)<4 and main(j)>95 and (main(k)=37 or (main(k)>44 and main(k)<50) or 
     (main(k)>56 and main(k)<59) or (main(k)>69 and main(k)<95)) main(j)=6.
End loop.
execute.

*recode mystery higher codes as missing.
Do repeat a=main1 to main42.
   If a>99 a=99.
end repeat.

compute miss2=0.
Do repeat a=main1 to main42.
   Do if a>95.
      Compute miss2=miss2+1.
   End if.
End repeat. 
freq miss2.
*codes of 90 checked. Now
*17406 diaries (85.9%) are missing no time.
*19651 diaries (97.0%) missing no more than 90 minutes.

*a few more adjustments to deal with gaps.
vector main=main1 to main42 / loc=loc1 to loc42.
Loop i=1 to 40.
   compute j=i+1.
   compute k=i+2.
*if code get ready for bed, gap, sleep, code gap to sleep.
   Do if main(i)=32 and main(j)>95 and main(k)<5.
      compute main(j)=5.
   End if.
*if sleep at home followed by long gap at home, code first
*half hour as get up, dressed.
   If main(i)<5 and main(j)>95 and main(k)>95 and loc(i)=1 
   and loc(j)=1 main(j)=6.
*if missing activity at home for 2 gaps followed by activity
*away from home with no travel, code second slot to travel.
   If main(i)>95 and main(j)>95 and ((main(k)>35 and main(k)<43)
   or (main(k)>43 and main(k)<59) or (main(k)>69 and main(k)<91))
   main(j)=90.
*if location unchanged, activity, gap, same activity, fill in
*same activity in gap.
   If main(i)<95 and main(j)>95 and main(k)=main(i) main(j)=main(i).
End loop.

recode main1 to main42 (599=59).
do repeat a=sec1 to sec42.
   if a>99 a=99.
end repeat.

Do if main1>95 and main2>95 and ((main3>4 and main3<36) or 
  (main3>48 and main3<57)) and loc1=1 and loc2=1 and loc3=1.
   compute main1=5.
   compute main2=6.
Else if main1>95 and main2>95 and main3>95 and ((main4>4 and main4<36) or 
  (main4>48 and main4<57)) and loc1=1 and loc2=1 and loc3=1 and loc4=1.
   compute main1=5.
   compute main2=5.
   compute main3=6.
end if.

loop i=1 to 40.
   compute j=i+1.
   compute k=i+2.
   Do if main(i)=3 and main(j)>95 and main(k)=34.
      compute main(j)=6.
   end if.
end loop.

If main37=21 and main42=31 and main38=99 main38=5.
If main37=21 and main42=31 and main39=99 main39=5.
If main37=21 and main42=31 and main40=99 main40=5.
If main37=21 and main42=31 and main41=99 main41=5.

temp.
select if main42>95.
freq main39 main40 main41 loc41 loc42.

temp.
select if main42>95.
cro main42 loc42 by main41.

Do if loc42=1 and loc41=1 and main42>95 and main41<95.
   Compute main42=main41.
Else if loc42=1 and loc41=1 and loc40=1 and main42>95 
   and main41>95 and main40<95.
   Compute main41=main40.
   Compute main42=6.
End if.

temp.
select if main42>95.
freq main33 to main41 loc38 to loc42.

Do if loc39=1 and main40>95 and main41>95 and main42>95 and
   (main39=21 or main39=32 or main39=62 or main39=69).
   compute main40=5.
   compute main41=5.
   compute main42=5.
Else if loc38=1 and main39>95 and main40>95 and main41>95 
    and main42>95 and (main38=21 or main38=32 or main38=62
    or main38=69).
   compute main39=5.
   compute main40=5.
   compute main41=5.
   compute main42=5.
Else if loc37=1 and main38>95 and main39>95 and main40>95 
    and main41>95 and main42>95 and
   (main37=21 or main37=32 or main37=62 or main37=69).
   compute main38=5.
   compute main29=5.
   compute main40=5.
   compute main41=5.
   compute main42=5.
Else if loc36=1 and main37>95 and main38>95 and main39>95 
    and main40>95 and main41>95 and main42>95 and
   (main36=21 or main36=32 or main36=62 or main36=69).
   compute main37=5.
   compute main38=5.
   compute main39=5.
   compute main40=5.
   compute main41=5.
   compute main42=5.
Else if loc35=1 and main36>95 and main37>95 and main38>95 and 
    main39>95 and main40>95 and main41>95 and main42>95 and
   (main35=21 or main35=32 or main35=62 or main35=69).
   compute main36=5.
   compute main37=5.
   compute main38=5.
   compute main39=5.
   compute main40=5.
   compute main41=5.
   compute main42=5.
End if.
freq main42.

compute miss2=0.
Do repeat a=main1 to main42.
   Do if a>95.
      Compute miss2=miss2+1.
   End if.
End repeat. 
freq miss2.
*Now
*17566 diaries (86.7%) are missing no time.

Do repeat a=main1 to main42 / b=sec1 to sec42.
   if b>91 b=0.
   if (a=12 or a=13 or a=22 or a=23) and (b=0 or b>91)
      b=92.
end repeat.
freq sec5 sec15 sec26 sec38.

*the old MTUS codes place meals at work into work time.
*this code frame places all meals into a single code.
*separate out the meals at work, and make a new code.

*this step ensures that meal breaks of up to an hour
*at work will be coded as work, but a restaurant meal 
*after work will not be included as work.

vector main=main1 to main42 / loc=loc1 to loc42.
loop i=1 to 39.
   compute j=i+1.
   compute k=i+2.
   compute l=i+3.
   Do if (main(j)=34 or main(j)=35 or main(j)=38 or main(j)=39)
      and loc(i)>1 and loc(j)>1 and loc(k)>1.
      if (main(i)=40 or main(i)=41 or main(i)=44) and 
         (main(l)=40 or main(l)=41 or main(l)=44) main(j)=49.
   End if.
End loop.
loop i=1 to 40.
   compute j=i+1.
   compute k=i+2.
   Do if (main(j)=34 or main(j)=35 or main(j)=38 or main(j)=39)
      and loc(i)>1 and loc(j)>1 and loc(k)>1.
      if (main(i)=40 or main(i)=41 or main(i)=44) and 
         (main(k)=40 or main(k)=41 or main(k)=44) main(j)=49.
   End if.
End loop.
execute.

rename variables (main1 to main42=main3 to main44).
rename variables (sec1 to sec42=sec3 to sec44).
rename variables (loc1 to loc42=loc3 to loc44).
execute.
compute main1=-5.
compute main2=-5.
compute main45=-5.
compute main46=-5.
compute main47=-5.
compute main48=-5.
compute sec1=0.
compute sec2=0.
compute sec45=0.
compute sec46=0.
compute sec47=0.
compute sec48=0.
compute loc1=-5.
compute loc2=-5.
compute loc45=-5.
compute loc46=-5.
compute loc47=-5.
compute loc48=-5.
var lab main1 4.00-4.30AM.
var lab main2 4.30-5.00AM.
var lab main45 2.00-2.30AM.
var lab main46 2.30-3.00AM.
var lab main47 3.00-3.30AM.
var lab main48 3.30-4.00AM.
var lab sec1 4.00-4.30AM.
var lab sec2 4.30-5.00AM.
var lab sec45 2.00-2.30AM.
var lab sec46 2.30-3.00AM.
var lab sec47 3.00-3.30AM.
var lab sec48 3.30-4.00AM.
var lab loc1 4.00-4.30AM.
var lab loc2 4.30-5.00AM.
var lab loc45 2.00-2.30AM.
var lab loc46 2.30-3.00AM.
var lab loc47 3.00-3.30AM.
var lab loc48 3.30-4.00AM.
execute.

val lab main1 to sec48
 0 no reported secondary activity
 1 ill in bed
 2 just in bed
 3 in bed asleep
 4 naps
 5 imputed sleep
 6 imputed personal and household care
10 "radio - not known if with other activities"
11 listen to radio only
12 "radio + 1 other activity"
13 "radio & 2+ other activities"
20 "TV - not known if with other activities"
21 watch TV only
22 "watch TV + 1 other activity"
23 "watch TV & 2+ other activities"
30 other personal care activity
31 get up, dress, wash
32 go to bed
33 change, get ready, wash
34 eat meals, snacks
35 meal or dinner break
36 doctor, dentist, hairdresser etc
37 personal imperative journey
38 drink tea or coffee
39 drink alcohol
40 other job-related activities
41 at work
42 at school, college
43 work at home
44 second job
45 "travel to work/school by car"
46 "travel to work/school by other means"
47 "travel to work/school, means unknown"
48 travel as part of work
49 meal break at work
50 other essential domestic work
51 look after children
52 play with children
53 prepare meals or snacks
54 routine housework
55 necessary odd jobs
56 look after pets
57 shop & domestic errands
58 provide transport, escort
59 "arrive home/prepare to leave home"
60 gardening
61 "study (not homework)"
62 read books
63 other reading
64 hobbies & homecrafts
65 knit, sew, dressmaking
66 entertain visitors at home
67 talk, gossip, phone calls
68 "listen to music (not radio)"
69 relax, do nothing
70 other away from home leisure
71 visit friends or relatives
72 at place of entertainment
73 participate in non-sport club
74 at social club
75 at pub
76 at dance, nightclub, disco, party
77 at restaurant
78 at church, prayer meeting
79 evening classes
80 other out-of-home leisure
81 play sport
82 watch sport
83 go for walk
84 outing to countreg, seaside
85 visit place of interest
86 outing to town or city
89 "travel to/from leisure activity"
90 imputed travel
91 other at home leisure
92 unspecified 2nd act with radio or tv
93 imputed time away from home
97 unclassifiable
98 illegible or nonsense
99 no response, missing.

val lab loc1 to loc48
1 at home
2 not home, by radio
3 not home, no radio
4 not home, unclear if around radio
5 staying away from home, by radio
6 staying away from home, no radio
7 staying away from home, unclear if around radio
8 location unknown.

save outfile=
   'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq.sav'
   /keep countreg survey swave msamp hldid persid id parntid1 parntid2 
    partid month year hhtype hhldsize nchild agekidx agekid2 incorig income 
    ownhome urban computer vehicle sex age famstat cphome singpar relrefp 
    civstat cohab citizen empstat emp unemp student retired empsp empinclm 
    occup sector educa edtry rushed health carer disab aglftsch region
    main1  main2  main3  main4  main5  main6  main7  main8  main9  main10 
    main11 main12 main13 main14 main15 main16 main17 main18 main19 main20 
    main21 main22 main23 main24 main25 main26 main27 main28 main29 main30 
    main31 main32 main33 main34 main35 main36 main37 main38 main39 main40 
    main41 main42 main43 main44 main45 main46 main47 main48
    sec1  sec2  sec3  sec4  sec5  sec6  sec7  sec8  sec9  sec10 
    sec11 sec12 sec13 sec14 sec15 sec16 sec17 sec18 sec19 sec20 
    sec21 sec22 sec23 sec24 sec25 sec26 sec27 sec28 sec29 sec30 
    sec31 sec32 sec33 sec34 sec35 sec36 sec37 sec38 sec39 sec40
    sec41 sec42 sec43 sec44 sec45 sec46 sec47 sec48
    loc1  loc2  loc3  loc4  loc5  loc6  loc7  loc8  loc9  loc10 
    loc11 loc12 loc13 loc14 loc15 loc16 loc17 loc18 loc19 loc20 
    loc21 loc22 loc23 loc24 loc25 loc26 loc27 loc28 loc29 loc30 
    loc31 loc32 loc33 loc34 loc35 loc36 loc37 loc38 loc39 loc40
    loc41 loc42 loc43 loc44 loc45 loc46 loc47 loc48
    diary cday day. 

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq.sav'.
freq main1 main2 main3 main44 main45 main46 main47 main48.

******************************************************
*use information in diary to estimate activity diary *
*did not collect for the 1st hour of the 24-hour day *
******************************************************.

*check what happens when first activity is travel to work.
*2 went home, rest went to work.
temp.
select if main3>44 and main3<48.
freq main4.

temp.
select if main3>44 and main3<48 and main4>41.
freq main5 main6 main7.

temp.
select if main3>44 and main3<48 and main4<41.
freq main5 main6 main7 loc5 loc6 loc7.

freq main3.

*make marker for people not asleep at the beginning
*and end of the observation window.
compute awakest=0.
compute awakend=0.
var lab awakest awake at start of diary.
var lab awakend awake at end of diary. 
if main3<6 awakest=1.
if main44<6 awakend=1.
val lab awakest awakend
   0 asleep
   1 awake.
cro main3 by awakest.
cro main44 by awakend.

aggregate
   /outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\awake.sav'
   /break=hldid persid id
   /awakest 'awake at start of diary' = MAX(awakest)
   /awakend 'awake at end of diary' = MAX(awakend).

*if asleep in 1st observation slot, 
*set 1st 2 slots=1st observation slot.
do if main3<6.
   compute main1=main3.
   compute main2=main3.
*if 1st activity getting up, set 4-5AM to sleep.
else if main3=30 or main3=31.
   compute main1=5.
   compute main2=5.
*for other in-home activity, set 4-4:30 to sleep and
*4:30-5 to get up/dress.
Else if main3<30 or main3=34 or main3=35 or main3=43
   or (main3>49 and main3<59) or (main3>59 and main3<70).
   compute main1=5.
   compute main2=6.
*if 1st activity get ready for bed, set 4-5 to other in-home
*leisure.
Else if main3=32 or main3=33.
   compute main1=91.
   compute main2=91.
*if at services, school or work, set 4-5 = 1st observation.
Else if (main3>37 and main3<43) or main3=44 or main3=48 
   or (main3>69 and main3<89). 
   compute main1=main3.
   compute main2=main3.
*if travel to work then at home, set 4-5 to work.
Else if (main3>44 and main3<48) and main4<41.
   compute main1=41.
   compute main2=41.
*if travel to work then work, set 4-4:30 to eat then
*4:30-5 to get ready.
Else if (main3>44 and main3<48) and main4>37.
   compute main1=34.
   compute main2=33.
*if arrive home, set 4-4:30 to work and 4:30-5 to travel home.
Else if main3=59.
   compute main1=41.
   compute main2=47.
*if travelling home from leisure the sleep, set 4-5 to other 
*out-of-home leisure.
Else if main3=89 and main4<5.
   compute main1=70.
   compute main2=70.
*if travel for out of home leisure (this person goes out)
*set 4-4:30 to other in-home leisure the 4:30-5 to get ready.
Else if main3=89.
   compute main1=91.
   compute main2=33.
*if 1st activity missing, set 4-5 to missing.
Else if main3>95.
   compute main1=99.
   compute main2=99.
end if.
freq main1 main2.

*************************************
*address gaps with location recorded*
*************************************.

compute test=0.
compute test2=0.

do repeat a=main1 to main44 /b=loc1 to loc44 /c= sec1 to sec44.
   do if a>95.
      compute test=b.
      compute test2=c.
   end if.
end repeat.
freq test test2.

*a number of cases away from home, some with radio, some not near 
*radio. Code these activities as imputed time away from home, with 
*secondary activity radio (none have secondary acts at the moment).
do repeat a=main1 to main44 / b=loc1 to loc44 / c=sec1 to sec44.
   Do if a>95 and (b=2 or b=5).
      compute a=93.
      compute c=12.
   Else if a>95 and (b=3 or b=4 or b=6 or b=7).
      compute a=93.
   End if.
end repeat.
freq main3 sec32.

*******************************************
*fill in unrecorded end of the 24 hour day*
*******************************************.
freq main44.

temp.
select if (main44=34 or main44=38 or main44=39) and (main43<40 or main43>47).
freq loc44.

temp.
select if main44=58 or main44=59 or main44=89.
freq main42 main43 loc44.

*if people are asleep or at work or out-of-home leisure 
*in the last observation window, set activity to continue.
do if main44<6 or (main44>40 and main44<45) or main44=48
   or (main44>69 and main44<89).
   compute main45=main44.
   compute main46=main44.
   compute main47=main44.
   compute main48=main44.
*if wind-down in-home activities, set last act to sleep.
Else if (main44>5 and main44<31) or main44=32.
   compute main45=5.
   compute main46=5.
   compute main47=5.
   compute main48=5.
*if last act get up, set activity to other in home.
Else if main44=31.
   compute main45=91.
   compute main46=91.
   compute main47=91.
   compute main48=91.
*if getting ready for work, set last activities to tavel to work then work.
Else if main44=33 or main44=45.
   compute main45=45.
   compute main46=41.
   compute main47=41.
   compute main48=41.
*if people eating or drinking at work assume working in following 2 hours.
Else if main44=35 or ((main44=34 or main44=38) and (main43>40 and main43<48)).
   compute main45=41.
   compute main46=41.
   compute main47=41.
   compute main48=41.
*other eating or drinking at home set to continue then go to bed.
Else if main44=34 or main44=38 or main44=39 and loc44=1.
   compute main45=main44.
   compute main46=91.
   compute main47=32.
   compute main48=5.
*other eating or drinking away from home, set to continue.
Else if main44=34 or main44=38 or main44=39 and loc44>1.
   compute main45=main44.
   compute main46=main44.
   compute main47=main44.
   compute main48=main44.
*if housework of care, set to continue then go to bed.
Else if (main44>48 and main44<58) or (main44>59 and main44<70) or main44=91.
   compute main45=main44.
   compute main46=32.
   compute main47=5.
   compute main48=5.
*if travel for leisure or escort then home then set to go to bed.
Else if (main44=58 or main44=59 or main44=89) and loc44=1.
   compute main45=32.
   compute main46=5.
   compute main47=5.
   compute main48=5.
*if travel for leisure or escort then home then set to go to bed.
Else if (main44=58 or main44=59 or main44=89) and loc44>1.
   compute main45=70.
   compute main46=70.
   compute main47=70.
   compute main48=70.
*if last act missing, set final 2 hours to missing.
Else if main44>91.
   compute main45=99.
   compute main46=99.
   compute main47=99.
   compute main48=99.
End if.
freq main45 main46 main47 main48.

***************************************
*fill in the start/end diary locations*
***************************************.

freq loc3.
cro loc3 by main3.

temp.
select if main3=59.
freq main2 main4.

temp.
select if main3=37 or (main3>44 and main3<48) 
   or main3=58 or main3=89.
cro main2 by loc4.

Do if loc3=1 and main3~=59.
   compute loc1=1.
   compute loc2=1.
Else if loc3=1 and main3=59.
   compute loc1=4.
   compute loc2=4.
Else if (main3=37 or (main3>44 and main3<48) or main3=58 
     or main3=89) and main2<40.
   compute loc1=1.
   compute loc2=1.
Else if (main3=37 or (main3>44 and main3<48) or main3=58 
     or main3=89) and main2>40.
   compute loc1=4.
   compute loc2=4.
Else if loc3>1.
   compute loc1=loc3.
   compute loc2=loc3.
End if.
freq loc1 loc2.

freq loc44.
cro loc44 by main44 main45.

temp.
select if main44=45.
freq main45 main46 main47.

Do if main44~=45.
   compute loc45=loc44.
   compute loc46=loc44.
   compute loc47=loc44.
   compute loc48=loc44.
Else if main44=45.
   compute loc45=loc44.
   compute loc46=4.
   compute loc47=4.
   compute loc48=4.
End if.
freq loc45 loc46 loc47 loc48.

*************************************
*address gaps with location recorded*
*************************************.

compute miss1=0.
Do repeat a=main1 to main48.
   Do if a>95.
      Compute miss1=miss1+1.
   End if.
End repeat. 
freq miss1.
*17818 diaries (88%) are missing no time.

compute test=0.
do repeat a=main1 to main48 / b=loc1 to loc48.
   if a>95 test=b.
end repeat.
freq test.

compute test=0.
compute test2=0.
vector main=main1 to main48 / loc=loc1 to loc48.
loop i=1 to 46.
   compute j=i+1.
   compute k=i+2.
   if main(j)>95 and loc(j)=1 test=loc(i)*100+main(i).
   if main(j)>95 and loc(j)=1 test2=loc(k)*100+main(k).
End loop.
freq test test2.

*still some end of diary cases away from home, some with radio,
*some not near radio. Code these as imputed time away from home, 
*with secondary activity radio.
do repeat a=main1 to main48 / b=loc1 to loc48 / c=sec1 to sec48.
   Do if a>95 and (b=2 or b=5).
      compute a=93.
      compute b=12.
   Else if a>95 and (b=3 or b=4 or b=6 or b=7).
      compute a=93.
   End if.
end repeat.
freq main47 sec47.

vector main=main1 to main48 / loc=loc1 to loc48.
loop i=1 to 47.
   compute j=i+1.
   if main(j)>95 and loc(j)=1 and main(i)<95 and loc(i)=1 main(j)=6.
   if main(i)>95 and loc(i)=1 and main(j)<95 and loc(j)=1 main(i)=6.
End loop.

compute miss1=0.
Do repeat a=main1 to main48.
   Do if a>95.
      Compute miss1=miss1+1.
   End if.
End repeat. 
freq miss1.
*20044 diaries (99%) are missing no time.

********************
*define bad diaries*
********************.
compute eatdrk=0.
compute trav=0.
compute rst=0.
compute pcare=0.
compute nep=1.
compute miss=0.

*note that the obvious categories of personal care, eating/drinking,
*travel and exercise are supplemented - this diary uses half-hour 
*intervals, and some of the personal care, travel, and personal care
*episodes may be burried within longer alternative slots. Pet care is
*coded with travel and exercise (as this is more likely to be dog walking
*or physical play with pets and not simple feeding or routine care to
*occupy at least 30 minutes). Food preparation included as if no other
*eating or drinking reported, this is likely to have taken place during
*the food preparation time slot. Ill in bed (1) and just in bed (2)
*appear to be partly sleep/rest and partly personal care, and 59 (arrive
*home) also seems to involve an element of personal care. Similarly
*there are a number of lost travel episodes with the half-hour time slots. 
*The bad diary code and the MTUS category code amended accordingly. Codes 1/2
*treated as 2/3 sleep and 1/3 personal care; code 59 treated as 2/3 housework
*and 1/3 personal care. Code situations of missing travel as 25 minutes of
*previous and following activity and 10 minutes of travel.

compute mistrav=0.
var lab mistrav "# instances missing travel (lost in 30 min slot)".
val lab mistrav
   0 no instance
   1 1 instance missing travel
   2 2 instances missing travel
   3 3 instances missing travel.
execute.

*this code identifies instances where both the activity and the location
*indicate a transition between home and a place away from home where
*the transition does not involve recorded travel.
Vector main=main1 to main48 /sec=sec1 to sec48/ loc=loc1 to loc48 /mtmark(48).
Loop i=1 to 47.
   compute j=i+1.
*else if someone starts at home and ends up at a location away from home
*defined both by the location and the activity code, identify missed travel.
   Do if loc(i)=1 and (loc(j)>1 and loc(j)<8) and (main(i)<37 or
      (main(i)>37 and main(i)<45) or (main(i)>48 and main(i)<58)
      or (main(i)>58 and main(i)<89) or main(i)>90) and (main(j)=36
      or main(j)=41 or main(j)=42 or main(j)=44 or main(j)=57 or
      (main(j)>69 and main(j)<89)).
         compute mistrav=mistrav+1.
         compute mtmark(i)=1.
*else if diarist is away from home defined by location and activity then
*ends up home and no recorded travel.
   Else if loc(j)=1 and (loc(i)>1 and loc(i)<8) and (main(j)<37 or
      (main(j)>37 and main(j)<45) or (main(j)>48 and main(j)<58)
      or (main(j)>58 and main(j)<89) or main(j)=91) and (main(i)=36
      or main(i)=41 or main(i)=42 or main(i)=44 or main(i)=57 or
      (main(i)>69 and main(i)<89)).
         compute mistrav=mistrav+1.
         compute mtmark(i)=1.
   End if.
end loop.
freq mistrav.
recode mtmark1 to mtmark48 (sysmis=0).
do repeat a=main1 to main48 /b=sec1 to sec48 /c=mtmark1 to mtmark48.
   Do if (a<37 or (a>37 and a<45) or (a>48 and a<58) or (a>58 and a<83) 
      or (a>83 and a<89) or a>90) and (b=37 or (b>44 and b<49) or 
      b=58 or b=89) and c=0.
         compute mistrav=mistrav+1.
         compute c=1.
   End if.
End repeat.
freq mistrav.
*2/3 of diaries have at least 1 instance of missing travel - up to 14
*instances of missing travel.

temp.
select if (sec10>44 and sec10<49).
freq mtmark10.

*the mtmark variables mark instances of missing travel. set the
*uncoded cases to 0.
recode mtmark1 to mtmark48 (sysmis=0).
freq mtmark3 mtmark36 mtmark37.

Do repeat a=main1 to main48 / b=sec1 to sec48.
   if a=34 or a=35 or a=38 or a=39 or a=49 or a=53 or a=75 or a=77 or
      b=34 or b=35 or b=38 or b=39 or b=49 or b=53 or b=75 or b=77 eatdrk=1.
   if a=37 or (a>44 and a<49) or a=57 or a=58 or a=60 or a=81 or (a>82 
      and a<91) or b=37 or (b>44 and b<50) or b=57 or b=58 or b=81 or (b>82
      and b<91) or mistrav>0 trav=1.
   if a=3 or a=4 or a=5 or a=69 or b=3 or b=4 or b=5 or b=69 rst=1.
   if a=1 or a=2 or a=6 or (a>29 and a<34) or a=36 or a=59 or b=1 
      or b=2 or b=6 or (b>29 and b<34) or b=36 or b=59 pcare=1.
End repeat.
freq eatdrk trav rst pcare.

compute nep=1.
vector main=main1 to main48 /sec=sec1 to sec48 /loc=loc1 to loc48.
Loop i=1 to 47.
   compute j=i+1.
   if main(i)~=main(j) or sec(i)~=sec(j) or loc(i)~=loc(j) nep=nep+1.
End loop.
vector mtmark = mtmark1 to mtmark48.
Loop i=1 to 48.
   If mtmark(i)=1 nep=nep+1.
End loop.
freq nep.

compute misbasic=0.
If eatdrk=0 misbasic=misbasic+1.
If trav=0   misbasic=misbasic+1.
If rst=0    misbasic=misbasic+1.
If pcare=0  misbasic=misbasic+1.
freq misbasic.
*89.3% missing no basic acts, 99.5% missing 1 or none; 107 missing 2+.

temp.
select if misbasic>1.
freq sex age nep.
*34 (31.8%) of the 107 have <7 episodes, 2 missing age.

do repeat a=main1 to main48.
   if a>95 miss=miss+1.
end repeat.
compute miss=miss*30.
freq miss.
*4 non-diaries, remove the 24 hours of nothing recorded cases.
select if miss<1440.
freq miss.

compute carmark=0.
do repeat a=main1 to main48 / b=sec1 to sec48.
   if a=51 or a=52 or a=56 or b=51 or b=52 or b=56 carmark=1.
End repeat.
freq carmark.

cro carmark by misbasic.

*define cases of people at home all day to modify the baddiary variable.
compute athome=0.
do repeat a=loc1 to loc48.
   if a=1 athome=athome+1.
end repeat.
freq athome.

*relax criteria for episodes for this survey as long period time slots
*blunts some detail. Use <6 episodes for this case.
compute baddiary=0.
if miss>90 or nep<6 or (misbasic>1 and carmark=0) baddiary=1.
freq baddiary.

cro athome by baddiary.

if baddiary=1 and miss<91 and nep>5 and (misbasic=2 and nep>9 
     and athome>43) baddiary=0.
freq baddiary.
*27 diaries no longer defined as bad.
*amend baddiary when diarists record a lot of episodes.
if baddiary=1 and miss<91 and nep>5 and (misbasic=2 and nep>12) baddiary=0.
freq baddiary.
*4 more (31 in total) diaries no longer defined as bad.

temp.
select if baddiary=1.
freq miss nep misbasic.

compute test=0.
if baddiary=1 and miss=120 test=1.
freq test.

*these diaries read, and based on the patterns of the 7 days for these people
*as well as the diary day, impute some personal/household care and continuatin of TV.
Do if hldid=21 and persid=2 and id=6.
   compute main29=6.
   compute main38=6.
Else if hldid=63 and persid=2 and id=1.
   compute main23=21.
   compute main24=21.
Else if hldid=151 and persid=2 and id=1.
   compute main32=6.
Else if hldid=302 and persid=1 and id=6.
   compute main27=6.
Else if hldid=302 and persid=2 and id=3.
   compute main30=21.
Else if hldid=360 and persid=2 and id=7.
   compute main29=6.
Else if hldid=715 and persid=5 and id=4.
   compute main20=21.
Else if hldid=971 and persid=4 and id=4.
   compute main8=6.
   compute main29=6.
Else if hldid=1147 and persid=1 and id=4.
   compute main28=6.
End if.

compute miss=0.
do repeat a=main1 to main48.
   if a>95 miss=miss+1.
end repeat.
compute miss=miss*30.
freq miss.

recode miss (0 thru 90=0) (91 thru hi=1).
recode nep (0 thru 5=1) (6 thru hi=0).
recode misbasic (0,1=0) (2,3,4=1).
if baddiary=0 misbasic=0. 
freq miss nep misbasic.
cro miss by nep by misbasic.
*20156 (99.5%) of diaries of quality; 
*    1 diary bad on all three criteria
*   27 bad on 2 criteria
*   68 bad on 1 criteria (29 missing 90+
*      minutes, 5 have 5 or fewer episodes;
*      34 missing 2+ basic activities).

if baddiary=1 and nep=0 and misbasic=0 and miss=0 baddiary=0.
freq baddiary.

Do If baddiary=0 and sex>-8 and age>-8 and day>-8.
   compute badcase=0.
Else if baddiary=0 and (sex=-8 or age=-8) and day>-8.
   compute badcase=1.
Else if baddiary=0 and sex>-8 and age>-8 and day=-8.
   compute badcase=2.
Else if sex>-8 and age>-8 and day>-8 and nep=0 and miss=1 and misbasic=0.
   compute badcase=3.
Else if sex>-8 and age>-8 and day>-8 and nep=1 and miss=0 and misbasic=0.
   compute badcase=4.
Else if sex>-8 and age>-8 and day>-8 and nep=0 and miss=0 and misbasic=1.
   compute badcase=5.
Else if (sex=-8 or age=-8) and day=-8 and nep=0 and miss=0 and misbasic=0.
   compute badcase=6.
Else if (sex=-8 or age=-8) and day>-8 and nep=0 and miss=1 and misbasic=0.
   compute badcase=7.
Else if (sex=-8 or age=-8) and day>-8 and nep=1 and miss=0 and misbasic=0.
   compute badcase=8.
Else if (sex=-8 or age=-8) and day>-8 and nep=0 and miss=0 and misbasic=1.
   compute badcase=9.
Else if sex>-8 and age>-8 and day=-8 and nep=0 and miss=1 and misbasic=0.
   compute badcase=10.
Else if sex>-8 and age>-8 and day=-8 and nep=1 and miss=0 and misbasic=0.
   compute badcase=11.
Else if sex>-8 and age>-8 and day=-8 and nep=0 and miss=0 and misbasic=1.
   compute badcase=12.
Else if sex>-8 and age>-8 and day>-8 and nep=1 and miss=1 and misbasic=0.
   compute badcase=13.
Else if sex>-8 and age>-8 and day>-8 and nep=0 and miss=1 and misbasic=1.
   compute badcase=14.
Else if sex>-8 and age>-8 and day>-8 and nep=1 and miss=0 and misbasic=1.
   compute badcase=15.
Else if (sex=-8 or age=-8) and day=-8 and nep=0 and miss=1 and misbasic=0.
   compute badcase=16.
Else if (sex=-8 or age=-8) and day=-8 and nep=1 and miss=0 and misbasic=0.
   compute badcase=17.
Else if (sex=-8 or age=-8) and day=-8 and nep=0 and miss=0 and misbasic=1.
   compute badcase=18.
Else if (sex=-8 or age=-8) and day>-8 and nep=1 and miss=1 and misbasic=0.
   compute badcase=19.
Else if (sex=-8 or age=-8) and day>-8 and nep=0 and miss=1 and misbasic=1.
   compute badcase=20.
Else if (sex=-8 or age=-8) and day>-8 and nep=1 and miss=0 and misbasic=1.
   compute badcase=21.
Else if sex>-8 and age>-8 and day=-8 and nep=1 and miss=1 and misbasic=0.
   compute badcase=22.
Else if sex>-8 and age>-8 and day=-8 and nep=0 and miss=1 and misbasic=1.
   compute badcase=23.
Else if sex>-8 and age>-8 and day=-8 and nep=1 and miss=0 and misbasic=1.
   compute badcase=24.
Else if sex>-8 and age>-8 and day>-8 and nep=1 and miss=1 and misbasic=1.
   compute badcase=25.
Else if (sex=-8 or age=-8) and day=-8 and nep=1 and miss=1 and misbasic=0.
   compute badcase=26.
Else if (sex=-8 or age=-8) and day=-8 and nep=0 and miss=1 and misbasic=1.
   compute badcase=27.
Else if (sex=-8 or age=-8) and day=-8 and nep=1 and miss=0 and misbasic=1.
   compute badcase=28.
Else if (sex=-8 or age=-8) and day>-8 and nep=1 and miss=1 and misbasic=1.
   compute badcase=29.
Else if sex>-8 and age>-8 and day=-8 and nep=1 and miss=1 and misbasic=1.
   compute badcase=30.
Else.
   compute badcase=31.
End if.
val lab badcase
   0 good case
   1 miss age or sex only
   2 miss day of week only
   3 "miss 91+ minutes only"
   4 "<7 episodes only"
   5 "miss 2+ basic acts only"
   6 "miss age/sex + day of week"
   7 "miss age/sex + 91+ min"
   8 "miss age/sex + <7 episodes"
   9 "miss age/sex + 2+ basic acts"
  10 "miss day of week + 91+ min"
  11 "miss day of week + <7 episodes"
  12 "miss day of week + 2+ basic acts"
  13 "miss 91+ min + <7 episodes"
  14 "miss 91+ min + 2+ basic acts"
  15 "<7 ep & miss 2+ basic acts"
  16 "miss age/sex + day or week + 91+ min"
  17 "miss age/sex + day or week + <7 episodes"
  18 "miss age/sex + day or week + 2+ basic acts"
  19 "miss age/sex + 91+ min + <7 eps"
  20 "miss age/sex + 91+ min + 2+ basic acts"
  21 "miss age/sex + 2+ basic acts + <7 eps"
  22 "miss day or week + 91+ min + <7 eps"
  23 "miss day or week + 91+ min + 2+ basic acts"
  24 "miss day or week + 2+ basic acts + <7 eps"
  25 "miss 91+ min + 2+ basic acts + <7 eps"
  26 "miss age/sex + day or week + 91+ min + <7 episodes"
  27 "miss age/sex + day or week + 91+ min + 2+ basic acts"
  28 "miss age/sex + day or week + <7 episodes + 2+ basic acts"
  29 "miss age/sex + 91+ min + <7 episodes + 2+ basic acts"
  30 "day or week + 91+ min + <7 episodes + 2+ basic acts"
  31 bad on all five points.

*check that all cases have a code.
freq badcase.

cro badcase by baddiary sex age day.

***********************************
*computation of time use variables*
***********************************.

*historic note for users of older versions of this dataset.
*some errors corrected from original MTUS version
*5.5.2 code - original activity 35 (meal/dinner break)
*originally put into work break - this is inappropriate
*also some tea/coffee codes are work breaks, and these
*all previously put into eat/drink. Amend this base on 
*diary ordering; also activity 50 (other essential
*domestic work) moved from AV8 (odd jobs) to AV7 (housework).
*59 (arrive home/prepare to leave home) moved from AV36 
*(relaxing) to AV7 (housework). Finally, activity in 24-hour
*day not collected in diary this time estimated based on
*the activities in the diary and not simply coded as 
*sleep, which happened in version 5.5.2. 39 - drink alcohol,
*was in eat, moved to pub if away from home.

*up to 34 episodes recorded. Nonetheless, as there are short episodes 
*of missing travel and some other possibilities to disaggregate, 
*the process of making the episodes first involves doubling the
*time slot vectors to then collapse back to episodes.

vector mainy(144) s(144) avy(144) elocy(144) mtravy(144).

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq2.sav'
   /drop test test2 miss1 i j k eatdrk trav rst pcare nep miss mistrav misbasic baddiary.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\awake.sav'.
freq awakest awakend.
*3.1% not asleep at the beginning of the diary;
*3.8% awake at the end of the diary.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975seq2.sav'.

val lab main1 to sec48
 0 no reported secondary activity
 1 ill in bed
 2 just in bed
 3 in bed asleep
 4 naps
 5 imputed sleep
 6 imputed personal and household care
10 "radio - not known if with other activities"
11 listen to radio only
12 "radio + 1 other activity"
13 "radio & 2+ other activities"
20 "TV - not known if with other activities"
21 watch TV only
22 "watch TV + 1 other activity"
23 "watch TV & 2+ other activities"
30 other personal care activity
31 get up, dress, wash
32 go to bed
33 change, get ready, wash
34 eat meals, snacks
35 meal or dinner break
36 doctor, dentist, hairdresser etc
37 personal imperative journey
38 drink tea or coffee
39 drink alcohol
40 other job-related activities
41 at work
42 at school, college
43 work at home
44 second job
45 "travel to work/school by car"
46 "travel to work/school by other means"
47 "travel to work/school, means unknown"
48 travel as part of work
49 meal break at work
50 other essential domestic work
51 look after children
52 play with children
53 prepare meals or snacks
54 routine housework
55 necessary odd jobs
56 look after pets
57 shop & domestic errands
58 provide transport, escort
59 "arrive home/prepare to leave home"
60 gardening
61 "study (not homework)"
62 read books
63 other reading
64 hobbies & homecrafts
65 knit, sew, dressmaking
66 entertain visitors at home
67 talk, gossip, phone calls
68 "listen to music (not radio)"
69 relax, do nothing
70 other away from home leisure
71 visit friends or relatives
72 at place of entertainment
73 participate in non-sport club
74 at social club
75 at pub
76 at dance, nightclub, disco, party
77 at restaurant
78 at church, prayer meeting
79 evening classes
80 other out-of-home leisure
81 play sport
82 watch sport
83 go for walk
84 outing to countreg, seaside
85 visit place of interest
86 outing to town or city
89 "travel to/from leisure activity"
90 imputed travel
91 other at home leisure
92 unspecified 2nd act with radio or tv
93 imputed time away from home
97 unclassifiable
98 illegible or nonsense
99 no response, missing.

val lab loc1 to loc48
1 at home
2 not home, by radio
3 not home, no radio
4 not home, unclear if around radio
5 staying away from home, by radio
6 staying away from home, no radio
7 staying away from home, unclear if around radio
8 location unknown.

*set values for the first time slot.
freq main1 mtmark1.
*no missing travel in time slot 1.

Do if main1>95.
   compute avy1=41.
   compute avy2=41.
   compute avy3=41.
   compute mainy1=69.
   compute mainy2=69.
   compute mainy3=69.
   compute mtravy1=-8.
   compute mtravy2=-8.
   compute mtravy3=-8.
Else if main1=1.
   compute avy1=16.
   compute avy2=16.
   compute avy3=13.
   compute mainy1=2.
   compute mainy2=2.
   compute mainy3=4.
   compute mtravy1=-7. 
   compute mtravy2=-7. 
   compute mtravy3=-7. 
Else if main1=2.
   compute avy1=16.
   compute avy2=16.
   compute avy3=36.
   compute mainy1=2.
   compute mainy2=2.
   compute mainy3=55.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=3 or main1=4.
   compute avy1=16.
   compute avy2=16.
   compute avy3=16.
   compute mainy1=2.
   compute mainy2=2.
   compute mainy3=2.
   compute mtravy1=-7. 
   compute mtravy2=-7. 
   compute mtravy3=-7. 
Else if main1=5.
   compute avy1=16.
   compute avy2=16.
   compute avy3=16.
   compute mainy1=3.
   compute mainy2=3.
   compute mainy3=3.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=6.
   compute avy1=13.
   compute avy2=13.
   compute avy3=13.
   compute mainy1=1.
   compute mainy2=1.
   compute mainy3=1.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1>6 and main1<20.
   compute avy1=30.
   compute avy2=30.
   compute avy3=30.
   compute mainy1=58.
   compute mainy2=58.
   compute mainy3=58.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1>19 and main1<30.
   compute avy1=31.
   compute avy2=31.
   compute avy3=31.
   compute mainy1=59.
   compute mainy2=59.
   compute mainy3=59.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1>29 and main1<34.
   compute avy1=13.
   compute avy2=13.
   compute avy3=13.
   compute mainy1=4.
   compute mainy2=4.
   compute mainy3=4.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=34 or main1=35 or ((main1=38 or main1=39) and loc1=1).
   compute avy1=15.
   compute avy2=15.
   compute avy3=15.
   compute mainy1=6.
   compute mainy2=6.
   compute mainy3=6.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=36.
   compute avy1=14.
   compute avy2=14.
   compute avy3=14.
   compute mainy1=25.
   compute mainy2=25.
   compute mainy3=25.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=37.
   compute avy1=12.
   compute avy2=12.
   compute avy3=12.
   compute mainy1=67.
   compute mainy2=67.
   compute mainy3=67.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=40.
   compute avy1=1.
   compute avy2=1.
   compute avy3=1.
   compute mainy1=13.
   compute mainy2=13.
   compute mainy3=13.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=41.
   compute avy1=1.
   compute avy2=1.
   compute avy3=1.
   compute mainy1=7.
   compute mainy2=7.
   compute mainy3=7.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=42.
   compute avy1=4.
   compute avy2=4.
   compute avy3=4.
   compute mainy1=15.
   compute mainy2=15.
   compute mainy3=15.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=43.
   compute avy1=2.
   compute avy2=2.
   compute avy3=2.
   compute mainy1=8.
   compute mainy2=8.
   compute mainy3=8.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=44.
   compute avy1=3.
   compute avy2=3.
   compute avy3=3.
   compute mainy1=9.
   compute mainy2=9.
   compute mainy3=9.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=45 and (main2=42 or main2=79).
   compute avy1=5.
   compute avy2=5.
   compute avy3=5.
   compute mainy1=64.
   compute mainy2=64.
   compute mainy3=64.
   compute mtravy1=1.
   compute mtravy2=1.
   compute mtravy3=1.
Else if (main1=46 or main1=47) and (main2=42 or main2=79).
   compute avy1=5.
   compute avy2=5.
   compute avy3=5.
   compute mainy1=64.
   compute mainy2=64.
   compute mainy3=64.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=45.
   compute avy1=5.
   compute avy2=5.
   compute avy3=5.
   compute mainy1=63.
   compute mainy2=63.
   compute mainy3=63.
   compute mtravy1=1.
   compute mtravy2=1.
   compute mtravy3=1.
Else if main1=46 or main1=47.
   compute avy1=5.
   compute avy2=5.
   compute avy3=5.
   compute mainy1=63.
   compute mainy2=63.
   compute mainy3=63.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=48.
   compute avy1=5.
   compute avy2=5.
   compute avy3=5.
   compute mainy1=11.
   compute mainy2=11.
   compute mainy3=11.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=49.
   compute avy1=1.
   compute avy2=1.
   compute avy3=1.
   compute mainy1=5.
   compute mainy2=5.
   compute mainy3=5.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=50.
   compute avy1=8.
   compute avy2=8.
   compute avy3=8.
   compute mainy1=21.
   compute mainy2=21.
   compute mainy3=21.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=51.
   compute avy1=11.
   compute avy2=11.
   compute avy3=11.
   compute mainy1=28.
   compute mainy2=28.
   compute mainy3=28.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=52.
   compute avy1=11.
   compute avy2=11.
   compute avy3=11.
   compute mainy1=30.
   compute mainy2=30.
   compute mainy3=30.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=53.
   compute avy1=6.
   compute avy2=6.
   compute avy3=6.
   compute mainy1=18.
   compute mainy2=18.
   compute mainy3=18.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=54.
   compute avy1=7.
   compute avy2=7.
   compute avy3=7.
   compute mainy1=20.
   compute mainy2=20.
   compute mainy3=20.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=55.
   compute avy1=8.
   compute avy2=8.
   compute avy3=8.
   compute mainy1=22.
   compute mainy2=22.
   compute mainy3=22.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=56.
   compute avy1=8.
   compute avy2=8.
   compute avy3=8.
   compute mainy1=27.
   compute mainy2=27.
   compute mainy3=27.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=57.
   compute avy1=10.
   compute avy2=10.
   compute avy3=10.
   compute mainy1=24.
   compute mainy2=24.
   compute mainy3=24.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=58.
   compute avy1=12.
   compute avy2=12.
   compute avy3=12.
   compute mainy1=66.
   compute mainy2=66.
   compute mainy3=66.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=59.
   compute avy1=7.
   compute avy2=7.
   compute avy3=13.
   compute mainy1=23.
   compute mainy2=23.
   compute mainy3=4.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=60.
   compute avy1=9.
   compute avy2=9.
   compute avy3=9.
   compute mainy1=46.
   compute mainy2=46.
   compute mainy3=46.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=61.
   compute avy1=33.
   compute avy2=33.
   compute avy3=33.
   compute mainy1=16.
   compute mainy2=16.
   compute mainy3=16.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=62.
   compute avy1=34.
   compute avy2=34.
   compute avy3=34.
   compute mainy1=56.
   compute mainy2=56.
   compute mainy3=56.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=63.
   compute avy1=35.
   compute avy2=35.
   compute avy3=35.
   compute mainy1=56.
   compute mainy2=56.
   compute mainy3=56.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=64.
   compute avy1=40.
   compute avy2=40.
   compute avy3=40.
   compute mainy1=54.
   compute mainy2=54.
   compute mainy3=54.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=65.
   compute avy1=39.
   compute avy2=39.
   compute avy3=39.
   compute mainy1=54.
   compute mainy2=54.
   compute mainy3=54.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=66.
   compute avy1=38.
   compute avy2=38.
   compute avy3=38.
   compute mainy1=48.
   compute mainy2=48.
   compute mainy3=48.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=67.
   compute avy1=37.
   compute avy2=37.
   compute avy3=37.
   compute mainy1=49.
   compute mainy2=49.
   compute mainy3=49.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=68.
   compute avy1=32.
   compute avy2=32.
   compute avy3=32.
   compute mainy1=57.
   compute mainy2=57.
   compute mainy3=57.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=69.
   compute avy1=36.
   compute avy2=36.
   compute avy3=36.
   compute mainy1=55.
   compute mainy2=55.
   compute mainy3=55.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=70.
   compute avy1=25.
   compute avy2=25.
   compute avy3=25.
   compute mainy1=35.
   compute mainy2=35.
   compute mainy3=35.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=71.
   compute avy1=29.
   compute avy2=29.
   compute avy3=29.
   compute mainy1=48.
   compute mainy2=48.
   compute mainy3=48.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=72.
   compute avy1=24.
   compute avy2=24.
   compute avy3=24.
   compute mainy1=37.
   compute mainy2=37.
   compute mainy3=37.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=73.
   compute avy1=23.
   compute avy2=23.
   compute avy3=23.
   compute mainy1=33.
   compute mainy2=33.
   compute mainy3=33.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=74.
   compute avy1=26.
   compute avy2=26.
   compute avy3=26.
   compute mainy1=40.
   compute mainy2=40.
   compute mainy3=40.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=75 or main1=39.
   compute avy1=27.
   compute avy2=27.
   compute avy3=27.
   compute mainy1=39.
   compute mainy2=39.
   compute mainy3=39.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=76.
   compute avy1=25.
   compute avy2=25.
   compute avy3=25.
   compute mainy1=40.
   compute mainy2=40.
   compute mainy3=40.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=77 or main1=38.
   compute avy1=28.
   compute avy2=28.
   compute avy3=28.
   compute mainy1=39.
   compute mainy2=39.
   compute mainy3=39.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=78.
   compute avy1=22.
   compute avy2=22.
   compute avy3=22.
   compute mainy1=34.
   compute mainy2=34.
   compute mainy3=34.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=79.
   compute avy1=4.
   compute avy2=4.
   compute avy3=4.
   compute mainy1=17.
   compute mainy2=17.
   compute mainy3=17.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=80.
   compute avy1=18.
   compute avy2=18.
   compute avy3=18.
   compute mainy1=38.
   compute mainy2=38.
   compute mainy3=38.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=81.
   compute avy1=19.
   compute avy2=19.
   compute avy3=19.
   compute mainy1=42.
   compute mainy2=42.
   compute mainy3=42.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=82.
   compute avy1=20.
   compute avy2=20.
   compute avy3=20.
   compute mainy1=36.
   compute mainy2=36.
   compute mainy3=36.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=83.
   compute avy1=21.
   compute avy2=21.
   compute avy3=21.
   compute mainy1=43.
   compute mainy2=43.
   compute mainy3=43.
   compute mtravy1=3.
   compute mtravy2=3.
   compute mtravy3=3.
Else if main1=84.
   compute avy1=18.
   compute avy2=18.
   compute avy3=18.
   compute mainy1=45.
   compute mainy2=45.
   compute mainy3=45.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=85 or main1=86.
   compute avy1=18.
   compute avy2=18.
   compute avy3=18.
   compute mainy1=38.
   compute mainy2=38.
   compute mainy3=38.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=89.
   compute avy1=17.
   compute avy2=17.
   compute avy3=17.
   compute mainy1=68.
   compute mainy2=68.
   compute mainy3=68.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=90.
   compute avy1=17.
   compute avy2=17.
   compute avy3=17.
   compute mainy1=62.
   compute mainy2=62.
   compute mainy3=62.
   compute mtravy1=5.
   compute mtravy2=5.
   compute mtravy3=5.
Else if main1=91.
   compute avy1=40.
   compute avy2=40.
   compute avy3=40.
   compute mainy1=51.
   compute mainy2=51.
   compute mainy3=51.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=92.
   compute avy1=31.
   compute avy2=31.
   compute avy3=31.
   compute mainy1=59.
   compute mainy2=59.
   compute mainy3=59.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
Else if main1=93.
   compute avy1=41.
   compute avy2=41.
   compute avy3=41.
   compute mainy1=41.
   compute mainy2=41.
   compute mainy3=41.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
End if.

Do if main1=1 and main2=1.
   compute avy1=16.
   compute avy2=16.
   compute avy3=16.
   compute mainy1=2.
   compute mainy2=2.
   compute mainy3=2.
   compute mtravy1=-7. 
   compute mtravy2=-7. 
   compute mtravy3=-7. 
Else if main1=2 and main2=2.
   compute avy1=16.
   compute avy2=16.
   compute avy3=16.
   compute mainy1=2.
   compute mainy2=2.
   compute mainy3=2.
   compute mtravy1=-7.
   compute mtravy2=-7.
   compute mtravy3=-7.
End if.

freq avy1 avy2 avy3 mainy1 mainy2 mainy3 mtravy1 mtravy2 mtravy3.

*set values for the 2nd time slot.
freq mtmark2.
*no missing travel in time slot 2.

Do if main2>95.
   compute avy4=41.
   compute avy5=41.
   compute avy6=41.
   compute mainy4=69.
   compute mainy5=69.
   compute mainy6=69.
   compute mtravy4=-8.
   compute mtravy5=-8.
   compute mtravy6=-8.
Else if main2=1.
   compute avy4=16.
   compute avy5=16.
   compute avy6=13.
   compute mainy4=2.
   compute mainy5=2.
   compute mainy6=4.
   compute mtravy4=-7. 
   compute mtravy5=-7. 
   compute mtravy6=-7. 
Else if main2=2.
   compute avy4=16.
   compute avy5=16.
   compute avy6=36.
   compute mainy4=2.
   compute mainy5=2.
   compute mainy6=55.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=3 or main2=4.
   compute avy4=16.
   compute avy5=16.
   compute avy6=16.
   compute mainy4=2.
   compute mainy5=2.
   compute mainy6=2.
   compute mtravy4=-7. 
   compute mtravy5=-7. 
   compute mtravy6=-7. 
Else if main2=5.
   compute avy4=16.
   compute avy5=16.
   compute avy6=16.
   compute mainy4=3.
   compute mainy5=3.
   compute mainy6=3.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=6.
   compute avy4=13.
   compute avy5=13.
   compute avy6=13.
   compute mainy4=1.
   compute mainy5=1.
   compute mainy6=1.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2>6 and main2<20.
   compute avy4=30.
   compute avy5=30.
   compute avy6=30.
   compute mainy4=58.
   compute mainy5=58.
   compute mainy6=58.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2>19 and main2<30.
   compute avy4=31.
   compute avy5=31.
   compute avy6=31.
   compute mainy4=59.
   compute mainy5=59.
   compute mainy6=59.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2>29 and main2<34.
   compute avy4=13.
   compute avy5=13.
   compute avy6=13.
   compute mainy4=4.
   compute mainy5=4.
   compute mainy6=4.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=34 or main2=35 or ((main2=38 or main2=39) and loc2=1).
   compute avy4=15.
   compute avy5=15.
   compute avy6=15.
   compute mainy4=6.
   compute mainy5=6.
   compute mainy6=6.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=36.
   compute avy4=14.
   compute avy5=14.
   compute avy6=14.
   compute mainy4=25.
   compute mainy5=25.
   compute mainy6=25.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=37.
   compute avy4=12.
   compute avy5=12.
   compute avy6=12.
   compute mainy4=67.
   compute mainy5=67.
   compute mainy6=67.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=40.
   compute avy4=1.
   compute avy5=1.
   compute avy6=1.
   compute mainy4=13.
   compute mainy5=13.
   compute mainy6=13.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=41.
   compute avy4=1.
   compute avy5=1.
   compute avy6=1.
   compute mainy4=7.
   compute mainy5=7.
   compute mainy6=7.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=42.
   compute avy4=4.
   compute avy5=4.
   compute avy6=4.
   compute mainy4=15.
   compute mainy5=15.
   compute mainy6=15.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=43.
   compute avy4=2.
   compute avy5=2.
   compute avy6=2.
   compute mainy4=8.
   compute mainy5=8.
   compute mainy6=8.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=44.
   compute avy4=3.
   compute avy5=3.
   compute avy6=3.
   compute mainy4=9.
   compute mainy5=9.
   compute mainy6=9.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=45 and (main3=42 or main3=79).
   compute avy4=5.
   compute avy5=5.
   compute avy6=5.
   compute mainy4=64.
   compute mainy5=64.
   compute mainy6=64.
   compute mtravy4=1.
   compute mtravy5=1.
   compute mtravy6=1.
Else if (main2=46 or main2=47) and (main3=42 or main3=79).
   compute avy4=5.
   compute avy5=5.
   compute avy6=5.
   compute mainy4=64.
   compute mainy5=64.
   compute mainy6=64.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=45.
   compute avy4=5.
   compute avy5=5.
   compute avy6=5.
   compute mainy4=63.
   compute mainy5=63.
   compute mainy6=63.
   compute mtravy4=1.
   compute mtravy5=1.
   compute mtravy6=1.
Else if main2=46 or main2=47.
   compute avy4=5.
   compute avy5=5.
   compute avy6=5.
   compute mainy4=63.
   compute mainy5=63.
   compute mainy6=63.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=48.
   compute avy4=5.
   compute avy5=5.
   compute avy6=5.
   compute mainy4=11.
   compute mainy5=11.
   compute mainy6=11.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=49.
   compute avy4=1.
   compute avy5=1.
   compute avy6=1.
   compute mainy4=5.
   compute mainy5=5.
   compute mainy6=5.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=50.
   compute avy4=8.
   compute avy5=8.
   compute avy6=8.
   compute mainy4=21.
   compute mainy5=21.
   compute mainy6=21.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=51.
   compute avy4=11.
   compute avy5=11.
   compute avy6=11.
   compute mainy4=28.
   compute mainy5=28.
   compute mainy6=28.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=52.
   compute avy4=11.
   compute avy5=11.
   compute avy6=11.
   compute mainy4=30.
   compute mainy5=30.
   compute mainy6=30.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=53.
   compute avy4=6.
   compute avy5=6.
   compute avy6=6.
   compute mainy4=18.
   compute mainy5=18.
   compute mainy6=18.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=54.
   compute avy4=7.
   compute avy5=7.
   compute avy6=7.
   compute mainy4=20.
   compute mainy5=20.
   compute mainy6=20.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=55.
   compute avy4=8.
   compute avy5=8.
   compute avy6=8.
   compute mainy4=22.
   compute mainy5=22.
   compute mainy6=22.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=56.
   compute avy4=8.
   compute avy5=8.
   compute avy6=8.
   compute mainy4=27.
   compute mainy5=27.
   compute mainy6=27.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=57.
   compute avy4=10.
   compute avy5=10.
   compute avy6=10.
   compute mainy4=24.
   compute mainy5=24.
   compute mainy6=24.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=58.
   compute avy4=12.
   compute avy5=12.
   compute avy6=12.
   compute mainy4=66.
   compute mainy5=66.
   compute mainy6=66.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=59.
   compute avy4=7.
   compute avy5=7.
   compute avy6=13.
   compute mainy4=23.
   compute mainy5=23.
   compute mainy6=4.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=60.
   compute avy4=9.
   compute avy5=9.
   compute avy6=9.
   compute mainy4=46.
   compute mainy5=46.
   compute mainy6=46.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=61.
   compute avy4=33.
   compute avy5=33.
   compute avy6=33.
   compute mainy4=16.
   compute mainy5=16.
   compute mainy6=16.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=62.
   compute avy4=34.
   compute avy5=34.
   compute avy6=34.
   compute mainy4=56.
   compute mainy5=56.
   compute mainy6=56.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=63.
   compute avy4=35.
   compute avy5=35.
   compute avy6=35.
   compute mainy4=56.
   compute mainy5=56.
   compute mainy6=56.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=64.
   compute avy4=40.
   compute avy5=40.
   compute avy6=40.
   compute mainy4=54.
   compute mainy5=54.
   compute mainy6=54.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=65.
   compute avy4=39.
   compute avy5=39.
   compute avy6=39.
   compute mainy4=54.
   compute mainy5=54.
   compute mainy6=54.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=66.
   compute avy4=38.
   compute avy5=38.
   compute avy6=38.
   compute mainy4=48.
   compute mainy5=48.
   compute mainy6=48.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=67.
   compute avy4=37.
   compute avy5=37.
   compute avy6=37.
   compute mainy4=49.
   compute mainy5=49.
   compute mainy6=49.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=68.
   compute avy4=32.
   compute avy5=32.
   compute avy6=32.
   compute mainy4=57.
   compute mainy5=57.
   compute mainy6=57.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=69.
   compute avy4=36.
   compute avy5=36.
   compute avy6=36.
   compute mainy4=55.
   compute mainy5=55.
   compute mainy6=55.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=70.
   compute avy4=25.
   compute avy5=25.
   compute avy6=25.
   compute mainy4=35.
   compute mainy5=35.
   compute mainy6=35.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=71.
   compute avy4=29.
   compute avy5=29.
   compute avy6=29.
   compute mainy4=48.
   compute mainy5=48.
   compute mainy6=48.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=72.
   compute avy4=24.
   compute avy5=24.
   compute avy6=24.
   compute mainy4=37.
   compute mainy5=37.
   compute mainy6=37.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=73.
   compute avy4=23.
   compute avy5=23.
   compute avy6=23.
   compute mainy4=33.
   compute mainy5=33.
   compute mainy6=33.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=74.
   compute avy4=26.
   compute avy5=26.
   compute avy6=26.
   compute mainy4=40.
   compute mainy5=40.
   compute mainy6=40.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=75 or main2=39.
   compute avy4=27.
   compute avy5=27.
   compute avy6=27.
   compute mainy4=39.
   compute mainy5=39.
   compute mainy6=39.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=76.
   compute avy4=25.
   compute avy5=25.
   compute avy6=25.
   compute mainy4=40.
   compute mainy5=40.
   compute mainy6=40.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=77 or main2=38.
   compute avy4=28.
   compute avy5=28.
   compute avy6=28.
   compute mainy4=39.
   compute mainy5=39.
   compute mainy6=39.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=78.
   compute avy4=22.
   compute avy5=22.
   compute avy6=22.
   compute mainy4=34.
   compute mainy5=34.
   compute mainy6=34.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=79.
   compute avy4=4.
   compute avy5=4.
   compute avy6=4.
   compute mainy4=17.
   compute mainy5=17.
   compute mainy6=17.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=80.
   compute avy4=18.
   compute avy5=18.
   compute avy6=18.
   compute mainy4=38.
   compute mainy5=38.
   compute mainy6=38.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=81.
   compute avy4=19.
   compute avy5=19.
   compute avy6=19.
   compute mainy4=42.
   compute mainy5=42.
   compute mainy6=42.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=82.
   compute avy4=20.
   compute avy5=20.
   compute avy6=20.
   compute mainy4=36.
   compute mainy5=36.
   compute mainy6=36.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=83.
   compute avy4=21.
   compute avy5=21.
   compute avy6=21.
   compute mainy4=43.
   compute mainy5=43.
   compute mainy6=43.
   compute mtravy4=3.
   compute mtravy5=3.
   compute mtravy6=3.
Else if main2=84.
   compute avy4=18.
   compute avy5=18.
   compute avy6=18.
   compute mainy4=45.
   compute mainy5=45.
   compute mainy6=45.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=85 or main2=86.
   compute avy4=18.
   compute avy5=18.
   compute avy6=18.
   compute mainy4=38.
   compute mainy5=38.
   compute mainy6=38.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=89.
   compute avy4=17.
   compute avy5=17.
   compute avy6=17.
   compute mainy4=68.
   compute mainy5=68.
   compute mainy6=68.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=90.
   compute avy4=17.
   compute avy5=17.
   compute avy6=17.
   compute mainy4=62.
   compute mainy5=62.
   compute mainy6=62.
   compute mtravy4=5.
   compute mtravy5=5.
   compute mtravy6=5.
Else if main2=91.
   compute avy4=40.
   compute avy5=40.
   compute avy6=40.
   compute mainy4=51.
   compute mainy5=51.
   compute mainy6=51.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=92.
   compute avy4=31.
   compute avy5=31.
   compute avy6=31.
   compute mainy4=59.
   compute mainy5=59.
   compute mainy6=59.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
Else if main2=93.
   compute avy4=41.
   compute avy5=41.
   compute avy6=41.
   compute mainy4=41.
   compute mainy5=41.
   compute mainy6=41.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
End if.

Do if main2=1 and main3=1.
   compute avy4=16.
   compute avy5=16.
   compute avy6=16.
   compute mainy4=2.
   compute mainy5=2.
   compute mainy6=2.
   compute mtravy4=-7. 
   compute mtravy5=-7. 
   compute mtravy6=-7. 
Else if main2=2 and main3=2.
   compute avy4=16.
   compute avy5=16.
   compute avy6=16.
   compute mainy4=2.
   compute mainy5=2.
   compute mainy6=2.
   compute mtravy4=-7.
   compute mtravy5=-7.
   compute mtravy6=-7.
End if.

freq avy4 avy5 avy6 mainy4 mainy5 mainy6 mtravy4 mtravy5 mtravy6.

compute eptest=1.
vector main=main1 to main48 /sec=sec1 to sec48 /loc=loc1 to loc48.
Loop i=1 to 47.
   compute j=i+1.
   if main(i)~=main(j) or sec(i)~=sec(j) or loc(i)~=loc(j) eptest=eptest+1.
End loop.
freq eptest.

*set values for the 3rd time slot.
freq mtmark3.
*48 missing travel cases in time slot 3.

temp.
select if mtmark3=1.
cro main3 by main4.

if main3=34 or main3>80 mtmark3=0.
if main3=41 and main4=38 mtmark3=0.
if main3=main4 mtmark3=0.
*errors fixed, 28 cases remain.

temp.
select if sec3=45.
cro sec3 by main3.
*no cases of secondary travel by car.

temp.
select if sec3=37 or sec3=46 or sec3=47 or sec3=58 or sec3=89 or sec3=90.
cro sec3 by main3.

Do if mtmark3=0.
   Do if main3>95.
      compute avy7=41.
      compute avy8=41.
      compute avy9=41.
      compute mainy7=69.
      compute mainy8=69.
      compute mainy9=69.
      compute mtravy7=-8.
      compute mtravy8=-8.
      compute mtravy9=-8.
   Else if main3=1.
      compute avy7=16.
      compute avy8=16.
      compute avy9=13.
      compute mainy7=2.
      compute mainy8=2.
      compute mainy9=4.
      compute mtravy7=-7. 
      compute mtravy8=-7. 
      compute mtravy9=-7. 
   Else if main3=2.
      compute avy7=16.
      compute avy8=16.
      compute avy9=36.
      compute mainy7=2.
      compute mainy8=2.
      compute mainy9=55.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=3 or main3=4.
      compute avy7=16.
      compute avy8=16.
      compute avy9=16.
      compute mainy7=2.
      compute mainy8=2.
      compute mainy9=2.
      compute mtravy7=-7. 
      compute mtravy8=-7. 
      compute mtravy9=-7. 
   Else if main3=5.
      compute avy7=16.
      compute avy8=16.
      compute avy9=16.
      compute mainy7=3.
      compute mainy8=3.
      compute mainy9=3.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=6.
      compute avy7=13.
      compute avy8=13.
      compute avy9=13.
      compute mainy7=1.
      compute mainy8=1.
      compute mainy9=1.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3>6 and main3<20.
      compute avy7=30.
      compute avy8=30.
      compute avy9=30.
      compute mainy7=58.
      compute mainy8=58.
      compute mainy9=58.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3>19 and main3<30.
      compute avy7=31.
      compute avy8=31.
      compute avy9=31.
      compute mainy7=59.
      compute mainy8=59.
      compute mainy9=59.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3>29 and main3<34.
      compute avy7=13.
      compute avy8=13.
      compute avy9=13.
      compute mainy7=4.
      compute mainy8=4.
      compute mainy9=4.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=34 or main3=35 or ((main3=38 or main3=39) and loc3=1).
      compute avy7=15.
      compute avy8=15.
      compute avy9=15.
      compute mainy7=6.
      compute mainy8=6.
      compute mainy9=6.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=36.
      compute avy7=14.
      compute avy8=14.
      compute avy9=14.
      compute mainy7=25.
      compute mainy8=25.
      compute mainy9=25.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=37.
      compute avy7=12.
      compute avy8=12.
      compute avy9=12.
      compute mainy7=67.
      compute mainy8=67.
      compute mainy9=67.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=40.
      compute avy7=1.
      compute avy8=1.
      compute avy9=1.
      compute mainy7=13.
      compute mainy8=13.
      compute mainy9=13.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=41.
      compute avy7=1.
      compute avy8=1.
      compute avy9=1.
      compute mainy7=7.
      compute mainy8=7.
      compute mainy9=7.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=42.
      compute avy7=4.
      compute avy8=4.
      compute avy9=4.
      compute mainy7=15.
      compute mainy8=15.
      compute mainy9=15.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=43.
      compute avy7=2.
      compute avy8=2.
      compute avy9=2.
      compute mainy7=8.
      compute mainy8=8.
      compute mainy9=8.
      compute mtravy7=-7.
      compute mtravy8=-7.
     compute mtravy9=-7.
   Else if main3=44.
      compute avy7=3.
      compute avy8=3.
      compute avy9=3.
      compute mainy7=9.
      compute mainy8=9.
      compute mainy9=9.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=45 and (main4=42 or main4=79).
      compute avy7=5.
      compute avy8=5.
      compute avy9=5.
      compute mainy7=64.
      compute mainy8=64.
      compute mainy9=64.
      compute mtravy7=1.
      compute mtravy8=1.
      compute mtravy9=1.
   Else if (main3=46 or main3=47) and (main4=42 or main4=79).
      compute avy7=5.
      compute avy8=5.
      compute avy9=5.
      compute mainy7=64.
      compute mainy8=64.
      compute mainy9=64.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=45.
      compute avy7=5.
      compute avy8=5.
      compute avy9=5.
      compute mainy7=63.
      compute mainy8=63.
      compute mainy9=63.
      compute mtravy7=1.
      compute mtravy8=1.
      compute mtravy9=1.
   Else if main3=46 or main3=47.
      compute avy7=5.
      compute avy8=5.
      compute avy9=5.
      compute mainy7=63.
      compute mainy8=63.
      compute mainy9=63.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=48.
      compute avy7=5.
      compute avy8=5.
      compute avy9=5.
      compute mainy7=11.
      compute mainy8=11.
      compute mainy9=11.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=49.
      compute avy7=1.
      compute avy8=1.
      compute avy9=1.
      compute mainy7=5.
      compute mainy8=5.
      compute mainy9=5.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=50.
      compute avy7=8.
      compute avy8=8.
      compute avy9=8.
      compute mainy7=21.
      compute mainy8=21.
      compute mainy9=21.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=51.
      compute avy7=11.
      compute avy8=11.
      compute avy9=11.
      compute mainy7=28.
      compute mainy8=28.
      compute mainy9=28.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=52.
      compute avy7=11.
      compute avy8=11.
      compute avy9=11.
      compute mainy7=30.
      compute mainy8=30.
      compute mainy9=30.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=53.
      compute avy7=6.
      compute avy8=6.
      compute avy9=6.
      compute mainy7=18.
      compute mainy8=18.
      compute mainy9=18.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=54.
      compute avy7=7.
      compute avy8=7.
      compute avy9=7.
      compute mainy7=20.
      compute mainy8=20.
      compute mainy9=20.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=55.
      compute avy7=8.
      compute avy8=8.
      compute avy9=8.
      compute mainy7=22.
      compute mainy8=22.
      compute mainy9=22.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=56.
      compute avy7=8.
      compute avy8=8.
      compute avy9=8.
      compute mainy7=27.
      compute mainy8=27.
      compute mainy9=27.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=57.
      compute avy7=10.
      compute avy8=10.
      compute avy9=10.
      compute mainy7=24.
      compute mainy8=24.
      compute mainy9=24.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=58.
      compute avy7=12.
      compute avy8=12.
      compute avy9=12.
      compute mainy7=66.
      compute mainy8=66.
      compute mainy9=66.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=59.
      compute avy7=7.
      compute avy8=7.
      compute avy9=13.
      compute mainy7=23.
      compute mainy8=23.
      compute mainy9=4.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=60.
      compute avy7=9.
      compute avy8=9.
      compute avy9=9.
      compute mainy7=46.
      compute mainy8=46.
      compute mainy9=46.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=61.
      compute avy7=33.
      compute avy8=33.
      compute avy9=33.
      compute mainy7=16.
      compute mainy8=16.
      compute mainy9=16.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=62.
      compute avy7=34.
      compute avy8=34.
      compute avy9=34.
      compute mainy7=56.
      compute mainy8=56.
      compute mainy9=56.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=63.
      compute avy7=35.
      compute avy8=35.
      compute avy9=35.
      compute mainy7=56.
      compute mainy8=56.
      compute mainy9=56.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=64.
      compute avy7=40.
      compute avy8=40.
      compute avy9=40.
      compute mainy7=54.
      compute mainy8=54.
      compute mainy9=54.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=65.
      compute avy7=39.
      compute avy8=39.
      compute avy9=39.
      compute mainy7=54.
      compute mainy8=54.
      compute mainy9=54.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=66.
      compute avy7=38.
      compute avy8=38.
      compute avy9=38.
      compute mainy7=48.
      compute mainy8=48.
      compute mainy9=48.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=67.
      compute avy7=37.
      compute avy8=37.
      compute avy9=37.
      compute mainy7=49.
      compute mainy8=49.
      compute mainy9=49.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=68.
      compute avy7=32.
      compute avy8=32.
      compute avy9=32.
      compute mainy7=57.
      compute mainy8=57.
      compute mainy9=57.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=69.
      compute avy7=36.
      compute avy8=36.
      compute avy9=36.
      compute mainy7=55.
      compute mainy8=55.
      compute mainy9=55.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=70.
      compute avy7=25.
      compute avy8=25.
      compute avy9=25.
      compute mainy7=35.
      compute mainy8=35.
      compute mainy9=35.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=71.
      compute avy7=29.
      compute avy8=29.
      compute avy9=29.
      compute mainy7=48.
      compute mainy8=48.
      compute mainy9=48.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=72.
      compute avy7=24.
      compute avy8=24.
      compute avy9=24.
      compute mainy7=37.
      compute mainy8=37.
      compute mainy9=37.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=73.
      compute avy7=23.
      compute avy8=23.
      compute avy9=23.
      compute mainy7=33.
      compute mainy8=33.
      compute mainy9=33.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=74.
      compute avy7=26.
      compute avy8=26.
      compute avy9=26.
      compute mainy7=40.
      compute mainy8=40.
      compute mainy9=40.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=75 or main3=39.
      compute avy7=27.
      compute avy8=27.
      compute avy9=27.
      compute mainy7=39.
      compute mainy8=39.
      compute mainy9=39.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=76.
      compute avy7=25.
      compute avy8=25.
      compute avy9=25.
      compute mainy7=40.
      compute mainy8=40.
      compute mainy9=40.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=77 or main3=38.
      compute avy7=28.
      compute avy8=28.
      compute avy9=28.
      compute mainy7=39.
      compute mainy8=39.
      compute mainy9=39.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=78.
      compute avy7=22.
      compute avy8=22.
      compute avy9=22.
      compute mainy7=34.
      compute mainy8=34.
      compute mainy9=34.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=79.
      compute avy7=4.
      compute avy8=4.
      compute avy9=4.
      compute mainy7=17.
      compute mainy8=17.
      compute mainy9=17.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=80.
      compute avy7=18.
      compute avy8=18.
      compute avy9=18.
      compute mainy7=38.
      compute mainy8=38.
      compute mainy9=38.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=81.
      compute avy7=19.
      compute avy8=19.
      compute avy9=19.
      compute mainy7=42.
      compute mainy8=42.
      compute mainy9=42.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=82.
      compute avy7=20.
      compute avy8=20.
      compute avy9=20.
      compute mainy7=36.
      compute mainy8=36.
      compute mainy9=36.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=83.
      compute avy7=21.
      compute avy8=21.
      compute avy9=21.
      compute mainy7=43.
      compute mainy8=43.
      compute mainy9=43.
      compute mtravy7=3.
      compute mtravy8=3.
      compute mtravy9=3.
   Else if main3=84.
      compute avy7=18.
      compute avy8=18.
      compute avy9=18.
      compute mainy7=45.
      compute mainy8=45.
      compute mainy9=45.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=85 or main3=86.
      compute avy7=18.
      compute avy8=18.
      compute avy9=18.
      compute mainy7=38.
      compute mainy8=38.
      compute mainy9=38.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=89.
      compute avy7=17.
      compute avy8=17.
      compute avy9=17.
      compute mainy7=68.
      compute mainy8=68.
      compute mainy9=68.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=90.
      compute avy7=17.
      compute avy8=17.
      compute avy9=17.
      compute mainy7=62.
      compute mainy8=62.
      compute mainy9=62.
      compute mtravy7=5.
      compute mtravy8=5.
      compute mtravy9=5.
   Else if main3=91.
      compute avy7=40.
      compute avy8=40.
      compute avy9=40.
      compute mainy7=51.
      compute mainy8=51.
      compute mainy9=51.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=92.
      compute avy7=31.
      compute avy8=31.
      compute avy9=31.
      compute mainy7=59.
      compute mainy8=59.
      compute mainy9=59.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   Else if main3=93.
      compute avy7=41.
      compute avy8=41.
      compute avy9=41.
      compute mainy7=41.
      compute mainy8=41.
      compute mainy9=41.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=-7.
   End if.
Else if mtmark3=1.
   Do if main3=2.
      compute avy7=36.
      compute avy8=13.
      compute avy9=5.
      compute mainy7=55.
      compute mainy8=4.
      compute mainy9=63.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=5.
   Else if main3=3 and main4=57.
      compute avy7=16.
      compute avy8=13.
      compute avy9=12.
      compute mainy7=2.
      compute mainy8=4.
      compute mainy9=67.
      compute mtravy7=-7. 
      compute mtravy8=-7. 
      compute mtravy9=5. 
   Else if main3=3.
      compute avy7=16.
      compute avy8=13.
      compute avy9=5.
      compute mainy7=2.
      compute mainy8=4.
      compute mainy9=63.
      compute mtravy7=-7. 
      compute mtravy8=-7. 
      compute mtravy9=5. 
   Else if main3=31.
      compute avy7=13.
      compute avy8=13.
      compute avy9=5.
      compute mainy7=4.
      compute mainy8=4.
      compute mainy9=63.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=5.
   Else if main3=33.
      compute avy7=13.
      compute avy8=13.
      compute avy9=17.
      compute mainy7=4.
      compute mainy8=4.
      compute mainy9=68.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=5.
   Else if main3=41.
      compute avy7=1.
      compute avy8=1.
      compute avy9=5.
      compute mainy7=7.
      compute mainy8=7.
      compute mainy9=63.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=5.
   Else if main3=76.
      compute avy7=25.
      compute avy8=25.
      compute avy9=17.
      compute mainy7=40.
      compute mainy8=40.
      compute mainy9=68.
      compute mtravy7=-7.
      compute mtravy8=-7.
      compute mtravy9=5.
   End if.
End if.

Do if main3=1 and main4=1 and mtmark3=0.
   compute avy7=16.
   compute avy8=16.
   compute avy9=16.
   compute mainy7=2.
   compute mainy8=2.
   compute mainy9=2.
   compute mtravy7=-7. 
   compute mtravy8=-7. 
   compute mtravy9=-7. 
Else if main3=2 and main4=2 and mtmark3=0.
   compute avy7=16.
   compute avy8=16.
   compute avy9=16.
   compute mainy7=2.
   compute mainy8=2.
   compute mainy9=2.
   compute mtravy7=-7.
   compute mtravy8=-7.
   compute mtravy9=-7.
End if.

freq avy7 avy8 avy9 mainy7 mainy8 mainy9 mtravy7 mtravy8 mtravy9.

*set values for the 4th time slot.
freq mtmark4.
*89 missing travel cases in time slot 4.

temp.
select if mtmark4=1.
cro main4 by main5.

if main5>80 mtmark4=0.
if main4=34 or main4=38 or main4=57 or main4=50 mtmark4=0.
if main4=41 and (main5=11 or main5=41) mtmark4=0.
*error fixed, 72 cases remain.

temp.
select if sec4=45.
cro sec4 by main4.
*4 cases of secondary travel by car with main=31.

temp.
select if sec4=37 or sec4=46 or sec4=47 or sec4=58 or sec4=89 or sec4=90.
cro sec4 by main4 by main5 by mtmark5.

Do if mtmark4=0.
   Do if main4>95.
      compute avy10=41.
      compute avy11=41.
      compute avy12=41.
      compute mainy10=69.
      compute mainy11=69.
      compute mainy12=69.
      compute mtravy10=-8.
      compute mtravy11=-8.
      compute mtravy12=-8.
   Else if main4=1.
      compute avy10=16.
      compute avy11=16.
      compute avy12=13.
      compute mainy10=2.
      compute mainy11=2.
      compute mainy12=4.
      compute mtravy10=-7. 
      compute mtravy11=-7. 
      compute mtravy12=-7. 
   Else if main4=2.
      compute avy10=16.
      compute avy11=16.
      compute avy12=36.
      compute mainy10=2.
      compute mainy11=2.
      compute mainy12=55.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=3 or main4=4.
      compute avy10=16.
      compute avy11=16.
      compute avy12=16.
      compute mainy10=2.
      compute mainy11=2.
      compute mainy12=2.
      compute mtravy10=-7. 
      compute mtravy11=-7. 
      compute mtravy12=-7. 
   Else if main4=5.
      compute avy10=16.
      compute avy11=16.
      compute avy12=16.
      compute mainy10=3.
      compute mainy11=3.
      compute mainy12=3.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=6.
      compute avy10=13.
      compute avy11=13.
      compute avy12=13.
      compute mainy10=1.
      compute mainy11=1.
      compute mainy12=1.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4>6 and main4<20.
      compute avy10=30.
      compute avy11=30.
      compute avy12=30.
      compute mainy10=58.
      compute mainy11=58.
      compute mainy12=58.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4>19 and main4<30.
      compute avy10=31.
      compute avy11=31.
      compute avy12=31.
      compute mainy10=59.
      compute mainy11=59.
      compute mainy12=59.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=31 and sec4=58.
      compute avy10=13.
      compute avy11=13.
      compute avy12=12.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=66.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=34 and (sec4=46 or sec4=47).
      compute avy10=13.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4>29 and main4<34.
      compute avy10=13.
      compute avy11=13.
      compute avy12=13.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=4.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=34 and (sec4=46 or sec4=47).
      compute avy10=15.
      compute avy11=15.
      compute avy12=5.
      compute mainy10=6.
      compute mainy11=6.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=34 or main4=35 or ((main4=38 or main4=39) and loc4=1).
      compute avy10=15.
      compute avy11=15.
      compute avy12=15.
      compute mainy10=6.
      compute mainy11=6.
      compute mainy12=6.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=36.
      compute avy10=14.
      compute avy11=14.
      compute avy12=14.
      compute mainy10=25.
      compute mainy11=25.
      compute mainy12=25.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=37.
      compute avy10=12.
      compute avy11=12.
      compute avy12=12.
      compute mainy10=67.
      compute mainy11=67.
      compute mainy12=67.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=40.
      compute avy10=1.
      compute avy11=1.
      compute avy12=1.
      compute mainy10=13.
      compute mainy11=13.
      compute mainy12=13.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=41.
      compute avy10=1.
      compute avy11=1.
      compute avy12=1.
      compute mainy10=7.
      compute mainy11=7.
      compute mainy12=7.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=42.
      compute avy10=4.
      compute avy11=4.
      compute avy12=4.
      compute mainy10=15.
      compute mainy11=15.
      compute mainy12=15.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=43.
      compute avy10=2.
      compute avy11=2.
      compute avy12=2.
      compute mainy10=8.
      compute mainy11=8.
      compute mainy12=8.
      compute mtravy10=-7.
      compute mtravy11=-7.
     compute mtravy12=-7.
   Else if main4=44.
      compute avy10=3.
      compute avy11=3.
      compute avy12=3.
      compute mainy10=9.
      compute mainy11=9.
      compute mainy12=9.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=45 and (main5=42 or main5=79).
      compute avy10=5.
      compute avy11=5.
      compute avy12=5.
      compute mainy10=64.
      compute mainy11=64.
      compute mainy12=64.
      compute mtravy10=1.
      compute mtravy11=1.
      compute mtravy12=1.
   Else if (main4=46 or main4=47) and (main5=42 or main5=79).
      compute avy10=5.
      compute avy11=5.
      compute avy12=5.
      compute mainy10=64.
      compute mainy11=64.
      compute mainy12=64.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=45.
      compute avy10=5.
      compute avy11=5.
      compute avy12=5.
      compute mainy10=63.
      compute mainy11=63.
      compute mainy12=63.
      compute mtravy10=1.
      compute mtravy11=1.
      compute mtravy12=1.
   Else if main4=46 or main4=47.
      compute avy10=5.
      compute avy11=5.
      compute avy12=5.
      compute mainy10=63.
      compute mainy11=63.
      compute mainy12=63.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=48.
      compute avy10=5.
      compute avy11=5.
      compute avy12=5.
      compute mainy10=11.
      compute mainy11=11.
      compute mainy12=11.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=49.
      compute avy10=1.
      compute avy11=1.
      compute avy12=1.
      compute mainy10=5.
      compute mainy11=5.
      compute mainy12=5.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=50.
      compute avy10=8.
      compute avy11=8.
      compute avy12=8.
      compute mainy10=21.
      compute mainy11=21.
      compute mainy12=21.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=51.
      compute avy10=11.
      compute avy11=11.
      compute avy12=11.
      compute mainy10=28.
      compute mainy11=28.
      compute mainy12=28.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=52.
      compute avy10=11.
      compute avy11=11.
      compute avy12=11.
      compute mainy10=30.
      compute mainy11=30.
      compute mainy12=30.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=53.
      compute avy10=6.
      compute avy11=6.
      compute avy12=6.
      compute mainy10=18.
      compute mainy11=18.
      compute mainy12=18.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=54.
      compute avy10=7.
      compute avy11=7.
      compute avy12=7.
      compute mainy10=20.
      compute mainy11=20.
      compute mainy12=20.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=55.
      compute avy10=8.
      compute avy11=8.
      compute avy12=8.
      compute mainy10=22.
      compute mainy11=22.
      compute mainy12=22.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=56.
      compute avy10=8.
      compute avy11=8.
      compute avy12=8.
      compute mainy10=27.
      compute mainy11=27.
      compute mainy12=27.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=57.
      compute avy10=10.
      compute avy11=10.
      compute avy12=10.
      compute mainy10=24.
      compute mainy11=24.
      compute mainy12=24.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=58.
      compute avy10=12.
      compute avy11=12.
      compute avy12=12.
      compute mainy10=66.
      compute mainy11=66.
      compute mainy12=66.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=59.
      compute avy10=7.
      compute avy11=7.
      compute avy12=13.
      compute mainy10=23.
      compute mainy11=23.
      compute mainy12=4.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=60.
      compute avy10=9.
      compute avy11=9.
      compute avy12=9.
      compute mainy10=46.
      compute mainy11=46.
      compute mainy12=46.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=61.
      compute avy10=33.
      compute avy11=33.
      compute avy12=33.
      compute mainy10=16.
      compute mainy11=16.
      compute mainy12=16.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=62.
      compute avy10=34.
      compute avy11=34.
      compute avy12=34.
      compute mainy10=56.
      compute mainy11=56.
      compute mainy12=56.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=63.
      compute avy10=35.
      compute avy11=35.
      compute avy12=35.
      compute mainy10=56.
      compute mainy11=56.
      compute mainy12=56.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=64.
      compute avy10=40.
      compute avy11=40.
      compute avy12=40.
      compute mainy10=54.
      compute mainy11=54.
      compute mainy12=54.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=65.
      compute avy10=39.
      compute avy11=39.
      compute avy12=39.
      compute mainy10=54.
      compute mainy11=54.
      compute mainy12=54.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=66.
      compute avy10=38.
      compute avy11=38.
      compute avy12=38.
      compute mainy10=48.
      compute mainy11=48.
      compute mainy12=48.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=67.
      compute avy10=37.
      compute avy11=37.
      compute avy12=37.
      compute mainy10=49.
      compute mainy11=49.
      compute mainy12=49.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=68.
      compute avy10=32.
      compute avy11=32.
      compute avy12=32.
      compute mainy10=57.
      compute mainy11=57.
      compute mainy12=57.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=69.
      compute avy10=36.
      compute avy11=36.
      compute avy12=36.
      compute mainy10=55.
      compute mainy11=55.
      compute mainy12=55.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=70.
      compute avy10=25.
      compute avy11=25.
      compute avy12=25.
      compute mainy10=35.
      compute mainy11=35.
      compute mainy12=35.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=71.
      compute avy10=29.
      compute avy11=29.
      compute avy12=29.
      compute mainy10=48.
      compute mainy11=48.
      compute mainy12=48.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=72.
      compute avy10=24.
      compute avy11=24.
      compute avy12=24.
      compute mainy10=37.
      compute mainy11=37.
      compute mainy12=37.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=73.
      compute avy10=23.
      compute avy11=23.
      compute avy12=23.
      compute mainy10=33.
      compute mainy11=33.
      compute mainy12=33.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=74.
      compute avy10=26.
      compute avy11=26.
      compute avy12=26.
      compute mainy10=40.
      compute mainy11=40.
      compute mainy12=40.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=75 or main4=39.
      compute avy10=27.
      compute avy11=27.
      compute avy12=27.
      compute mainy10=39.
      compute mainy11=39.
      compute mainy12=39.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=76.
      compute avy10=25.
      compute avy11=25.
      compute avy12=25.
      compute mainy10=40.
      compute mainy11=40.
      compute mainy12=40.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=77 or main4=38.
      compute avy10=28.
      compute avy11=28.
      compute avy12=28.
      compute mainy10=39.
      compute mainy11=39.
      compute mainy12=39.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=78.
      compute avy10=22.
      compute avy11=22.
      compute avy12=22.
      compute mainy10=34.
      compute mainy11=34.
      compute mainy12=34.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=79.
      compute avy10=4.
      compute avy11=4.
      compute avy12=4.
      compute mainy10=17.
      compute mainy11=17.
      compute mainy12=17.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=80.
      compute avy10=18.
      compute avy11=18.
      compute avy12=18.
      compute mainy10=38.
      compute mainy11=38.
      compute mainy12=38.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=81.
      compute avy10=19.
      compute avy11=19.
      compute avy12=19.
      compute mainy10=42.
      compute mainy11=42.
      compute mainy12=42.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=82.
      compute avy10=20.
      compute avy11=20.
      compute avy12=20.
      compute mainy10=36.
      compute mainy11=36.
      compute mainy12=36.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=83.
      compute avy10=21.
      compute avy11=21.
      compute avy12=21.
      compute mainy10=43.
      compute mainy11=43.
      compute mainy12=43.
      compute mtravy10=3.
      compute mtravy11=3.
      compute mtravy12=3.
   Else if main4=84.
      compute avy10=18.
      compute avy11=18.
      compute avy12=18.
      compute mainy10=45.
      compute mainy11=45.
      compute mainy12=45.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=85 or main4=86.
      compute avy10=18.
      compute avy11=18.
      compute avy12=18.
      compute mainy10=38.
      compute mainy11=38.
      compute mainy12=38.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=89.
      compute avy10=17.
      compute avy11=17.
      compute avy12=17.
      compute mainy10=68.
      compute mainy11=68.
      compute mainy12=68.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=90.
      compute avy10=17.
      compute avy11=17.
      compute avy12=17.
      compute mainy10=62.
      compute mainy11=62.
      compute mainy12=62.
      compute mtravy10=5.
      compute mtravy11=5.
      compute mtravy12=5.
   Else if main4=91.
      compute avy10=40.
      compute avy11=40.
      compute avy12=40.
      compute mainy10=51.
      compute mainy11=51.
      compute mainy12=51.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=92.
      compute avy10=31.
      compute avy11=31.
      compute avy12=31.
      compute mainy10=59.
      compute mainy11=59.
      compute mainy12=59.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   Else if main4=93.
      compute avy10=41.
      compute avy11=41.
      compute avy12=41.
      compute mainy10=41.
      compute mainy11=41.
      compute mainy12=41.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=-7.
   End if.
Else if mtmark4=1.
   Do if main4=2.
      compute avy10=36.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=55.
      compute mainy11=4.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=3.
      compute avy10=16.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=2.
      compute mainy11=4.
      compute mainy12=63.
      compute mtravy10=-7. 
      compute mtravy11=-7. 
      compute mtravy12=5. 
   Else if main4=6.
      compute avy10=13.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=1.
      compute mainy11=1.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=31 and main5=79.
      compute avy10=13.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=64.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=31.
      compute avy10=13.
      compute avy11=13.
      compute avy12=5.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      Do if sec4=45.
         compute mtravy12=1.
      Else.
         compute mtravy12=5.
      End if.
   Else if main4=33.
      compute avy10=13.
      compute avy11=13.
      compute avy12=12.
      compute mainy10=4.
      compute mainy11=4.
      compute mainy12=67.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=41.
      compute avy10=1.
      compute avy11=1.
      compute avy12=5.
      compute mainy10=7.
      compute mainy11=7.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=56.
      compute avy10=8.
      compute avy11=8.
      compute avy12=5.
      compute mainy10=27.
      compute mainy11=27.
      compute mainy12=63.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   Else if main4=70.
      compute avy10=25.
      compute avy11=25.
      compute avy12=17.
      compute mainy10=35.
      compute mainy11=35.
      compute mainy12=68.
      compute mtravy10=-7.
      compute mtravy11=-7.
      compute mtravy12=5.
   End if.
End if.

Do if main4=1 and main5=1 and mtmark4=0.
   compute avy10=16.
   compute avy11=16.
   compute avy12=16.
   compute mainy10=2.
   compute mainy11=2.
   compute mainy12=2.
   compute mtravy10=-7. 
   compute mtravy11=-7. 
   compute mtravy12=-7. 
Else if main4=2 and main5=2 and mtmark4=0.
   compute avy10=16.
   compute avy11=16.
   compute avy12=16.
   compute mainy10=2.
   compute mainy11=2.
   compute mainy12=2.
   compute mtravy10=-7.
   compute mtravy11=-7.
   compute mtravy12=-7.
End if.

freq avy10 avy11 avy12 mainy10 mainy11 mainy12 mtravy10 mtravy11 mtravy12.

*set values for the 5th time slot.
freq mtmark5.
*130 missing travel cases in time slot 5.

temp.
select if mtmark5=1.
cro main5 by main6.

if main6>80 mtmark5=0.
if main5>55 mtmark5=0.
if main5=34 or main5=53 mtmark5=0.
if main5=41 and main6=34 mtmark5=0.
*error fixed, 96 cases remain.

temp.
select if sec5=45.
cro sec5 by main5 by mtmark5.
*1 cases of secondary travel by car with main=31.

temp.
select if sec5=37 or sec5=46 or sec5=47 or sec5=58 or sec5=89 or sec5=90.
cro sec5 by main5 by main6 by mtmark5.

Do if mtmark5=0.
   Do if main5>95.
      compute avy13=41.
      compute avy14=41.
      compute avy15=41.
      compute mainy13=69.
      compute mainy14=69.
      compute mainy15=69.
      compute mtravy13=-8.
      compute mtravy14=-8.
      compute mtravy15=-8.
   Else if main5=1.
      compute avy13=16.
      compute avy14=16.
      compute avy15=13.
      compute mainy13=2.
      compute mainy14=2.
      compute mainy15=4.
      compute mtravy13=-7. 
      compute mtravy14=-7. 
      compute mtravy15=-7. 
   Else if main5=2.
      compute avy13=16.
      compute avy14=16.
      compute avy15=36.
      compute mainy13=2.
      compute mainy14=2.
      compute mainy15=55.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=3 or main5=4.
      compute avy13=16.
      compute avy14=16.
      compute avy15=16.
      compute mainy13=2.
      compute mainy14=2.
      compute mainy15=2.
      compute mtravy13=-7. 
      compute mtravy14=-7. 
      compute mtravy15=-7. 
   Else if main5=5.
      compute avy13=16.
      compute avy14=16.
      compute avy15=16.
      compute mainy13=3.
      compute mainy14=3.
      compute mainy15=3.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=6.
      compute avy13=13.
      compute avy14=13.
      compute avy15=13.
      compute mainy13=1.
      compute mainy14=1.
      compute mainy15=1.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5>6 and main5<20.
      compute avy13=30.
      compute avy14=30.
      compute avy15=30.
      compute mainy13=58.
      compute mainy14=58.
      compute mainy15=58.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5>19 and main5<30.
      compute avy13=31.
      compute avy14=31.
      compute avy15=31.
      compute mainy13=59.
      compute mainy14=59.
      compute mainy15=59.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5>29 and main5<34.
      compute avy13=13.
      compute avy14=13.
      compute avy15=13.
      compute mainy13=4.
      compute mainy14=4.
      compute mainy15=4.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=34 and sec5=47.
      compute avy13=15.
      compute avy14=15.
      compute avy15=5.
      compute mainy13=6.
      compute mainy14=6.
      compute mainy15=63.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.  
   Else if main5=34 or main5=35 or ((main5=38 or main5=39) and loc5=1).
      compute avy13=15.
      compute avy14=15.
      compute avy15=15.
      compute mainy13=6.
      compute mainy14=6.
      compute mainy15=6.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=36.
      compute avy13=14.
      compute avy14=14.
      compute avy15=14.
      compute mainy13=25.
      compute mainy14=25.
      compute mainy15=25.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=37.
      compute avy13=12.
      compute avy14=12.
      compute avy15=12.
      compute mainy13=67.
      compute mainy14=67.
      compute mainy15=67.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=40.
      compute avy13=1.
      compute avy14=1.
      compute avy15=1.
      compute mainy13=13.
      compute mainy14=13.
      compute mainy15=13.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=41.
      compute avy13=1.
      compute avy14=1.
      compute avy15=1.
      compute mainy13=7.
      compute mainy14=7.
      compute mainy15=7.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=42.
      compute avy13=4.
      compute avy14=4.
      compute avy15=4.
      compute mainy13=15.
      compute mainy14=15.
      compute mainy15=15.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=43.
      compute avy13=2.
      compute avy14=2.
      compute avy15=2.
      compute mainy13=8.
      compute mainy14=8.
      compute mainy15=8.
      compute mtravy13=-7.
      compute mtravy14=-7.
     compute mtravy15=-7.
   Else if main5=44.
      compute avy13=3.
      compute avy14=3.
      compute avy15=3.
      compute mainy13=9.
      compute mainy14=9.
      compute mainy15=9.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=45 and (main6=42 or main6=79).
      compute avy13=5.
      compute avy14=5.
      compute avy15=5.
      compute mainy13=64.
      compute mainy14=64.
      compute mainy15=64.
      compute mtravy13=1.
      compute mtravy14=1.
      compute mtravy15=1.
   Else if (main5=46 or main5=47) and (main6=42 or main6=79).
      compute avy13=5.
      compute avy14=5.
      compute avy15=5.
      compute mainy13=64.
      compute mainy14=64.
      compute mainy15=64.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=45.
      compute avy13=5.
      compute avy14=5.
      compute avy15=5.
      compute mainy13=63.
      compute mainy14=63.
      compute mainy15=63.
      compute mtravy13=1.
      compute mtravy14=1.
      compute mtravy15=1.
   Else if main5=46 or main5=47.
      compute avy13=5.
      compute avy14=5.
      compute avy15=5.
      compute mainy13=63.
      compute mainy14=63.
      compute mainy15=63.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=48.
      compute avy13=5.
      compute avy14=5.
      compute avy15=5.
      compute mainy13=11.
      compute mainy14=11.
      compute mainy15=11.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=49.
      compute avy13=1.
      compute avy14=1.
      compute avy15=1.
      compute mainy13=5.
      compute mainy14=5.
      compute mainy15=5.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=50.
      compute avy13=8.
      compute avy14=8.
      compute avy15=8.
      compute mainy13=21.
      compute mainy14=21.
      compute mainy15=21.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=51.
      compute avy13=11.
      compute avy14=11.
      compute avy15=11.
      compute mainy13=28.
      compute mainy14=28.
      compute mainy15=28.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=52.
      compute avy13=11.
      compute avy14=11.
      compute avy15=11.
      compute mainy13=30.
      compute mainy14=30.
      compute mainy15=30.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=53.
      compute avy13=6.
      compute avy14=6.
      compute avy15=6.
      compute mainy13=18.
      compute mainy14=18.
      compute mainy15=18.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=54.
      compute avy13=7.
      compute avy14=7.
      compute avy15=7.
      compute mainy13=20.
      compute mainy14=20.
      compute mainy15=20.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=55.
      compute avy13=8.
      compute avy14=8.
      compute avy15=8.
      compute mainy13=22.
      compute mainy14=22.
      compute mainy15=22.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=56.
      compute avy13=8.
      compute avy14=8.
      compute avy15=8.
      compute mainy13=27.
      compute mainy14=27.
      compute mainy15=27.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=57.
      compute avy13=10.
      compute avy14=10.
      compute avy15=10.
      compute mainy13=24.
      compute mainy14=24.
      compute mainy15=24.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=58.
      compute avy13=12.
      compute avy14=12.
      compute avy15=12.
      compute mainy13=66.
      compute mainy14=66.
      compute mainy15=66.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=59.
      compute avy13=7.
      compute avy14=7.
      compute avy15=13.
      compute mainy13=23.
      compute mainy14=23.
      compute mainy15=4.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=60.
      compute avy13=9.
      compute avy14=9.
      compute avy15=9.
      compute mainy13=46.
      compute mainy14=46.
      compute mainy15=46.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=61.
      compute avy13=33.
      compute avy14=33.
      compute avy15=33.
      compute mainy13=16.
      compute mainy14=16.
      compute mainy15=16.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=62.
      compute avy13=34.
      compute avy14=34.
      compute avy15=34.
      compute mainy13=56.
      compute mainy14=56.
      compute mainy15=56.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=63.
      compute avy13=35.
      compute avy14=35.
      compute avy15=35.
      compute mainy13=56.
      compute mainy14=56.
      compute mainy15=56.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=64.
      compute avy13=40.
      compute avy14=40.
      compute avy15=40.
      compute mainy13=54.
      compute mainy14=54.
      compute mainy15=54.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=65.
      compute avy13=39.
      compute avy14=39.
      compute avy15=39.
      compute mainy13=54.
      compute mainy14=54.
      compute mainy15=54.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=66.
      compute avy13=38.
      compute avy14=38.
      compute avy15=38.
      compute mainy13=48.
      compute mainy14=48.
      compute mainy15=48.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=67.
      compute avy13=37.
      compute avy14=37.
      compute avy15=37.
      compute mainy13=49.
      compute mainy14=49.
      compute mainy15=49.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=68.
      compute avy13=32.
      compute avy14=32.
      compute avy15=32.
      compute mainy13=57.
      compute mainy14=57.
      compute mainy15=57.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=69.
      compute avy13=36.
      compute avy14=36.
      compute avy15=36.
      compute mainy13=55.
      compute mainy14=55.
      compute mainy15=55.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=70.
      compute avy13=25.
      compute avy14=25.
      compute avy15=25.
      compute mainy13=35.
      compute mainy14=35.
      compute mainy15=35.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=71.
      compute avy13=29.
      compute avy14=29.
      compute avy15=29.
      compute mainy13=48.
      compute mainy14=48.
      compute mainy15=48.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=72.
      compute avy13=24.
      compute avy14=24.
      compute avy15=24.
      compute mainy13=37.
      compute mainy14=37.
      compute mainy15=37.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=73.
      compute avy13=23.
      compute avy14=23.
      compute avy15=23.
      compute mainy13=33.
      compute mainy14=33.
      compute mainy15=33.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=74.
      compute avy13=26.
      compute avy14=26.
      compute avy15=26.
      compute mainy13=40.
      compute mainy14=40.
      compute mainy15=40.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=75 or main5=39.
      compute avy13=27.
      compute avy14=27.
      compute avy15=27.
      compute mainy13=39.
      compute mainy14=39.
      compute mainy15=39.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=76.
      compute avy13=25.
      compute avy14=25.
      compute avy15=25.
      compute mainy13=40.
      compute mainy14=40.
      compute mainy15=40.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=77 or main5=38.
      compute avy13=28.
      compute avy14=28.
      compute avy15=28.
      compute mainy13=39.
      compute mainy14=39.
      compute mainy15=39.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=78.
      compute avy13=22.
      compute avy14=22.
      compute avy15=22.
      compute mainy13=34.
      compute mainy14=34.
      compute mainy15=34.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=79.
      compute avy13=4.
      compute avy14=4.
      compute avy15=4.
      compute mainy13=17.
      compute mainy14=17.
      compute mainy15=17.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=80.
      compute avy13=18.
      compute avy14=18.
      compute avy15=18.
      compute mainy13=38.
      compute mainy14=38.
      compute mainy15=38.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=81.
      compute avy13=19.
      compute avy14=19.
      compute avy15=19.
      compute mainy13=42.
      compute mainy14=42.
      compute mainy15=42.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=82.
      compute avy13=20.
      compute avy14=20.
      compute avy15=20.
      compute mainy13=36.
      compute mainy14=36.
      compute mainy15=36.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=83.
      compute avy13=21.
      compute avy14=21.
      compute avy15=21.
      compute mainy13=43.
      compute mainy14=43.
      compute mainy15=43.
      compute mtravy13=3.
      compute mtravy14=3.
      compute mtravy15=3.
   Else if main5=84.
      compute avy13=18.
      compute avy14=18.
      compute avy15=18.
      compute mainy13=45.
      compute mainy14=45.
      compute mainy15=45.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=85 or main5=86.
      compute avy13=18.
      compute avy14=18.
      compute avy15=18.
      compute mainy13=38.
      compute mainy14=38.
      compute mainy15=38.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=89.
      compute avy13=17.
      compute avy14=17.
      compute avy15=17.
      compute mainy13=68.
      compute mainy14=68.
      compute mainy15=68.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=90.
      compute avy13=17.
      compute avy14=17.
      compute avy15=17.
      compute mainy13=62.
      compute mainy14=62.
      compute mainy15=62.
      compute mtravy13=5.
      compute mtravy14=5.
      compute mtravy15=5.
   Else if main5=91.
      compute avy13=40.
      compute avy14=40.
      compute avy15=40.
      compute mainy13=51.
      compute mainy14=51.
      compute mainy15=51.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=92.
      compute avy13=31.
      compute avy14=31.
      compute avy15=31.
      compute mainy13=59.
      compute mainy14=59.
      compute mainy15=59.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   Else if main5=93.
      compute avy13=41.
      compute avy14=41.
      compute avy15=41.
      compute mainy13=41.
      compute mainy14=41.
      compute mainy15=41.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=-7.
   End if.
Else if mtmark5=1.
   Do if main5=3.
      compute avy13=16.
      compute avy14=13.
      compute avy15=5.
      compute mainy13=2.
      compute mainy14=4.
      compute mainy15=63.
      compute mtravy13=-7. 
      compute mtravy14=-7. 
      compute mtravy15=5. 
   Else if main5=31 and main6>69.
      compute avy13=13.
      compute avy14=13.
      compute avy15=17.
      compute mainy13=4.
      compute mainy14=4.
      compute mainy15=68.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.
   Else if main5=31 and main6=57.
      compute avy13=13.
      compute avy14=13.
      compute avy15=12.
      compute mainy13=4.
      compute mainy14=4.
      compute mainy15=67.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.
   Else if main5=31.
      compute avy13=13.
      compute avy14=13.
      compute avy15=5.
      compute mainy13=4.
      compute mainy14=4.
      compute mainy15=63.
      compute mtravy13=-7.
      compute mtravy14=-7.
      Do if sec5=45.
         compute mtravy15=1.
      Else.  
         compute mtravy15=5.
      End if.
   Else if main5=41.
      compute avy13=1.
      compute avy14=1.
      compute avy15=5.
      compute mainy13=7.
      compute mainy14=7.
      compute mainy15=63.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.
   Else if main5=43.
      compute avy13=2.
      compute avy14=2.
      compute avy15=12.
      compute mainy13=8.
      compute mainy14=8.
      compute mainy15=67.
      compute mtravy13=-7.
      compute mtravy14=-7.
     compute mtravy15=5.
   Else if main5=44.
      compute avy13=3.
      compute avy14=3.
      compute avy15=5.
      compute mainy13=9.
      compute mainy14=9.
      compute mainy15=63.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.
   Else if main5=54.
      compute avy13=7.
      compute avy14=7.
      compute avy15=5.
      compute mainy13=20.
      compute mainy14=20.
      compute mainy15=63.
      compute mtravy13=-7.
      compute mtravy14=-7.
      compute mtravy15=5.
   End if.
End if.

Do if main5=1 and main6=1 and mtmark5=0.
   compute avy13=16.
   compute avy14=16.
   compute avy15=16.
   compute mainy13=2.
   compute mainy14=2.
   compute mainy15=2.
   compute mtravy13=-7. 
   compute mtravy14=-7. 
   compute mtravy15=-7. 
Else if main5=2 and main6=2 and mtmark5=0.
   compute avy13=16.
   compute avy14=16.
   compute avy15=16.
   compute mainy13=2.
   compute mainy14=2.
   compute mainy15=2.
   compute mtravy13=-7.
   compute mtravy14=-7.
   compute mtravy15=-7.
End if.

freq avy13 avy14 avy15 mainy13 mainy14 mainy15 mtravy13 mtravy14 mtravy15.

*set values for the 6th time slot.
freq mtmark6.
*292 missing travel cases in time slot 6.

temp.
select if mtmark6=1.
cro main6 by main7.

if main6=34 or main6=53 or main6=54 or main6=83 mtmark6=0.
if main6=38 or main6=51 or main6=67 mtmark6=0.
if main7>80 mtmark6=0.
if main7=34 or main7=38 or main7=63 mtmark6=0.
*error fixed, 184 cases remain.

temp.
select if sec6=45.
cro main6 by main7 by mtmark6.
*3 cases of secondary travel by car with main=31.

temp.
select if sec6=46 or sec6=47.
cro main6 by main7 by mtmark6.

compute test=0.
if mtmark6=0 and main6=38 and main7=46 and sec6=46 test=1.
freq test.

temp.
select if test=1.
freq main8.
*these 3 cases at work, not at school.

Do if mtmark6=0.
   Do if main6>95.
      compute avy16=41.
      compute avy17=41.
      compute avy18=41.
      compute mainy16=69.
      compute mainy17=69.
      compute mainy18=69.
      compute mtravy16=-8.
      compute mtravy17=-8.
      compute mtravy18=-8.
   Else if main6=1.
      compute avy16=16.
      compute avy17=16.
      compute avy18=13.
      compute mainy16=2.
      compute mainy17=2.
      compute mainy18=4.
      compute mtravy16=-7. 
      compute mtravy17=-7. 
      compute mtravy18=-7. 
   Else if main6=2.
      compute avy16=16.
      compute avy17=16.
      compute avy18=36.
      compute mainy16=2.
      compute mainy17=2.
      compute mainy18=55.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=3 or main6=4.
      compute avy16=16.
      compute avy17=16.
      compute avy18=16.
      compute mainy16=2.
      compute mainy17=2.
      compute mainy18=2.
      compute mtravy16=-7. 
      compute mtravy17=-7. 
      compute mtravy18=-7. 
   Else if main6=5.
      compute avy16=16.
      compute avy17=16.
      compute avy18=16.
      compute mainy16=3.
      compute mainy17=3.
      compute mainy18=3.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=6.
      compute avy16=13.
      compute avy17=13.
      compute avy18=13.
      compute mainy16=1.
      compute mainy17=1.
      compute mainy18=1.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6>6 and main6<20.
      compute avy16=30.
      compute avy17=30.
      compute avy18=30.
      compute mainy16=58.
      compute mainy17=58.
      compute mainy18=58.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6>19 and main6<30.
      compute avy16=31.
      compute avy17=31.
      compute avy18=31.
      compute mainy16=59.
      compute mainy17=59.
      compute mainy18=59.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6>29 and main6<34.
      compute avy16=13.
      compute avy17=13.
      compute avy18=13.
      compute mainy16=4.
      compute mainy17=4.
      compute mainy18=4.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=34 and (sec6=46 or sec6=47).
      compute avy16=15.
      compute avy17=15.
      compute avy18=5.
      compute mainy16=6.
      compute mainy17=6.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.   
   Else if main6=38 and sec6=45.
      compute avy16=15.
      compute avy17=15.
      compute avy18=5.
      compute mainy16=6.
      compute mainy17=6.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=1.   
   Else if main6=38 and (sec6=46 or sec6=47).
      compute avy16=15.
      compute avy17=15.
      compute avy18=5.
      compute mainy16=6.
      compute mainy17=6.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.   
   Else if main6=34 or main6=35 or ((main6=38 or main6=39) and loc6=1).
      compute avy16=15.
      compute avy17=15.
      compute avy18=15.
      compute mainy16=6.
      compute mainy17=6.
      compute mainy18=6.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=36.
      compute avy16=14.
      compute avy17=14.
      compute avy18=14.
      compute mainy16=25.
      compute mainy17=25.
      compute mainy18=25.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=37.
      compute avy16=12.
      compute avy17=12.
      compute avy18=12.
      compute mainy16=67.
      compute mainy17=67.
      compute mainy18=67.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=40.
      compute avy16=1.
      compute avy17=1.
      compute avy18=1.
      compute mainy16=13.
      compute mainy17=13.
      compute mainy18=13.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=41.
      compute avy16=1.
      compute avy17=1.
      compute avy18=1.
      compute mainy16=7.
      compute mainy17=7.
      compute mainy18=7.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=42.
      compute avy16=4.
      compute avy17=4.
      compute avy18=4.
      compute mainy16=15.
      compute mainy17=15.
      compute mainy18=15.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=43.
      compute avy16=2.
      compute avy17=2.
      compute avy18=2.
      compute mainy16=8.
      compute mainy17=8.
      compute mainy18=8.
      compute mtravy16=-7.
      compute mtravy17=-7.
     compute mtravy18=-7.
   Else if main6=44.
      compute avy16=3.
      compute avy17=3.
      compute avy18=3.
      compute mainy16=9.
      compute mainy17=9.
      compute mainy18=9.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=45 and (main7=42 or main7=79).
      compute avy16=5.
      compute avy17=5.
      compute avy18=5.
      compute mainy16=64.
      compute mainy17=64.
      compute mainy18=64.
      compute mtravy16=1.
      compute mtravy17=1.
      compute mtravy18=1.
   Else if (main6=46 or main6=47) and (main7=42 or main7=79).
      compute avy16=5.
      compute avy17=5.
      compute avy18=5.
      compute mainy16=64.
      compute mainy17=64.
      compute mainy18=64.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=45.
      compute avy16=5.
      compute avy17=5.
      compute avy18=5.
      compute mainy16=63.
      compute mainy17=63.
      compute mainy18=63.
      compute mtravy16=1.
      compute mtravy17=1.
      compute mtravy18=1.
   Else if main6=46 or main6=47.
      compute avy16=5.
      compute avy17=5.
      compute avy18=5.
      compute mainy16=63.
      compute mainy17=63.
      compute mainy18=63.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=48.
      compute avy16=5.
      compute avy17=5.
      compute avy18=5.
      compute mainy16=11.
      compute mainy17=11.
      compute mainy18=11.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=49.
      compute avy16=1.
      compute avy17=1.
      compute avy18=1.
      compute mainy16=5.
      compute mainy17=5.
      compute mainy18=5.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=50.
      compute avy16=8.
      compute avy17=8.
      compute avy18=8.
      compute mainy16=21.
      compute mainy17=21.
      compute mainy18=21.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=51.
      compute avy16=11.
      compute avy17=11.
      compute avy18=11.
      compute mainy16=28.
      compute mainy17=28.
      compute mainy18=28.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=52.
      compute avy16=11.
      compute avy17=11.
      compute avy18=11.
      compute mainy16=30.
      compute mainy17=30.
      compute mainy18=30.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=53.
      compute avy16=6.
      compute avy17=6.
      compute avy18=6.
      compute mainy16=18.
      compute mainy17=18.
      compute mainy18=18.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=54.
      compute avy16=7.
      compute avy17=7.
      compute avy18=7.
      compute mainy16=20.
      compute mainy17=20.
      compute mainy18=20.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=55.
      compute avy16=8.
      compute avy17=8.
      compute avy18=8.
      compute mainy16=22.
      compute mainy17=22.
      compute mainy18=22.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=56.
      compute avy16=8.
      compute avy17=8.
      compute avy18=8.
      compute mainy16=27.
      compute mainy17=27.
      compute mainy18=27.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=57.
      compute avy16=10.
      compute avy17=10.
      compute avy18=10.
      compute mainy16=24.
      compute mainy17=24.
      compute mainy18=24.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=58.
      compute avy16=12.
      compute avy17=12.
      compute avy18=12.
      compute mainy16=66.
      compute mainy17=66.
      compute mainy18=66.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=59.
      compute avy16=7.
      compute avy17=7.
      compute avy18=13.
      compute mainy16=23.
      compute mainy17=23.
      compute mainy18=4.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=60.
      compute avy16=9.
      compute avy17=9.
      compute avy18=9.
      compute mainy16=46.
      compute mainy17=46.
      compute mainy18=46.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=61.
      compute avy16=33.
      compute avy17=33.
      compute avy18=33.
      compute mainy16=16.
      compute mainy17=16.
      compute mainy18=16.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=62.
      compute avy16=34.
      compute avy17=34.
      compute avy18=34.
      compute mainy16=56.
      compute mainy17=56.
      compute mainy18=56.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=63.
      compute avy16=35.
      compute avy17=35.
      compute avy18=35.
      compute mainy16=56.
      compute mainy17=56.
      compute mainy18=56.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=64.
      compute avy16=40.
      compute avy17=40.
      compute avy18=40.
      compute mainy16=54.
      compute mainy17=54.
      compute mainy18=54.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=65.
      compute avy16=39.
      compute avy17=39.
      compute avy18=39.
      compute mainy16=54.
      compute mainy17=54.
      compute mainy18=54.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=66.
      compute avy16=38.
      compute avy17=38.
      compute avy18=38.
      compute mainy16=48.
      compute mainy17=48.
      compute mainy18=48.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=67 and (sec6=46 or sec6=47).
      compute avy16=37.
      compute avy17=37.
      compute avy18=5.
      compute mainy16=49.
      compute mainy17=49.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=67.
      compute avy16=37.
      compute avy17=37.
      compute avy18=37.
      compute mainy16=49.
      compute mainy17=49.
      compute mainy18=49.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=68.
      compute avy16=32.
      compute avy17=32.
      compute avy18=32.
      compute mainy16=57.
      compute mainy17=57.
      compute mainy18=57.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=69.
      compute avy16=36.
      compute avy17=36.
      compute avy18=36.
      compute mainy16=55.
      compute mainy17=55.
      compute mainy18=55.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=70.
      compute avy16=25.
      compute avy17=25.
      compute avy18=25.
      compute mainy16=35.
      compute mainy17=35.
      compute mainy18=35.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=71.
      compute avy16=29.
      compute avy17=29.
      compute avy18=29.
      compute mainy16=48.
      compute mainy17=48.
      compute mainy18=48.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=72.
      compute avy16=24.
      compute avy17=24.
      compute avy18=24.
      compute mainy16=37.
      compute mainy17=37.
      compute mainy18=37.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=73.
      compute avy16=23.
      compute avy17=23.
      compute avy18=23.
      compute mainy16=33.
      compute mainy17=33.
      compute mainy18=33.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=74.
      compute avy16=26.
      compute avy17=26.
      compute avy18=26.
      compute mainy16=40.
      compute mainy17=40.
      compute mainy18=40.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=75 or main6=39.
      compute avy16=27.
      compute avy17=27.
      compute avy18=27.
      compute mainy16=39.
      compute mainy17=39.
      compute mainy18=39.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=76.
      compute avy16=25.
      compute avy17=25.
      compute avy18=25.
      compute mainy16=40.
      compute mainy17=40.
      compute mainy18=40.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=77 or main6=38.
      compute avy16=28.
      compute avy17=28.
      compute avy18=28.
      compute mainy16=39.
      compute mainy17=39.
      compute mainy18=39.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=78.
      compute avy16=22.
      compute avy17=22.
      compute avy18=22.
      compute mainy16=34.
      compute mainy17=34.
      compute mainy18=34.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=79.
      compute avy16=4.
      compute avy17=4.
      compute avy18=4.
      compute mainy16=17.
      compute mainy17=17.
      compute mainy18=17.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=80.
      compute avy16=18.
      compute avy17=18.
      compute avy18=18.
      compute mainy16=38.
      compute mainy17=38.
      compute mainy18=38.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=81.
      compute avy16=19.
      compute avy17=19.
      compute avy18=19.
      compute mainy16=42.
      compute mainy17=42.
      compute mainy18=42.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=82.
      compute avy16=20.
      compute avy17=20.
      compute avy18=20.
      compute mainy16=36.
      compute mainy17=36.
      compute mainy18=36.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=83.
      compute avy16=21.
      compute avy17=21.
      compute avy18=21.
      compute mainy16=43.
      compute mainy17=43.
      compute mainy18=43.
      compute mtravy16=3.
      compute mtravy17=3.
      compute mtravy18=3.
   Else if main6=84.
      compute avy16=18.
      compute avy17=18.
      compute avy18=18.
      compute mainy16=45.
      compute mainy17=45.
      compute mainy18=45.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=85 or main6=86.
      compute avy16=18.
      compute avy17=18.
      compute avy18=18.
      compute mainy16=38.
      compute mainy17=38.
      compute mainy18=38.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=89.
      compute avy16=17.
      compute avy17=17.
      compute avy18=17.
      compute mainy16=68.
      compute mainy17=68.
      compute mainy18=68.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=90.
      compute avy16=17.
      compute avy17=17.
      compute avy18=17.
      compute mainy16=62.
      compute mainy17=62.
      compute mainy18=62.
      compute mtravy16=5.
      compute mtravy17=5.
      compute mtravy18=5.
   Else if main6=91.
      compute avy16=40.
      compute avy17=40.
      compute avy18=40.
      compute mainy16=51.
      compute mainy17=51.
      compute mainy18=51.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=92.
      compute avy16=31.
      compute avy17=31.
      compute avy18=31.
      compute mainy16=59.
      compute mainy17=59.
      compute mainy18=59.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   Else if main6=93.
      compute avy16=41.
      compute avy17=41.
      compute avy18=41.
      compute mainy16=41.
      compute mainy17=41.
      compute mainy18=41.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=-7.
   End if.
Else if mtmark6=1.
   Do if main6=2.
      compute avy16=16.
      compute avy17=36.
      compute avy18=5.
      compute mainy16=2.
      compute mainy17=55.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=3 and main7=42.
      compute avy16=16.
      compute avy17=13.
      compute avy18=5.
      compute mainy16=2.
      compute mainy17=4.
      compute mainy18=64.
      compute mtravy16=-7. 
      compute mtravy17=-7. 
      compute mtravy18=5. 
   Else if main6=3.
      compute avy16=16.
      compute avy17=13.
      compute avy18=5.
      compute mainy16=2.
      compute mainy17=4.
      compute mainy18=63.
      compute mtravy16=-7. 
      compute mtravy17=-7. 
      compute mtravy18=5.
   Else if main6=6.
      compute avy16=13.
      compute avy17=13.
      compute avy18=5.
      compute mainy16=1.
      compute mainy17=1.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=11.
      compute avy16=30.
      compute avy17=30.
      compute avy18=5.
      compute mainy16=58.
      compute mainy17=58.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=31 and main7>59.
      compute avy16=13.
      compute avy17=13.
      compute avy18=17.
      compute mainy16=4.
      compute mainy17=4.
      compute mainy18=68.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=31 and main7=57.
      compute avy16=13.
      compute avy17=13.
      compute avy18=12.
      compute mainy16=4.
      compute mainy17=4.
      compute mainy18=67.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=31.
      compute avy16=13.
      compute avy17=13.
      compute avy18=5.
      compute mainy16=4.
      compute mainy17=4.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      Do if sec6=45.
         compute mtravy18=1.
      Else.
         compute mtravy18=5.
      End if.
   Else if main6=41.
      compute avy16=1.
      compute avy17=1.
      compute avy18=5.
      compute mainy16=7.
      compute mainy17=7.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=43.
      compute avy16=2.
      compute avy17=2.
      compute avy18=5.
      compute mainy16=8.
      compute mainy17=8.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
     compute mtravy18=5.
   Else if main6=44.
      compute avy16=3.
      compute avy17=3.
      compute avy18=5.
      compute mainy16=9.
      compute mainy17=9.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=50.
      compute avy16=8.
      compute avy17=8.
      compute avy18=5.
      compute mainy16=21.
      compute mainy17=21.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=57.
      compute avy16=10.
      compute avy17=10.
      compute avy18=12.
      compute mainy16=24.
      compute mainy17=24.
      compute mainy18=67.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   Else if main6=69.
      compute avy16=36.
      compute avy17=36.
      compute avy18=5.
      compute mainy16=55.
      compute mainy17=55.
      compute mainy18=63.
      compute mtravy16=-7.
      compute mtravy17=-7.
      compute mtravy18=5.
   End if.
End if.

Do if main6=1 and main7=1 and mtmark6=0.
   compute avy16=16.
   compute avy17=16.
   compute avy18=16.
   compute mainy16=2.
   compute mainy17=2.
   compute mainy18=2.
   compute mtravy16=-7. 
   compute mtravy17=-7. 
   compute mtravy18=-7. 
Else if main6=2 and main7=2 and mtmark6=0.
   compute avy16=16.
   compute avy17=16.
   compute avy18=16.
   compute mainy16=2.
   compute mainy17=2.
   compute mainy18=2.
   compute mtravy16=-7.
   compute mtravy17=-7.
   compute mtravy18=-7.
End if.

freq avy16 avy17 avy18 mainy16 mainy17 mainy18 mtravy16 mtravy17 mtravy18.

*set values for the 7th time slot.
freq mtmark7.
*472 missing travel cases in time slot 7.

temp.
select if mtmark7=1.
cro main7 by main8.

if main7>69 mtmark7=0.
if main8>80 and main8<86 mtmark7=0.
if main7=34 or main7=38 or main7=67 mtmark7=0.
if main8=34 or main8=38 or main8=51 or main8=63 mtmark7=0.
if main7=33 or main8=33 mtmark7=0.
*error fixed, 269 cases remain.

temp.
select if sec7=45.
cro main7 by main8 by mtmark7.
*no cases of secondary travel by car.

temp.
select if sec7=46 or sec7=47.
cro main7 by main8 by mtmark7.

Do if mtmark7=0.
   Do if main7>95.
      compute avy19=41.
      compute avy20=41.
      compute avy21=41.
      compute mainy19=69.
      compute mainy20=69.
      compute mainy21=69.
      compute mtravy19=-8.
      compute mtravy20=-8.
      compute mtravy21=-8.
   Else if main7=1.
      compute avy19=16.
      compute avy20=16.
      compute avy21=13.
      compute mainy19=2.
      compute mainy20=2.
      compute mainy21=4.
      compute mtravy19=-7. 
      compute mtravy20=-7. 
      compute mtravy21=-7. 
   Else if main7=2.
      compute avy19=16.
      compute avy20=16.
      compute avy21=36.
      compute mainy19=2.
      compute mainy20=2.
      compute mainy21=55.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=3 or main7=4.
      compute avy19=16.
      compute avy20=16.
      compute avy21=16.
      compute mainy19=2.
      compute mainy20=2.
      compute mainy21=2.
      compute mtravy19=-7. 
      compute mtravy20=-7. 
      compute mtravy21=-7. 
   Else if main7=5.
      compute avy19=16.
      compute avy20=16.
      compute avy21=16.
      compute mainy19=3.
      compute mainy20=3.
      compute mainy21=3.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=6.
      compute avy19=13.
      compute avy20=13.
      compute avy21=13.
      compute mainy19=1.
      compute mainy20=1.
      compute mainy21=1.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7>6 and main7<20.
      compute avy19=30.
      compute avy20=30.
      compute avy21=30.
      compute mainy19=58.
      compute mainy20=58.
      compute mainy21=58.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7>19 and main7<30.
      compute avy19=31.
      compute avy20=31.
      compute avy21=31.
      compute mainy19=59.
      compute mainy20=59.
      compute mainy21=59.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=33 and (sec7=46 or sec7=47).
      compute avy19=13.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7>29 and main7<34.
      compute avy19=13.
      compute avy20=13.
      compute avy21=13.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=4.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=34 and sec7=45.
      compute avy19=15.
      compute avy20=15.
      compute avy21=5.
      compute mainy19=6.
      compute mainy20=6.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=1.
   Else if (main7=34 or main7=38) and (sec7=46 or sec7=47).
      compute avy19=15.
      compute avy20=15.
      compute avy21=5.
      compute mainy19=6.
      compute mainy20=6.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=34 or main7=35 or ((main7=38 or main7=39) and loc7=1).
      compute avy19=15.
      compute avy20=15.
      compute avy21=15.
      compute mainy19=6.
      compute mainy20=6.
      compute mainy21=6.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=36.
      compute avy19=14.
      compute avy20=14.
      compute avy21=14.
      compute mainy19=25.
      compute mainy20=25.
      compute mainy21=25.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=37.
      compute avy19=12.
      compute avy20=12.
      compute avy21=12.
      compute mainy19=67.
      compute mainy20=67.
      compute mainy21=67.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=40.
      compute avy19=1.
      compute avy20=1.
      compute avy21=1.
      compute mainy19=13.
      compute mainy20=13.
      compute mainy21=13.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=41 and sec7=45.
      compute avy19=1.
      compute avy20=1.
      compute avy21=5.
      compute mainy19=7.
      compute mainy20=7.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=41.
      compute avy19=1.
      compute avy20=1.
      compute avy21=1.
      compute mainy19=7.
      compute mainy20=7.
      compute mainy21=7.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=42.
      compute avy19=4.
      compute avy20=4.
      compute avy21=4.
      compute mainy19=15.
      compute mainy20=15.
      compute mainy21=15.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=43.
      compute avy19=2.
      compute avy20=2.
      compute avy21=2.
      compute mainy19=8.
      compute mainy20=8.
      compute mainy21=8.
      compute mtravy19=-7.
      compute mtravy20=-7.
     compute mtravy21=-7.
   Else if main7=44 and (sec7=46 or sec7=47).
      compute avy19=3.
      compute avy20=3.
      compute avy21=5.
      compute mainy19=9.
      compute mainy20=9.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=44.
      compute avy19=3.
      compute avy20=3.
      compute avy21=3.
      compute mainy19=9.
      compute mainy20=9.
      compute mainy21=9.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=45 and (main8=42 or main8=79).
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=64.
      compute mainy20=64.
      compute mainy21=64.
      compute mtravy19=1.
      compute mtravy20=1.
      compute mtravy21=1.
   Else if (main7=46 or main7=47) and (main8=42 or main8=79).
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=64.
      compute mainy20=64.
      compute mainy21=64.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=45.
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=63.
      compute mainy20=63.
      compute mainy21=63.
      compute mtravy19=1.
      compute mtravy20=1.
      compute mtravy21=1.
   Else if main7=46 and sec7=45.
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=63.
      compute mainy20=63.
      compute mainy21=63.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=1.
   Else if main7=46 or main7=47.
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=63.
      compute mainy20=63.
      compute mainy21=63.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=48.
      compute avy19=5.
      compute avy20=5.
      compute avy21=5.
      compute mainy19=11.
      compute mainy20=11.
      compute mainy21=11.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=49.
      compute avy19=1.
      compute avy20=1.
      compute avy21=1.
      compute mainy19=5.
      compute mainy20=5.
      compute mainy21=5.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=50.
      compute avy19=8.
      compute avy20=8.
      compute avy21=8.
      compute mainy19=21.
      compute mainy20=21.
      compute mainy21=21.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=51.
      compute avy19=11.
      compute avy20=11.
      compute avy21=11.
      compute mainy19=28.
      compute mainy20=28.
      compute mainy21=28.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=52.
      compute avy19=11.
      compute avy20=11.
      compute avy21=11.
      compute mainy19=30.
      compute mainy20=30.
      compute mainy21=30.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=53.
      compute avy19=6.
      compute avy20=6.
      compute avy21=6.
      compute mainy19=18.
      compute mainy20=18.
      compute mainy21=18.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=54.
      compute avy19=7.
      compute avy20=7.
      compute avy21=7.
      compute mainy19=20.
      compute mainy20=20.
      compute mainy21=20.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=55.
      compute avy19=8.
      compute avy20=8.
      compute avy21=8.
      compute mainy19=22.
      compute mainy20=22.
      compute mainy21=22.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=56.
      compute avy19=8.
      compute avy20=8.
      compute avy21=8.
      compute mainy19=27.
      compute mainy20=27.
      compute mainy21=27.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=57.
      compute avy19=10.
      compute avy20=10.
      compute avy21=10.
      compute mainy19=24.
      compute mainy20=24.
      compute mainy21=24.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=58.
      compute avy19=12.
      compute avy20=12.
      compute avy21=12.
      compute mainy19=66.
      compute mainy20=66.
      compute mainy21=66.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=59.
      compute avy19=7.
      compute avy20=7.
      compute avy21=13.
      compute mainy19=23.
      compute mainy20=23.
      compute mainy21=4.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=60.
      compute avy19=9.
      compute avy20=9.
      compute avy21=9.
      compute mainy19=46.
      compute mainy20=46.
      compute mainy21=46.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=61.
      compute avy19=33.
      compute avy20=33.
      compute avy21=33.
      compute mainy19=16.
      compute mainy20=16.
      compute mainy21=16.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=62.
      compute avy19=34.
      compute avy20=34.
      compute avy21=34.
      compute mainy19=56.
      compute mainy20=56.
      compute mainy21=56.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=63.
      compute avy19=35.
      compute avy20=35.
      compute avy21=35.
      compute mainy19=56.
      compute mainy20=56.
      compute mainy21=56.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=64.
      compute avy19=40.
      compute avy20=40.
      compute avy21=40.
      compute mainy19=54.
      compute mainy20=54.
      compute mainy21=54.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=65.
      compute avy19=39.
      compute avy20=39.
      compute avy21=39.
      compute mainy19=54.
      compute mainy20=54.
      compute mainy21=54.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=66.
      compute avy19=38.
      compute avy20=38.
      compute avy21=38.
      compute mainy19=48.
      compute mainy20=48.
      compute mainy21=48.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=67 and (sec7=46 or sec7=47).
      compute avy19=37.
      compute avy20=37.
      compute avy21=5.
      compute mainy19=49.
      compute mainy20=49.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=67.
      compute avy19=37.
      compute avy20=37.
      compute avy21=37.
      compute mainy19=49.
      compute mainy20=49.
      compute mainy21=49.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=68.
      compute avy19=32.
      compute avy20=32.
      compute avy21=32.
      compute mainy19=57.
      compute mainy20=57.
      compute mainy21=57.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=69.
      compute avy19=36.
      compute avy20=36.
      compute avy21=36.
      compute mainy19=55.
      compute mainy20=55.
      compute mainy21=55.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=70.
      compute avy19=25.
      compute avy20=25.
      compute avy21=25.
      compute mainy19=35.
      compute mainy20=35.
      compute mainy21=35.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=71.
      compute avy19=29.
      compute avy20=29.
      compute avy21=29.
      compute mainy19=48.
      compute mainy20=48.
      compute mainy21=48.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=72.
      compute avy19=24.
      compute avy20=24.
      compute avy21=24.
      compute mainy19=37.
      compute mainy20=37.
      compute mainy21=37.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=73.
      compute avy19=23.
      compute avy20=23.
      compute avy21=23.
      compute mainy19=33.
      compute mainy20=33.
      compute mainy21=33.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=74.
      compute avy19=26.
      compute avy20=26.
      compute avy21=26.
      compute mainy19=40.
      compute mainy20=40.
      compute mainy21=40.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=75 or main7=39.
      compute avy19=27.
      compute avy20=27.
      compute avy21=27.
      compute mainy19=39.
      compute mainy20=39.
      compute mainy21=39.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=76.
      compute avy19=25.
      compute avy20=25.
      compute avy21=25.
      compute mainy19=40.
      compute mainy20=40.
      compute mainy21=40.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=77 or main7=38.
      compute avy19=28.
      compute avy20=28.
      compute avy21=28.
      compute mainy19=39.
      compute mainy20=39.
      compute mainy21=39.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=78.
      compute avy19=22.
      compute avy20=22.
      compute avy21=22.
      compute mainy19=34.
      compute mainy20=34.
      compute mainy21=34.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=79.
      compute avy19=4.
      compute avy20=4.
      compute avy21=4.
      compute mainy19=17.
      compute mainy20=17.
      compute mainy21=17.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=80.
      compute avy19=18.
      compute avy20=18.
      compute avy21=18.
      compute mainy19=38.
      compute mainy20=38.
      compute mainy21=38.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=81.
      compute avy19=19.
      compute avy20=19.
      compute avy21=19.
      compute mainy19=42.
      compute mainy20=42.
      compute mainy21=42.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=82.
      compute avy19=20.
      compute avy20=20.
      compute avy21=20.
      compute mainy19=36.
      compute mainy20=36.
      compute mainy21=36.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=83 and sec7=45.
      compute avy19=21.
      compute avy20=21.
      compute avy21=5.
      compute mainy19=43.
      compute mainy20=43.
      compute mainy21=63.
      compute mtravy19=3.
      compute mtravy20=3.
      compute mtravy21=1.
   Else if main7=83.
      compute avy19=21.
      compute avy20=21.
      compute avy21=21.
      compute mainy19=43.
      compute mainy20=43.
      compute mainy21=43.
      compute mtravy19=3.
      compute mtravy20=3.
      compute mtravy21=3.
   Else if main7=84.
      compute avy19=18.
      compute avy20=18.
      compute avy21=18.
      compute mainy19=45.
      compute mainy20=45.
      compute mainy21=45.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=85 or main7=86.
      compute avy19=18.
      compute avy20=18.
      compute avy21=18.
      compute mainy19=38.
      compute mainy20=38.
      compute mainy21=38.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=89.
      compute avy19=17.
      compute avy20=17.
      compute avy21=17.
      compute mainy19=68.
      compute mainy20=68.
      compute mainy21=68.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=90.
      compute avy19=17.
      compute avy20=17.
      compute avy21=17.
      compute mainy19=62.
      compute mainy20=62.
      compute mainy21=62.
      compute mtravy19=5.
      compute mtravy20=5.
      compute mtravy21=5.
   Else if main7=91.
      compute avy19=40.
      compute avy20=40.
      compute avy21=40.
      compute mainy19=51.
      compute mainy20=51.
      compute mainy21=51.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=92.
      compute avy19=31.
      compute avy20=31.
      compute avy21=31.
      compute mainy19=59.
      compute mainy20=59.
      compute mainy21=59.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   Else if main7=93.
      compute avy19=41.
      compute avy20=41.
      compute avy21=41.
      compute mainy19=41.
      compute mainy20=41.
      compute mainy21=41.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=-7.
   End if.
Else if mtmark7=1.
   Do if main7=2 and main8=57.
      compute avy19=16.
      compute avy20=36.
      compute avy21=12.
      compute mainy19=2.
      compute mainy20=55.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=2 and main8>57.
      compute avy19=16.
      compute avy20=36.
      compute avy21=17.
      compute mainy19=2.
      compute mainy20=55.
      compute mainy21=68.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=2.
      compute avy19=16.
      compute avy20=36.
      compute avy21=5.
      compute mainy19=2.
      compute mainy20=55.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=3 and (main8=42 or main8=79).
      compute avy19=16.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=2.
      compute mainy20=4.
      compute mainy21=64.
      compute mtravy19=-7. 
      compute mtravy20=-7. 
      compute mtravy21=5. 
   Else if main7=3 and main8=57.
      compute avy19=16.
      compute avy20=13.
      compute avy21=12.
      compute mainy19=2.
      compute mainy20=4.
      compute mainy21=67.
      compute mtravy19=-7. 
      compute mtravy20=-7. 
      compute mtravy21=5. 
   Else if main7=3.
      compute avy19=16.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=2.
      compute mainy20=4.
      compute mainy21=63.
      compute mtravy19=-7. 
      compute mtravy20=-7. 
      compute mtravy21=5.
   Else if main7=6.
      compute avy19=13.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=1.
      compute mainy20=1.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=13 and sec7=45.
      compute avy19=30.
      compute avy20=30.
      compute avy21=5.
      compute mainy19=58.
      compute mainy20=58.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=1.
   Else if main7>10 and main7<15.
      compute avy19=30.
      compute avy20=30.
      compute avy21=5.
      compute mainy19=58.
      compute mainy20=58.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=31 and main8=79.
      compute avy19=13.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=64.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=31 and main8>57.
      compute avy19=13.
      compute avy20=13.
      compute avy21=17.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=68.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=31 and (main8=57 or main8=36).
      compute avy19=13.
      compute avy20=13.
      compute avy21=12.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=31 and sec7=45.
      compute avy19=13.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=1.
   Else if main7=31.
      compute avy19=13.
      compute avy20=13.
      compute avy21=5.
      compute mainy19=4.
      compute mainy20=4.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=41.
      compute avy19=1.
      compute avy20=1.
      compute avy21=5.
      compute mainy19=7.
      compute mainy20=7.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=44.
      compute avy19=3.
      compute avy20=3.
      compute avy21=5.
      compute mainy19=9.
      compute mainy20=9.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=50.
      compute avy19=8.
      compute avy20=8.
      compute avy21=12.
      compute mainy19=21.
      compute mainy20=21.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=53 and main8=57.
      compute avy19=6.
      compute avy20=6.
      compute avy21=12.
      compute mainy19=18.
      compute mainy20=18.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=53.
      compute avy19=6.
      compute avy20=6.
      compute avy21=5.
      compute mainy19=18.
      compute mainy20=18.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=54.
      compute avy19=7.
      compute avy20=7.
      compute avy21=5.
      compute mainy19=20.
      compute mainy20=20.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=55.
      compute avy19=8.
      compute avy20=8.
      compute avy21=12.
      compute mainy19=22.
      compute mainy20=22.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=57.
      compute avy19=10.
      compute avy20=10.
      compute avy21=12.
      compute mainy19=24.
      compute mainy20=24.
      compute mainy21=67.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=65.
      compute avy19=39.
      compute avy20=39.
      compute avy21=5.
      compute mainy19=54.
      compute mainy20=54.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   Else if main7=69.
      compute avy19=36.
      compute avy20=36.
      compute avy21=5.
      compute mainy19=55.
      compute mainy20=55.
      compute mainy21=63.
      compute mtravy19=-7.
      compute mtravy20=-7.
      compute mtravy21=5.
   End if.
End if.

Do if main7=1 and main8=1 and mtmark7=0.
   compute avy19=16.
   compute avy20=16.
   compute avy21=16.
   compute mainy19=2.
   compute mainy20=2.
   compute mainy21=2.
   compute mtravy19=-7. 
   compute mtravy20=-7. 
   compute mtravy21=-7. 
Else if main7=2 and main8=2 and mtmark7=0.
   compute avy19=16.
   compute avy20=16.
   compute avy21=16.
   compute mainy19=2.
   compute mainy20=2.
   compute mainy21=2.
   compute mtravy19=-7.
   compute mtravy20=-7.
   compute mtravy21=-7.
End if.

freq avy19 avy20 avy21 mainy19 mainy20 mainy21 mtravy19 mtravy20 mtravy21.

*set values for the 8th time slot.
freq mtmark8.
*756 missing travel cases in time slot 8.

temp.
select if mtmark8=1.
cro main8 by main9.

if main8>77 or main9=83 mtmark8=0.
if main8=34 or main8=38 or main8=67 or main8=63 mtmark8=0.
if main9=34 or main9=38 or main9=51 or main9=63 mtmark8=0.
if main9=53 or main9=67 or main9=81 or main9=62 mtmark8=0.
if main8=31 and main9=31 mtmark8=0.
*errors fixed, 361 cases remain.

temp.
select if sec8=45.
cro main8 by main9 by mtmark8.
*28 cases of secondary travel by car.

temp.
select if sec8=46 or sec8=47.
cro main8 by main9 by mtmark8.

Do if mtmark8=0.
   Do if main8>95.
      compute avy22=41.
      compute avy23=41.
      compute avy24=41.
      compute mainy22=69.
      compute mainy23=69.
      compute mainy24=69.
      compute mtravy22=-8.
      compute mtravy23=-8.
      compute mtravy24=-8.
   Else if main8=1.
      compute avy22=16.
      compute avy23=16.
      compute avy24=13.
      compute mainy22=2.
      compute mainy23=2.
      compute mainy24=4.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=-7. 
   Else if main8=2.
      compute avy22=16.
      compute avy23=16.
      compute avy24=36.
      compute mainy22=2.
      compute mainy23=2.
      compute mainy24=55.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=3 or main8=4.
      compute avy22=16.
      compute avy23=16.
      compute avy24=16.
      compute mainy22=2.
      compute mainy23=2.
      compute mainy24=2.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=-7. 
   Else if main8=5.
      compute avy22=16.
      compute avy23=16.
      compute avy24=16.
      compute mainy22=3.
      compute mainy23=3.
      compute mainy24=3.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=6.
      compute avy22=13.
      compute avy23=13.
      compute avy24=13.
      compute mainy22=1.
      compute mainy23=1.
      compute mainy24=1.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=13 and sec8=25.
      compute avy22=30.
      compute avy23=30.
      compute avy24=5.
      compute mainy22=58.
      compute mainy23=58.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=1.
   Else if main8>6 and main8<20.
      compute avy22=30.
      compute avy23=30.
      compute avy24=30.
      compute mainy22=58.
      compute mainy23=58.
      compute mainy24=58.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8>19 and main8<30.
      compute avy22=31.
      compute avy23=31.
      compute avy24=31.
      compute mainy22=59.
      compute mainy23=59.
      compute mainy24=59.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8>29 and main8<34.
      compute avy22=13.
      compute avy23=13.
      compute avy24=13.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=4.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if (main8=34 or main8=38) and sec8=45.
      compute avy22=15.
      compute avy23=15.
      compute avy24=5.
      compute mainy22=6.
      compute mainy23=6.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=1.
   Else if (main8=34 or main8=38) and (sec8=46 or sec8=47).
      compute avy22=15.
      compute avy23=15.
      compute avy24=5.
      compute mainy22=6.
      compute mainy23=6.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=34 or main8=35 or ((main8=38 or main8=39) and loc8=1).
      compute avy22=15.
      compute avy23=15.
      compute avy24=15.
      compute mainy22=6.
      compute mainy23=6.
      compute mainy24=6.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=36.
      compute avy22=14.
      compute avy23=14.
      compute avy24=14.
      compute mainy22=25.
      compute mainy23=25.
      compute mainy24=25.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=37.
      compute avy22=12.
      compute avy23=12.
      compute avy24=12.
      compute mainy22=67.
      compute mainy23=67.
      compute mainy24=67.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=40.
      compute avy22=1.
      compute avy23=1.
      compute avy24=1.
      compute mainy22=13.
      compute mainy23=13.
      compute mainy24=13.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=41 and sec8=45.
      compute avy22=1.
      compute avy23=1.
      compute avy24=5.
      compute mainy22=7.
      compute mainy23=7.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=1.
   Else if main8=41.
      compute avy22=1.
      compute avy23=1.
      compute avy24=1.
      compute mainy22=7.
      compute mainy23=7.
      compute mainy24=7.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=42.
      compute avy22=4.
      compute avy23=4.
      compute avy24=4.
      compute mainy22=15.
      compute mainy23=15.
      compute mainy24=15.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=43.
      compute avy22=2.
      compute avy23=2.
      compute avy24=2.
      compute mainy22=8.
      compute mainy23=8.
      compute mainy24=8.
      compute mtravy22=-7.
      compute mtravy23=-7.
     compute mtravy24=-7.
   Else if main8=44.
      compute avy22=3.
      compute avy23=3.
      compute avy24=3.
      compute mainy22=9.
      compute mainy23=9.
      compute mainy24=9.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=45 and (main9=42 or main9=79).
      compute avy22=5.
      compute avy23=5.
      compute avy24=5.
      compute mainy22=64.
      compute mainy23=64.
      compute mainy24=64.
      compute mtravy22=1.
      compute mtravy23=1.
      compute mtravy24=1.
   Else if (main8=46 or main8=47) and (main9=42 or main9=79).
      compute avy22=5.
      compute avy23=5.
      compute avy24=5.
      compute mainy22=64.
      compute mainy23=64.
      compute mainy24=64.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=45.
      compute avy22=5.
      compute avy23=5.
      compute avy24=5.
      compute mainy22=63.
      compute mainy23=63.
      compute mainy24=63.
      compute mtravy22=1.
      compute mtravy23=1.
      compute mtravy24=1.
   Else if main8=46 or main8=47.
      compute avy22=5.
      compute avy23=5.
      compute avy24=5.
      compute mainy22=63.
      compute mainy23=63.
      compute mainy24=63.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=48.
      compute avy22=5.
      compute avy23=5.
      compute avy24=5.
      compute mainy22=11.
      compute mainy23=11.
      compute mainy24=11.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=49.
      compute avy22=1.
      compute avy23=1.
      compute avy24=1.
      compute mainy22=5.
      compute mainy23=5.
      compute mainy24=5.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=50.
      compute avy22=8.
      compute avy23=8.
      compute avy24=8.
      compute mainy22=21.
      compute mainy23=21.
      compute mainy24=21.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=51.
      compute avy22=11.
      compute avy23=11.
      compute avy24=11.
      compute mainy22=28.
      compute mainy23=28.
      compute mainy24=28.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=52.
      compute avy22=11.
      compute avy23=11.
      compute avy24=11.
      compute mainy22=30.
      compute mainy23=30.
      compute mainy24=30.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=53.
      compute avy22=6.
      compute avy23=6.
      compute avy24=6.
      compute mainy22=18.
      compute mainy23=18.
      compute mainy24=18.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=54.
      compute avy22=7.
      compute avy23=7.
      compute avy24=7.
      compute mainy22=20.
      compute mainy23=20.
      compute mainy24=20.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=55.
      compute avy22=8.
      compute avy23=8.
      compute avy24=8.
      compute mainy22=22.
      compute mainy23=22.
      compute mainy24=22.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=56.
      compute avy22=8.
      compute avy23=8.
      compute avy24=8.
      compute mainy22=27.
      compute mainy23=27.
      compute mainy24=27.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=57.
      compute avy22=10.
      compute avy23=10.
      compute avy24=10.
      compute mainy22=24.
      compute mainy23=24.
      compute mainy24=24.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=58.
      compute avy22=12.
      compute avy23=12.
      compute avy24=12.
      compute mainy22=66.
      compute mainy23=66.
      compute mainy24=66.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=59.
      compute avy22=7.
      compute avy23=7.
      compute avy24=13.
      compute mainy22=23.
      compute mainy23=23.
      compute mainy24=4.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=60.
      compute avy22=9.
      compute avy23=9.
      compute avy24=9.
      compute mainy22=46.
      compute mainy23=46.
      compute mainy24=46.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=61.
      compute avy22=33.
      compute avy23=33.
      compute avy24=33.
      compute mainy22=16.
      compute mainy23=16.
      compute mainy24=16.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=62.
      compute avy22=34.
      compute avy23=34.
      compute avy24=34.
      compute mainy22=56.
      compute mainy23=56.
      compute mainy24=56.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=63 and sec8=45.
      compute avy22=35.
      compute avy23=35.
      compute avy24=5.
      compute mainy22=56.
      compute mainy23=56.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=1.
   Else if main8=63 and (sec8=46 or sec8=47).
      compute avy22=35.
      compute avy23=35.
      compute avy24=5.
      compute mainy22=56.
      compute mainy23=56.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=63.
      compute avy22=35.
      compute avy23=35.
      compute avy24=35.
      compute mainy22=56.
      compute mainy23=56.
      compute mainy24=56.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=64.
      compute avy22=40.
      compute avy23=40.
      compute avy24=40.
      compute mainy22=54.
      compute mainy23=54.
      compute mainy24=54.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=65.
      compute avy22=39.
      compute avy23=39.
      compute avy24=39.
      compute mainy22=54.
      compute mainy23=54.
      compute mainy24=54.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=66.
      compute avy22=38.
      compute avy23=38.
      compute avy24=38.
      compute mainy22=48.
      compute mainy23=48.
      compute mainy24=48.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=67 and (sec8=46 or sec8=47).
      compute avy22=37.
      compute avy23=37.
      compute avy24=5.
      compute mainy22=49.
      compute mainy23=49.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=67.
      compute avy22=37.
      compute avy23=37.
      compute avy24=37.
      compute mainy22=49.
      compute mainy23=49.
      compute mainy24=49.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=68.
      compute avy22=32.
      compute avy23=32.
      compute avy24=32.
      compute mainy22=57.
      compute mainy23=57.
      compute mainy24=57.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=69.
      compute avy22=36.
      compute avy23=36.
      compute avy24=36.
      compute mainy22=55.
      compute mainy23=55.
      compute mainy24=55.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=70.
      compute avy22=25.
      compute avy23=25.
      compute avy24=25.
      compute mainy22=35.
      compute mainy23=35.
      compute mainy24=35.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=71.
      compute avy22=29.
      compute avy23=29.
      compute avy24=29.
      compute mainy22=48.
      compute mainy23=48.
      compute mainy24=48.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=72.
      compute avy22=24.
      compute avy23=24.
      compute avy24=24.
      compute mainy22=37.
      compute mainy23=37.
      compute mainy24=37.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=73.
      compute avy22=23.
      compute avy23=23.
      compute avy24=23.
      compute mainy22=33.
      compute mainy23=33.
      compute mainy24=33.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=74.
      compute avy22=26.
      compute avy23=26.
      compute avy24=26.
      compute mainy22=40.
      compute mainy23=40.
      compute mainy24=40.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=75 or main8=39.
      compute avy22=27.
      compute avy23=27.
      compute avy24=27.
      compute mainy22=39.
      compute mainy23=39.
      compute mainy24=39.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=76.
      compute avy22=25.
      compute avy23=25.
      compute avy24=25.
      compute mainy22=40.
      compute mainy23=40.
      compute mainy24=40.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=77 or main8=38.
      compute avy22=28.
      compute avy23=28.
      compute avy24=28.
      compute mainy22=39.
      compute mainy23=39.
      compute mainy24=39.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=78.
      compute avy22=22.
      compute avy23=22.
      compute avy24=22.
      compute mainy22=34.
      compute mainy23=34.
      compute mainy24=34.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=79.
      compute avy22=4.
      compute avy23=4.
      compute avy24=4.
      compute mainy22=17.
      compute mainy23=17.
      compute mainy24=17.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=80.
      compute avy22=18.
      compute avy23=18.
      compute avy24=18.
      compute mainy22=38.
      compute mainy23=38.
      compute mainy24=38.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=81.
      compute avy22=19.
      compute avy23=19.
      compute avy24=19.
      compute mainy22=42.
      compute mainy23=42.
      compute mainy24=42.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=82.
      compute avy22=20.
      compute avy23=20.
      compute avy24=20.
      compute mainy22=36.
      compute mainy23=36.
      compute mainy24=36.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=83 and sec8=45.
      compute avy22=21.
      compute avy23=21.
      compute avy24=5.
      compute mainy22=43.
      compute mainy23=43.
      compute mainy24=63.
      compute mtravy22=3.
      compute mtravy23=3.
      compute mtravy24=1.
   Else if main8=83.
      compute avy22=21.
      compute avy23=21.
      compute avy24=21.
      compute mainy22=43.
      compute mainy23=43.
      compute mainy24=43.
      compute mtravy22=3.
      compute mtravy23=3.
      compute mtravy24=3.
   Else if main8=84.
      compute avy22=18.
      compute avy23=18.
      compute avy24=18.
      compute mainy22=45.
      compute mainy23=45.
      compute mainy24=45.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=85 or main8=86.
      compute avy22=18.
      compute avy23=18.
      compute avy24=18.
      compute mainy22=38.
      compute mainy23=38.
      compute mainy24=38.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=89.
      compute avy22=17.
      compute avy23=17.
      compute avy24=17.
      compute mainy22=68.
      compute mainy23=68.
      compute mainy24=68.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=90.
      compute avy22=17.
      compute avy23=17.
      compute avy24=17.
      compute mainy22=62.
      compute mainy23=62.
      compute mainy24=62.
      compute mtravy22=5.
      compute mtravy23=5.
      compute mtravy24=5.
   Else if main8=91.
      compute avy22=40.
      compute avy23=40.
      compute avy24=40.
      compute mainy22=51.
      compute mainy23=51.
      compute mainy24=51.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=92.
      compute avy22=31.
      compute avy23=31.
      compute avy24=31.
      compute mainy22=59.
      compute mainy23=59.
      compute mainy24=59.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=93.
      compute avy22=41.
      compute avy23=41.
      compute avy24=41.
      compute mainy22=41.
      compute mainy23=41.
      compute mainy24=41.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=-7.
   End if.
Else if mtmark8=1.
   Do if main8=2 and main9=36.
      compute avy22=16.
      compute avy23=36.
      compute avy24=12.
      compute mainy22=2.
      compute mainy23=55.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=2.
      compute avy22=16.
      compute avy23=36.
      compute avy24=5.
      compute mainy22=2.
      compute mainy23=55.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=3 and (main9=42 or main9=79).
      compute avy22=16.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=2.
      compute mainy23=4.
      compute mainy24=64.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=5. 
   Else if main8=3 and main9=57.
      compute avy22=16.
      compute avy23=13.
      compute avy24=12.
      compute mainy22=2.
      compute mainy23=4.
      compute mainy24=67.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=5. 
   Else if main8=3 and main9=71.
      compute avy22=16.
      compute avy23=13.
      compute avy24=17.
      compute mainy22=2.
      compute mainy23=4.
      compute mainy24=68.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=5. 
   Else if main8=3.
      compute avy22=16.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=2.
      compute mainy23=4.
      compute mainy24=63.
      compute mtravy22=-7. 
      compute mtravy23=-7. 
      compute mtravy24=5.
   Else if main8=6.
      compute avy22=13.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=1.
      compute mainy23=1.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8>10 and main8<15.
      compute avy22=30.
      compute avy23=30.
      compute avy24=5.
      compute mainy22=58.
      compute mainy23=58.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=31 and (main9=42 or main9=79).
      compute avy22=13.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=64.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=31 and main9>57.
      compute avy22=13.
      compute avy23=13.
      compute avy24=17.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=68.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=31 and (main9=57 or main9=36).
      compute avy22=13.
      compute avy23=13.
      compute avy24=12.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=31 and sec8=45.
      compute avy22=13.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=1.
   Else if main8=31.
      compute avy22=13.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=33 and main9=42.
      compute avy22=13.
      compute avy23=13.
      compute avy24=5.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=64.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=33.
      compute avy22=13.
      compute avy23=13.
      compute avy24=17.
      compute mainy22=4.
      compute mainy23=4.
      compute mainy24=68.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=36.
      compute avy22=14.
      compute avy23=14.
      compute avy24=12.
      compute mainy22=25.
      compute mainy23=25.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=41.
      compute avy22=1.
      compute avy23=1.
      compute avy24=5.
      compute mainy22=7.
      compute mainy23=7.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=44.
      compute avy22=3.
      compute avy23=3.
      compute avy24=5.
      compute mainy22=9.
      compute mainy23=9.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=50.
      compute avy22=8.
      compute avy23=8.
      compute avy24=12.
      compute mainy22=21.
      compute mainy23=21.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=51.
      compute avy22=11.
      compute avy23=11.
      compute avy24=5.
      compute mainy22=28.
      compute mainy23=28.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=53 and (main9=36 or main9=57).
      compute avy22=6.
      compute avy23=6.
      compute avy24=12.
      compute mainy22=18.
      compute mainy23=18.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=53 and main9>57.
      compute avy22=6.
      compute avy23=6.
      compute avy24=17.
      compute mainy22=18.
      compute mainy23=18.
      compute mainy24=68.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=53.
      compute avy22=6.
      compute avy23=6.
      compute avy24=5.
      compute mainy22=18.
      compute mainy23=18.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=54 and main9=57.
      compute avy22=7.
      compute avy23=7.
      compute avy24=12.
      compute mainy22=20.
      compute mainy23=20.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=54 and main9>57.
      compute avy22=7.
      compute avy23=7.
      compute avy24=17.
      compute mainy22=20.
      compute mainy23=20.
      compute mainy24=68.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=54.
      compute avy22=7.
      compute avy23=7.
      compute avy24=5.
      compute mainy22=20.
      compute mainy23=20.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=57.
      compute avy22=10.
      compute avy23=10.
      compute avy24=12.
      compute mainy22=24.
      compute mainy23=24.
      compute mainy24=67.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=59.
      compute avy22=12.
      compute avy23=7.
      compute avy24=13.
      compute mainy22=67.
      compute mainy23=23.
      compute mainy24=4.
      compute mtravy22=5.
      compute mtravy23=-7.
      compute mtravy24=-7.
   Else if main8=65.
      compute avy22=39.
      compute avy23=39.
      compute avy24=5.
      compute mainy22=54.
      compute mainy23=54.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=69.
      compute avy22=36.
      compute avy23=36.
      compute avy24=17.
      compute mainy22=55.
      compute mainy23=55.
      compute mainy24=68.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   Else if main8=77.
      compute avy22=28.
      compute avy23=28.
      compute avy24=5.
      compute mainy22=39.
      compute mainy23=39.
      compute mainy24=63.
      compute mtravy22=-7.
      compute mtravy23=-7.
      compute mtravy24=5.
   End if.
End if.

Do if main8=1 and main9=1 and mtmark8=0.
   compute avy22=16.
   compute avy23=16.
   compute avy24=16.
   compute mainy22=2.
   compute mainy23=2.
   compute mainy24=2.
   compute mtravy22=-7. 
   compute mtravy23=-7. 
   compute mtravy24=-7. 
Else if main8=2 and main9=2 and mtmark8=0.
   compute avy22=16.
   compute avy23=16.
   compute avy24=16.
   compute mainy22=2.
   compute mainy23=2.
   compute mainy24=2.
   compute mtravy22=-7.
   compute mtravy23=-7.
   compute mtravy24=-7.
End if.

freq avy22 avy23 avy24 mainy22 mainy23 mainy24 mtravy22 mtravy23 mtravy24.

*set values for the 9th time slot.
freq mtmark9.
*877 missing travel cases in time slot 9.

temp.
select if mtmark9=1.
cro main9 by main10.

if main9=83 or main10=83 or main9=63 or main10=63 mtmark9=0.
if main9=34 or main9=38 or main9=62 or main9=67 or main9=81 mtmark9=0.
if main10=34 or main10=38 or main10=62 or main10=67 or main10=81 mtmark9=0.
if main9=main10 mtmark9=0.
if main10=6 mtmark9=0.
if (main9=31 or main9=71) and main10=53 mtmark9=0.
if main9=61 or main9=80 mtmark9=0.
*errors fixed, 424 cases remain.

temp.
select if sec9=45.
cro main9 by main10 by mtmark9.

temp.
select if sec9=46 or sec9=47.
cro main9 by main10 by mtmark9.

Do if mtmark9=0.
   Do if main9>95.
      compute avy25=41.
      compute avy26=41.
      compute avy27=41.
      compute mainy25=69.
      compute mainy26=69.
      compute mainy27=69.
      compute mtravy25=-8.
      compute mtravy26=-8.
      compute mtravy27=-8.
   Else if main9=1.
      compute avy25=16.
      compute avy26=16.
      compute avy27=13.
      compute mainy25=2.
      compute mainy26=2.
      compute mainy27=4.
      compute mtravy25=-7. 
      compute mtravy26=-7. 
      compute mtravy27=-7. 
   Else if main9=2.
      compute avy25=16.
      compute avy26=16.
      compute avy27=36.
      compute mainy25=2.
      compute mainy26=2.
      compute mainy27=55.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=3 or main9=4.
      compute avy25=16.
      compute avy26=16.
      compute avy27=16.
      compute mainy25=2.
      compute mainy26=2.
      compute mainy27=2.
      compute mtravy25=-7. 
      compute mtravy26=-7. 
      compute mtravy27=-7. 
   Else if main9=5.
      compute avy25=16.
      compute avy26=16.
      compute avy27=16.
      compute mainy25=3.
      compute mainy26=3.
      compute mainy27=3.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=6.
      compute avy25=13.
      compute avy26=13.
      compute avy27=13.
      compute mainy25=1.
      compute mainy26=1.
      compute mainy27=1.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9>6 and main9<20.
      compute avy25=30.
      compute avy26=30.
      compute avy27=30.
      compute mainy25=58.
      compute mainy26=58.
      compute mainy27=58.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9>19 and main9<30.
      compute avy25=31.
      compute avy26=31.
      compute avy27=31.
      compute mainy25=59.
      compute mainy26=59.
      compute mainy27=59.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9>29 and main9<34.
      compute avy25=13.
      compute avy26=13.
      compute avy27=13.
      compute mainy25=4.
      compute mainy26=4.
      compute mainy27=4.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if (main9=34 or main9=38) and sec9=45 and (main10=42 or main11=42).
      compute avy25=15.
      compute avy26=15.
      compute avy27=5.
      compute mainy25=6.
      compute mainy26=6.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=1.
   Else if (main9=34 or main9=38) and sec9=45.
      compute avy25=15.
      compute avy26=15.
      compute avy27=5.
      compute mainy25=6.
      compute mainy26=6.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=1.
   Else if (main9=34 or main9=38) and (sec9=46 or sec9=47) and (main10=42 or main11=42).
      compute avy25=15.
      compute avy26=15.
      compute avy27=5.
      compute mainy25=6.
      compute mainy26=6.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if (main9=34 or main9=38) and sec9=46 or sec9=47.
      compute avy25=15.
      compute avy26=15.
      compute avy27=5.
      compute mainy25=6.
      compute mainy26=6.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=34 or main9=35 or ((main9=38 or main9=39) and loc9=1).
      compute avy25=15.
      compute avy26=15.
      compute avy27=15.
      compute mainy25=6.
      compute mainy26=6.
      compute mainy27=6.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=36.
      compute avy25=14.
      compute avy26=14.
      compute avy27=14.
      compute mainy25=25.
      compute mainy26=25.
      compute mainy27=25.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=37.
      compute avy25=12.
      compute avy26=12.
      compute avy27=12.
      compute mainy25=67.
      compute mainy26=67.
      compute mainy27=67.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=40.
      compute avy25=1.
      compute avy26=1.
      compute avy27=1.
      compute mainy25=13.
      compute mainy26=13.
      compute mainy27=13.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=41.
      compute avy25=1.
      compute avy26=1.
      compute avy27=1.
      compute mainy25=7.
      compute mainy26=7.
      compute mainy27=7.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=42 and sec9=45.
      compute avy25=5.
      compute avy26=4.
      compute avy27=4.
      compute mainy25=64.
      compute mainy26=15.
      compute mainy27=15.
      compute mtravy25=1.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=42.
      compute avy25=4.
      compute avy26=4.
      compute avy27=4.
      compute mainy25=15.
      compute mainy26=15.
      compute mainy27=15.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=43.
      compute avy25=2.
      compute avy26=2.
      compute avy27=2.
      compute mainy25=8.
      compute mainy26=8.
      compute mainy27=8.
      compute mtravy25=-7.
      compute mtravy26=-7.
     compute mtravy27=-7.
   Else if main9=44.
      compute avy25=3.
      compute avy26=3.
      compute avy27=3.
      compute mainy25=9.
      compute mainy26=9.
      compute mainy27=9.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=45 and (main10=42 or main10=79).
      compute avy25=5.
      compute avy26=5.
      compute avy27=5.
      compute mainy25=64.
      compute mainy26=64.
      compute mainy27=64.
      compute mtravy25=1.
      compute mtravy26=1.
      compute mtravy27=1.
   Else if (main9=46 or main9=47) and (main10=42 or main10=79).
      compute avy25=5.
      compute avy26=5.
      compute avy27=5.
      compute mainy25=64.
      compute mainy26=64.
      compute mainy27=64.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=45.
      compute avy25=5.
      compute avy26=5.
      compute avy27=5.
      compute mainy25=63.
      compute mainy26=63.
      compute mainy27=63.
      compute mtravy25=1.
      compute mtravy26=1.
      compute mtravy27=1.
   Else if main9=46 or main9=47.
      compute avy25=5.
      compute avy26=5.
      compute avy27=5.
      compute mainy25=63.
      compute mainy26=63.
      compute mainy27=63.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=48.
      compute avy25=5.
      compute avy26=5.
      compute avy27=5.
      compute mainy25=11.
      compute mainy26=11.
      compute mainy27=11.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=49.
      compute avy25=1.
      compute avy26=1.
      compute avy27=1.
      compute mainy25=5.
      compute mainy26=5.
      compute mainy27=5.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=50.
      compute avy25=8.
      compute avy26=8.
      compute avy27=8.
      compute mainy25=21.
      compute mainy26=21.
      compute mainy27=21.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=51.
      compute avy25=11.
      compute avy26=11.
      compute avy27=11.
      compute mainy25=28.
      compute mainy26=28.
      compute mainy27=28.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=52.
      compute avy25=11.
      compute avy26=11.
      compute avy27=11.
      compute mainy25=30.
      compute mainy26=30.
      compute mainy27=30.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=53.
      compute avy25=6.
      compute avy26=6.
      compute avy27=6.
      compute mainy25=18.
      compute mainy26=18.
      compute mainy27=18.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=54.
      compute avy25=7.
      compute avy26=7.
      compute avy27=7.
      compute mainy25=20.
      compute mainy26=20.
      compute mainy27=20.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=55.
      compute avy25=8.
      compute avy26=8.
      compute avy27=8.
      compute mainy25=22.
      compute mainy26=22.
      compute mainy27=22.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=56.
      compute avy25=8.
      compute avy26=8.
      compute avy27=8.
      compute mainy25=27.
      compute mainy26=27.
      compute mainy27=27.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=57.
      compute avy25=10.
      compute avy26=10.
      compute avy27=10.
      compute mainy25=24.
      compute mainy26=24.
      compute mainy27=24.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=58 and sec9=45.
      compute avy25=12.
      compute avy26=12.
      compute avy27=5.
      compute mainy25=66.
      compute mainy26=66.
      compute mainy27=63.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=1.
   Else if main9=58 and (sec9=46 or sec9=47).
      compute avy25=12.
      compute avy26=12.
      compute avy27=5.
      compute mainy25=66.
      compute mainy26=66.
      compute mainy27=63.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=58.
      compute avy25=12.
      compute avy26=12.
      compute avy27=12.
      compute mainy25=66.
      compute mainy26=66.
      compute mainy27=66.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=59.
      compute avy25=7.
      compute avy26=7.
      compute avy27=13.
      compute mainy25=23.
      compute mainy26=23.
      compute mainy27=4.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=60.
      compute avy25=9.
      compute avy26=9.
      compute avy27=9.
      compute mainy25=46.
      compute mainy26=46.
      compute mainy27=46.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=61 and (sec9=46 or sec9=47).
      compute avy25=33.
      compute avy26=33.
      compute avy27=5.
      compute mainy25=16.
      compute mainy26=16.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=61.
      compute avy25=33.
      compute avy26=33.
      compute avy27=33.
      compute mainy25=16.
      compute mainy26=16.
      compute mainy27=16.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=62.
      compute avy25=34.
      compute avy26=34.
      compute avy27=34.
      compute mainy25=56.
      compute mainy26=56.
      compute mainy27=56.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=63 and sec9=45.
      compute avy25=35.
      compute avy26=35.
      compute avy27=5.
      compute mainy25=56.
      compute mainy26=56.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=1.
   Else if main9=63.
      compute avy25=35.
      compute avy26=35.
      compute avy27=35.
      compute mainy25=56.
      compute mainy26=56.
      compute mainy27=56.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=64.
      compute avy25=40.
      compute avy26=40.
      compute avy27=40.
      compute mainy25=54.
      compute mainy26=54.
      compute mainy27=54.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=65.
      compute avy25=39.
      compute avy26=39.
      compute avy27=39.
      compute mainy25=54.
      compute mainy26=54.
      compute mainy27=54.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=66.
      compute avy25=38.
      compute avy26=38.
      compute avy27=38.
      compute mainy25=48.
      compute mainy26=48.
      compute mainy27=48.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=67 and (sec9=46 or sec9=47).
      compute avy25=37.
      compute avy26=37.
      compute avy27=5.
      compute mainy25=49.
      compute mainy26=49.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=67.
      compute avy25=37.
      compute avy26=37.
      compute avy27=37.
      compute mainy25=49.
      compute mainy26=49.
      compute mainy27=49.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=68.
      compute avy25=32.
      compute avy26=32.
      compute avy27=32.
      compute mainy25=57.
      compute mainy26=57.
      compute mainy27=57.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=69.
      compute avy25=36.
      compute avy26=36.
      compute avy27=36.
      compute mainy25=55.
      compute mainy26=55.
      compute mainy27=55.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=70.
      compute avy25=25.
      compute avy26=25.
      compute avy27=25.
      compute mainy25=35.
      compute mainy26=35.
      compute mainy27=35.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=71.
      compute avy25=29.
      compute avy26=29.
      compute avy27=29.
      compute mainy25=48.
      compute mainy26=48.
      compute mainy27=48.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=72.
      compute avy25=24.
      compute avy26=24.
      compute avy27=24.
      compute mainy25=37.
      compute mainy26=37.
      compute mainy27=37.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=73.
      compute avy25=23.
      compute avy26=23.
      compute avy27=23.
      compute mainy25=33.
      compute mainy26=33.
      compute mainy27=33.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=74.
      compute avy25=26.
      compute avy26=26.
      compute avy27=26.
      compute mainy25=40.
      compute mainy26=40.
      compute mainy27=40.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=75 or main9=39.
      compute avy25=27.
      compute avy26=27.
      compute avy27=27.
      compute mainy25=39.
      compute mainy26=39.
      compute mainy27=39.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=76.
      compute avy25=25.
      compute avy26=25.
      compute avy27=25.
      compute mainy25=40.
      compute mainy26=40.
      compute mainy27=40.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=77 or main9=38.
      compute avy25=28.
      compute avy26=28.
      compute avy27=28.
      compute mainy25=39.
      compute mainy26=39.
      compute mainy27=39.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=78.
      compute avy25=22.
      compute avy26=22.
      compute avy27=22.
      compute mainy25=34.
      compute mainy26=34.
      compute mainy27=34.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=79.
      compute avy25=4.
      compute avy26=4.
      compute avy27=4.
      compute mainy25=17.
      compute mainy26=17.
      compute mainy27=17.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=80.
      compute avy25=18.
      compute avy26=18.
      compute avy27=18.
      compute mainy25=38.
      compute mainy26=38.
      compute mainy27=38.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=81.
      compute avy25=19.
      compute avy26=19.
      compute avy27=19.
      compute mainy25=42.
      compute mainy26=42.
      compute mainy27=42.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=82.
      compute avy25=20.
      compute avy26=20.
      compute avy27=20.
      compute mainy25=36.
      compute mainy26=36.
      compute mainy27=36.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=83.
      compute avy25=21.
      compute avy26=21.
      compute avy27=21.
      compute mainy25=43.
      compute mainy26=43.
      compute mainy27=43.
      compute mtravy25=3.
      compute mtravy26=3.
      compute mtravy27=3.
   Else if main9=84.
      compute avy25=18.
      compute avy26=18.
      compute avy27=18.
      compute mainy25=45.
      compute mainy26=45.
      compute mainy27=45.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=85 or main9=86.
      compute avy25=18.
      compute avy26=18.
      compute avy27=18.
      compute mainy25=38.
      compute mainy26=38.
      compute mainy27=38.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=89.
      compute avy25=17.
      compute avy26=17.
      compute avy27=17.
      compute mainy25=68.
      compute mainy26=68.
      compute mainy27=68.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=90.
      compute avy25=17.
      compute avy26=17.
      compute avy27=17.
      compute mainy25=62.
      compute mainy26=62.
      compute mainy27=62.
      compute mtravy25=5.
      compute mtravy26=5.
      compute mtravy27=5.
   Else if main9=91.
      compute avy25=40.
      compute avy26=40.
      compute avy27=40.
      compute mainy25=51.
      compute mainy26=51.
      compute mainy27=51.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=92.
      compute avy25=31.
      compute avy26=31.
      compute avy27=31.
      compute mainy25=59.
      compute mainy26=59.
      compute mainy27=59.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   Else if main9=93.
      compute avy25=41.
      compute avy26=41.
      compute avy27=41.
      compute mainy25=41.
      compute mainy26=41.
      compute mainy27=41.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=-7.
   End if.
Else if mtmark9=1.
   Do if main9=2 and main10=42.
      compute avy25=16.
      compute avy26=36.
      compute avy27=5.
      compute mainy25=2.
      compute mainy26=55.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=2.
      compute avy25=16.
      compute avy26=36.
      compute avy27=5.
      compute mainy25=2.
      compute mainy26=55.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=3 and (main10=42 or main10=79).
      compute avy25=16.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=2.
      compute mainy26=4.
      compute mainy27=64.
      compute mtravy25=-7. 
      compute mtravy26=-7. 
      compute mtravy27=5. 
   Else if main9=3 and main10=57.
      compute avy25=16.
      compute avy26=13.
      compute avy27=12.
      compute mainy25=2.
      compute mainy26=4.
      compute mainy27=67.
      compute mtravy25=-7. 
      compute mtravy26=-7. 
      compute mtravy27=5. 
   Else if main9=3.
      compute avy25=16.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=2.
      compute mainy26=4.
      compute mainy27=63.
      compute mtravy25=-7. 
      compute mtravy26=-7. 
      compute mtravy27=5.
   Else if main9=6 and main10=41.
      compute avy25=13.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=1.
      compute mainy26=1.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=6 and main10=42.
      compute avy25=13.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=1.
      compute mainy26=1.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=6 and main10=57.
      compute avy25=13.
      compute avy26=13.
      compute avy27=12.
      compute mainy25=1.
      compute mainy26=1.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=6.
      compute avy25=13.
      compute avy26=13.
      compute avy27=17.
      compute mainy25=1.
      compute mainy26=1.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if (main9>10 and main9<15) and (main10=42 or main10=79).
      compute avy25=30.
      compute avy26=30.
      compute avy27=5.
      compute mainy25=58.
      compute mainy26=58.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if (main9>10 and main9<15) and main10=41.
      compute avy25=30.
      compute avy26=30.
      compute avy27=5.
      compute mainy25=58.
      compute mainy26=58.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9>10 and main9<15.
      compute avy25=30.
      compute avy26=30.
      compute avy27=17.
      compute mainy25=58.
      compute mainy26=58.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if (main9>29 and main9<34) and (main10=42 or main10=79).
      compute avy25=13.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=4.
      compute mainy26=4.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=31 and (main10=57 or main10=36).
      compute avy25=13.
      compute avy26=13.
      compute avy27=12.
      compute mainy25=4.
      compute mainy26=4.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if (main9>29 and main9<34) and (main10=41 or main10=44).
      compute avy25=13.
      compute avy26=13.
      compute avy27=5.
      compute mainy25=4.
      compute mainy26=4.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      Do if sec9=45.
         compute mtravy27=1.
      Else.
         compute mtravy27=5.
      End if.
   Else if (main9>29 and main9<34).
      compute avy25=13.
      compute avy26=13.
      compute avy27=17.
      compute mainy25=4.
      compute mainy26=4.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=41.
      compute avy25=1.
      compute avy26=1.
      compute avy27=5.
      compute mainy25=7.
      compute mainy26=7.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=43.
      compute avy25=2.
      compute avy26=2.
      compute avy27=5.
      compute mainy25=8.
      compute mainy26=8.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
     compute mtravy27=5.
   Else if main9=44.
      compute avy25=3.
      compute avy26=3.
      compute avy27=5.
      compute mainy25=9.
      compute mainy26=9.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=50 and main10=41.
      compute avy25=8.
      compute avy26=8.
      compute avy27=5.
      compute mainy25=21.
      compute mainy26=21.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=50 and main10=57.
      compute avy25=8.
      compute avy26=8.
      compute avy27=12.
      compute mainy25=21.
      compute mainy26=21.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=50.
      compute avy25=8.
      compute avy26=8.
      compute avy27=17.
      compute mainy25=21.
      compute mainy26=21.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=51 and main10=41.
      compute avy25=11.
      compute avy26=11.
      compute avy27=5.
      compute mainy25=28.
      compute mainy26=28.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=51 and main10=57.
      compute avy25=11.
      compute avy26=11.
      compute avy27=12.
      compute mainy25=28.
      compute mainy26=28.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=51.
      compute avy25=11.
      compute avy26=11.
      compute avy27=17.
      compute mainy25=28.
      compute mainy26=28.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=53 and (main10=42 or main10=79).
      compute avy25=6.
      compute avy26=6.
      compute avy27=5.
      compute mainy25=18.
      compute mainy26=18.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=53 and (main10=36 or main10=57).
      compute avy25=6.
      compute avy26=6.
      compute avy27=12.
      compute mainy25=18.
      compute mainy26=18.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=53 and (main10=41 or main10=44).
      compute avy25=6.
      compute avy26=6.
      compute avy27=5.
      compute mainy25=18.
      compute mainy26=18.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      Do if sec9=45.
         compute mtravy27=1.
      Else.
         compute mtravy27=5.
      End if.
   Else if main9=53.
      compute avy25=6.
      compute avy26=6.
      compute avy27=17.
      compute mainy25=18.
      compute mainy26=18.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=54 and (main10=36 or main10=57).
      compute avy25=7.
      compute avy26=7.
      compute avy27=12.
      compute mainy25=20.
      compute mainy26=20.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=54 and (main10=41 or main10=44).
      compute avy25=7.
      compute avy26=7.
      compute avy27=5.
      compute mainy25=20.
      compute mainy26=20.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      Do if sec9=45.
         compute mtravy27=1.
      Else.
         compute mtravy27=5.
      End if.
   Else if main9=54 and (main10=42 or main10=79).
      compute avy25=7.
      compute avy26=7.
      compute avy27=5.
      compute mainy25=20.
      compute mainy26=20.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=54.
      compute avy25=7.
      compute avy26=7.
      compute avy27=17.
      compute mainy25=20.
      compute mainy26=20.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=55 and main10=57.
      compute avy25=8.
      compute avy26=8.
      compute avy27=12.
      compute mainy25=22.
      compute mainy26=22.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=55 and main10=79.
      compute avy25=8.
      compute avy26=8.
      compute avy27=5.
      compute mainy25=22.
      compute mainy26=22.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=56 and main10=41.
      compute avy25=8.
      compute avy26=8.
      compute avy27=5.
      compute mainy25=27.
      compute mainy26=27.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=56 and main10=42.
      compute avy25=8.
      compute avy26=8.
      compute avy27=5.
      compute mainy25=27.
      compute mainy26=27.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=56.
      compute avy25=8.
      compute avy26=8.
      compute avy27=12.
      compute mainy25=27.
      compute mainy26=27.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=57.
      compute avy25=10.
      compute avy26=10.
      compute avy27=12.
      compute mainy25=24.
      compute mainy26=24.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=69.
      compute avy25=36.
      compute avy26=36.
      compute avy27=5.
      compute mainy25=55.
      compute mainy26=55.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=71 and main10=42.
      compute avy25=29.
      compute avy26=29.
      compute avy27=5.
      compute mainy25=48.
      compute mainy26=48.
      compute mainy27=64.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=71 and main10=41.
      compute avy25=29.
      compute avy26=29.
      compute avy27=5.
      compute mainy25=48.
      compute mainy26=48.
      compute mainy27=63.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=78.
      compute avy25=22.
      compute avy26=22.
      compute avy27=17.
      compute mainy25=34.
      compute mainy26=34.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=91 and main10=36.
      compute avy25=40.
      compute avy26=40.
      compute avy27=12.
      compute mainy25=51.
      compute mainy26=51.
      compute mainy27=67.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   Else if main9=91.
      compute avy25=40.
      compute avy26=40.
      compute avy27=17.
      compute mainy25=51.
      compute mainy26=51.
      compute mainy27=68.
      compute mtravy25=-7.
      compute mtravy26=-7.
      compute mtravy27=5.
   End if.
End if.

Do if main9=1 and main10=1 and mtmark9=0.
   compute avy25=16.
   compute avy26=16.
   compute avy27=16.
   compute mainy25=2.
   compute mainy26=2.
   compute mainy27=2.
   compute mtravy25=-7. 
   compute mtravy26=-7. 
   compute mtravy27=-7. 
Else if main9=2 and main10=2 and mtmark9=0.
   compute avy25=16.
   compute avy26=16.
   compute avy27=16.
   compute mainy25=2.
   compute mainy26=2.
   compute mainy27=2.
   compute mtravy25=-7.
   compute mtravy26=-7.
   compute mtravy27=-7.
End if.

freq avy25 avy26 avy27 mainy25 mainy26 mainy27 mtravy25 mtravy26 mtravy27.

*set values for the 10th time slot.
freq mtmark10.
*1334 missing travel cases in time slot 10.

temp.
select if mtmark10=1.
cro main10 by main11.

if main10=83 or main11=83 or main10=63 or main11=63 mtmark10=0.
if main10=34 or main10=38 or main10=62 or main10=67 or main10=81 mtmark10=0.
if main11=34 or main11=38 or main11=62 or main11=67 or main11=81 mtmark10=0.
if main10=main11 mtmark10=0.
if main10=1 or main10=61 or main11=61 or main11=72 or main11=50 mtmark10=0.

if main10=59 and main11>57 mtmark10=0.
if main10=60 or main10=64 or main10=71 mtmark10=0.
*errors fixed, 749 cases remain.

temp.
select if sec10=45.
cro main10 by main11 by mtmark10.

temp.
select if sec10=46 or sec10=47.
cro main10 by main11 by mtmark10.

Do if mtmark10=0.
   Do if main10>95.
      compute avy28=41.
      compute avy29=41.
      compute avy30=41.
      compute mainy28=69.
      compute mainy29=69.
      compute mainy30=69.
      compute mtravy28=-8.
      compute mtravy29=-8.
      compute mtravy30=-8.
   Else if main10=1.
      compute avy28=16.
      compute avy29=16.
      compute avy30=13.
      compute mainy28=2.
      compute mainy29=2.
      compute mainy30=4.
      compute mtravy28=-7. 
      compute mtravy29=-7. 
      compute mtravy30=-7. 
   Else if main10=2.
      compute avy28=16.
      compute avy29=16.
      compute avy30=36.
      compute mainy28=2.
      compute mainy29=2.
      compute mainy30=55.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=3 or main10=4.
      compute avy28=16.
      compute avy29=16.
      compute avy30=16.
      compute mainy28=2.
      compute mainy29=2.
      compute mainy30=2.
      compute mtravy28=-7. 
      compute mtravy29=-7. 
      compute mtravy30=-7. 
   Else if main10=5.
      compute avy28=16.
      compute avy29=16.
      compute avy30=16.
      compute mainy28=3.
      compute mainy29=3.
      compute mainy30=3.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=6.
      compute avy28=13.
      compute avy29=13.
      compute avy30=13.
      compute mainy28=1.
      compute mainy29=1.
      compute mainy30=1.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10>6 and main10<20.
      compute avy28=30.
      compute avy29=30.
      compute avy30=30.
      compute mainy28=58.
      compute mainy29=58.
      compute mainy30=58.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10>19 and main10<30.
      compute avy28=31.
      compute avy29=31.
      compute avy30=31.
      compute mainy28=59.
      compute mainy29=59.
      compute mainy30=59.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10>29 and main10<34.
      compute avy28=13.
      compute avy29=13.
      compute avy30=13.
      compute mainy28=4.
      compute mainy29=4.
      compute mainy30=4.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=34 and sec10=45.
      compute avy28=15.
      compute avy29=15.
      compute avy30=5.
      compute mainy28=6.
      compute mainy29=6.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=1.
   Else if (main10=34 or main10=38) and (sec10=46 or sec10=47) and main11=42.
      compute avy28=15.
      compute avy29=15.
      compute avy30=5.
      compute mainy28=6.
      compute mainy29=6.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10=34 or main10=38) and (sec10=46 or sec10=47).
      compute avy28=15.
      compute avy29=15.
      compute avy30=5.
      compute mainy28=6.
      compute mainy29=6.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=34 or main10=35 or ((main10=38 or main10=39) and loc10=1).
      compute avy28=15.
      compute avy29=15.
      compute avy30=15.
      compute mainy28=6.
      compute mainy29=6.
      compute mainy30=6.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=36.
      compute avy28=14.
      compute avy29=14.
      compute avy30=14.
      compute mainy28=25.
      compute mainy29=25.
      compute mainy30=25.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=37.
      compute avy28=12.
      compute avy29=12.
      compute avy30=12.
      compute mainy28=67.
      compute mainy29=67.
      compute mainy30=67.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=40.
      compute avy28=1.
      compute avy29=1.
      compute avy30=1.
      compute mainy28=13.
      compute mainy29=13.
      compute mainy30=13.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=41 and sec10=45.
      compute avy28=5.
      compute avy29=1.
      compute avy30=1.
      compute mainy28=63.
      compute mainy29=7.
      compute mainy30=7.
      compute mtravy28=1.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=41.
      compute avy28=1.
      compute avy29=1.
      compute avy30=1.
      compute mainy28=7.
      compute mainy29=7.
      compute mainy30=7.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=42.
      compute avy28=4.
      compute avy29=4.
      compute avy30=4.
      compute mainy28=15.
      compute mainy29=15.
      compute mainy30=15.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=43.
      compute avy28=2.
      compute avy29=2.
      compute avy30=2.
      compute mainy28=8.
      compute mainy29=8.
      compute mainy30=8.
      compute mtravy28=-7.
      compute mtravy29=-7.
     compute mtravy30=-7.
   Else if main10=44.
      compute avy28=3.
      compute avy29=3.
      compute avy30=3.
      compute mainy28=9.
      compute mainy29=9.
      compute mainy30=9.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=45 and (main11=42 or main11=79).
      compute avy28=5.
      compute avy29=5.
      compute avy30=5.
      compute mainy28=64.
      compute mainy29=64.
      compute mainy30=64.
      compute mtravy28=1.
      compute mtravy29=1.
      compute mtravy30=1.
   Else if (main10=46 or main10=47) and (main11=42 or main11=79).
      compute avy28=5.
      compute avy29=5.
      compute avy30=5.
      compute mainy28=64.
      compute mainy29=64.
      compute mainy30=64.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=45.
      compute avy28=5.
      compute avy29=5.
      compute avy30=5.
      compute mainy28=63.
      compute mainy29=63.
      compute mainy30=63.
      compute mtravy28=1.
      compute mtravy29=1.
      compute mtravy30=1.
   Else if main10=46 or main10=47.
      compute avy28=5.
      compute avy29=5.
      compute avy30=5.
      compute mainy28=63.
      compute mainy29=63.
      compute mainy30=63.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=48.
      compute avy28=5.
      compute avy29=5.
      compute avy30=5.
      compute mainy28=11.
      compute mainy29=11.
      compute mainy30=11.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=49.
      compute avy28=1.
      compute avy29=1.
      compute avy30=1.
      compute mainy28=5.
      compute mainy29=5.
      compute mainy30=5.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=50.
      compute avy28=8.
      compute avy29=8.
      compute avy30=8.
      compute mainy28=21.
      compute mainy29=21.
      compute mainy30=21.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=51.
      compute avy28=11.
      compute avy29=11.
      compute avy30=11.
      compute mainy28=28.
      compute mainy29=28.
      compute mainy30=28.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=52.
      compute avy28=11.
      compute avy29=11.
      compute avy30=11.
      compute mainy28=30.
      compute mainy29=30.
      compute mainy30=30.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=53.
      compute avy28=6.
      compute avy29=6.
      compute avy30=6.
      compute mainy28=18.
      compute mainy29=18.
      compute mainy30=18.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=54.
      compute avy28=7.
      compute avy29=7.
      compute avy30=7.
      compute mainy28=20.
      compute mainy29=20.
      compute mainy30=20.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=55.
      compute avy28=8.
      compute avy29=8.
      compute avy30=8.
      compute mainy28=22.
      compute mainy29=22.
      compute mainy30=22.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=56.
      compute avy28=8.
      compute avy29=8.
      compute avy30=8.
      compute mainy28=27.
      compute mainy29=27.
      compute mainy30=27.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=57.
      compute avy28=10.
      compute avy29=10.
      compute avy30=10.
      compute mainy28=24.
      compute mainy29=24.
      compute mainy30=24.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=58 and sec10=45.
      compute avy28=12.
      compute avy29=12.
      compute avy30=12.
      compute mainy28=66.
      compute mainy29=66.
      compute mainy30=66.
      compute mtravy28=1.
      compute mtravy29=1.
      compute mtravy30=1.
   Else if main10=58.
      compute avy28=12.
      compute avy29=12.
      compute avy30=12.
      compute mainy28=66.
      compute mainy29=66.
      compute mainy30=66.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=59.
      compute avy28=7.
      compute avy29=7.
      compute avy30=13.
      compute mainy28=23.
      compute mainy29=23.
      compute mainy30=4.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=60.
      compute avy28=9.
      compute avy29=9.
      compute avy30=9.
      compute mainy28=46.
      compute mainy29=46.
      compute mainy30=46.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=61 and (sec10=46 or sec10=47).
      compute avy28=33.
      compute avy29=33.
      compute avy30=5.
      compute mainy28=16.
      compute mainy29=16.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=61.
      compute avy28=33.
      compute avy29=33.
      compute avy30=33.
      compute mainy28=16.
      compute mainy29=16.
      compute mainy30=16.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=62.
      compute avy28=34.
      compute avy29=34.
      compute avy30=34.
      compute mainy28=56.
      compute mainy29=56.
      compute mainy30=56.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=63 and sec10=45.
      compute avy28=35.
      compute avy29=35.
      compute avy30=5.
      compute mainy28=56.
      compute mainy29=56.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=1.
   Else if main10=63.
      compute avy28=35.
      compute avy29=35.
      compute avy30=35.
      compute mainy28=56.
      compute mainy29=56.
      compute mainy30=56.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=64.
      compute avy28=40.
      compute avy29=40.
      compute avy30=40.
      compute mainy28=54.
      compute mainy29=54.
      compute mainy30=54.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=65.
      compute avy28=39.
      compute avy29=39.
      compute avy30=39.
      compute mainy28=54.
      compute mainy29=54.
      compute mainy30=54.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=66.
      compute avy28=38.
      compute avy29=38.
      compute avy30=38.
      compute mainy28=48.
      compute mainy29=48.
      compute mainy30=48.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=67.
      compute avy28=37.
      compute avy29=37.
      compute avy30=37.
      compute mainy28=49.
      compute mainy29=49.
      compute mainy30=49.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=68.
      compute avy28=32.
      compute avy29=32.
      compute avy30=32.
      compute mainy28=57.
      compute mainy29=57.
      compute mainy30=57.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=69.
      compute avy28=36.
      compute avy29=36.
      compute avy30=36.
      compute mainy28=55.
      compute mainy29=55.
      compute mainy30=55.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=70.
      compute avy28=25.
      compute avy29=25.
      compute avy30=25.
      compute mainy28=35.
      compute mainy29=35.
      compute mainy30=35.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=71.
      compute avy28=29.
      compute avy29=29.
      compute avy30=29.
      compute mainy28=48.
      compute mainy29=48.
      compute mainy30=48.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=72.
      compute avy28=24.
      compute avy29=24.
      compute avy30=24.
      compute mainy28=37.
      compute mainy29=37.
      compute mainy30=37.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=73.
      compute avy28=23.
      compute avy29=23.
      compute avy30=23.
      compute mainy28=33.
      compute mainy29=33.
      compute mainy30=33.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=74.
      compute avy28=26.
      compute avy29=26.
      compute avy30=26.
      compute mainy28=40.
      compute mainy29=40.
      compute mainy30=40.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=75 or main10=39.
      compute avy28=27.
      compute avy29=27.
      compute avy30=27.
      compute mainy28=39.
      compute mainy29=39.
      compute mainy30=39.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=76.
      compute avy28=25.
      compute avy29=25.
      compute avy30=25.
      compute mainy28=40.
      compute mainy29=40.
      compute mainy30=40.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=77 or main10=38.
      compute avy28=28.
      compute avy29=28.
      compute avy30=28.
      compute mainy28=39.
      compute mainy29=39.
      compute mainy30=39.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=78.
      compute avy28=22.
      compute avy29=22.
      compute avy30=22.
      compute mainy28=34.
      compute mainy29=34.
      compute mainy30=34.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=79.
      compute avy28=4.
      compute avy29=4.
      compute avy30=4.
      compute mainy28=17.
      compute mainy29=17.
      compute mainy30=17.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=80.
      compute avy28=18.
      compute avy29=18.
      compute avy30=18.
      compute mainy28=38.
      compute mainy29=38.
      compute mainy30=38.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=81.
      compute avy28=19.
      compute avy29=19.
      compute avy30=19.
      compute mainy28=42.
      compute mainy29=42.
      compute mainy30=42.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=82.
      compute avy28=20.
      compute avy29=20.
      compute avy30=20.
      compute mainy28=36.
      compute mainy29=36.
      compute mainy30=36.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=83 and sec10=45.
      compute avy28=21.
      compute avy29=21.
      compute avy30=5.
      compute mainy28=43.
      compute mainy29=43.
      compute mainy30=63.
      compute mtravy28=3.
      compute mtravy29=3.
      compute mtravy30=1.
   Else if main10=83 and (sec10=46 or sec10=47).
      compute avy28=21.
      compute avy29=21.
      compute avy30=5.
      compute mainy28=43.
      compute mainy29=43.
      compute mainy30=63.
      compute mtravy28=3.
      compute mtravy29=3.
      compute mtravy30=3.
   Else if main10=83.
      compute avy28=21.
      compute avy29=21.
      compute avy30=21.
      compute mainy28=43.
      compute mainy29=43.
      compute mainy30=43.
      compute mtravy28=3.
      compute mtravy29=3.
      compute mtravy30=3.
   Else if main10=84.
      compute avy28=18.
      compute avy29=18.
      compute avy30=18.
      compute mainy28=45.
      compute mainy29=45.
      compute mainy30=45.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=85 or main10=86.
      compute avy28=18.
      compute avy29=18.
      compute avy30=18.
      compute mainy28=38.
      compute mainy29=38.
      compute mainy30=38.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=89.
      compute avy28=17.
      compute avy29=17.
      compute avy30=17.
      compute mainy28=68.
      compute mainy29=68.
      compute mainy30=68.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=90.
      compute avy28=17.
      compute avy29=17.
      compute avy30=17.
      compute mainy28=62.
      compute mainy29=62.
      compute mainy30=62.
      compute mtravy28=5.
      compute mtravy29=5.
      compute mtravy30=5.
   Else if main10=91.
      compute avy28=40.
      compute avy29=40.
      compute avy30=40.
      compute mainy28=51.
      compute mainy29=51.
      compute mainy30=51.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=92.
      compute avy28=31.
      compute avy29=31.
      compute avy30=31.
      compute mainy28=59.
      compute mainy29=59.
      compute mainy30=59.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   Else if main10=93.
      compute avy28=41.
      compute avy29=41.
      compute avy30=41.
      compute mainy28=41.
      compute mainy29=41.
      compute mainy30=41.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=-7.
   End if.
Else if mtmark10=1.
   Do if main10=2 and (main11=42 or main11=79).
      compute avy28=16.
      compute avy29=36.
      compute avy30=5.
      compute mainy28=2.
      compute mainy29=55.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=2 and (main11=41 or main11=44).
      compute avy28=16.
      compute avy29=36.
      compute avy30=5.
      compute mainy28=2.
      compute mainy29=55.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=2 and (main11=36 or main11=57).
      compute avy28=16.
      compute avy29=36.
      compute avy30=12.
      compute mainy28=2.
      compute mainy29=55.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=2.
      compute avy28=16.
      compute avy29=36.
      compute avy30=17.
      compute mainy28=2.
      compute mainy29=55.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=3 and (main11=42 or main11=79).
      compute avy28=16.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=2.
      compute mainy29=4.
      compute mainy30=64.
      compute mtravy28=-7. 
      compute mtravy29=-7. 
      compute mtravy30=5. 
   Else if main10=3 and main11=57.
      compute avy28=16.
      compute avy29=13.
      compute avy30=12.
      compute mainy28=2.
      compute mainy29=4.
      compute mainy30=67.
      compute mtravy28=-7. 
      compute mtravy29=-7. 
      compute mtravy30=5. 
   Else if main10=3.
      compute avy28=16.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=2.
      compute mainy29=4.
      compute mainy30=63.
      compute mtravy28=-7. 
      compute mtravy29=-7. 
      compute mtravy30=5.
   Else if main10=6 and (main11=41 or main11=44).
      compute avy28=13.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=1.
      compute mainy29=1.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=6 and (main11=42 or main11=79).
      compute avy28=13.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=1.
      compute mainy29=1.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=6 and (main11=36 or main11=57).
      compute avy28=13.
      compute avy29=13.
      compute avy30=12.
      compute mainy28=1.
      compute mainy29=1.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=6.
      compute avy28=13.
      compute avy29=13.
      compute avy30=17.
      compute mainy28=1.
      compute mainy29=1.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>10 and main10<15) and (main11=42 or main11=79).
      compute avy28=30.
      compute avy29=30.
      compute avy30=5.
      compute mainy28=58.
      compute mainy29=58.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>10 and main10<15) and (main11=41 or main11=44).
      compute avy28=30.
      compute avy29=30.
      compute avy30=5.
      compute mainy28=58.
      compute mainy29=58.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>10 and main10<15) and (main11=36 or main11=57).
      compute avy28=30.
      compute avy29=30.
      compute avy30=12.
      compute mainy28=58.
      compute mainy29=58.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10>10 and main10<15.
      compute avy28=30.
      compute avy29=30.
      compute avy30=17.
      compute mainy28=58.
      compute mainy29=58.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>29 and main10<34) and (main11=42 or main11=79).
      compute avy28=13.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=4.
      compute mainy29=4.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>29 and main10<34) and (main11=57 or main11=36).
      compute avy28=13.
      compute avy29=13.
      compute avy30=12.
      compute mainy28=4.
      compute mainy29=4.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if (main10>29 and main10<34) and (main11=41 or main11=44 or main11=47).
      compute avy28=13.
      compute avy29=13.
      compute avy30=5.
      compute mainy28=4.
      compute mainy29=4.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      Do if sec10=45.
         compute mtravy30=1.
      Else.
         compute mtravy30=5.
      End if.
   Else if (main10>29 and main10<34).
      compute avy28=13.
      compute avy29=13.
      compute avy30=17.
      compute mainy28=4.
      compute mainy29=4.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=36.
      compute avy28=14.
      compute avy29=14.
      compute avy30=12.
      compute mainy28=25.
      compute mainy29=25.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=41.
      compute avy28=1.
      compute avy29=1.
      compute avy30=5.
      compute mainy28=7.
      compute mainy29=7.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=43 and (main11=42 or main11=79).
      compute avy28=2.
      compute avy29=2.
      compute avy30=5.
      compute mainy28=8.
      compute mainy29=8.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
     compute mtravy30=5.
   Else if main10=43.
      compute avy28=2.
      compute avy29=2.
      compute avy30=5.
      compute mainy28=8.
      compute mainy29=8.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
     compute mtravy30=5.
   Else if main10=44.
      compute avy28=3.
      compute avy29=3.
      compute avy30=5.
      compute mainy28=9.
      compute mainy29=9.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=50 and (main11=41 or main11=44).
      compute avy28=8.
      compute avy29=8.
      compute avy30=5.
      compute mainy28=21.
      compute mainy29=21.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=50 and (main11=42 or main11=79).
      compute avy28=8.
      compute avy29=8.
      compute avy30=5.
      compute mainy28=21.
      compute mainy29=21.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=50 and (main11=57 or main11=36).
      compute avy28=8.
      compute avy29=8.
      compute avy30=12.
      compute mainy28=21.
      compute mainy29=21.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=50.
      compute avy28=8.
      compute avy29=8.
      compute avy30=17.
      compute mainy28=21.
      compute mainy29=21.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=51 and (main11=41 or main11=44 or main11=45).
      compute avy28=11.
      compute avy29=11.
      compute avy30=5.
      compute mainy28=28.
      compute mainy29=28.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      Do if sec10=45.
         compute mtravy30=1.
      Else.
         compute mtravy30=5.
      End if.
   Else if main10=51 and (main11=42 or main11=79).
      compute avy28=11.
      compute avy29=11.
      compute avy30=5.
      compute mainy28=28.
      compute mainy29=28.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=51 and (main11=57 or main11=36).
      compute avy28=11.
      compute avy29=11.
      compute avy30=12.
      compute mainy28=28.
      compute mainy29=28.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=51.
      compute avy28=11.
      compute avy29=11.
      compute avy30=17.
      compute mainy28=28.
      compute mainy29=28.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=53 and (main11=42 or main11=79).
      compute avy28=6.
      compute avy29=6.
      compute avy30=5.
      compute mainy28=18.
      compute mainy29=18.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=53 and (main11=36 or main11=57).
      compute avy28=6.
      compute avy29=6.
      compute avy30=12.
      compute mainy28=18.
      compute mainy29=18.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=53 and (main11=41 or main11=44).
      compute avy28=6.
      compute avy29=6.
      compute avy30=5.
      compute mainy28=18.
      compute mainy29=18.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=53.
      compute avy28=6.
      compute avy29=6.
      compute avy30=17.
      compute mainy28=18.
      compute mainy29=18.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=54 and (main11=36 or main11=57).
      compute avy28=7.
      compute avy29=7.
      compute avy30=12.
      compute mainy28=20.
      compute mainy29=20.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=54 and (main11=41 or main11=44 or main11=47).
      compute avy28=7.
      compute avy29=7.
      compute avy30=5.
      compute mainy28=20.
      compute mainy29=20.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      Do if sec10=45.
         compute mtravy30=1.
      Else.
         compute mtravy30=5.
      End if.
   Else if main10=54 and (main11=42 or main11=79).
      compute avy28=7.
      compute avy29=7.
      compute avy30=5.
      compute mainy28=20.
      compute mainy29=20.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=54.
      compute avy28=7.
      compute avy29=7.
      compute avy30=17.
      compute mainy28=20.
      compute mainy29=20.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=55 and (main11=57 or main11=36).
      compute avy28=8.
      compute avy29=8.
      compute avy30=12.
      compute mainy28=22.
      compute mainy29=22.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=55 and (main11=42 or main11=79).
      compute avy28=8.
      compute avy29=8.
      compute avy30=5.
      compute mainy28=22.
      compute mainy29=22.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=55.
      compute avy28=8.
      compute avy29=8.
      compute avy30=17.
      compute mainy28=22.
      compute mainy29=22.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=56 and (main11=41 or main11=44).
      compute avy28=8.
      compute avy29=8.
      compute avy30=5.
      compute mainy28=27.
      compute mainy29=27.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=56 and (main11=42 or main11=79).
      compute avy28=8.
      compute avy29=8.
      compute avy30=5.
      compute mainy28=27.
      compute mainy29=27.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=56 and (main11=36 or main11=57).
      compute avy28=8.
      compute avy29=8.
      compute avy30=12.
      compute mainy28=27.
      compute mainy29=27.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=56.
      compute avy28=8.
      compute avy29=8.
      compute avy30=17.
      compute mainy28=27.
      compute mainy29=27.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=57 and (main11=41 or main11=44).
      compute avy28=10.
      compute avy29=10.
      compute avy30=5.
      compute mainy28=24.
      compute mainy29=24.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      Do if sec10=45.
         compute mtravy30=1.
      Else.
         compute mtravy30=5.
      End if.
   Else if main10=57 and (main11=42 or main11=79).
      compute avy28=10.
      compute avy29=10.
      compute avy30=5.
      compute mainy28=24.
      compute mainy29=24.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=57 and (main11=36 or main11=57).
      compute avy28=10.
      compute avy29=10.
      compute avy30=12.
      compute mainy28=24.
      compute mainy29=24.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=57.
      compute avy28=10.
      compute avy29=10.
      compute avy30=17.
      compute mainy28=24.
      compute mainy29=24.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=59.
      compute avy28=7.
      compute avy29=7.
      compute avy30=12.
      compute mainy28=23.
      compute mainy29=23.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=66.
      compute avy28=38.
      compute avy29=38.
      compute avy30=12.
      compute mainy28=48.
      compute mainy29=48.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=69 and (main11=41 or main11=44).
      compute avy28=36.
      compute avy29=36.
      compute avy30=5.
      compute mainy28=55.
      compute mainy29=55.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=69 and (main11=36 or main11=57).
      compute avy28=36.
      compute avy29=36.
      compute avy30=12.
      compute mainy28=55.
      compute mainy29=55.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=69.
      compute avy28=36.
      compute avy29=36.
      compute avy30=17.
      compute mainy28=55.
      compute mainy29=55.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=71 and main11=42.
      compute avy28=29.
      compute avy29=29.
      compute avy30=5.
      compute mainy28=48.
      compute mainy29=48.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=71 and main11=41.
      compute avy28=29.
      compute avy29=29.
      compute avy30=5.
      compute mainy28=48.
      compute mainy29=48.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=78 and (main10=41 or main10=44).
      compute avy28=22.
      compute avy29=22.
      compute avy30=5.
      compute mainy28=34.
      compute mainy29=34.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=78.
      compute avy28=22.
      compute avy29=22.
      compute avy30=17.
      compute mainy28=34.
      compute mainy29=34.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=91 and (main11=36 or main11=57).
      compute avy28=40.
      compute avy29=40.
      compute avy30=12.
      compute mainy28=51.
      compute mainy29=51.
      compute mainy30=67.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=91 and (main11=41 or main11=44).
      compute avy28=40.
      compute avy29=40.
      compute avy30=5.
      compute mainy28=51.
      compute mainy29=51.
      compute mainy30=63.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=91 and (main11=42 or main11=79).
      compute avy28=40.
      compute avy29=40.
      compute avy30=5.
      compute mainy28=51.
      compute mainy29=51.
      compute mainy30=64.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   Else if main10=91.
      compute avy28=40.
      compute avy29=40.
      compute avy30=17.
      compute mainy28=51.
      compute mainy29=51.
      compute mainy30=68.
      compute mtravy28=-7.
      compute mtravy29=-7.
      compute mtravy30=5.
   End if.
End if.

Do if main10=1 and main11=1 and mtmark10=0.
   compute avy28=16.
   compute avy29=16.
   compute avy30=16.
   compute mainy28=2.
   compute mainy29=2.
   compute mainy30=2.
   compute mtravy28=-7. 
   compute mtravy29=-7. 
   compute mtravy30=-7. 
Else if main10=2 and main11=2 and mtmark10=0.
   compute avy28=16.
   compute avy29=16.
   compute avy30=16.
   compute mainy28=2.
   compute mainy29=2.
   compute mainy30=2.
   compute mtravy28=-7.
   compute mtravy29=-7.
   compute mtravy30=-7.
End if.

*hldid=873 persid=2 ids 1 and 4 did not code as dealing with code 73
*and missing travel. Sort this now.

Do if hldid=873 and persid=2 and main10=73.
   compute avy28=23.
   compute avy29=23.
   compute avy30=17.
   compute mainy28=33.
   compute mainy29=33.
   compute mainy30=68.
   compute mtravy28=-7.
   compute mtravy29=-7.
   compute mtravy30=5.
End if.

freq avy28 avy29 avy30 mainy28 mainy29 mainy30 mtravy28 mtravy29 mtravy30.

*set values for the 11th time slot.
freq mtmark11.
*1029 missing travel cases in time slot 11.

temp.
select if mtmark11=1.
cro main11 by main12.

if main11=83 or main12=83 or main11=63 or main12=63 mtmark11=0.
if main11=34 or main11=38 or main11=62 or main11=67 or main11=81 mtmark11=0.
if main12=34 or main12=38 or main12=62 or main12=67 or main12=81 mtmark11=0.
if main11=main12 mtmark11=0.
if main11=1 or main11=61 or main12=61 or main12=72 or main12=50 mtmark11=0.
if main11=59 and main12>57 mtmark11=0.
if main11=60 or main11=64 or main11=68 or main11=70 or main11=71 or main11=73 mtmark11=0.
*errors fixed, 561 cases remain.

temp.
select if sec11=45.
cro main11 by main12 by mtmark11.

temp.
select if sec11=46 or sec11=47.
cro main11 by main12 by mtmark11.

Do if mtmark11=0.
   Do if main11>95.
      compute avy31=41.
      compute avy32=41.
      compute avy33=41.
      compute mainy31=69.
      compute mainy32=69.
      compute mainy33=69.
      compute mtravy31=-8.
      compute mtravy32=-8.
      compute mtravy33=-8.
   Else if main11=1.
      compute avy31=16.
      compute avy32=16.
      compute avy33=13.
      compute mainy31=2.
      compute mainy32=2.
      compute mainy33=4.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=-7. 
   Else if main11=2.
      compute avy31=16.
      compute avy32=16.
      compute avy33=36.
      compute mainy31=2.
      compute mainy32=2.
      compute mainy33=55.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=3 or main11=4.
      compute avy31=16.
      compute avy32=16.
      compute avy33=16.
      compute mainy31=2.
      compute mainy32=2.
      compute mainy33=2.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=-7. 
   Else if main11=5.
      compute avy31=16.
      compute avy32=16.
      compute avy33=16.
      compute mainy31=3.
      compute mainy32=3.
      compute mainy33=3.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=6.
      compute avy31=13.
      compute avy32=13.
      compute avy33=13.
      compute mainy31=1.
      compute mainy32=1.
      compute mainy33=1.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11>6 and main11<20.
      compute avy31=30.
      compute avy32=30.
      compute avy33=30.
      compute mainy31=58.
      compute mainy32=58.
      compute mainy33=58.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11>19 and main11<30.
      compute avy31=31.
      compute avy32=31.
      compute avy33=31.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=59.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11>29 and main11<34.
      compute avy31=13.
      compute avy32=13.
      compute avy33=13.
      compute mainy31=4.
      compute mainy32=4.
      compute mainy33=4.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=34 and sec11=45.
      compute avy31=15.
      compute avy32=15.
      compute avy33=5.
      compute mainy31=6.
      compute mainy32=6.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=1.
   Else if main11=34 or main11=35 or ((main11=38 or main11=39) and loc11=1).
      compute avy31=15.
      compute avy32=15.
      compute avy33=15.
      compute mainy31=6.
      compute mainy32=6.
      compute mainy33=6.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=36.
      compute avy31=14.
      compute avy32=14.
      compute avy33=14.
      compute mainy31=25.
      compute mainy32=25.
      compute mainy33=25.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=37.
      compute avy31=12.
      compute avy32=12.
      compute avy33=12.
      compute mainy31=67.
      compute mainy32=67.
      compute mainy33=67.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=40.
      compute avy31=1.
      compute avy32=1.
      compute avy33=1.
      compute mainy31=13.
      compute mainy32=13.
      compute mainy33=13.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=41 and sec11=45.
      compute avy31=1.
      compute avy32=1.
      compute avy33=5.
      compute mainy31=7.
      compute mainy32=7.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=1.
   Else if main11=41.
      compute avy31=1.
      compute avy32=1.
      compute avy33=1.
      compute mainy31=7.
      compute mainy32=7.
      compute mainy33=7.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=42.
      compute avy31=4.
      compute avy32=4.
      compute avy33=4.
      compute mainy31=15.
      compute mainy32=15.
      compute mainy33=15.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=43.
      compute avy31=2.
      compute avy32=2.
      compute avy33=2.
      compute mainy31=8.
      compute mainy32=8.
      compute mainy33=8.
      compute mtravy31=-7.
      compute mtravy32=-7.
     compute mtravy33=-7.
   Else if main11=44.
      compute avy31=3.
      compute avy32=3.
      compute avy33=3.
      compute mainy31=9.
      compute mainy32=9.
      compute mainy33=9.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=45 and (main12=42 or main12=79).
      compute avy31=5.
      compute avy32=5.
      compute avy33=5.
      compute mainy31=64.
      compute mainy32=64.
      compute mainy33=64.
      compute mtravy31=1.
      compute mtravy32=1.
      compute mtravy33=1.
   Else if (main11=46 or main11=47) and (main12=42 or main12=79).
      compute avy31=5.
      compute avy32=5.
      compute avy33=5.
      compute mainy31=64.
      compute mainy32=64.
      compute mainy33=64.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=45.
      compute avy31=5.
      compute avy32=5.
      compute avy33=5.
      compute mainy31=63.
      compute mainy32=63.
      compute mainy33=63.
      compute mtravy31=1.
      compute mtravy32=1.
      compute mtravy33=1.
   Else if main11=46 or main11=47.
      compute avy31=5.
      compute avy32=5.
      compute avy33=5.
      compute mainy31=63.
      compute mainy32=63.
      compute mainy33=63.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=48.
      compute avy31=5.
      compute avy32=5.
      compute avy33=5.
      compute mainy31=11.
      compute mainy32=11.
      compute mainy33=11.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=49.
      compute avy31=1.
      compute avy32=1.
      compute avy33=1.
      compute mainy31=5.
      compute mainy32=5.
      compute mainy33=5.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=50.
      compute avy31=8.
      compute avy32=8.
      compute avy33=8.
      compute mainy31=21.
      compute mainy32=21.
      compute mainy33=21.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=51.
      compute avy31=11.
      compute avy32=11.
      compute avy33=11.
      compute mainy31=28.
      compute mainy32=28.
      compute mainy33=28.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=52.
      compute avy31=11.
      compute avy32=11.
      compute avy33=11.
      compute mainy31=30.
      compute mainy32=30.
      compute mainy33=30.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=53.
      compute avy31=6.
      compute avy32=6.
      compute avy33=6.
      compute mainy31=18.
      compute mainy32=18.
      compute mainy33=18.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=54.
      compute avy31=7.
      compute avy32=7.
      compute avy33=7.
      compute mainy31=20.
      compute mainy32=20.
      compute mainy33=20.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=55.
      compute avy31=8.
      compute avy32=8.
      compute avy33=8.
      compute mainy31=22.
      compute mainy32=22.
      compute mainy33=22.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=56.
      compute avy31=8.
      compute avy32=8.
      compute avy33=8.
      compute mainy31=27.
      compute mainy32=27.
      compute mainy33=27.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=57.
      compute avy31=10.
      compute avy32=10.
      compute avy33=10.
      compute mainy31=24.
      compute mainy32=24.
      compute mainy33=24.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=58.
      compute avy31=12.
      compute avy32=12.
      compute avy33=12.
      compute mainy31=66.
      compute mainy32=66.
      compute mainy33=66.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=59.
      compute avy31=7.
      compute avy32=7.
      compute avy33=13.
      compute mainy31=23.
      compute mainy32=23.
      compute mainy33=4.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=60.
      compute avy31=9.
      compute avy32=9.
      compute avy33=9.
      compute mainy31=46.
      compute mainy32=46.
      compute mainy33=46.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=61.
      compute avy31=33.
      compute avy32=33.
      compute avy33=33.
      compute mainy31=16.
      compute mainy32=16.
      compute mainy33=16.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=62.
      compute avy31=34.
      compute avy32=34.
      compute avy33=34.
      compute mainy31=56.
      compute mainy32=56.
      compute mainy33=56.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=63.
      compute avy31=35.
      compute avy32=35.
      compute avy33=35.
      compute mainy31=56.
      compute mainy32=56.
      compute mainy33=56.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=64.
      compute avy31=40.
      compute avy32=40.
      compute avy33=40.
      compute mainy31=54.
      compute mainy32=54.
      compute mainy33=54.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=65.
      compute avy31=39.
      compute avy32=39.
      compute avy33=39.
      compute mainy31=54.
      compute mainy32=54.
      compute mainy33=54.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=66.
      compute avy31=38.
      compute avy32=38.
      compute avy33=38.
      compute mainy31=48.
      compute mainy32=48.
      compute mainy33=48.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=67.
      compute avy31=37.
      compute avy32=37.
      compute avy33=37.
      compute mainy31=49.
      compute mainy32=49.
      compute mainy33=49.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=68.
      compute avy31=32.
      compute avy32=32.
      compute avy33=32.
      compute mainy31=57.
      compute mainy32=57.
      compute mainy33=57.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=69.
      compute avy31=36.
      compute avy32=36.
      compute avy33=36.
      compute mainy31=55.
      compute mainy32=55.
      compute mainy33=55.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=70.
      compute avy31=25.
      compute avy32=25.
      compute avy33=25.
      compute mainy31=35.
      compute mainy32=35.
      compute mainy33=35.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=71.
      compute avy31=29.
      compute avy32=29.
      compute avy33=29.
      compute mainy31=48.
      compute mainy32=48.
      compute mainy33=48.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=72.
      compute avy31=24.
      compute avy32=24.
      compute avy33=24.
      compute mainy31=37.
      compute mainy32=37.
      compute mainy33=37.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=73.
      compute avy31=23.
      compute avy32=23.
      compute avy33=23.
      compute mainy31=33.
      compute mainy32=33.
      compute mainy33=33.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=74.
      compute avy31=26.
      compute avy32=26.
      compute avy33=26.
      compute mainy31=40.
      compute mainy32=40.
      compute mainy33=40.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=75 or main11=39.
      compute avy31=27.
      compute avy32=27.
      compute avy33=27.
      compute mainy31=39.
      compute mainy32=39.
      compute mainy33=39.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=76.
      compute avy31=25.
      compute avy32=25.
      compute avy33=25.
      compute mainy31=40.
      compute mainy32=40.
      compute mainy33=40.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=77 or main11=38.
      compute avy31=28.
      compute avy32=28.
      compute avy33=28.
      compute mainy31=39.
      compute mainy32=39.
      compute mainy33=39.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=78.
      compute avy31=22.
      compute avy32=22.
      compute avy33=22.
      compute mainy31=34.
      compute mainy32=34.
      compute mainy33=34.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=79.
      compute avy31=4.
      compute avy32=4.
      compute avy33=4.
      compute mainy31=17.
      compute mainy32=17.
      compute mainy33=17.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=80.
      compute avy31=18.
      compute avy32=18.
      compute avy33=18.
      compute mainy31=38.
      compute mainy32=38.
      compute mainy33=38.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=81.
      compute avy31=19.
      compute avy32=19.
      compute avy33=19.
      compute mainy31=42.
      compute mainy32=42.
      compute mainy33=42.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=82.
      compute avy31=20.
      compute avy32=20.
      compute avy33=20.
      compute mainy31=36.
      compute mainy32=36.
      compute mainy33=36.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=83.
      compute avy31=21.
      compute avy32=21.
      compute avy33=21.
      compute mainy31=43.
      compute mainy32=43.
      compute mainy33=43.
      compute mtravy31=3.
      compute mtravy32=3.
      compute mtravy33=3.
   Else if main11=84.
      compute avy31=18.
      compute avy32=18.
      compute avy33=18.
      compute mainy31=45.
      compute mainy32=45.
      compute mainy33=45.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=85 or main11=86.
      compute avy31=18.
      compute avy32=18.
      compute avy33=18.
      compute mainy31=38.
      compute mainy32=38.
      compute mainy33=38.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=89.
      compute avy31=17.
      compute avy32=17.
      compute avy33=17.
      compute mainy31=68.
      compute mainy32=68.
      compute mainy33=68.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=90.
      compute avy31=17.
      compute avy32=17.
      compute avy33=17.
      compute mainy31=62.
      compute mainy32=62.
      compute mainy33=62.
      compute mtravy31=5.
      compute mtravy32=5.
      compute mtravy33=5.
   Else if main11=91.
      compute avy31=40.
      compute avy32=40.
      compute avy33=40.
      compute mainy31=51.
      compute mainy32=51.
      compute mainy33=51.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=92.
      compute avy31=31.
      compute avy32=31.
      compute avy33=31.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=59.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   Else if main11=93.
      compute avy31=41.
      compute avy32=41.
      compute avy33=41.
      compute mainy31=41.
      compute mainy32=41.
      compute mainy33=41.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=-7.
   End if.
Else if mtmark11=1.
   Do if main11=2 and (main12=42 or main12=79).
      compute avy31=16.
      compute avy32=36.
      compute avy33=5.
      compute mainy31=2.
      compute mainy32=55.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=2 and (main12=41 or main12=44).
      compute avy31=16.
      compute avy32=36.
      compute avy33=5.
      compute mainy31=2.
      compute mainy32=55.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=2 and (main12=36 or main12=57).
      compute avy31=16.
      compute avy32=36.
      compute avy33=12.
      compute mainy31=2.
      compute mainy32=55.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=2.
      compute avy31=16.
      compute avy32=36.
      compute avy33=17.
      compute mainy31=2.
      compute mainy32=55.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=3 and (main12=42 or main12=79).
      compute avy31=16.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=2.
      compute mainy32=4.
      compute mainy33=64.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=5. 
   Else if main11=3 and (main12=41 or main12=44).
      compute avy31=16.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=2.
      compute mainy32=4.
      compute mainy33=63.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=5. 
   Else if main11=3 and (main12=36 or main12=57).
      compute avy31=16.
      compute avy32=13.
      compute avy33=12.
      compute mainy31=2.
      compute mainy32=4.
      compute mainy33=67.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=5. 
   Else if main11=3.
      compute avy31=16.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=2.
      compute mainy32=4.
      compute mainy33=63.
      compute mtravy31=-7. 
      compute mtravy32=-7. 
      compute mtravy33=5.
   Else if main11=6 and (main12=41 or main12=44).
      compute avy31=13.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=1.
      compute mainy32=1.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=6 and (main12=42 or main12=79).
      compute avy31=13.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=1.
      compute mainy32=1.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=6 and (main12=36 or main12=57).
      compute avy31=13.
      compute avy32=13.
      compute avy33=12.
      compute mainy31=1.
      compute mainy32=1.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=6.
      compute avy31=13.
      compute avy32=13.
      compute avy33=17.
      compute mainy31=1.
      compute mainy32=1.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>10 and main11<15) and (main12=42 or main12=79).
      compute avy31=30.
      compute avy32=30.
      compute avy33=5.
      compute mainy31=58.
      compute mainy32=58.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>10 and main11<15) and (main12=41 or main12=44).
      compute avy31=30.
      compute avy32=30.
      compute avy33=5.
      compute mainy31=58.
      compute mainy32=58.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>10 and main11<15) and (main12=36 or main12=57).
      compute avy31=30.
      compute avy32=30.
      compute avy33=12.
      compute mainy31=58.
      compute mainy32=58.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11>10 and main11<15.
      compute avy31=30.
      compute avy32=30.
      compute avy33=17.
      compute mainy31=58.
      compute mainy32=58.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>19 and main11<30) and (main12=41 or main12=44).
      compute avy31=31.
      compute avy32=31.
      compute avy33=5.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>19 and main11<30) and (main12=42 or main12=79).
      compute avy31=31.
      compute avy32=31.
      compute avy33=5.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>19 and main11<30) and (main12=36 or main12=57).
      compute avy31=31.
      compute avy32=31.
      compute avy33=12.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11>19 and main11<30.
      compute avy31=31.
      compute avy32=31.
      compute avy33=17.
      compute mainy31=59.
      compute mainy32=59.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>29 and main11<34) and (main12=42 or main12=79).
      compute avy31=13.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=4.
      compute mainy32=4.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>29 and main11<34) and (main12=57 or main12=36).
      compute avy31=13.
      compute avy32=13.
      compute avy33=12.
      compute mainy31=4.
      compute mainy32=4.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>29 and main11<34) and (main12=41 or main12=44 or main12=47).
      compute avy31=13.
      compute avy32=13.
      compute avy33=5.
      compute mainy31=4.
      compute mainy32=4.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if (main11>29 and main11<34).
      compute avy31=13.
      compute avy32=13.
      compute avy33=17.
      compute mainy31=4.
      compute mainy32=4.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=36.
      compute avy31=14.
      compute avy32=14.
      compute avy33=12.
      compute mainy31=25.
      compute mainy32=25.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=41.
      compute avy31=1.
      compute avy32=1.
      compute avy33=5.
      compute mainy31=7.
      compute mainy32=7.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=43 and (main12=42 or main12=79).
      compute avy31=2.
      compute avy32=2.
      compute avy33=5.
      compute mainy31=8.
      compute mainy32=8.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
     compute mtravy33=5.
   Else if main11=43.
      compute avy31=2.
      compute avy32=2.
      compute avy33=5.
      compute mainy31=8.
      compute mainy32=8.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
     compute mtravy33=5.
   Else if main11=44.
      compute avy31=3.
      compute avy32=3.
      compute avy33=5.
      compute mainy31=9.
      compute mainy32=9.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=50 and (main12=41 or main12=44).
      compute avy31=8.
      compute avy32=8.
      compute avy33=5.
      compute mainy31=21.
      compute mainy32=21.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=50 and (main12=42 or main12=79).
      compute avy31=8.
      compute avy32=8.
      compute avy33=5.
      compute mainy31=21.
      compute mainy32=21.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=50 and (main12=57 or main12=36).
      compute avy31=8.
      compute avy32=8.
      compute avy33=12.
      compute mainy31=21.
      compute mainy32=21.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=50.
      compute avy31=8.
      compute avy32=8.
      compute avy33=17.
      compute mainy31=21.
      compute mainy32=21.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=51 and (main12=41 or main12=44 or main12=45).
      compute avy31=11.
      compute avy32=11.
      compute avy33=5.
      compute mainy31=28.
      compute mainy32=28.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=51 and (main12=42 or main12=79).
      compute avy31=11.
      compute avy32=11.
      compute avy33=5.
      compute mainy31=28.
      compute mainy32=28.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=51 and (main12=57 or main12=36).
      compute avy31=11.
      compute avy32=11.
      compute avy33=12.
      compute mainy31=28.
      compute mainy32=28.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=51.
      compute avy31=11.
      compute avy32=11.
      compute avy33=17.
      compute mainy31=28.
      compute mainy32=28.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=53 and (main12=42 or main12=79).
      compute avy31=6.
      compute avy32=6.
      compute avy33=5.
      compute mainy31=18.
      compute mainy32=18.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=53 and (main12=36 or main12=57).
      compute avy31=6.
      compute avy32=6.
      compute avy33=12.
      compute mainy31=18.
      compute mainy32=18.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=53 and (main12=41 or main12=44).
      compute avy31=6.
      compute avy32=6.
      compute avy33=5.
      compute mainy31=18.
      compute mainy32=18.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=53.
      compute avy31=6.
      compute avy32=6.
      compute avy33=17.
      compute mainy31=18.
      compute mainy32=18.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=54 and (main12=36 or main12=57).
      compute avy31=7.
      compute avy32=7.
      compute avy33=12.
      compute mainy31=20.
      compute mainy32=20.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=54 and (main12=41 or main12=44 or main12=47).
      compute avy31=7.
      compute avy32=7.
      compute avy33=5.
      compute mainy31=20.
      compute mainy32=20.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      Do if sec11=45.
         compute mtravy33=1.
      Else.
         compute mtravy33=5.
      End if.
   Else if main11=54 and (main12=42 or main12=79).
      compute avy31=7.
      compute avy32=7.
      compute avy33=5.
      compute mainy31=20.
      compute mainy32=20.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=54.
      compute avy31=7.
      compute avy32=7.
      compute avy33=17.
      compute mainy31=20.
      compute mainy32=20.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=55 and (main12=57 or main12=36).
      compute avy31=8.
      compute avy32=8.
      compute avy33=12.
      compute mainy31=22.
      compute mainy32=22.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=55 and (main12=42 or main12=79).
      compute avy31=8.
      compute avy32=8.
      compute avy33=5.
      compute mainy31=22.
      compute mainy32=22.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=55.
      compute avy31=8.
      compute avy32=8.
      compute avy33=17.
      compute mainy31=22.
      compute mainy32=22.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=56 and (main12=41 or main12=44).
      compute avy31=8.
      compute avy32=8.
      compute avy33=5.
      compute mainy31=27.
      compute mainy32=27.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=56 and (main12=42 or main12=79).
      compute avy31=8.
      compute avy32=8.
      compute avy33=5.
      compute mainy31=27.
      compute mainy32=27.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=56 and (main12=36 or main12=57).
      compute avy31=8.
      compute avy32=8.
      compute avy33=12.
      compute mainy31=27.
      compute mainy32=27.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=56.
      compute avy31=8.
      compute avy32=8.
      compute avy33=17.
      compute mainy31=27.
      compute mainy32=27.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=57 and (main12=41 or main12=44).
      compute avy31=10.
      compute avy32=10.
      compute avy33=5.
      compute mainy31=24.
      compute mainy32=24.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=57 and (main12=42 or main12=79).
      compute avy31=10.
      compute avy32=10.
      compute avy33=5.
      compute mainy31=24.
      compute mainy32=24.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=57 and (main12=36 or main12=57).
      compute avy31=10.
      compute avy32=10.
      compute avy33=12.
      compute mainy31=24.
      compute mainy32=24.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=57.
      compute avy31=10.
      compute avy32=10.
      compute avy33=17.
      compute mainy31=24.
      compute mainy32=24.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=59.
      compute avy31=7.
      compute avy32=7.
      compute avy33=12.
      compute mainy31=23.
      compute mainy32=23.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=66.
      compute avy31=38.
      compute avy32=38.
      compute avy33=12.
      compute mainy31=48.
      compute mainy32=48.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=69 and (main12=41 or main12=44).
      compute avy31=36.
      compute avy32=36.
      compute avy33=5.
      compute mainy31=55.
      compute mainy32=55.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      Do if sec11=45.
         compute mtravy33=1.
      Else.
         compute mtravy33=5.
      End if.
   Else if main11=69 and (main12=36 or main12=57).
      compute avy31=36.
      compute avy32=36.
      compute avy33=12.
      compute mainy31=55.
      compute mainy32=55.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=69.
      compute avy31=36.
      compute avy32=36.
      compute avy33=17.
      compute mainy31=55.
      compute mainy32=55.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=71 and main12=42.
      compute avy31=29.
      compute avy32=29.
      compute avy33=5.
      compute mainy31=48.
      compute mainy32=48.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=71 and main12=41.
      compute avy31=29.
      compute avy32=29.
      compute avy33=5.
      compute mainy31=48.
      compute mainy32=48.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=78 and (main11=41 or main11=44).
      compute avy31=22.
      compute avy32=22.
      compute avy33=5.
      compute mainy31=34.
      compute mainy32=34.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=78.
      compute avy31=22.
      compute avy32=22.
      compute avy33=17.
      compute mainy31=34.
      compute mainy32=34.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=79.
      compute avy31=4.
      compute avy32=4.
      compute avy33=5.
      compute mainy31=17.
      compute mainy32=17.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=91 and (main12=36 or main12=57).
      compute avy31=40.
      compute avy32=40.
      compute avy33=12.
      compute mainy31=51.
      compute mainy32=51.
      compute mainy33=67.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=91 and (main12=41 or main12=44).
      compute avy31=40.
      compute avy32=40.
      compute avy33=5.
      compute mainy31=51.
      compute mainy32=51.
      compute mainy33=63.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=91 and (main12=42 or main12=79).
      compute avy31=40.
      compute avy32=40.
      compute avy33=5.
      compute mainy31=51.
      compute mainy32=51.
      compute mainy33=64.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   Else if main11=91.
      compute avy31=40.
      compute avy32=40.
      compute avy33=17.
      compute mainy31=51.
      compute mainy32=51.
      compute mainy33=68.
      compute mtravy31=-7.
      compute mtravy32=-7.
      compute mtravy33=5.
   End if.
End if.

Do if main11=1 and main12=1 and mtmark11=0.
   compute avy31=16.
   compute avy32=16.
   compute avy33=16.
   compute mainy31=2.
   compute mainy32=2.
   compute mainy33=2.
   compute mtravy31=-7. 
   compute mtravy32=-7. 
   compute mtravy33=-7. 
Else if main11=2 and main12=2 and mtmark11=0.
   compute avy31=16.
   compute avy32=16.
   compute avy33=16.
   compute mainy31=2.
   compute mainy32=2.
   compute mainy33=2.
   compute mtravy31=-7.
   compute mtravy32=-7.
   compute mtravy33=-7.
End if.

freq avy31 avy32 avy33 mainy31 mainy32 mainy33 mtravy31 mtravy32 mtravy33.

*double check that codes are going to the correct categories.

temp.
select if avy31<10.
cro main11 by avy31 avy33.

temp.
select if avy31>9 and avy31<20.
cro main11 by avy31 avy33.

temp.
select if avy31>19 and avy31<30.
cro main11 by avy31 avy33.

temp.
select if avy31>29 and avy31<40.
cro main11 by avy31 avy33.

temp.
select if avy31>39.
cro main11 by avy31 avy33.

temp.
select if mainy31<10.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>9 and mainy31<20.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>19 and mainy31<30.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>29 and mainy31<40.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>39 and mainy31<50.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>49 and mainy31<60.
cro mainy31 mainy33 by main11.

temp.
select if mainy31>59 and mainy31<70.
cro mainy31 mainy33 by main11.

*coding looks good.

*set values for the 12th time slot.
freq mtmark12.
*1257 missing travel cases in time slot 12.

temp.
select if mtmark12=1.
cro main12 by main13.

if main12=83 or main13=83 or main12=63 or main13=63 mtmark12=0.
if main12=34 or main12=38 or main12=62 or main12=67 or main12=81 mtmark12=0.
if main13=34 or main13=38 or main13=62 or main13=67 or main13=81 mtmark12=0.
if main12=main13 mtmark12=0.
if main12=1 or main12=61 or main13=61 or main13=72 or main13=50 mtmark12=0.
if main12=59 and main13>57 mtmark12=0.
if main12=60 or main12=64 or main12=66 or main12=68 or main12=70 or 
   main12=71 or main12=72 or main12=73 mtmark12=0.
*errors fixed, 795 cases remain.

temp.
select if sec12=45.
cro main12 by main13 by mtmark12.

temp.
select if sec12=46 or sec12=47.
cro main12 by main13 by mtmark12.

Do if mtmark12=0.
   Do if main12>95.
      compute avy34=41.
      compute avy35=41.
      compute avy36=41.
      compute mainy34=69.
      compute mainy35=69.
      compute mainy36=69.
      compute mtravy34=-8.
      compute mtravy35=-8.
      compute mtravy36=-8.
   Else if main12=1.
      compute avy34=16.
      compute avy35=16.
      compute avy36=13.
      compute mainy34=2.
      compute mainy35=2.
      compute mainy36=4.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=-7. 
   Else if main12=2.
      compute avy34=16.
      compute avy35=16.
      compute avy36=36.
      compute mainy34=2.
      compute mainy35=2.
      compute mainy36=55.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=3 or main12=4.
      compute avy34=16.
      compute avy35=16.
      compute avy36=16.
      compute mainy34=2.
      compute mainy35=2.
      compute mainy36=2.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=-7. 
   Else if main12=5.
      compute avy34=16.
      compute avy35=16.
      compute avy36=16.
      compute mainy34=3.
      compute mainy35=3.
      compute mainy36=3.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=6.
      compute avy34=13.
      compute avy35=13.
      compute avy36=13.
      compute mainy34=1.
      compute mainy35=1.
      compute mainy36=1.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12>6 and main12<20.
      compute avy34=30.
      compute avy35=30.
      compute avy36=30.
      compute mainy34=58.
      compute mainy35=58.
      compute mainy36=58.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12>19 and main12<30.
      compute avy34=31.
      compute avy35=31.
      compute avy36=31.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=59.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12>29 and main12<34.
      compute avy34=13.
      compute avy35=13.
      compute avy36=13.
      compute mainy34=4.
      compute mainy35=4.
      compute mainy36=4.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=34 and sec12=45.
      compute avy34=15.
      compute avy35=15.
      compute avy36=5.
      compute mainy34=6.
      compute mainy35=6.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=1.
   Else if main12=34 or main12=35 or ((main12=38 or main12=39) and loc12=1).
      compute avy34=15.
      compute avy35=15.
      compute avy36=15.
      compute mainy34=6.
      compute mainy35=6.
      compute mainy36=6.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=36.
      compute avy34=14.
      compute avy35=14.
      compute avy36=14.
      compute mainy34=25.
      compute mainy35=25.
      compute mainy36=25.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=37.
      compute avy34=12.
      compute avy35=12.
      compute avy36=12.
      compute mainy34=67.
      compute mainy35=67.
      compute mainy36=67.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=40.
      compute avy34=1.
      compute avy35=1.
      compute avy36=1.
      compute mainy34=13.
      compute mainy35=13.
      compute mainy36=13.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=41 and sec12=45.
      compute avy34=5.
      compute avy35=1.
      compute avy36=1.
      compute mainy34=63.
      compute mainy35=7.
      compute mainy36=7.
      compute mtravy34=1.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=41.
      compute avy34=1.
      compute avy35=1.
      compute avy36=1.
      compute mainy34=7.
      compute mainy35=7.
      compute mainy36=7.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=42.
      compute avy34=4.
      compute avy35=4.
      compute avy36=4.
      compute mainy34=15.
      compute mainy35=15.
      compute mainy36=15.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=43.
      compute avy34=2.
      compute avy35=2.
      compute avy36=2.
      compute mainy34=8.
      compute mainy35=8.
      compute mainy36=8.
      compute mtravy34=-7.
      compute mtravy35=-7.
     compute mtravy36=-7.
   Else if main12=44.
      compute avy34=3.
      compute avy35=3.
      compute avy36=3.
      compute mainy34=9.
      compute mainy35=9.
      compute mainy36=9.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=45 and (main13=42 or main13=79).
      compute avy34=5.
      compute avy35=5.
      compute avy36=5.
      compute mainy34=64.
      compute mainy35=64.
      compute mainy36=64.
      compute mtravy34=1.
      compute mtravy35=1.
      compute mtravy36=1.
   Else if (main12=46 or main12=47) and (main13=42 or main13=79).
      compute avy34=5.
      compute avy35=5.
      compute avy36=5.
      compute mainy34=64.
      compute mainy35=64.
      compute mainy36=64.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=45.
      compute avy34=5.
      compute avy35=5.
      compute avy36=5.
      compute mainy34=63.
      compute mainy35=63.
      compute mainy36=63.
      compute mtravy34=1.
      compute mtravy35=1.
      compute mtravy36=1.
   Else if main12=46 or main12=47.
      compute avy34=5.
      compute avy35=5.
      compute avy36=5.
      compute mainy34=63.
      compute mainy35=63.
      compute mainy36=63.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=48.
      compute avy34=5.
      compute avy35=5.
      compute avy36=5.
      compute mainy34=11.
      compute mainy35=11.
      compute mainy36=11.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=49.
      compute avy34=1.
      compute avy35=1.
      compute avy36=1.
      compute mainy34=5.
      compute mainy35=5.
      compute mainy36=5.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=50.
      compute avy34=8.
      compute avy35=8.
      compute avy36=8.
      compute mainy34=21.
      compute mainy35=21.
      compute mainy36=21.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=51.
      compute avy34=11.
      compute avy35=11.
      compute avy36=11.
      compute mainy34=28.
      compute mainy35=28.
      compute mainy36=28.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=52.
      compute avy34=11.
      compute avy35=11.
      compute avy36=11.
      compute mainy34=30.
      compute mainy35=30.
      compute mainy36=30.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=53.
      compute avy34=6.
      compute avy35=6.
      compute avy36=6.
      compute mainy34=18.
      compute mainy35=18.
      compute mainy36=18.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=54.
      compute avy34=7.
      compute avy35=7.
      compute avy36=7.
      compute mainy34=20.
      compute mainy35=20.
      compute mainy36=20.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=55.
      compute avy34=8.
      compute avy35=8.
      compute avy36=8.
      compute mainy34=22.
      compute mainy35=22.
      compute mainy36=22.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=56.
      compute avy34=8.
      compute avy35=8.
      compute avy36=8.
      compute mainy34=27.
      compute mainy35=27.
      compute mainy36=27.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=57.
      compute avy34=10.
      compute avy35=10.
      compute avy36=10.
      compute mainy34=24.
      compute mainy35=24.
      compute mainy36=24.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=58.
      compute avy34=12.
      compute avy35=12.
      compute avy36=12.
      compute mainy34=66.
      compute mainy35=66.
      compute mainy36=66.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=59.
      compute avy34=7.
      compute avy35=7.
      compute avy36=13.
      compute mainy34=23.
      compute mainy35=23.
      compute mainy36=4.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=60.
      compute avy34=9.
      compute avy35=9.
      compute avy36=9.
      compute mainy34=46.
      compute mainy35=46.
      compute mainy36=46.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=61.
      compute avy34=33.
      compute avy35=33.
      compute avy36=33.
      compute mainy34=16.
      compute mainy35=16.
      compute mainy36=16.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=62.
      compute avy34=34.
      compute avy35=34.
      compute avy36=34.
      compute mainy34=56.
      compute mainy35=56.
      compute mainy36=56.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=63.
      compute avy34=35.
      compute avy35=35.
      compute avy36=35.
      compute mainy34=56.
      compute mainy35=56.
      compute mainy36=56.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=64.
      compute avy34=40.
      compute avy35=40.
      compute avy36=40.
      compute mainy34=54.
      compute mainy35=54.
      compute mainy36=54.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=65.
      compute avy34=39.
      compute avy35=39.
      compute avy36=39.
      compute mainy34=54.
      compute mainy35=54.
      compute mainy36=54.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=66.
      compute avy34=38.
      compute avy35=38.
      compute avy36=38.
      compute mainy34=48.
      compute mainy35=48.
      compute mainy36=48.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=67.
      compute avy34=37.
      compute avy35=37.
      compute avy36=37.
      compute mainy34=49.
      compute mainy35=49.
      compute mainy36=49.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=68.
      compute avy34=32.
      compute avy35=32.
      compute avy36=32.
      compute mainy34=57.
      compute mainy35=57.
      compute mainy36=57.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=69.
      compute avy34=36.
      compute avy35=36.
      compute avy36=36.
      compute mainy34=55.
      compute mainy35=55.
      compute mainy36=55.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=70.
      compute avy34=25.
      compute avy35=25.
      compute avy36=25.
      compute mainy34=35.
      compute mainy35=35.
      compute mainy36=35.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=71.
      compute avy34=29.
      compute avy35=29.
      compute avy36=29.
      compute mainy34=48.
      compute mainy35=48.
      compute mainy36=48.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=72.
      compute avy34=24.
      compute avy35=24.
      compute avy36=24.
      compute mainy34=37.
      compute mainy35=37.
      compute mainy36=37.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=73.
      compute avy34=23.
      compute avy35=23.
      compute avy36=23.
      compute mainy34=33.
      compute mainy35=33.
      compute mainy36=33.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=74.
      compute avy34=26.
      compute avy35=26.
      compute avy36=26.
      compute mainy34=40.
      compute mainy35=40.
      compute mainy36=40.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=75 or main12=39.
      compute avy34=27.
      compute avy35=27.
      compute avy36=27.
      compute mainy34=39.
      compute mainy35=39.
      compute mainy36=39.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=76.
      compute avy34=25.
      compute avy35=25.
      compute avy36=25.
      compute mainy34=40.
      compute mainy35=40.
      compute mainy36=40.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=77 or main12=38.
      compute avy34=28.
      compute avy35=28.
      compute avy36=28.
      compute mainy34=39.
      compute mainy35=39.
      compute mainy36=39.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=78.
      compute avy34=22.
      compute avy35=22.
      compute avy36=22.
      compute mainy34=34.
      compute mainy35=34.
      compute mainy36=34.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=79.
      compute avy34=4.
      compute avy35=4.
      compute avy36=4.
      compute mainy34=17.
      compute mainy35=17.
      compute mainy36=17.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=80.
      compute avy34=18.
      compute avy35=18.
      compute avy36=18.
      compute mainy34=38.
      compute mainy35=38.
      compute mainy36=38.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=81.
      compute avy34=19.
      compute avy35=19.
      compute avy36=19.
      compute mainy34=42.
      compute mainy35=42.
      compute mainy36=42.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=82.
      compute avy34=20.
      compute avy35=20.
      compute avy36=20.
      compute mainy34=36.
      compute mainy35=36.
      compute mainy36=36.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=83.
      compute avy34=21.
      compute avy35=21.
      compute avy36=21.
      compute mainy34=43.
      compute mainy35=43.
      compute mainy36=43.
      compute mtravy34=3.
      compute mtravy35=3.
      compute mtravy36=3.
   Else if main12=84.
      compute avy34=18.
      compute avy35=18.
      compute avy36=18.
      compute mainy34=45.
      compute mainy35=45.
      compute mainy36=45.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=85 or main12=86.
      compute avy34=18.
      compute avy35=18.
      compute avy36=18.
      compute mainy34=38.
      compute mainy35=38.
      compute mainy36=38.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=89.
      compute avy34=17.
      compute avy35=17.
      compute avy36=17.
      compute mainy34=68.
      compute mainy35=68.
      compute mainy36=68.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=90.
      compute avy34=17.
      compute avy35=17.
      compute avy36=17.
      compute mainy34=62.
      compute mainy35=62.
      compute mainy36=62.
      compute mtravy34=5.
      compute mtravy35=5.
      compute mtravy36=5.
   Else if main12=91.
      compute avy34=40.
      compute avy35=40.
      compute avy36=40.
      compute mainy34=51.
      compute mainy35=51.
      compute mainy36=51.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=92.
      compute avy34=31.
      compute avy35=31.
      compute avy36=31.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=59.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   Else if main12=93.
      compute avy34=41.
      compute avy35=41.
      compute avy36=41.
      compute mainy34=41.
      compute mainy35=41.
      compute mainy36=41.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=-7.
   End if.
Else if mtmark12=1.
   Do if main12=2 and (main13=42 or main13=79).
      compute avy34=16.
      compute avy35=36.
      compute avy36=5.
      compute mainy34=2.
      compute mainy35=55.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=2 and (main13=41 or main13=44).
      compute avy34=16.
      compute avy35=36.
      compute avy36=5.
      compute mainy34=2.
      compute mainy35=55.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=2 and (main13=36 or main13=57).
      compute avy34=16.
      compute avy35=36.
      compute avy36=12.
      compute mainy34=2.
      compute mainy35=55.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=2.
      compute avy34=16.
      compute avy35=36.
      compute avy36=17.
      compute mainy34=2.
      compute mainy35=55.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=3 and (main13=42 or main13=79).
      compute avy34=16.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=2.
      compute mainy35=4.
      compute mainy36=64.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=5. 
   Else if main12=3 and (main13=41 or main13=44).
      compute avy34=16.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=2.
      compute mainy35=4.
      compute mainy36=63.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=5. 
   Else if main12=3 and (main13=36 or main13=57).
      compute avy34=16.
      compute avy35=13.
      compute avy36=12.
      compute mainy34=2.
      compute mainy35=4.
      compute mainy36=67.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=5. 
   Else if main12=3.
      compute avy34=16.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=2.
      compute mainy35=4.
      compute mainy36=63.
      compute mtravy34=-7. 
      compute mtravy35=-7. 
      compute mtravy36=5.
   Else if main12=6 and (main13=41 or main13=44).
      compute avy34=13.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=1.
      compute mainy35=1.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=6 and (main13=42 or main13=79).
      compute avy34=13.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=1.
      compute mainy35=1.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=6 and (main13=36 or main13=57).
      compute avy34=13.
      compute avy35=13.
      compute avy36=12.
      compute mainy34=1.
      compute mainy35=1.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=6.
      compute avy34=13.
      compute avy35=13.
      compute avy36=17.
      compute mainy34=1.
      compute mainy35=1.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>10 and main12<15) and (main13=42 or main13=79).
      compute avy34=30.
      compute avy35=30.
      compute avy36=5.
      compute mainy34=58.
      compute mainy35=58.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>10 and main12<15) and (main13=41 or main13=44).
      compute avy34=30.
      compute avy35=30.
      compute avy36=5.
      compute mainy34=58.
      compute mainy35=58.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>10 and main12<15) and (main13=36 or main13=57).
      compute avy34=30.
      compute avy35=30.
      compute avy36=12.
      compute mainy34=58.
      compute mainy35=58.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12>10 and main12<15.
      compute avy34=30.
      compute avy35=30.
      compute avy36=17.
      compute mainy34=58.
      compute mainy35=58.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>19 and main12<30) and (main13=41 or main13=44).
      compute avy34=31.
      compute avy35=31.
      compute avy36=5.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>19 and main12<30) and (main13=42 or main13=79).
      compute avy34=31.
      compute avy35=31.
      compute avy36=5.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>19 and main12<30) and (main13=36 or main13=57).
      compute avy34=31.
      compute avy35=31.
      compute avy36=12.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12>19 and main12<30.
      compute avy34=31.
      compute avy35=31.
      compute avy36=17.
      compute mainy34=59.
      compute mainy35=59.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>29 and main12<34) and (main13=42 or main13=79).
      compute avy34=13.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=4.
      compute mainy35=4.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>29 and main12<34) and (main13=57 or main13=36).
      compute avy34=13.
      compute avy35=13.
      compute avy36=12.
      compute mainy34=4.
      compute mainy35=4.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>29 and main12<34) and (main13=41 or main13=44 or main13=47).
      compute avy34=13.
      compute avy35=13.
      compute avy36=5.
      compute mainy34=4.
      compute mainy35=4.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if (main12>29 and main12<34).
      compute avy34=13.
      compute avy35=13.
      compute avy36=17.
      compute mainy34=4.
      compute mainy35=4.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=36.
      compute avy34=14.
      compute avy35=14.
      compute avy36=12.
      compute mainy34=25.
      compute mainy35=25.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=41.
      compute avy34=1.
      compute avy35=1.
      compute avy36=5.
      compute mainy34=7.
      compute mainy35=7.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=42.
      compute avy34=4.
      compute avy35=4.
      compute avy36=5.
      compute mainy34=15.
      compute mainy35=15.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=43 and (main13=42 or main13=79).
      compute avy34=2.
      compute avy35=2.
      compute avy36=5.
      compute mainy34=8.
      compute mainy35=8.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
     compute mtravy36=5.
   Else if main12=43.
      compute avy34=2.
      compute avy35=2.
      compute avy36=5.
      compute mainy34=8.
      compute mainy35=8.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
     compute mtravy36=5.
   Else if main12=44.
      compute avy34=3.
      compute avy35=3.
      compute avy36=5.
      compute mainy34=9.
      compute mainy35=9.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=50 and (main13=41 or main13=44).
      compute avy34=8.
      compute avy35=8.
      compute avy36=5.
      compute mainy34=21.
      compute mainy35=21.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=50 and (main13=42 or main13=79).
      compute avy34=8.
      compute avy35=8.
      compute avy36=5.
      compute mainy34=21.
      compute mainy35=21.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=50 and (main13=57 or main13=36).
      compute avy34=8.
      compute avy35=8.
      compute avy36=12.
      compute mainy34=21.
      compute mainy35=21.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=50.
      compute avy34=8.
      compute avy35=8.
      compute avy36=17.
      compute mainy34=21.
      compute mainy35=21.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=51 and (main13=41 or main13=44 or main13=45).
      compute avy34=11.
      compute avy35=11.
      compute avy36=5.
      compute mainy34=28.
      compute mainy35=28.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=51 and (main13=42 or main13=79).
      compute avy34=11.
      compute avy35=11.
      compute avy36=5.
      compute mainy34=28.
      compute mainy35=28.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=51 and (main13=57 or main13=36).
      compute avy34=11.
      compute avy35=11.
      compute avy36=12.
      compute mainy34=28.
      compute mainy35=28.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=51.
      compute avy34=11.
      compute avy35=11.
      compute avy36=17.
      compute mainy34=28.
      compute mainy35=28.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=53 and (main13=42 or main13=79).
      compute avy34=6.
      compute avy35=6.
      compute avy36=5.
      compute mainy34=18.
      compute mainy35=18.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=53 and (main13=36 or main13=57).
      compute avy34=6.
      compute avy35=6.
      compute avy36=12.
      compute mainy34=18.
      compute mainy35=18.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=53 and (main13=41 or main13=44).
      compute avy34=6.
      compute avy35=6.
      compute avy36=5.
      compute mainy34=18.
      compute mainy35=18.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=53.
      compute avy34=6.
      compute avy35=6.
      compute avy36=17.
      compute mainy34=18.
      compute mainy35=18.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=54 and (main13=36 or main13=57).
      compute avy34=7.
      compute avy35=7.
      compute avy36=12.
      compute mainy34=20.
      compute mainy35=20.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=54 and (main13=41 or main13=44 or main13=47).
      compute avy34=7.
      compute avy35=7.
      compute avy36=5.
      compute mainy34=20.
      compute mainy35=20.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=54 and (main13=42 or main13=79).
      compute avy34=7.
      compute avy35=7.
      compute avy36=5.
      compute mainy34=20.
      compute mainy35=20.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=54.
      compute avy34=7.
      compute avy35=7.
      compute avy36=17.
      compute mainy34=20.
      compute mainy35=20.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=55 and (main13=57 or main13=36).
      compute avy34=8.
      compute avy35=8.
      compute avy36=12.
      compute mainy34=22.
      compute mainy35=22.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=55 and (main13=42 or main13=79).
      compute avy34=8.
      compute avy35=8.
      compute avy36=5.
      compute mainy34=22.
      compute mainy35=22.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=55.
      compute avy34=8.
      compute avy35=8.
      compute avy36=17.
      compute mainy34=22.
      compute mainy35=22.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=56 and (main13=41 or main13=44).
      compute avy34=8.
      compute avy35=8.
      compute avy36=5.
      compute mainy34=27.
      compute mainy35=27.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=56 and (main13=42 or main13=79).
      compute avy34=8.
      compute avy35=8.
      compute avy36=5.
      compute mainy34=27.
      compute mainy35=27.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=56 and (main13=36 or main13=57).
      compute avy34=8.
      compute avy35=8.
      compute avy36=12.
      compute mainy34=27.
      compute mainy35=27.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=56.
      compute avy34=8.
      compute avy35=8.
      compute avy36=17.
      compute mainy34=27.
      compute mainy35=27.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=57 and (main13=41 or main13=44).
      compute avy34=10.
      compute avy35=10.
      compute avy36=5.
      compute mainy34=24.
      compute mainy35=24.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=57 and (main13=42 or main13=79).
      compute avy34=10.
      compute avy35=10.
      compute avy36=5.
      compute mainy34=24.
      compute mainy35=24.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=57 and (main13=36 or main13=57).
      compute avy34=10.
      compute avy35=10.
      compute avy36=12.
      compute mainy34=24.
      compute mainy35=24.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=57.
      compute avy34=10.
      compute avy35=10.
      compute avy36=17.
      compute mainy34=24.
      compute mainy35=24.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=59.
      compute avy34=7.
      compute avy35=7.
      compute avy36=12.
      compute mainy34=23.
      compute mainy35=23.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=66.
      compute avy34=38.
      compute avy35=38.
      compute avy36=12.
      compute mainy34=48.
      compute mainy35=48.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=69 and (main13=41 or main13=44).
      compute avy34=36.
      compute avy35=36.
      compute avy36=5.
      compute mainy34=55.
      compute mainy35=55.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=69 and (main13=36 or main13=57).
      compute avy34=36.
      compute avy35=36.
      compute avy36=12.
      compute mainy34=55.
      compute mainy35=55.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=69.
      compute avy34=36.
      compute avy35=36.
      compute avy36=17.
      compute mainy34=55.
      compute mainy35=55.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=71 and main13=42.
      compute avy34=29.
      compute avy35=29.
      compute avy36=5.
      compute mainy34=48.
      compute mainy35=48.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=71 and main13=41.
      compute avy34=29.
      compute avy35=29.
      compute avy36=5.
      compute mainy34=48.
      compute mainy35=48.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=78 and (main12=41 or main12=44).
      compute avy34=22.
      compute avy35=22.
      compute avy36=5.
      compute mainy34=34.
      compute mainy35=34.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=78.
      compute avy34=22.
      compute avy35=22.
      compute avy36=17.
      compute mainy34=34.
      compute mainy35=34.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=79.
      compute avy34=4.
      compute avy35=4.
      compute avy36=5.
      compute mainy34=17.
      compute mainy35=17.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=91 and (main13=36 or main13=57).
      compute avy34=40.
      compute avy35=40.
      compute avy36=12.
      compute mainy34=51.
      compute mainy35=51.
      compute mainy36=67.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=91 and (main13=41 or main13=44).
      compute avy34=40.
      compute avy35=40.
      compute avy36=5.
      compute mainy34=51.
      compute mainy35=51.
      compute mainy36=63.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=91 and (main13=42 or main13=79).
      compute avy34=40.
      compute avy35=40.
      compute avy36=5.
      compute mainy34=51.
      compute mainy35=51.
      compute mainy36=64.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   Else if main12=91.
      compute avy34=40.
      compute avy35=40.
      compute avy36=17.
      compute mainy34=51.
      compute mainy35=51.
      compute mainy36=68.
      compute mtravy34=-7.
      compute mtravy35=-7.
      compute mtravy36=5.
   End if.
End if.

Do if main12=1 and main13=1 and mtmark12=0.
   compute avy34=16.
   compute avy35=16.
   compute avy36=16.
   compute mainy34=2.
   compute mainy35=2.
   compute mainy36=2.
   compute mtravy34=-7. 
   compute mtravy35=-7. 
   compute mtravy36=-7. 
Else if main12=2 and main13=2 and mtmark12=0.
   compute avy34=16.
   compute avy35=16.
   compute avy36=16.
   compute mainy34=2.
   compute mainy35=2.
   compute mainy36=2.
   compute mtravy34=-7.
   compute mtravy35=-7.
   compute mtravy36=-7.
End if.

freq avy34 avy35 avy36 mainy34 mainy35 mainy36 mtravy34 mtravy35 mtravy36.

*set values for the 13th time slot.
freq mtmark13.
*1137 missing travel cases in time slot 13.

temp.
select if mtmark13=1.
cro main13 by main14.

if main13=83 or main14=83 or main13=63 or main14=63 mtmark13=0.
if main13=34 or main13=38 or main13=62 or main13=67 or main13=81 mtmark13=0.
if main14=34 or main14=38 or main14=62 or main14=67 or main14=81 mtmark13=0.
if main13=main14 mtmark13=0.
if main13=1 or main13=61 or main14=61 or main14=72 or main14=50 mtmark13=0.
if main13=59 and main14>57 mtmark13=0.
if main13=60 or main13=64 or main13=66 or main13=68 or main13=70 or 
   main13=71 or main13=72 or main13=73 or main13=35 or main13=52 mtmark13=0.
if main13=84 and main13=52 mtmark12=0.
*errors fixed, 700 cases remain.

temp.
select if sec13=45.
cro main13 by main14 by mtmark13.

temp.
select if sec13=46 or sec13=47.
cro main13 by main14 by mtmark13.

Do if mtmark13=0.
   Do if main13>95.
      compute avy37=41.
      compute avy38=41.
      compute avy39=41.
      compute mainy37=69.
      compute mainy38=69.
      compute mainy39=69.
      compute mtravy37=-8.
      compute mtravy38=-8.
      compute mtravy39=-8.
   Else if main13=1.
      compute avy37=16.
      compute avy38=16.
      compute avy39=13.
      compute mainy37=2.
      compute mainy38=2.
      compute mainy39=4.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=-7. 
   Else if main13=2.
      compute avy37=16.
      compute avy38=16.
      compute avy39=36.
      compute mainy37=2.
      compute mainy38=2.
      compute mainy39=55.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=3 or main13=4.
      compute avy37=16.
      compute avy38=16.
      compute avy39=16.
      compute mainy37=2.
      compute mainy38=2.
      compute mainy39=2.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=-7. 
   Else if main13=5.
      compute avy37=16.
      compute avy38=16.
      compute avy39=16.
      compute mainy37=3.
      compute mainy38=3.
      compute mainy39=3.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=6.
      compute avy37=13.
      compute avy38=13.
      compute avy39=13.
      compute mainy37=1.
      compute mainy38=1.
      compute mainy39=1.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13>6 and main13<20.
      compute avy37=30.
      compute avy38=30.
      compute avy39=30.
      compute mainy37=58.
      compute mainy38=58.
      compute mainy39=58.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13>19 and main13<30.
      compute avy37=31.
      compute avy38=31.
      compute avy39=31.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=59.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13>29 and main13<34.
      compute avy37=13.
      compute avy38=13.
      compute avy39=13.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=4.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=34 and sec13=45.
      compute avy37=15.
      compute avy38=15.
      compute avy39=5.
      compute mainy37=6.
      compute mainy38=6.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=1.
   Else if main13=34 or main13=35 or ((main13=38 or main13=39) and loc13=1).
      compute avy37=15.
      compute avy38=15.
      compute avy39=15.
      compute mainy37=6.
      compute mainy38=6.
      compute mainy39=6.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=36.
      compute avy37=14.
      compute avy38=14.
      compute avy39=14.
      compute mainy37=25.
      compute mainy38=25.
      compute mainy39=25.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=37.
      compute avy37=12.
      compute avy38=12.
      compute avy39=12.
      compute mainy37=67.
      compute mainy38=67.
      compute mainy39=67.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=40.
      compute avy37=1.
      compute avy38=1.
      compute avy39=1.
      compute mainy37=13.
      compute mainy38=13.
      compute mainy39=13.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=41.
      compute avy37=1.
      compute avy38=1.
      compute avy39=1.
      compute mainy37=7.
      compute mainy38=7.
      compute mainy39=7.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=42.
      compute avy37=4.
      compute avy38=4.
      compute avy39=4.
      compute mainy37=15.
      compute mainy38=15.
      compute mainy39=15.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=43.
      compute avy37=2.
      compute avy38=2.
      compute avy39=2.
      compute mainy37=8.
      compute mainy38=8.
      compute mainy39=8.
      compute mtravy37=-7.
      compute mtravy38=-7.
     compute mtravy39=-7.
   Else if main13=44.
      compute avy37=3.
      compute avy38=3.
      compute avy39=3.
      compute mainy37=9.
      compute mainy38=9.
      compute mainy39=9.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=45 and (main14=42 or main14=79).
      compute avy37=5.
      compute avy38=5.
      compute avy39=5.
      compute mainy37=64.
      compute mainy38=64.
      compute mainy39=64.
      compute mtravy37=1.
      compute mtravy38=1.
      compute mtravy39=1.
   Else if (main13=46 or main13=47) and (main14=42 or main14=79).
      compute avy37=5.
      compute avy38=5.
      compute avy39=5.
      compute mainy37=64.
      compute mainy38=64.
      compute mainy39=64.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=45.
      compute avy37=5.
      compute avy38=5.
      compute avy39=5.
      compute mainy37=63.
      compute mainy38=63.
      compute mainy39=63.
      compute mtravy37=1.
      compute mtravy38=1.
      compute mtravy39=1.
   Else if main13=46 or main13=47.
      compute avy37=5.
      compute avy38=5.
      compute avy39=5.
      compute mainy37=63.
      compute mainy38=63.
      compute mainy39=63.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=48.
      compute avy37=5.
      compute avy38=5.
      compute avy39=5.
      compute mainy37=11.
      compute mainy38=11.
      compute mainy39=11.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=49.
      compute avy37=1.
      compute avy38=1.
      compute avy39=1.
      compute mainy37=5.
      compute mainy38=5.
      compute mainy39=5.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=50.
      compute avy37=8.
      compute avy38=8.
      compute avy39=8.
      compute mainy37=21.
      compute mainy38=21.
      compute mainy39=21.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=51.
      compute avy37=11.
      compute avy38=11.
      compute avy39=11.
      compute mainy37=28.
      compute mainy38=28.
      compute mainy39=28.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=52.
      compute avy37=11.
      compute avy38=11.
      compute avy39=11.
      compute mainy37=30.
      compute mainy38=30.
      compute mainy39=30.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=53.
      compute avy37=6.
      compute avy38=6.
      compute avy39=6.
      compute mainy37=18.
      compute mainy38=18.
      compute mainy39=18.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=54.
      compute avy37=7.
      compute avy38=7.
      compute avy39=7.
      compute mainy37=20.
      compute mainy38=20.
      compute mainy39=20.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=55.
      compute avy37=8.
      compute avy38=8.
      compute avy39=8.
      compute mainy37=22.
      compute mainy38=22.
      compute mainy39=22.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=56.
      compute avy37=8.
      compute avy38=8.
      compute avy39=8.
      compute mainy37=27.
      compute mainy38=27.
      compute mainy39=27.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=57.
      compute avy37=10.
      compute avy38=10.
      compute avy39=10.
      compute mainy37=24.
      compute mainy38=24.
      compute mainy39=24.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=58.
      compute avy37=12.
      compute avy38=12.
      compute avy39=12.
      compute mainy37=66.
      compute mainy38=66.
      compute mainy39=66.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=59.
      compute avy37=7.
      compute avy38=7.
      compute avy39=13.
      compute mainy37=23.
      compute mainy38=23.
      compute mainy39=4.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=60.
      compute avy37=9.
      compute avy38=9.
      compute avy39=9.
      compute mainy37=46.
      compute mainy38=46.
      compute mainy39=46.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=61.
      compute avy37=33.
      compute avy38=33.
      compute avy39=33.
      compute mainy37=16.
      compute mainy38=16.
      compute mainy39=16.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=62.
      compute avy37=34.
      compute avy38=34.
      compute avy39=34.
      compute mainy37=56.
      compute mainy38=56.
      compute mainy39=56.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=63.
      compute avy37=35.
      compute avy38=35.
      compute avy39=35.
      compute mainy37=56.
      compute mainy38=56.
      compute mainy39=56.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=64.
      compute avy37=40.
      compute avy38=40.
      compute avy39=40.
      compute mainy37=54.
      compute mainy38=54.
      compute mainy39=54.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=65.
      compute avy37=39.
      compute avy38=39.
      compute avy39=39.
      compute mainy37=54.
      compute mainy38=54.
      compute mainy39=54.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=66.
      compute avy37=38.
      compute avy38=38.
      compute avy39=38.
      compute mainy37=48.
      compute mainy38=48.
      compute mainy39=48.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=67.
      compute avy37=37.
      compute avy38=37.
      compute avy39=37.
      compute mainy37=49.
      compute mainy38=49.
      compute mainy39=49.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=68.
      compute avy37=32.
      compute avy38=32.
      compute avy39=32.
      compute mainy37=57.
      compute mainy38=57.
      compute mainy39=57.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=69.
      compute avy37=36.
      compute avy38=36.
      compute avy39=36.
      compute mainy37=55.
      compute mainy38=55.
      compute mainy39=55.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=70.
      compute avy37=25.
      compute avy38=25.
      compute avy39=25.
      compute mainy37=35.
      compute mainy38=35.
      compute mainy39=35.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=71.
      compute avy37=29.
      compute avy38=29.
      compute avy39=29.
      compute mainy37=48.
      compute mainy38=48.
      compute mainy39=48.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=72.
      compute avy37=24.
      compute avy38=24.
      compute avy39=24.
      compute mainy37=37.
      compute mainy38=37.
      compute mainy39=37.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=73.
      compute avy37=23.
      compute avy38=23.
      compute avy39=23.
      compute mainy37=33.
      compute mainy38=33.
      compute mainy39=33.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=74.
      compute avy37=26.
      compute avy38=26.
      compute avy39=26.
      compute mainy37=40.
      compute mainy38=40.
      compute mainy39=40.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=75 or main13=39.
      compute avy37=27.
      compute avy38=27.
      compute avy39=27.
      compute mainy37=39.
      compute mainy38=39.
      compute mainy39=39.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=76.
      compute avy37=25.
      compute avy38=25.
      compute avy39=25.
      compute mainy37=40.
      compute mainy38=40.
      compute mainy39=40.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=77 or main13=38.
      compute avy37=28.
      compute avy38=28.
      compute avy39=28.
      compute mainy37=39.
      compute mainy38=39.
      compute mainy39=39.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=78.
      compute avy37=22.
      compute avy38=22.
      compute avy39=22.
      compute mainy37=34.
      compute mainy38=34.
      compute mainy39=34.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=79.
      compute avy37=4.
      compute avy38=4.
      compute avy39=4.
      compute mainy37=17.
      compute mainy38=17.
      compute mainy39=17.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=80.
      compute avy37=18.
      compute avy38=18.
      compute avy39=18.
      compute mainy37=38.
      compute mainy38=38.
      compute mainy39=38.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=81.
      compute avy37=19.
      compute avy38=19.
      compute avy39=19.
      compute mainy37=42.
      compute mainy38=42.
      compute mainy39=42.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=82.
      compute avy37=20.
      compute avy38=20.
      compute avy39=20.
      compute mainy37=36.
      compute mainy38=36.
      compute mainy39=36.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=83.
      compute avy37=21.
      compute avy38=21.
      compute avy39=21.
      compute mainy37=43.
      compute mainy38=43.
      compute mainy39=43.
      compute mtravy37=3.
      compute mtravy38=3.
      compute mtravy39=3.
   Else if main13=84.
      compute avy37=18.
      compute avy38=18.
      compute avy39=18.
      compute mainy37=45.
      compute mainy38=45.
      compute mainy39=45.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=85 or main13=86.
      compute avy37=18.
      compute avy38=18.
      compute avy39=18.
      compute mainy37=38.
      compute mainy38=38.
      compute mainy39=38.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=89.
      compute avy37=17.
      compute avy38=17.
      compute avy39=17.
      compute mainy37=68.
      compute mainy38=68.
      compute mainy39=68.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=90.
      compute avy37=17.
      compute avy38=17.
      compute avy39=17.
      compute mainy37=62.
      compute mainy38=62.
      compute mainy39=62.
      compute mtravy37=5.
      compute mtravy38=5.
      compute mtravy39=5.
   Else if main13=91.
      compute avy37=40.
      compute avy38=40.
      compute avy39=40.
      compute mainy37=51.
      compute mainy38=51.
      compute mainy39=51.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=92.
      compute avy37=31.
      compute avy38=31.
      compute avy39=31.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=59.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   Else if main13=93.
      compute avy37=41.
      compute avy38=41.
      compute avy39=41.
      compute mainy37=41.
      compute mainy38=41.
      compute mainy39=41.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=-7.
   End if.
Else if mtmark13=1.
   Do if main13=2 and (main14=42 or main14=79).
      compute avy37=16.
      compute avy38=36.
      compute avy39=5.
      compute mainy37=2.
      compute mainy38=55.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=2 and (main14=41 or main14=44).
      compute avy37=16.
      compute avy38=36.
      compute avy39=5.
      compute mainy37=2.
      compute mainy38=55.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=2 and (main14=36 or main14=57).
      compute avy37=16.
      compute avy38=36.
      compute avy39=12.
      compute mainy37=2.
      compute mainy38=55.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=2.
      compute avy37=16.
      compute avy38=36.
      compute avy39=17.
      compute mainy37=2.
      compute mainy38=55.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=3 and (main14=42 or main14=79).
      compute avy37=16.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=2.
      compute mainy38=4.
      compute mainy39=64.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=5. 
   Else if main13=3 and (main14=41 or main14=44).
      compute avy37=16.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=2.
      compute mainy38=4.
      compute mainy39=63.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=5. 
   Else if main13=3 and (main14=36 or main14=57).
      compute avy37=16.
      compute avy38=13.
      compute avy39=12.
      compute mainy37=2.
      compute mainy38=4.
      compute mainy39=67.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=5. 
   Else if main13=3.
      compute avy37=16.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=2.
      compute mainy38=4.
      compute mainy39=63.
      compute mtravy37=-7. 
      compute mtravy38=-7. 
      compute mtravy39=5.
   Else if main13=6 and (main14=41 or main14=44).
      compute avy37=13.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=1.
      compute mainy38=1.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=6 and (main14=42 or main14=79).
      compute avy37=13.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=1.
      compute mainy38=1.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=6 and (main14=36 or main14=57).
      compute avy37=13.
      compute avy38=13.
      compute avy39=12.
      compute mainy37=1.
      compute mainy38=1.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=6.
      compute avy37=13.
      compute avy38=13.
      compute avy39=17.
      compute mainy37=1.
      compute mainy38=1.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>10 and main13<15) and (main14=42 or main14=79).
      compute avy37=30.
      compute avy38=30.
      compute avy39=5.
      compute mainy37=58.
      compute mainy38=58.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>10 and main13<15) and (main14=41 or main14=44).
      compute avy37=30.
      compute avy38=30.
      compute avy39=5.
      compute mainy37=58.
      compute mainy38=58.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>10 and main13<15) and (main14=36 or main14=57).
      compute avy37=30.
      compute avy38=30.
      compute avy39=12.
      compute mainy37=58.
      compute mainy38=58.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13>10 and main13<15.
      compute avy37=30.
      compute avy38=30.
      compute avy39=17.
      compute mainy37=58.
      compute mainy38=58.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>19 and main13<30) and (main14=41 or main14=44).
      compute avy37=31.
      compute avy38=31.
      compute avy39=5.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>19 and main13<30) and (main14=42 or main14=79).
      compute avy37=31.
      compute avy38=31.
      compute avy39=5.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>19 and main13<30) and (main14=36 or main14=57).
      compute avy37=31.
      compute avy38=31.
      compute avy39=12.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13>19 and main13<30.
      compute avy37=31.
      compute avy38=31.
      compute avy39=17.
      compute mainy37=59.
      compute mainy38=59.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>29 and main13<34) and sec14=45.
      compute avy37=13.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=1.
   Else if (main13>29 and main13<34) and (main14=42 or main14=79).
      compute avy37=13.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>29 and main13<34) and (main14=57 or main14=36).
      compute avy37=13.
      compute avy38=13.
      compute avy39=12.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>29 and main13<34) and (main14=41 or main14=44 or main14=47).
      compute avy37=13.
      compute avy38=13.
      compute avy39=5.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if (main13>29 and main13<34).
      compute avy37=13.
      compute avy38=13.
      compute avy39=17.
      compute mainy37=4.
      compute mainy38=4.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=36.
      compute avy37=14.
      compute avy38=14.
      compute avy39=12.
      compute mainy37=25.
      compute mainy38=25.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=41.
      compute avy37=1.
      compute avy38=1.
      compute avy39=5.
      compute mainy37=7.
      compute mainy38=7.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=42.
      compute avy37=4.
      compute avy38=4.
      compute avy39=5.
      compute mainy37=15.
      compute mainy38=15.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=43 and (main14=42 or main14=79).
      compute avy37=2.
      compute avy38=2.
      compute avy39=5.
      compute mainy37=8.
      compute mainy38=8.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
     compute mtravy39=5.
   Else if main13=43.
      compute avy37=2.
      compute avy38=2.
      compute avy39=5.
      compute mainy37=8.
      compute mainy38=8.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
     compute mtravy39=5.
   Else if main13=44.
      compute avy37=3.
      compute avy38=3.
      compute avy39=5.
      compute mainy37=9.
      compute mainy38=9.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=50 and (main14=41 or main14=44).
      compute avy37=8.
      compute avy38=8.
      compute avy39=5.
      compute mainy37=21.
      compute mainy38=21.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=50 and (main14=42 or main14=79).
      compute avy37=8.
      compute avy38=8.
      compute avy39=5.
      compute mainy37=21.
      compute mainy38=21.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=50 and (main14=57 or main14=36).
      compute avy37=8.
      compute avy38=8.
      compute avy39=12.
      compute mainy37=21.
      compute mainy38=21.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=50.
      compute avy37=8.
      compute avy38=8.
      compute avy39=17.
      compute mainy37=21.
      compute mainy38=21.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=51 and (main14=41 or main14=44 or main14=45).
      compute avy37=11.
      compute avy38=11.
      compute avy39=5.
      compute mainy37=28.
      compute mainy38=28.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=51 and (main14=42 or main14=79).
      compute avy37=11.
      compute avy38=11.
      compute avy39=5.
      compute mainy37=28.
      compute mainy38=28.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=51 and (main14=57 or main14=36).
      compute avy37=11.
      compute avy38=11.
      compute avy39=12.
      compute mainy37=28.
      compute mainy38=28.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=51.
      compute avy37=11.
      compute avy38=11.
      compute avy39=17.
      compute mainy37=28.
      compute mainy38=28.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=53 and (main14=42 or main14=79).
      compute avy37=6.
      compute avy38=6.
      compute avy39=5.
      compute mainy37=18.
      compute mainy38=18.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=53 and (main14=36 or main14=57).
      compute avy37=6.
      compute avy38=6.
      compute avy39=12.
      compute mainy37=18.
      compute mainy38=18.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=53 and (main14=41 or main14=44).
      compute avy37=6.
      compute avy38=6.
      compute avy39=5.
      compute mainy37=18.
      compute mainy38=18.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=53.
      compute avy37=6.
      compute avy38=6.
      compute avy39=17.
      compute mainy37=18.
      compute mainy38=18.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=54 and (main14=36 or main14=57).
      compute avy37=7.
      compute avy38=7.
      compute avy39=12.
      compute mainy37=20.
      compute mainy38=20.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=54 and (main14=41 or main14=44 or main14=47).
      compute avy37=7.
      compute avy38=7.
      compute avy39=5.
      compute mainy37=20.
      compute mainy38=20.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=54 and (main14=42 or main14=79).
      compute avy37=7.
      compute avy38=7.
      compute avy39=5.
      compute mainy37=20.
      compute mainy38=20.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=54.
      compute avy37=7.
      compute avy38=7.
      compute avy39=17.
      compute mainy37=20.
      compute mainy38=20.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=55 and (main14=57 or main14=36).
      compute avy37=8.
      compute avy38=8.
      compute avy39=12.
      compute mainy37=22.
      compute mainy38=22.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=55 and (main14=42 or main14=79).
      compute avy37=8.
      compute avy38=8.
      compute avy39=5.
      compute mainy37=22.
      compute mainy38=22.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=55.
      compute avy37=8.
      compute avy38=8.
      compute avy39=17.
      compute mainy37=22.
      compute mainy38=22.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=56 and (main14=41 or main14=44).
      compute avy37=8.
      compute avy38=8.
      compute avy39=5.
      compute mainy37=27.
      compute mainy38=27.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=56 and (main14=42 or main14=79).
      compute avy37=8.
      compute avy38=8.
      compute avy39=5.
      compute mainy37=27.
      compute mainy38=27.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=56 and (main14=36 or main14=57).
      compute avy37=8.
      compute avy38=8.
      compute avy39=12.
      compute mainy37=27.
      compute mainy38=27.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=56.
      compute avy37=8.
      compute avy38=8.
      compute avy39=17.
      compute mainy37=27.
      compute mainy38=27.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=57 and (main14=41 or main14=44).
      compute avy37=10.
      compute avy38=10.
      compute avy39=5.
      compute mainy37=24.
      compute mainy38=24.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=57 and (main14=42 or main14=79).
      compute avy37=10.
      compute avy38=10.
      compute avy39=5.
      compute mainy37=24.
      compute mainy38=24.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=57 and (main14=36 or main14=57).
      compute avy37=10.
      compute avy38=10.
      compute avy39=12.
      compute mainy37=24.
      compute mainy38=24.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=57.
      compute avy37=10.
      compute avy38=10.
      compute avy39=17.
      compute mainy37=24.
      compute mainy38=24.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=59.
      compute avy37=7.
      compute avy38=7.
      compute avy39=12.
      compute mainy37=23.
      compute mainy38=23.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=66.
      compute avy37=38.
      compute avy38=38.
      compute avy39=12.
      compute mainy37=48.
      compute mainy38=48.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=69 and (main14=41 or main14=44).
      compute avy37=36.
      compute avy38=36.
      compute avy39=5.
      compute mainy37=55.
      compute mainy38=55.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=69 and (main14=36 or main14=57).
      compute avy37=36.
      compute avy38=36.
      compute avy39=12.
      compute mainy37=55.
      compute mainy38=55.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=69.
      compute avy37=36.
      compute avy38=36.
      compute avy39=17.
      compute mainy37=55.
      compute mainy38=55.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=71 and main14=42.
      compute avy37=29.
      compute avy38=29.
      compute avy39=5.
      compute mainy37=48.
      compute mainy38=48.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=71 and main14=41.
      compute avy37=29.
      compute avy38=29.
      compute avy39=5.
      compute mainy37=48.
      compute mainy38=48.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=78 and (main13=41 or main13=44).
      compute avy37=22.
      compute avy38=22.
      compute avy39=5.
      compute mainy37=34.
      compute mainy38=34.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=78.
      compute avy37=22.
      compute avy38=22.
      compute avy39=17.
      compute mainy37=34.
      compute mainy38=34.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=79.
      compute avy37=4.
      compute avy38=4.
      compute avy39=5.
      compute mainy37=17.
      compute mainy38=17.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=82.
      compute avy37=20.
      compute avy38=20.
      compute avy39=17.
      compute mainy37=36.
      compute mainy38=36.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=84.
      compute avy37=18.
      compute avy38=18.
      compute avy39=17.
      compute mainy37=45.
      compute mainy38=45.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=85 or main13=86.
      compute avy37=18.
      compute avy38=18.
      compute avy39=17.
      compute mainy37=38.
      compute mainy38=38.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=91 and (main14=36 or main14=57).
      compute avy37=40.
      compute avy38=40.
      compute avy39=12.
      compute mainy37=51.
      compute mainy38=51.
      compute mainy39=67.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=91 and (main14=41 or main14=44).
      compute avy37=40.
      compute avy38=40.
      compute avy39=5.
      compute mainy37=51.
      compute mainy38=51.
      compute mainy39=63.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=91 and (main14=42 or main14=79).
      compute avy37=40.
      compute avy38=40.
      compute avy39=5.
      compute mainy37=51.
      compute mainy38=51.
      compute mainy39=64.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   Else if main13=91.
      compute avy37=40.
      compute avy38=40.
      compute avy39=17.
      compute mainy37=51.
      compute mainy38=51.
      compute mainy39=68.
      compute mtravy37=-7.
      compute mtravy38=-7.
      compute mtravy39=5.
   End if.
End if.

Do if main13=1 and main14=1 and mtmark13=0.
   compute avy37=16.
   compute avy38=16.
   compute avy39=16.
   compute mainy37=2.
   compute mainy38=2.
   compute mainy39=2.
   compute mtravy37=-7. 
   compute mtravy38=-7. 
   compute mtravy39=-7. 
Else if main13=2 and main14=2 and mtmark13=0.
   compute avy37=16.
   compute avy38=16.
   compute avy39=16.
   compute mainy37=2.
   compute mainy38=2.
   compute mainy39=2.
   compute mtravy37=-7.
   compute mtravy38=-7.
   compute mtravy39=-7.
End if.

freq avy37 avy38 avy39 mainy37 mainy38 mainy39 mtravy37 mtravy38 mtravy39.

*set values for the 14th time slot.
freq mtmark14.
*1321 missing travel cases in time slot 14.

temp.
select if mtmark14=1.
cro main14 by main15.

if main14=83 or main15=83 or main14=63 or main15=63 mtmark14=0.
if main14=34 or main14=38 or main14=62 or main14=67 or main14=81 mtmark14=0.
if main15=34 or main15=38 or main15=62 or main15=67 or main15=81 mtmark14=0.
if main14=main15 mtmark14=0.
if main14=1 or main14=61 or main15=61 or main15=72 or main15=50 mtmark14=0.
if main14=59 and main15>57 mtmark14=0.
if main14=60 or main14=64 or main14=66 or main14=68 or main14=70 or 
   main14=71 or main14=72 or main14=73 or main14=35 or main14=52 or 
   main14=65 or main14=74 or main14=80 mtmark14=0.
if main14=84 and main14=52 mtmark12=0.
*errors fixed, 845 cases remain.

temp.
select if sec14=45.
cro main14 by main15 by mtmark14.

temp.
select if sec14=46 or sec14=47.
cro main14 by main15 by mtmark14.

Do if mtmark14=0.
   Do if main14>95.
      compute avy40=41.
      compute avy41=41.
      compute avy42=41.
      compute mainy40=69.
      compute mainy41=69.
      compute mainy42=69.
      compute mtravy40=-8.
      compute mtravy41=-8.
      compute mtravy42=-8.
   Else if main14=1.
      compute avy40=16.
      compute avy41=16.
      compute avy42=13.
      compute mainy40=2.
      compute mainy41=2.
      compute mainy42=4.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=-7. 
   Else if main14=2.
      compute avy40=16.
      compute avy41=16.
      compute avy42=36.
      compute mainy40=2.
      compute mainy41=2.
      compute mainy42=55.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=3 or main14=4.
      compute avy40=16.
      compute avy41=16.
      compute avy42=16.
      compute mainy40=2.
      compute mainy41=2.
      compute mainy42=2.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=-7. 
   Else if main14=5.
      compute avy40=16.
      compute avy41=16.
      compute avy42=16.
      compute mainy40=3.
      compute mainy41=3.
      compute mainy42=3.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=6.
      compute avy40=13.
      compute avy41=13.
      compute avy42=13.
      compute mainy40=1.
      compute mainy41=1.
      compute mainy42=1.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14>6 and main14<20.
      compute avy40=30.
      compute avy41=30.
      compute avy42=30.
      compute mainy40=58.
      compute mainy41=58.
      compute mainy42=58.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14>19 and main14<30.
      compute avy40=31.
      compute avy41=31.
      compute avy42=31.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=59.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14>29 and main14<34.
      compute avy40=13.
      compute avy41=13.
      compute avy42=13.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=4.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=35 and (sec14=46 or sec14=47).
      compute avy40=15.
      compute avy41=15.
      compute avy42=5.
      compute mainy40=6.
      compute mainy41=6.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=34 or main14=35 or ((main14=38 or main14=39) and loc14=1).
      compute avy40=15.
      compute avy41=15.
      compute avy42=15.
      compute mainy40=6.
      compute mainy41=6.
      compute mainy42=6.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=36.
      compute avy40=14.
      compute avy41=14.
      compute avy42=14.
      compute mainy40=25.
      compute mainy41=25.
      compute mainy42=25.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=37.
      compute avy40=12.
      compute avy41=12.
      compute avy42=12.
      compute mainy40=67.
      compute mainy41=67.
      compute mainy42=67.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=40.
      compute avy40=1.
      compute avy41=1.
      compute avy42=1.
      compute mainy40=13.
      compute mainy41=13.
      compute mainy42=13.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=41.
      compute avy40=1.
      compute avy41=1.
      compute avy42=1.
      compute mainy40=7.
      compute mainy41=7.
      compute mainy42=7.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=42.
      compute avy40=4.
      compute avy41=4.
      compute avy42=4.
      compute mainy40=15.
      compute mainy41=15.
      compute mainy42=15.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=43.
      compute avy40=2.
      compute avy41=2.
      compute avy42=2.
      compute mainy40=8.
      compute mainy41=8.
      compute mainy42=8.
      compute mtravy40=-7.
      compute mtravy41=-7.
     compute mtravy42=-7.
   Else if main14=44.
      compute avy40=3.
      compute avy41=3.
      compute avy42=3.
      compute mainy40=9.
      compute mainy41=9.
      compute mainy42=9.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=45 and (main15=42 or main15=79).
      compute avy40=5.
      compute avy41=5.
      compute avy42=5.
      compute mainy40=64.
      compute mainy41=64.
      compute mainy42=64.
      compute mtravy40=1.
      compute mtravy41=1.
      compute mtravy42=1.
   Else if (main14=46 or main14=47) and (main15=42 or main15=79).
      compute avy40=5.
      compute avy41=5.
      compute avy42=5.
      compute mainy40=64.
      compute mainy41=64.
      compute mainy42=64.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=45.
      compute avy40=5.
      compute avy41=5.
      compute avy42=5.
      compute mainy40=63.
      compute mainy41=63.
      compute mainy42=63.
      compute mtravy40=1.
      compute mtravy41=1.
      compute mtravy42=1.
   Else if main14=46 or main14=47.
      compute avy40=5.
      compute avy41=5.
      compute avy42=5.
      compute mainy40=63.
      compute mainy41=63.
      compute mainy42=63.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=48.
      compute avy40=5.
      compute avy41=5.
      compute avy42=5.
      compute mainy40=11.
      compute mainy41=11.
      compute mainy42=11.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=49.
      compute avy40=1.
      compute avy41=1.
      compute avy42=1.
      compute mainy40=5.
      compute mainy41=5.
      compute mainy42=5.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=50.
      compute avy40=8.
      compute avy41=8.
      compute avy42=8.
      compute mainy40=21.
      compute mainy41=21.
      compute mainy42=21.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=51.
      compute avy40=11.
      compute avy41=11.
      compute avy42=11.
      compute mainy40=28.
      compute mainy41=28.
      compute mainy42=28.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=52.
      compute avy40=11.
      compute avy41=11.
      compute avy42=11.
      compute mainy40=30.
      compute mainy41=30.
      compute mainy42=30.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=53.
      compute avy40=6.
      compute avy41=6.
      compute avy42=6.
      compute mainy40=18.
      compute mainy41=18.
      compute mainy42=18.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=54.
      compute avy40=7.
      compute avy41=7.
      compute avy42=7.
      compute mainy40=20.
      compute mainy41=20.
      compute mainy42=20.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=55.
      compute avy40=8.
      compute avy41=8.
      compute avy42=8.
      compute mainy40=22.
      compute mainy41=22.
      compute mainy42=22.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=56.
      compute avy40=8.
      compute avy41=8.
      compute avy42=8.
      compute mainy40=27.
      compute mainy41=27.
      compute mainy42=27.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=57.
      compute avy40=10.
      compute avy41=10.
      compute avy42=10.
      compute mainy40=24.
      compute mainy41=24.
      compute mainy42=24.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=58.
      compute avy40=12.
      compute avy41=12.
      compute avy42=12.
      compute mainy40=66.
      compute mainy41=66.
      compute mainy42=66.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=59.
      compute avy40=7.
      compute avy41=7.
      compute avy42=13.
      compute mainy40=23.
      compute mainy41=23.
      compute mainy42=4.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=60.
      compute avy40=9.
      compute avy41=9.
      compute avy42=9.
      compute mainy40=46.
      compute mainy41=46.
      compute mainy42=46.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=61.
      compute avy40=33.
      compute avy41=33.
      compute avy42=33.
      compute mainy40=16.
      compute mainy41=16.
      compute mainy42=16.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=62.
      compute avy40=34.
      compute avy41=34.
      compute avy42=34.
      compute mainy40=56.
      compute mainy41=56.
      compute mainy42=56.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=63.
      compute avy40=35.
      compute avy41=35.
      compute avy42=35.
      compute mainy40=56.
      compute mainy41=56.
      compute mainy42=56.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=64.
      compute avy40=40.
      compute avy41=40.
      compute avy42=40.
      compute mainy40=54.
      compute mainy41=54.
      compute mainy42=54.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=65.
      compute avy40=39.
      compute avy41=39.
      compute avy42=39.
      compute mainy40=54.
      compute mainy41=54.
      compute mainy42=54.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=66.
      compute avy40=38.
      compute avy41=38.
      compute avy42=38.
      compute mainy40=48.
      compute mainy41=48.
      compute mainy42=48.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=67.
      compute avy40=37.
      compute avy41=37.
      compute avy42=37.
      compute mainy40=49.
      compute mainy41=49.
      compute mainy42=49.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=68.
      compute avy40=32.
      compute avy41=32.
      compute avy42=32.
      compute mainy40=57.
      compute mainy41=57.
      compute mainy42=57.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=69.
      compute avy40=36.
      compute avy41=36.
      compute avy42=36.
      compute mainy40=55.
      compute mainy41=55.
      compute mainy42=55.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=70.
      compute avy40=25.
      compute avy41=25.
      compute avy42=25.
      compute mainy40=35.
      compute mainy41=35.
      compute mainy42=35.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=71.
      compute avy40=29.
      compute avy41=29.
      compute avy42=29.
      compute mainy40=48.
      compute mainy41=48.
      compute mainy42=48.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=72.
      compute avy40=24.
      compute avy41=24.
      compute avy42=24.
      compute mainy40=37.
      compute mainy41=37.
      compute mainy42=37.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=73.
      compute avy40=23.
      compute avy41=23.
      compute avy42=23.
      compute mainy40=33.
      compute mainy41=33.
      compute mainy42=33.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=74.
      compute avy40=26.
      compute avy41=26.
      compute avy42=26.
      compute mainy40=40.
      compute mainy41=40.
      compute mainy42=40.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=75 or main14=39.
      compute avy40=27.
      compute avy41=27.
      compute avy42=27.
      compute mainy40=39.
      compute mainy41=39.
      compute mainy42=39.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=76.
      compute avy40=25.
      compute avy41=25.
      compute avy42=25.
      compute mainy40=40.
      compute mainy41=40.
      compute mainy42=40.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=77 or main14=38.
      compute avy40=28.
      compute avy41=28.
      compute avy42=28.
      compute mainy40=39.
      compute mainy41=39.
      compute mainy42=39.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=78.
      compute avy40=22.
      compute avy41=22.
      compute avy42=22.
      compute mainy40=34.
      compute mainy41=34.
      compute mainy42=34.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=79.
      compute avy40=4.
      compute avy41=4.
      compute avy42=4.
      compute mainy40=17.
      compute mainy41=17.
      compute mainy42=17.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=80.
      compute avy40=18.
      compute avy41=18.
      compute avy42=18.
      compute mainy40=38.
      compute mainy41=38.
      compute mainy42=38.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=81.
      compute avy40=19.
      compute avy41=19.
      compute avy42=19.
      compute mainy40=42.
      compute mainy41=42.
      compute mainy42=42.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=82.
      compute avy40=20.
      compute avy41=20.
      compute avy42=20.
      compute mainy40=36.
      compute mainy41=36.
      compute mainy42=36.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=83.
      compute avy40=21.
      compute avy41=21.
      compute avy42=21.
      compute mainy40=43.
      compute mainy41=43.
      compute mainy42=43.
      compute mtravy40=3.
      compute mtravy41=3.
      compute mtravy42=3.
   Else if main14=84.
      compute avy40=18.
      compute avy41=18.
      compute avy42=18.
      compute mainy40=45.
      compute mainy41=45.
      compute mainy42=45.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=85 or main14=86.
      compute avy40=18.
      compute avy41=18.
      compute avy42=18.
      compute mainy40=38.
      compute mainy41=38.
      compute mainy42=38.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=89.
      compute avy40=17.
      compute avy41=17.
      compute avy42=17.
      compute mainy40=68.
      compute mainy41=68.
      compute mainy42=68.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=90.
      compute avy40=17.
      compute avy41=17.
      compute avy42=17.
      compute mainy40=62.
      compute mainy41=62.
      compute mainy42=62.
      compute mtravy40=5.
      compute mtravy41=5.
      compute mtravy42=5.
   Else if main14=91.
      compute avy40=40.
      compute avy41=40.
      compute avy42=40.
      compute mainy40=51.
      compute mainy41=51.
      compute mainy42=51.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=92.
      compute avy40=31.
      compute avy41=31.
      compute avy42=31.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=59.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   Else if main14=93.
      compute avy40=41.
      compute avy41=41.
      compute avy42=41.
      compute mainy40=41.
      compute mainy41=41.
      compute mainy42=41.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=-7.
   End if.
Else if mtmark14=1.
   Do if main14=2 and (main15=42 or main15=79).
      compute avy40=16.
      compute avy41=36.
      compute avy42=5.
      compute mainy40=2.
      compute mainy41=55.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=2 and (main15=41 or main15=44).
      compute avy40=16.
      compute avy41=36.
      compute avy42=5.
      compute mainy40=2.
      compute mainy41=55.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=2 and (main15=36 or main15=57).
      compute avy40=16.
      compute avy41=36.
      compute avy42=12.
      compute mainy40=2.
      compute mainy41=55.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=2.
      compute avy40=16.
      compute avy41=36.
      compute avy42=17.
      compute mainy40=2.
      compute mainy41=55.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=3 and (main15=42 or main15=79).
      compute avy40=16.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=2.
      compute mainy41=4.
      compute mainy42=64.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=5. 
   Else if main14=3 and (main15=41 or main15=44).
      compute avy40=16.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=2.
      compute mainy41=4.
      compute mainy42=63.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=5. 
   Else if main14=3 and (main15=36 or main15=57).
      compute avy40=16.
      compute avy41=13.
      compute avy42=12.
      compute mainy40=2.
      compute mainy41=4.
      compute mainy42=67.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=5. 
   Else if main14=3.
      compute avy40=16.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=2.
      compute mainy41=4.
      compute mainy42=63.
      compute mtravy40=-7. 
      compute mtravy41=-7. 
      compute mtravy42=5.
   Else if main14=6 and (main15=41 or main15=44).
      compute avy40=13.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=1.
      compute mainy41=1.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=6 and (main15=42 or main15=79).
      compute avy40=13.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=1.
      compute mainy41=1.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=6 and (main15=36 or main15=57).
      compute avy40=13.
      compute avy41=13.
      compute avy42=12.
      compute mainy40=1.
      compute mainy41=1.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=6.
      compute avy40=13.
      compute avy41=13.
      compute avy42=17.
      compute mainy40=1.
      compute mainy41=1.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>10 and main14<15) and (main15=42 or main15=79).
      compute avy40=30.
      compute avy41=30.
      compute avy42=5.
      compute mainy40=58.
      compute mainy41=58.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>10 and main14<15) and (main15=41 or main15=44).
      compute avy40=30.
      compute avy41=30.
      compute avy42=5.
      compute mainy40=58.
      compute mainy41=58.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>10 and main14<15) and (main15=36 or main15=57).
      compute avy40=30.
      compute avy41=30.
      compute avy42=12.
      compute mainy40=58.
      compute mainy41=58.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14>10 and main14<15.
      compute avy40=30.
      compute avy41=30.
      compute avy42=17.
      compute mainy40=58.
      compute mainy41=58.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>19 and main14<30) and (main15=41 or main15=44).
      compute avy40=31.
      compute avy41=31.
      compute avy42=5.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>19 and main14<30) and (main15=42 or main15=79).
      compute avy40=31.
      compute avy41=31.
      compute avy42=5.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>19 and main14<30) and (main15=36 or main15=57).
      compute avy40=31.
      compute avy41=31.
      compute avy42=12.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14>19 and main14<30.
      compute avy40=31.
      compute avy41=31.
      compute avy42=17.
      compute mainy40=59.
      compute mainy41=59.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>29 and main14<34) and sec14=45.
      compute avy40=13.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=1.
   Else if (main14>29 and main14<34) and (main15=42 or main15=79).
      compute avy40=13.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>29 and main14<34) and (main15=57 or main15=36).
      compute avy40=13.
      compute avy41=13.
      compute avy42=12.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>29 and main14<34) and (main15=41 or main15=44 or main15=47).
      compute avy40=13.
      compute avy41=13.
      compute avy42=5.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if (main14>29 and main14<34).
      compute avy40=13.
      compute avy41=13.
      compute avy42=17.
      compute mainy40=4.
      compute mainy41=4.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=36.
      compute avy40=14.
      compute avy41=14.
      compute avy42=12.
      compute mainy40=25.
      compute mainy41=25.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=41.
      compute avy40=1.
      compute avy41=1.
      compute avy42=5.
      compute mainy40=7.
      compute mainy41=7.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=42.
      compute avy40=4.
      compute avy41=4.
      compute avy42=5.
      compute mainy40=15.
      compute mainy41=15.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=43 and (main15=42 or main15=79).
      compute avy40=2.
      compute avy41=2.
      compute avy42=5.
      compute mainy40=8.
      compute mainy41=8.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
     compute mtravy42=5.
   Else if main14=43.
      compute avy40=2.
      compute avy41=2.
      compute avy42=5.
      compute mainy40=8.
      compute mainy41=8.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
     compute mtravy42=5.
   Else if main14=44.
      compute avy40=3.
      compute avy41=3.
      compute avy42=5.
      compute mainy40=9.
      compute mainy41=9.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=50 and (main15=41 or main15=44).
      compute avy40=8.
      compute avy41=8.
      compute avy42=5.
      compute mainy40=21.
      compute mainy41=21.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=50 and (main15=42 or main15=79).
      compute avy40=8.
      compute avy41=8.
      compute avy42=5.
      compute mainy40=21.
      compute mainy41=21.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=50 and (main15=57 or main15=36).
      compute avy40=8.
      compute avy41=8.
      compute avy42=12.
      compute mainy40=21.
      compute mainy41=21.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=50.
      compute avy40=8.
      compute avy41=8.
      compute avy42=17.
      compute mainy40=21.
      compute mainy41=21.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=51 and (main15=41 or main15=44 or main15=45).
      compute avy40=11.
      compute avy41=11.
      compute avy42=5.
      compute mainy40=28.
      compute mainy41=28.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=51 and (main15=42 or main15=79).
      compute avy40=11.
      compute avy41=11.
      compute avy42=5.
      compute mainy40=28.
      compute mainy41=28.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=51 and (main15=57 or main15=36).
      compute avy40=11.
      compute avy41=11.
      compute avy42=12.
      compute mainy40=28.
      compute mainy41=28.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=51.
      compute avy40=11.
      compute avy41=11.
      compute avy42=17.
      compute mainy40=28.
      compute mainy41=28.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=53 and (main15=42 or main15=79).
      compute avy40=6.
      compute avy41=6.
      compute avy42=5.
      compute mainy40=18.
      compute mainy41=18.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=53 and (main15=36 or main15=57).
      compute avy40=6.
      compute avy41=6.
      compute avy42=12.
      compute mainy40=18.
      compute mainy41=18.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=53 and (main15=41 or main15=44).
      compute avy40=6.
      compute avy41=6.
      compute avy42=5.
      compute mainy40=18.
      compute mainy41=18.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=53.
      compute avy40=6.
      compute avy41=6.
      compute avy42=17.
      compute mainy40=18.
      compute mainy41=18.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=54 and (main15=36 or main15=57).
      compute avy40=7.
      compute avy41=7.
      compute avy42=12.
      compute mainy40=20.
      compute mainy41=20.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=54 and (main15=41 or main15=44 or main15=47).
      compute avy40=7.
      compute avy41=7.
      compute avy42=5.
      compute mainy40=20.
      compute mainy41=20.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=54 and (main15=42 or main15=79).
      compute avy40=7.
      compute avy41=7.
      compute avy42=5.
      compute mainy40=20.
      compute mainy41=20.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=54.
      compute avy40=7.
      compute avy41=7.
      compute avy42=17.
      compute mainy40=20.
      compute mainy41=20.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=55 and (main15=57 or main15=36).
      compute avy40=8.
      compute avy41=8.
      compute avy42=12.
      compute mainy40=22.
      compute mainy41=22.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=55 and (main15=42 or main15=79).
      compute avy40=8.
      compute avy41=8.
      compute avy42=5.
      compute mainy40=22.
      compute mainy41=22.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=55.
      compute avy40=8.
      compute avy41=8.
      compute avy42=17.
      compute mainy40=22.
      compute mainy41=22.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=56 and (main15=41 or main15=44).
      compute avy40=8.
      compute avy41=8.
      compute avy42=5.
      compute mainy40=27.
      compute mainy41=27.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=56 and (main15=42 or main15=79).
      compute avy40=8.
      compute avy41=8.
      compute avy42=5.
      compute mainy40=27.
      compute mainy41=27.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=56 and (main15=36 or main15=57).
      compute avy40=8.
      compute avy41=8.
      compute avy42=12.
      compute mainy40=27.
      compute mainy41=27.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=56.
      compute avy40=8.
      compute avy41=8.
      compute avy42=17.
      compute mainy40=27.
      compute mainy41=27.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=57 and (main15=41 or main15=44).
      compute avy40=10.
      compute avy41=10.
      compute avy42=5.
      compute mainy40=24.
      compute mainy41=24.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=57 and (main15=42 or main15=79).
      compute avy40=10.
      compute avy41=10.
      compute avy42=5.
      compute mainy40=24.
      compute mainy41=24.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=57 and (main15=36 or main15=57).
      compute avy40=10.
      compute avy41=10.
      compute avy42=12.
      compute mainy40=24.
      compute mainy41=24.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=57.
      compute avy40=10.
      compute avy41=10.
      compute avy42=17.
      compute mainy40=24.
      compute mainy41=24.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=59.
      compute avy40=7.
      compute avy41=7.
      compute avy42=12.
      compute mainy40=23.
      compute mainy41=23.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=66.
      compute avy40=38.
      compute avy41=38.
      compute avy42=12.
      compute mainy40=48.
      compute mainy41=48.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=69 and (main15=41 or main15=44).
      compute avy40=36.
      compute avy41=36.
      compute avy42=5.
      compute mainy40=55.
      compute mainy41=55.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=69 and (main15=36 or main15=57).
      compute avy40=36.
      compute avy41=36.
      compute avy42=12.
      compute mainy40=55.
      compute mainy41=55.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=69.
      compute avy40=36.
      compute avy41=36.
      compute avy42=17.
      compute mainy40=55.
      compute mainy41=55.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=71 and main15=42.
      compute avy40=29.
      compute avy41=29.
      compute avy42=5.
      compute mainy40=48.
      compute mainy41=48.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=71 and main15=41.
      compute avy40=29.
      compute avy41=29.
      compute avy42=5.
      compute mainy40=48.
      compute mainy41=48.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=78 and (main14=41 or main14=44).
      compute avy40=22.
      compute avy41=22.
      compute avy42=5.
      compute mainy40=34.
      compute mainy41=34.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=78.
      compute avy40=22.
      compute avy41=22.
      compute avy42=17.
      compute mainy40=34.
      compute mainy41=34.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=79.
      compute avy40=4.
      compute avy41=4.
      compute avy42=5.
      compute mainy40=17.
      compute mainy41=17.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=82.
      compute avy40=20.
      compute avy41=20.
      compute avy42=17.
      compute mainy40=36.
      compute mainy41=36.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=84.
      compute avy40=18.
      compute avy41=18.
      compute avy42=17.
      compute mainy40=45.
      compute mainy41=45.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=85 or main14=86.
      compute avy40=18.
      compute avy41=18.
      compute avy42=17.
      compute mainy40=38.
      compute mainy41=38.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=91 and (main15=36 or main15=57).
      compute avy40=40.
      compute avy41=40.
      compute avy42=12.
      compute mainy40=51.
      compute mainy41=51.
      compute mainy42=67.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=91 and (main15=41 or main15=44).
      compute avy40=40.
      compute avy41=40.
      compute avy42=5.
      compute mainy40=51.
      compute mainy41=51.
      compute mainy42=63.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=91 and (main15=42 or main15=79).
      compute avy40=40.
      compute avy41=40.
      compute avy42=5.
      compute mainy40=51.
      compute mainy41=51.
      compute mainy42=64.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   Else if main14=91.
      compute avy40=40.
      compute avy41=40.
      compute avy42=17.
      compute mainy40=51.
      compute mainy41=51.
      compute mainy42=68.
      compute mtravy40=-7.
      compute mtravy41=-7.
      compute mtravy42=5.
   End if.
End if.

Do if main14=1 and main15=1 and mtmark14=0.
   compute avy40=16.
   compute avy41=16.
   compute avy42=16.
   compute mainy40=2.
   compute mainy41=2.
   compute mainy42=2.
   compute mtravy40=-7. 
   compute mtravy41=-7. 
   compute mtravy42=-7. 
Else if main14=2 and main15=2 and mtmark14=0.
   compute avy40=16.
   compute avy41=16.
   compute avy42=16.
   compute mainy40=2.
   compute mainy41=2.
   compute mainy42=2.
   compute mtravy40=-7.
   compute mtravy41=-7.
   compute mtravy42=-7.
End if.

freq avy40 avy41 avy42 mainy40 mainy41 mainy42 mtravy40 mtravy41 mtravy42.

*set values for the 15th time slot.
freq mtmark15.
*1199 missing travel cases in time slot 15.

temp.
select if mtmark15=1.
cro main15 by main16.

if main15=83 or main16=83 or main15=63 or main16=63 mtmark15=0.
if main15=34 or main15=38 or main15=62 or main15=67 or main15=81 mtmark15=0.
if main16=34 or main16=38 or main16=62 or main16=67 or main16=81 mtmark15=0.
if main15=main16 mtmark15=0.
if main15=1 or main15=61 or main16=61 or main16=72 or main16=50 mtmark15=0.
if main15=59 and main16>57 mtmark15=0.
if main15=60 or main15=64 or main15=66 or main15=68 or main15=70 or 
   main15=71 or main15=72 or main15=73 or main15=35 or main15=52 or 
   main15=65 or main15=74 or main15=80 mtmark15=0.
if main15=84 and main15=52 mtmark12=0.
*errors fixed, 705 cases remain.

temp.
select if sec15=45.
cro main15 by main16 by mtmark15.

temp.
select if sec15=46 or sec15=47.
cro main15 by main16 by mtmark15.

Do if mtmark15=0.
   Do if main15>95.
      compute avy43=41.
      compute avy44=41.
      compute avy45=41.
      compute mainy43=69.
      compute mainy44=69.
      compute mainy45=69.
      compute mtravy43=-8.
      compute mtravy44=-8.
      compute mtravy45=-8.
   Else if main15=1.
      compute avy43=16.
      compute avy44=16.
      compute avy45=13.
      compute mainy43=2.
      compute mainy44=2.
      compute mainy45=4.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=-7. 
   Else if main15=2.
      compute avy43=16.
      compute avy44=16.
      compute avy45=36.
      compute mainy43=2.
      compute mainy44=2.
      compute mainy45=55.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=3 or main15=4.
      compute avy43=16.
      compute avy44=16.
      compute avy45=16.
      compute mainy43=2.
      compute mainy44=2.
      compute mainy45=2.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=-7. 
   Else if main15=5.
      compute avy43=16.
      compute avy44=16.
      compute avy45=16.
      compute mainy43=3.
      compute mainy44=3.
      compute mainy45=3.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=6.
      compute avy43=13.
      compute avy44=13.
      compute avy45=13.
      compute mainy43=1.
      compute mainy44=1.
      compute mainy45=1.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15>6 and main15<20.
      compute avy43=30.
      compute avy44=30.
      compute avy45=30.
      compute mainy43=58.
      compute mainy44=58.
      compute mainy45=58.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15>19 and main15<30.
      compute avy43=31.
      compute avy44=31.
      compute avy45=31.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=59.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15>29 and main15<34.
      compute avy43=13.
      compute avy44=13.
      compute avy45=13.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=4.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=34 and (sec15=46 or sec15=47).
      compute avy43=15.
      compute avy44=15.
      compute avy45=5.
      compute mainy43=6.
      compute mainy44=6.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=34 or main15=35 or ((main15=38 or main15=39) and loc15=1).
      compute avy43=15.
      compute avy44=15.
      compute avy45=15.
      compute mainy43=6.
      compute mainy44=6.
      compute mainy45=6.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=36.
      compute avy43=14.
      compute avy44=14.
      compute avy45=14.
      compute mainy43=25.
      compute mainy44=25.
      compute mainy45=25.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=37.
      compute avy43=12.
      compute avy44=12.
      compute avy45=12.
      compute mainy43=67.
      compute mainy44=67.
      compute mainy45=67.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=40.
      compute avy43=1.
      compute avy44=1.
      compute avy45=1.
      compute mainy43=13.
      compute mainy44=13.
      compute mainy45=13.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=41.
      compute avy43=1.
      compute avy44=1.
      compute avy45=1.
      compute mainy43=7.
      compute mainy44=7.
      compute mainy45=7.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=42.
      compute avy43=4.
      compute avy44=4.
      compute avy45=4.
      compute mainy43=15.
      compute mainy44=15.
      compute mainy45=15.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=43.
      compute avy43=2.
      compute avy44=2.
      compute avy45=2.
      compute mainy43=8.
      compute mainy44=8.
      compute mainy45=8.
      compute mtravy43=-7.
      compute mtravy44=-7.
     compute mtravy45=-7.
   Else if main15=44.
      compute avy43=3.
      compute avy44=3.
      compute avy45=3.
      compute mainy43=9.
      compute mainy44=9.
      compute mainy45=9.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=45 and (main16=42 or main16=79).
      compute avy43=5.
      compute avy44=5.
      compute avy45=5.
      compute mainy43=64.
      compute mainy44=64.
      compute mainy45=64.
      compute mtravy43=1.
      compute mtravy44=1.
      compute mtravy45=1.
   Else if (main15=46 or main15=47) and (main16=42 or main16=79).
      compute avy43=5.
      compute avy44=5.
      compute avy45=5.
      compute mainy43=64.
      compute mainy44=64.
      compute mainy45=64.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=45.
      compute avy43=5.
      compute avy44=5.
      compute avy45=5.
      compute mainy43=63.
      compute mainy44=63.
      compute mainy45=63.
      compute mtravy43=1.
      compute mtravy44=1.
      compute mtravy45=1.
   Else if main15=46 or main15=47.
      compute avy43=5.
      compute avy44=5.
      compute avy45=5.
      compute mainy43=63.
      compute mainy44=63.
      compute mainy45=63.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=48.
      compute avy43=5.
      compute avy44=5.
      compute avy45=5.
      compute mainy43=11.
      compute mainy44=11.
      compute mainy45=11.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=49.
      compute avy43=1.
      compute avy44=1.
      compute avy45=1.
      compute mainy43=5.
      compute mainy44=5.
      compute mainy45=5.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=50.
      compute avy43=8.
      compute avy44=8.
      compute avy45=8.
      compute mainy43=21.
      compute mainy44=21.
      compute mainy45=21.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=51.
      compute avy43=11.
      compute avy44=11.
      compute avy45=11.
      compute mainy43=28.
      compute mainy44=28.
      compute mainy45=28.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=52.
      compute avy43=11.
      compute avy44=11.
      compute avy45=11.
      compute mainy43=30.
      compute mainy44=30.
      compute mainy45=30.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=53.
      compute avy43=6.
      compute avy44=6.
      compute avy45=6.
      compute mainy43=18.
      compute mainy44=18.
      compute mainy45=18.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=54.
      compute avy43=7.
      compute avy44=7.
      compute avy45=7.
      compute mainy43=20.
      compute mainy44=20.
      compute mainy45=20.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=55.
      compute avy43=8.
      compute avy44=8.
      compute avy45=8.
      compute mainy43=22.
      compute mainy44=22.
      compute mainy45=22.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=56.
      compute avy43=8.
      compute avy44=8.
      compute avy45=8.
      compute mainy43=27.
      compute mainy44=27.
      compute mainy45=27.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=57.
      compute avy43=10.
      compute avy44=10.
      compute avy45=10.
      compute mainy43=24.
      compute mainy44=24.
      compute mainy45=24.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=58.
      compute avy43=12.
      compute avy44=12.
      compute avy45=12.
      compute mainy43=66.
      compute mainy44=66.
      compute mainy45=66.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=59.
      compute avy43=7.
      compute avy44=7.
      compute avy45=13.
      compute mainy43=23.
      compute mainy44=23.
      compute mainy45=4.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=60.
      compute avy43=9.
      compute avy44=9.
      compute avy45=9.
      compute mainy43=46.
      compute mainy44=46.
      compute mainy45=46.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=61.
      compute avy43=33.
      compute avy44=33.
      compute avy45=33.
      compute mainy43=16.
      compute mainy44=16.
      compute mainy45=16.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=62.
      compute avy43=34.
      compute avy44=34.
      compute avy45=34.
      compute mainy43=56.
      compute mainy44=56.
      compute mainy45=56.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=63.
      compute avy43=35.
      compute avy44=35.
      compute avy45=35.
      compute mainy43=56.
      compute mainy44=56.
      compute mainy45=56.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=64.
      compute avy43=40.
      compute avy44=40.
      compute avy45=40.
      compute mainy43=54.
      compute mainy44=54.
      compute mainy45=54.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=65.
      compute avy43=39.
      compute avy44=39.
      compute avy45=39.
      compute mainy43=54.
      compute mainy44=54.
      compute mainy45=54.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=66.
      compute avy43=38.
      compute avy44=38.
      compute avy45=38.
      compute mainy43=48.
      compute mainy44=48.
      compute mainy45=48.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=67.
      compute avy43=37.
      compute avy44=37.
      compute avy45=37.
      compute mainy43=49.
      compute mainy44=49.
      compute mainy45=49.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=68.
      compute avy43=32.
      compute avy44=32.
      compute avy45=32.
      compute mainy43=57.
      compute mainy44=57.
      compute mainy45=57.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=69.
      compute avy43=36.
      compute avy44=36.
      compute avy45=36.
      compute mainy43=55.
      compute mainy44=55.
      compute mainy45=55.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=70.
      compute avy43=25.
      compute avy44=25.
      compute avy45=25.
      compute mainy43=35.
      compute mainy44=35.
      compute mainy45=35.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=71.
      compute avy43=29.
      compute avy44=29.
      compute avy45=29.
      compute mainy43=48.
      compute mainy44=48.
      compute mainy45=48.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=72.
      compute avy43=24.
      compute avy44=24.
      compute avy45=24.
      compute mainy43=37.
      compute mainy44=37.
      compute mainy45=37.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=73.
      compute avy43=23.
      compute avy44=23.
      compute avy45=23.
      compute mainy43=33.
      compute mainy44=33.
      compute mainy45=33.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=74.
      compute avy43=26.
      compute avy44=26.
      compute avy45=26.
      compute mainy43=40.
      compute mainy44=40.
      compute mainy45=40.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=75 or main15=39.
      compute avy43=27.
      compute avy44=27.
      compute avy45=27.
      compute mainy43=39.
      compute mainy44=39.
      compute mainy45=39.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=76.
      compute avy43=25.
      compute avy44=25.
      compute avy45=25.
      compute mainy43=40.
      compute mainy44=40.
      compute mainy45=40.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=77 or main15=38.
      compute avy43=28.
      compute avy44=28.
      compute avy45=28.
      compute mainy43=39.
      compute mainy44=39.
      compute mainy45=39.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=78.
      compute avy43=22.
      compute avy44=22.
      compute avy45=22.
      compute mainy43=34.
      compute mainy44=34.
      compute mainy45=34.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=79.
      compute avy43=4.
      compute avy44=4.
      compute avy45=4.
      compute mainy43=17.
      compute mainy44=17.
      compute mainy45=17.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=80.
      compute avy43=18.
      compute avy44=18.
      compute avy45=18.
      compute mainy43=38.
      compute mainy44=38.
      compute mainy45=38.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=81.
      compute avy43=19.
      compute avy44=19.
      compute avy45=19.
      compute mainy43=42.
      compute mainy44=42.
      compute mainy45=42.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=82.
      compute avy43=20.
      compute avy44=20.
      compute avy45=20.
      compute mainy43=36.
      compute mainy44=36.
      compute mainy45=36.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=83.
      compute avy43=21.
      compute avy44=21.
      compute avy45=21.
      compute mainy43=43.
      compute mainy44=43.
      compute mainy45=43.
      compute mtravy43=3.
      compute mtravy44=3.
      compute mtravy45=3.
   Else if main15=84.
      compute avy43=18.
      compute avy44=18.
      compute avy45=18.
      compute mainy43=45.
      compute mainy44=45.
      compute mainy45=45.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=85 or main15=86.
      compute avy43=18.
      compute avy44=18.
      compute avy45=18.
      compute mainy43=38.
      compute mainy44=38.
      compute mainy45=38.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=89.
      compute avy43=17.
      compute avy44=17.
      compute avy45=17.
      compute mainy43=68.
      compute mainy44=68.
      compute mainy45=68.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=90.
      compute avy43=17.
      compute avy44=17.
      compute avy45=17.
      compute mainy43=62.
      compute mainy44=62.
      compute mainy45=62.
      compute mtravy43=5.
      compute mtravy44=5.
      compute mtravy45=5.
   Else if main15=91.
      compute avy43=40.
      compute avy44=40.
      compute avy45=40.
      compute mainy43=51.
      compute mainy44=51.
      compute mainy45=51.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=92.
      compute avy43=31.
      compute avy44=31.
      compute avy45=31.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=59.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   Else if main15=93.
      compute avy43=41.
      compute avy44=41.
      compute avy45=41.
      compute mainy43=41.
      compute mainy44=41.
      compute mainy45=41.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=-7.
   End if.
Else if mtmark15=1.
   Do if main15=2 and (main16=42 or main16=79).
      compute avy43=16.
      compute avy44=36.
      compute avy45=5.
      compute mainy43=2.
      compute mainy44=55.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=2 and (main16=41 or main16=44).
      compute avy43=16.
      compute avy44=36.
      compute avy45=5.
      compute mainy43=2.
      compute mainy44=55.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=2 and (main16=36 or main16=57).
      compute avy43=16.
      compute avy44=36.
      compute avy45=12.
      compute mainy43=2.
      compute mainy44=55.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=2.
      compute avy43=16.
      compute avy44=36.
      compute avy45=17.
      compute mainy43=2.
      compute mainy44=55.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=3 and (main16=42 or main16=79).
      compute avy43=16.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=2.
      compute mainy44=4.
      compute mainy45=64.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=5. 
   Else if main15=3 and (main16=41 or main16=44).
      compute avy43=16.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=2.
      compute mainy44=4.
      compute mainy45=63.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=5. 
   Else if main15=3 and (main16=36 or main16=57).
      compute avy43=16.
      compute avy44=13.
      compute avy45=12.
      compute mainy43=2.
      compute mainy44=4.
      compute mainy45=67.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=5. 
   Else if main15=3.
      compute avy43=16.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=2.
      compute mainy44=4.
      compute mainy45=63.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=5.
   Else if main15=4.
      compute avy43=16.
      compute avy44=16.
      compute avy45=12.
      compute mainy43=2.
      compute mainy44=2.
      compute mainy45=67.
      compute mtravy43=-7. 
      compute mtravy44=-7. 
      compute mtravy45=5. 
   Else if main15=6 and (main16=41 or main16=44).
      compute avy43=13.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=1.
      compute mainy44=1.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=6 and (main16=42 or main16=79).
      compute avy43=13.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=1.
      compute mainy44=1.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=6 and (main16=36 or main16=57).
      compute avy43=13.
      compute avy44=13.
      compute avy45=12.
      compute mainy43=1.
      compute mainy44=1.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=6.
      compute avy43=13.
      compute avy44=13.
      compute avy45=17.
      compute mainy43=1.
      compute mainy44=1.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>10 and main15<15) and (main16=42 or main16=79).
      compute avy43=30.
      compute avy44=30.
      compute avy45=5.
      compute mainy43=58.
      compute mainy44=58.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>10 and main15<15) and (main16=41 or main16=44).
      compute avy43=30.
      compute avy44=30.
      compute avy45=5.
      compute mainy43=58.
      compute mainy44=58.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>10 and main15<15) and (main16=36 or main16=57).
      compute avy43=30.
      compute avy44=30.
      compute avy45=12.
      compute mainy43=58.
      compute mainy44=58.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15>10 and main15<15.
      compute avy43=30.
      compute avy44=30.
      compute avy45=17.
      compute mainy43=58.
      compute mainy44=58.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>19 and main15<30) and (main16=41 or main16=44).
      compute avy43=31.
      compute avy44=31.
      compute avy45=5.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>19 and main15<30) and (main16=42 or main16=79).
      compute avy43=31.
      compute avy44=31.
      compute avy45=5.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>19 and main15<30) and (main16=36 or main16=57).
      compute avy43=31.
      compute avy44=31.
      compute avy45=12.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15>19 and main15<30.
      compute avy43=31.
      compute avy44=31.
      compute avy45=17.
      compute mainy43=59.
      compute mainy44=59.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>29 and main15<34) and sec15=45.
      compute avy43=13.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=1.
   Else if (main15>29 and main15<34) and (main16=42 or main16=79).
      compute avy43=13.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>29 and main15<34) and (main16=57 or main16=36).
      compute avy43=13.
      compute avy44=13.
      compute avy45=12.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>29 and main15<34) and (main16=41 or main16=44 or main16=47).
      compute avy43=13.
      compute avy44=13.
      compute avy45=5.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if (main15>29 and main15<34).
      compute avy43=13.
      compute avy44=13.
      compute avy45=17.
      compute mainy43=4.
      compute mainy44=4.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=36.
      compute avy43=14.
      compute avy44=14.
      compute avy45=12.
      compute mainy43=25.
      compute mainy44=25.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=41.
      compute avy43=1.
      compute avy44=1.
      compute avy45=5.
      compute mainy43=7.
      compute mainy44=7.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=42.
      compute avy43=4.
      compute avy44=4.
      compute avy45=5.
      compute mainy43=15.
      compute mainy44=15.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=43 and (main16=42 or main16=79).
      compute avy43=2.
      compute avy44=2.
      compute avy45=5.
      compute mainy43=8.
      compute mainy44=8.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
     compute mtravy45=5.
   Else if main15=43.
      compute avy43=2.
      compute avy44=2.
      compute avy45=5.
      compute mainy43=8.
      compute mainy44=8.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
     compute mtravy45=5.
   Else if main15=44.
      compute avy43=3.
      compute avy44=3.
      compute avy45=5.
      compute mainy43=9.
      compute mainy44=9.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=50 and (main16=41 or main16=44).
      compute avy43=8.
      compute avy44=8.
      compute avy45=5.
      compute mainy43=21.
      compute mainy44=21.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=50 and (main16=42 or main16=79).
      compute avy43=8.
      compute avy44=8.
      compute avy45=5.
      compute mainy43=21.
      compute mainy44=21.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=50 and (main16=57 or main16=36).
      compute avy43=8.
      compute avy44=8.
      compute avy45=12.
      compute mainy43=21.
      compute mainy44=21.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=50.
      compute avy43=8.
      compute avy44=8.
      compute avy45=17.
      compute mainy43=21.
      compute mainy44=21.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=51 and (main16=41 or main16=44 or main16=45).
      compute avy43=11.
      compute avy44=11.
      compute avy45=5.
      compute mainy43=28.
      compute mainy44=28.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=51 and (main16=42 or main16=79).
      compute avy43=11.
      compute avy44=11.
      compute avy45=5.
      compute mainy43=28.
      compute mainy44=28.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=51 and (main16=57 or main16=36).
      compute avy43=11.
      compute avy44=11.
      compute avy45=12.
      compute mainy43=28.
      compute mainy44=28.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=51.
      compute avy43=11.
      compute avy44=11.
      compute avy45=17.
      compute mainy43=28.
      compute mainy44=28.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=53 and (main16=42 or main16=79).
      compute avy43=6.
      compute avy44=6.
      compute avy45=5.
      compute mainy43=18.
      compute mainy44=18.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=53 and (main16=36 or main16=57).
      compute avy43=6.
      compute avy44=6.
      compute avy45=12.
      compute mainy43=18.
      compute mainy44=18.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=53 and (main16=41 or main16=44).
      compute avy43=6.
      compute avy44=6.
      compute avy45=5.
      compute mainy43=18.
      compute mainy44=18.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=53.
      compute avy43=6.
      compute avy44=6.
      compute avy45=17.
      compute mainy43=18.
      compute mainy44=18.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=54 and (main16=36 or main16=57).
      compute avy43=7.
      compute avy44=7.
      compute avy45=12.
      compute mainy43=20.
      compute mainy44=20.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=54 and (main16=41 or main16=44 or main16=47).
      compute avy43=7.
      compute avy44=7.
      compute avy45=5.
      compute mainy43=20.
      compute mainy44=20.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=54 and (main16=42 or main16=79).
      compute avy43=7.
      compute avy44=7.
      compute avy45=5.
      compute mainy43=20.
      compute mainy44=20.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=54.
      compute avy43=7.
      compute avy44=7.
      compute avy45=17.
      compute mainy43=20.
      compute mainy44=20.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=55 and (main16=57 or main16=36).
      compute avy43=8.
      compute avy44=8.
      compute avy45=12.
      compute mainy43=22.
      compute mainy44=22.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=55 and (main16=42 or main16=79).
      compute avy43=8.
      compute avy44=8.
      compute avy45=5.
      compute mainy43=22.
      compute mainy44=22.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=55.
      compute avy43=8.
      compute avy44=8.
      compute avy45=17.
      compute mainy43=22.
      compute mainy44=22.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=56 and (main16=41 or main16=44).
      compute avy43=8.
      compute avy44=8.
      compute avy45=5.
      compute mainy43=27.
      compute mainy44=27.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=56 and (main16=42 or main16=79).
      compute avy43=8.
      compute avy44=8.
      compute avy45=5.
      compute mainy43=27.
      compute mainy44=27.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=56 and (main16=36 or main16=57).
      compute avy43=8.
      compute avy44=8.
      compute avy45=12.
      compute mainy43=27.
      compute mainy44=27.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=56.
      compute avy43=8.
      compute avy44=8.
      compute avy45=17.
      compute mainy43=27.
      compute mainy44=27.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=57 and (main16=41 or main16=44).
      compute avy43=10.
      compute avy44=10.
      compute avy45=5.
      compute mainy43=24.
      compute mainy44=24.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=57 and (main16=42 or main16=79).
      compute avy43=10.
      compute avy44=10.
      compute avy45=5.
      compute mainy43=24.
      compute mainy44=24.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=57 and (main16=36 or main16=57).
      compute avy43=10.
      compute avy44=10.
      compute avy45=12.
      compute mainy43=24.
      compute mainy44=24.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=57.
      compute avy43=10.
      compute avy44=10.
      compute avy45=17.
      compute mainy43=24.
      compute mainy44=24.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=59.
      compute avy43=7.
      compute avy44=7.
      compute avy45=12.
      compute mainy43=23.
      compute mainy44=23.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=66.
      compute avy43=38.
      compute avy44=38.
      compute avy45=12.
      compute mainy43=48.
      compute mainy44=48.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=69 and (main16=41 or main16=44).
      compute avy43=36.
      compute avy44=36.
      compute avy45=5.
      compute mainy43=55.
      compute mainy44=55.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=69 and (main16=36 or main16=57).
      compute avy43=36.
      compute avy44=36.
      compute avy45=12.
      compute mainy43=55.
      compute mainy44=55.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=69.
      compute avy43=36.
      compute avy44=36.
      compute avy45=17.
      compute mainy43=55.
      compute mainy44=55.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=71 and main16=42.
      compute avy43=29.
      compute avy44=29.
      compute avy45=5.
      compute mainy43=48.
      compute mainy44=48.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=71 and main16=41.
      compute avy43=29.
      compute avy44=29.
      compute avy45=5.
      compute mainy43=48.
      compute mainy44=48.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=77.
      compute avy43=28.
      compute avy44=28.
      compute avy45=17.
      compute mainy43=39.
      compute mainy44=39.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=78 and (main15=41 or main15=44).
      compute avy43=22.
      compute avy44=22.
      compute avy45=5.
      compute mainy43=34.
      compute mainy44=34.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=78.
      compute avy43=22.
      compute avy44=22.
      compute avy45=17.
      compute mainy43=34.
      compute mainy44=34.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=79.
      compute avy43=4.
      compute avy44=4.
      compute avy45=5.
      compute mainy43=17.
      compute mainy44=17.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=82.
      compute avy43=20.
      compute avy44=20.
      compute avy45=17.
      compute mainy43=36.
      compute mainy44=36.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=84.
      compute avy43=18.
      compute avy44=18.
      compute avy45=17.
      compute mainy43=45.
      compute mainy44=45.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=85 or main15=86.
      compute avy43=18.
      compute avy44=18.
      compute avy45=17.
      compute mainy43=38.
      compute mainy44=38.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=91 and (main16=36 or main16=57).
      compute avy43=40.
      compute avy44=40.
      compute avy45=12.
      compute mainy43=51.
      compute mainy44=51.
      compute mainy45=67.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=91 and (main16=41 or main16=44).
      compute avy43=40.
      compute avy44=40.
      compute avy45=5.
      compute mainy43=51.
      compute mainy44=51.
      compute mainy45=63.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=91 and (main16=42 or main16=79).
      compute avy43=40.
      compute avy44=40.
      compute avy45=5.
      compute mainy43=51.
      compute mainy44=51.
      compute mainy45=64.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   Else if main15=91.
      compute avy43=40.
      compute avy44=40.
      compute avy45=17.
      compute mainy43=51.
      compute mainy44=51.
      compute mainy45=68.
      compute mtravy43=-7.
      compute mtravy44=-7.
      compute mtravy45=5.
   End if.
End if.

Do if main15=1 and main16=1 and mtmark15=0.
   compute avy43=16.
   compute avy44=16.
   compute avy45=16.
   compute mainy43=2.
   compute mainy44=2.
   compute mainy45=2.
   compute mtravy43=-7. 
   compute mtravy44=-7. 
   compute mtravy45=-7. 
Else if main15=2 and main16=2 and mtmark15=0.
   compute avy43=16.
   compute avy44=16.
   compute avy45=16.
   compute mainy43=2.
   compute mainy44=2.
   compute mainy45=2.
   compute mtravy43=-7.
   compute mtravy44=-7.
   compute mtravy45=-7.
End if.

freq avy43 avy44 avy45 mainy43 mainy44 mainy45 mtravy43 mtravy44 mtravy45.

*set values for the 16th time slot.
freq mtmark16.
*1787 missing travel cases in time slot 16.

temp.
select if mtmark16=1.
cro main16 by main17.

if main16=83 or main17=83 or main16=63 or main17=63 mtmark16=0.
if main16=34 or main16=38 or main16=62 or main16=67 or main16=81 mtmark16=0.
if main17=34 or main17=38 or main17=62 or main17=67 or main17=81 mtmark16=0.
if main16=main17 mtmark16=0.
if main16=1 or main16=61 or main17=61 or main17=72 or main17=50 mtmark16=0.
if main16=59 and main17>57 mtmark16=0.
if main16=60 or main16=64 or main16=66 or main16=68 or main16=70 or 
   main16=71 or main16=72 or main16=73 or main16=35 or main16=52 or 
   main16=65 or main16=74 or main16=80 or main16=99 mtmark16=0.
if main16=84 and main16=52 mtmark12=0.
*errors fixed, 773 cases remain.

temp.
select if sec16=45.
cro main16 by main17 by mtmark16.

temp.
select if sec16=46 or sec16=47.
cro main16 by main17 by mtmark16.

Do if mtmark16=0.
   Do if main16>95.
      compute avy46=41.
      compute avy47=41.
      compute avy48=41.
      compute mainy46=69.
      compute mainy47=69.
      compute mainy48=69.
      compute mtravy46=-8.
      compute mtravy47=-8.
      compute mtravy48=-8.
   Else if main16=1.
      compute avy46=16.
      compute avy47=16.
      compute avy48=13.
      compute mainy46=2.
      compute mainy47=2.
      compute mainy48=4.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=-7. 
   Else if main16=2.
      compute avy46=16.
      compute avy47=16.
      compute avy48=36.
      compute mainy46=2.
      compute mainy47=2.
      compute mainy48=55.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=3 or main16=4.
      compute avy46=16.
      compute avy47=16.
      compute avy48=16.
      compute mainy46=2.
      compute mainy47=2.
      compute mainy48=2.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=-7. 
   Else if main16=5.
      compute avy46=16.
      compute avy47=16.
      compute avy48=16.
      compute mainy46=3.
      compute mainy47=3.
      compute mainy48=3.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=6.
      compute avy46=13.
      compute avy47=13.
      compute avy48=13.
      compute mainy46=1.
      compute mainy47=1.
      compute mainy48=1.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16>6 and main16<20.
      compute avy46=30.
      compute avy47=30.
      compute avy48=30.
      compute mainy46=58.
      compute mainy47=58.
      compute mainy48=58.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16>19 and main16<30.
      compute avy46=31.
      compute avy47=31.
      compute avy48=31.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=59.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16>29 and main16<34.
      compute avy46=13.
      compute avy47=13.
      compute avy48=13.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=4.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=34 and sec16=45.
      compute avy46=15.
      compute avy47=15.
      compute avy48=5.
      compute mainy46=6.
      compute mainy47=6.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=1.
   Else if main16=34 and (sec16=46 or sec16=47).
      compute avy46=15.
      compute avy47=15.
      compute avy48=5.
      compute mainy46=6.
      compute mainy47=6.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=34 or main16=35 or ((main16=38 or main16=39) and loc16=1).
      compute avy46=15.
      compute avy47=15.
      compute avy48=15.
      compute mainy46=6.
      compute mainy47=6.
      compute mainy48=6.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=36.
      compute avy46=14.
      compute avy47=14.
      compute avy48=14.
      compute mainy46=25.
      compute mainy47=25.
      compute mainy48=25.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=37.
      compute avy46=12.
      compute avy47=12.
      compute avy48=12.
      compute mainy46=67.
      compute mainy47=67.
      compute mainy48=67.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=40.
      compute avy46=1.
      compute avy47=1.
      compute avy48=1.
      compute mainy46=13.
      compute mainy47=13.
      compute mainy48=13.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=41 and sec16=45.
      compute avy46=1.
      compute avy47=1.
      compute avy48=5.
      compute mainy46=7.
      compute mainy47=7.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=1.
   Else if main16=41 and (sec16=46 or sec16=47).
      compute avy46=1.
      compute avy47=1.
      compute avy48=5.
      compute mainy46=7.
      compute mainy47=7.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=41.
      compute avy46=1.
      compute avy47=1.
      compute avy48=1.
      compute mainy46=7.
      compute mainy47=7.
      compute mainy48=7.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=42 and (sec16=46 or sec16=47).
      compute avy46=4.
      compute avy47=4.
      compute avy48=5.
      compute mainy46=15.
      compute mainy47=15.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=42.
      compute avy46=4.
      compute avy47=4.
      compute avy48=4.
      compute mainy46=15.
      compute mainy47=15.
      compute mainy48=15.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=43.
      compute avy46=2.
      compute avy47=2.
      compute avy48=2.
      compute mainy46=8.
      compute mainy47=8.
      compute mainy48=8.
      compute mtravy46=-7.
      compute mtravy47=-7.
     compute mtravy48=-7.
   Else if main16=44.
      compute avy46=3.
      compute avy47=3.
      compute avy48=3.
      compute mainy46=9.
      compute mainy47=9.
      compute mainy48=9.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=45 and (main17=42 or main17=79).
      compute avy46=5.
      compute avy47=5.
      compute avy48=5.
      compute mainy46=64.
      compute mainy47=64.
      compute mainy48=64.
      compute mtravy46=1.
      compute mtravy47=1.
      compute mtravy48=1.
   Else if (main16=46 or main16=47) and (main17=42 or main17=79).
      compute avy46=5.
      compute avy47=5.
      compute avy48=5.
      compute mainy46=64.
      compute mainy47=64.
      compute mainy48=64.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=45.
      compute avy46=5.
      compute avy47=5.
      compute avy48=5.
      compute mainy46=63.
      compute mainy47=63.
      compute mainy48=63.
      compute mtravy46=1.
      compute mtravy47=1.
      compute mtravy48=1.
   Else if main16=46 or main16=47.
      compute avy46=5.
      compute avy47=5.
      compute avy48=5.
      compute mainy46=63.
      compute mainy47=63.
      compute mainy48=63.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=48.
      compute avy46=5.
      compute avy47=5.
      compute avy48=5.
      compute mainy46=11.
      compute mainy47=11.
      compute mainy48=11.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=49.
      compute avy46=1.
      compute avy47=1.
      compute avy48=1.
      compute mainy46=5.
      compute mainy47=5.
      compute mainy48=5.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=50.
      compute avy46=8.
      compute avy47=8.
      compute avy48=8.
      compute mainy46=21.
      compute mainy47=21.
      compute mainy48=21.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=51.
      compute avy46=11.
      compute avy47=11.
      compute avy48=11.
      compute mainy46=28.
      compute mainy47=28.
      compute mainy48=28.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=52.
      compute avy46=11.
      compute avy47=11.
      compute avy48=11.
      compute mainy46=30.
      compute mainy47=30.
      compute mainy48=30.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=53.
      compute avy46=6.
      compute avy47=6.
      compute avy48=6.
      compute mainy46=18.
      compute mainy47=18.
      compute mainy48=18.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=54.
      compute avy46=7.
      compute avy47=7.
      compute avy48=7.
      compute mainy46=20.
      compute mainy47=20.
      compute mainy48=20.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=55.
      compute avy46=8.
      compute avy47=8.
      compute avy48=8.
      compute mainy46=22.
      compute mainy47=22.
      compute mainy48=22.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=56.
      compute avy46=8.
      compute avy47=8.
      compute avy48=8.
      compute mainy46=27.
      compute mainy47=27.
      compute mainy48=27.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=57.
      compute avy46=10.
      compute avy47=10.
      compute avy48=10.
      compute mainy46=24.
      compute mainy47=24.
      compute mainy48=24.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=58.
      compute avy46=12.
      compute avy47=12.
      compute avy48=12.
      compute mainy46=66.
      compute mainy47=66.
      compute mainy48=66.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=59.
      compute avy46=7.
      compute avy47=7.
      compute avy48=13.
      compute mainy46=23.
      compute mainy47=23.
      compute mainy48=4.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=60.
      compute avy46=9.
      compute avy47=9.
      compute avy48=9.
      compute mainy46=46.
      compute mainy47=46.
      compute mainy48=46.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=61.
      compute avy46=33.
      compute avy47=33.
      compute avy48=33.
      compute mainy46=16.
      compute mainy47=16.
      compute mainy48=16.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=62.
      compute avy46=34.
      compute avy47=34.
      compute avy48=34.
      compute mainy46=56.
      compute mainy47=56.
      compute mainy48=56.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=63.
      compute avy46=35.
      compute avy47=35.
      compute avy48=35.
      compute mainy46=56.
      compute mainy47=56.
      compute mainy48=56.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=64.
      compute avy46=40.
      compute avy47=40.
      compute avy48=40.
      compute mainy46=54.
      compute mainy47=54.
      compute mainy48=54.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=65.
      compute avy46=39.
      compute avy47=39.
      compute avy48=39.
      compute mainy46=54.
      compute mainy47=54.
      compute mainy48=54.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=66.
      compute avy46=38.
      compute avy47=38.
      compute avy48=38.
      compute mainy46=48.
      compute mainy47=48.
      compute mainy48=48.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=67.
      compute avy46=37.
      compute avy47=37.
      compute avy48=37.
      compute mainy46=49.
      compute mainy47=49.
      compute mainy48=49.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=68.
      compute avy46=32.
      compute avy47=32.
      compute avy48=32.
      compute mainy46=57.
      compute mainy47=57.
      compute mainy48=57.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=69.
      compute avy46=36.
      compute avy47=36.
      compute avy48=36.
      compute mainy46=55.
      compute mainy47=55.
      compute mainy48=55.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=70.
      compute avy46=25.
      compute avy47=25.
      compute avy48=25.
      compute mainy46=35.
      compute mainy47=35.
      compute mainy48=35.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=71 and sec16=45.
      compute avy46=5.
      compute avy47=29.
      compute avy48=29.
      compute mainy46=63.
      compute mainy47=48.
      compute mainy48=48.
      compute mtravy46=1.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=71.
      compute avy46=29.
      compute avy47=29.
      compute avy48=29.
      compute mainy46=48.
      compute mainy47=48.
      compute mainy48=48.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=72.
      compute avy46=24.
      compute avy47=24.
      compute avy48=24.
      compute mainy46=37.
      compute mainy47=37.
      compute mainy48=37.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=73.
      compute avy46=23.
      compute avy47=23.
      compute avy48=23.
      compute mainy46=33.
      compute mainy47=33.
      compute mainy48=33.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=74.
      compute avy46=26.
      compute avy47=26.
      compute avy48=26.
      compute mainy46=40.
      compute mainy47=40.
      compute mainy48=40.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=75 or main16=39.
      compute avy46=27.
      compute avy47=27.
      compute avy48=27.
      compute mainy46=39.
      compute mainy47=39.
      compute mainy48=39.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=76.
      compute avy46=25.
      compute avy47=25.
      compute avy48=25.
      compute mainy46=40.
      compute mainy47=40.
      compute mainy48=40.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=77 or main16=38.
      compute avy46=28.
      compute avy47=28.
      compute avy48=28.
      compute mainy46=39.
      compute mainy47=39.
      compute mainy48=39.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=78.
      compute avy46=22.
      compute avy47=22.
      compute avy48=22.
      compute mainy46=34.
      compute mainy47=34.
      compute mainy48=34.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=79.
      compute avy46=4.
      compute avy47=4.
      compute avy48=4.
      compute mainy46=17.
      compute mainy47=17.
      compute mainy48=17.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=80.
      compute avy46=18.
      compute avy47=18.
      compute avy48=18.
      compute mainy46=38.
      compute mainy47=38.
      compute mainy48=38.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=81.
      compute avy46=19.
      compute avy47=19.
      compute avy48=19.
      compute mainy46=42.
      compute mainy47=42.
      compute mainy48=42.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=82.
      compute avy46=20.
      compute avy47=20.
      compute avy48=20.
      compute mainy46=36.
      compute mainy47=36.
      compute mainy48=36.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=83.
      compute avy46=21.
      compute avy47=21.
      compute avy48=21.
      compute mainy46=43.
      compute mainy47=43.
      compute mainy48=43.
      compute mtravy46=3.
      compute mtravy47=3.
      compute mtravy48=3.
   Else if main16=84.
      compute avy46=18.
      compute avy47=18.
      compute avy48=18.
      compute mainy46=45.
      compute mainy47=45.
      compute mainy48=45.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=85 or main16=86.
      compute avy46=18.
      compute avy47=18.
      compute avy48=18.
      compute mainy46=38.
      compute mainy47=38.
      compute mainy48=38.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=89.
      compute avy46=17.
      compute avy47=17.
      compute avy48=17.
      compute mainy46=68.
      compute mainy47=68.
      compute mainy48=68.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=90.
      compute avy46=17.
      compute avy47=17.
      compute avy48=17.
      compute mainy46=62.
      compute mainy47=62.
      compute mainy48=62.
      compute mtravy46=5.
      compute mtravy47=5.
      compute mtravy48=5.
   Else if main16=91.
      compute avy46=40.
      compute avy47=40.
      compute avy48=40.
      compute mainy46=51.
      compute mainy47=51.
      compute mainy48=51.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=92.
      compute avy46=31.
      compute avy47=31.
      compute avy48=31.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=59.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   Else if main16=93.
      compute avy46=41.
      compute avy47=41.
      compute avy48=41.
      compute mainy46=41.
      compute mainy47=41.
      compute mainy48=41.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=-7.
   End if.
Else if mtmark16=1.
   Do if main16=2 and (main17=42 or main17=79).
      compute avy46=16.
      compute avy47=36.
      compute avy48=5.
      compute mainy46=2.
      compute mainy47=55.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=2 and (main17=41 or main17=44).
      compute avy46=16.
      compute avy47=36.
      compute avy48=5.
      compute mainy46=2.
      compute mainy47=55.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=2 and (main17=36 or main17=57).
      compute avy46=16.
      compute avy47=36.
      compute avy48=12.
      compute mainy46=2.
      compute mainy47=55.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=2.
      compute avy46=16.
      compute avy47=36.
      compute avy48=17.
      compute mainy46=2.
      compute mainy47=55.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=3 and (main17=42 or main17=79).
      compute avy46=16.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=2.
      compute mainy47=4.
      compute mainy48=64.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=5. 
   Else if main16=3 and (main17=41 or main17=44).
      compute avy46=16.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=2.
      compute mainy47=4.
      compute mainy48=63.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=5. 
   Else if main16=3 and (main17=36 or main17=57).
      compute avy46=16.
      compute avy47=13.
      compute avy48=12.
      compute mainy46=2.
      compute mainy47=4.
      compute mainy48=67.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=5. 
   Else if main16=3.
      compute avy46=16.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=2.
      compute mainy47=4.
      compute mainy48=63.
      compute mtravy46=-7. 
      compute mtravy47=-7. 
      compute mtravy48=5.
   Else if main16=6 and (main17=41 or main17=44).
      compute avy46=13.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=1.
      compute mainy47=1.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=6 and (main17=42 or main17=79).
      compute avy46=13.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=1.
      compute mainy47=1.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=6 and (main17=36 or main17=57).
      compute avy46=13.
      compute avy47=13.
      compute avy48=12.
      compute mainy46=1.
      compute mainy47=1.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=6.
      compute avy46=13.
      compute avy47=13.
      compute avy48=17.
      compute mainy46=1.
      compute mainy47=1.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>10 and main16<15) and (main17=42 or main17=79).
      compute avy46=30.
      compute avy47=30.
      compute avy48=5.
      compute mainy46=58.
      compute mainy47=58.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>10 and main16<15) and (main17=41 or main17=44).
      compute avy46=30.
      compute avy47=30.
      compute avy48=5.
      compute mainy46=58.
      compute mainy47=58.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>10 and main16<15) and (main17=36 or main17=57).
      compute avy46=30.
      compute avy47=30.
      compute avy48=12.
      compute mainy46=58.
      compute mainy47=58.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16>10 and main16<15.
      compute avy46=30.
      compute avy47=30.
      compute avy48=17.
      compute mainy46=58.
      compute mainy47=58.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>19 and main16<30) and (main17=41 or main17=44).
      compute avy46=31.
      compute avy47=31.
      compute avy48=5.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>19 and main16<30) and (main17=42 or main17=79).
      compute avy46=31.
      compute avy47=31.
      compute avy48=5.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>19 and main16<30) and (main17=36 or main17=57).
      compute avy46=31.
      compute avy47=31.
      compute avy48=12.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16>19 and main16<30.
      compute avy46=31.
      compute avy47=31.
      compute avy48=17.
      compute mainy46=59.
      compute mainy47=59.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>29 and main16<34) and sec16=45.
      compute avy46=13.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=1.
   Else if (main16>29 and main16<34) and (main17=42 or main17=79).
      compute avy46=13.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>29 and main16<34) and (main17=57 or main17=36).
      compute avy46=13.
      compute avy47=13.
      compute avy48=12.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>29 and main16<34) and (main17=41 or main17=44 or main17=47).
      compute avy46=13.
      compute avy47=13.
      compute avy48=5.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if (main16>29 and main16<34).
      compute avy46=13.
      compute avy47=13.
      compute avy48=17.
      compute mainy46=4.
      compute mainy47=4.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=36.
      compute avy46=14.
      compute avy47=14.
      compute avy48=12.
      compute mainy46=25.
      compute mainy47=25.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=41.
      compute avy46=1.
      compute avy47=1.
      compute avy48=5.
      compute mainy46=7.
      compute mainy47=7.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=42.
      compute avy46=4.
      compute avy47=4.
      compute avy48=5.
      compute mainy46=15.
      compute mainy47=15.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=43 and (main17=42 or main17=79).
      compute avy46=2.
      compute avy47=2.
      compute avy48=5.
      compute mainy46=8.
      compute mainy47=8.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
     compute mtravy48=5.
   Else if main16=43.
      compute avy46=2.
      compute avy47=2.
      compute avy48=5.
      compute mainy46=8.
      compute mainy47=8.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
     compute mtravy48=5.
   Else if main16=44.
      compute avy46=3.
      compute avy47=3.
      compute avy48=5.
      compute mainy46=9.
      compute mainy47=9.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=50 and (main17=41 or main17=44).
      compute avy46=8.
      compute avy47=8.
      compute avy48=5.
      compute mainy46=21.
      compute mainy47=21.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=50 and (main17=42 or main17=79).
      compute avy46=8.
      compute avy47=8.
      compute avy48=5.
      compute mainy46=21.
      compute mainy47=21.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=50 and (main17=57 or main17=36).
      compute avy46=8.
      compute avy47=8.
      compute avy48=12.
      compute mainy46=21.
      compute mainy47=21.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=50.
      compute avy46=8.
      compute avy47=8.
      compute avy48=17.
      compute mainy46=21.
      compute mainy47=21.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=51 and (main17=41 or main17=44 or main17=45).
      compute avy46=11.
      compute avy47=11.
      compute avy48=5.
      compute mainy46=28.
      compute mainy47=28.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=51 and (main17=42 or main17=79).
      compute avy46=11.
      compute avy47=11.
      compute avy48=5.
      compute mainy46=28.
      compute mainy47=28.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=51 and (main17=57 or main17=36).
      compute avy46=11.
      compute avy47=11.
      compute avy48=12.
      compute mainy46=28.
      compute mainy47=28.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=51.
      compute avy46=11.
      compute avy47=11.
      compute avy48=17.
      compute mainy46=28.
      compute mainy47=28.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=53 and (main17=42 or main17=79).
      compute avy46=6.
      compute avy47=6.
      compute avy48=5.
      compute mainy46=18.
      compute mainy47=18.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=53 and (main17=36 or main17=57).
      compute avy46=6.
      compute avy47=6.
      compute avy48=12.
      compute mainy46=18.
      compute mainy47=18.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=53 and (main17=41 or main17=44).
      compute avy46=6.
      compute avy47=6.
      compute avy48=5.
      compute mainy46=18.
      compute mainy47=18.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=53.
      compute avy46=6.
      compute avy47=6.
      compute avy48=17.
      compute mainy46=18.
      compute mainy47=18.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=54 and (main17=36 or main17=57).
      compute avy46=7.
      compute avy47=7.
      compute avy48=12.
      compute mainy46=20.
      compute mainy47=20.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=54 and (main17=41 or main17=44 or main17=47).
      compute avy46=7.
      compute avy47=7.
      compute avy48=5.
      compute mainy46=20.
      compute mainy47=20.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=54 and (main17=42 or main17=79).
      compute avy46=7.
      compute avy47=7.
      compute avy48=5.
      compute mainy46=20.
      compute mainy47=20.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=54.
      compute avy46=7.
      compute avy47=7.
      compute avy48=17.
      compute mainy46=20.
      compute mainy47=20.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=55 and (main17=57 or main17=36).
      compute avy46=8.
      compute avy47=8.
      compute avy48=12.
      compute mainy46=22.
      compute mainy47=22.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=55 and (main17=42 or main17=79).
      compute avy46=8.
      compute avy47=8.
      compute avy48=5.
      compute mainy46=22.
      compute mainy47=22.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=55.
      compute avy46=8.
      compute avy47=8.
      compute avy48=17.
      compute mainy46=22.
      compute mainy47=22.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=56 and (main17=41 or main17=44).
      compute avy46=8.
      compute avy47=8.
      compute avy48=5.
      compute mainy46=27.
      compute mainy47=27.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=56 and (main17=42 or main17=79).
      compute avy46=8.
      compute avy47=8.
      compute avy48=5.
      compute mainy46=27.
      compute mainy47=27.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=56 and (main17=36 or main17=57).
      compute avy46=8.
      compute avy47=8.
      compute avy48=12.
      compute mainy46=27.
      compute mainy47=27.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=56.
      compute avy46=8.
      compute avy47=8.
      compute avy48=17.
      compute mainy46=27.
      compute mainy47=27.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=57 and (main17=41 or main17=44).
      compute avy46=10.
      compute avy47=10.
      compute avy48=5.
      compute mainy46=24.
      compute mainy47=24.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=57 and (main17=42 or main17=79).
      compute avy46=10.
      compute avy47=10.
      compute avy48=5.
      compute mainy46=24.
      compute mainy47=24.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=57 and (main17=36 or main17=57).
      compute avy46=10.
      compute avy47=10.
      compute avy48=12.
      compute mainy46=24.
      compute mainy47=24.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=57.
      compute avy46=10.
      compute avy47=10.
      compute avy48=17.
      compute mainy46=24.
      compute mainy47=24.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=59.
      compute avy46=7.
      compute avy47=7.
      compute avy48=12.
      compute mainy46=23.
      compute mainy47=23.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=66.
      compute avy46=38.
      compute avy47=38.
      compute avy48=12.
      compute mainy46=48.
      compute mainy47=48.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=69 and (main17=41 or main17=44).
      compute avy46=36.
      compute avy47=36.
      compute avy48=5.
      compute mainy46=55.
      compute mainy47=55.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=69 and (main17=36 or main17=57).
      compute avy46=36.
      compute avy47=36.
      compute avy48=12.
      compute mainy46=55.
      compute mainy47=55.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=69.
      compute avy46=36.
      compute avy47=36.
      compute avy48=17.
      compute mainy46=55.
      compute mainy47=55.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=71 and main17=42.
      compute avy46=29.
      compute avy47=29.
      compute avy48=5.
      compute mainy46=48.
      compute mainy47=48.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=71 and main17=41.
      compute avy46=29.
      compute avy47=29.
      compute avy48=5.
      compute mainy46=48.
      compute mainy47=48.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=75.
      compute avy46=27.
      compute avy47=27.
      compute avy48=17.
      compute mainy46=39.
      compute mainy47=39.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=77.
      compute avy46=28.
      compute avy47=28.
      compute avy48=17.
      compute mainy46=39.
      compute mainy47=39.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=78 and (main16=41 or main16=44).
      compute avy46=22.
      compute avy47=22.
      compute avy48=5.
      compute mainy46=34.
      compute mainy47=34.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=78.
      compute avy46=22.
      compute avy47=22.
      compute avy48=17.
      compute mainy46=34.
      compute mainy47=34.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=79.
      compute avy46=4.
      compute avy47=4.
      compute avy48=5.
      compute mainy46=17.
      compute mainy47=17.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=82.
      compute avy46=20.
      compute avy47=20.
      compute avy48=17.
      compute mainy46=36.
      compute mainy47=36.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=84.
      compute avy46=18.
      compute avy47=18.
      compute avy48=17.
      compute mainy46=45.
      compute mainy47=45.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=85 or main16=86.
      compute avy46=18.
      compute avy47=18.
      compute avy48=17.
      compute mainy46=38.
      compute mainy47=38.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=91 and (main17=36 or main17=57).
      compute avy46=40.
      compute avy47=40.
      compute avy48=12.
      compute mainy46=51.
      compute mainy47=51.
      compute mainy48=67.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=91 and (main17=41 or main17=44).
      compute avy46=40.
      compute avy47=40.
      compute avy48=5.
      compute mainy46=51.
      compute mainy47=51.
      compute mainy48=63.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=91 and (main17=42 or main17=79).
      compute avy46=40.
      compute avy47=40.
      compute avy48=5.
      compute mainy46=51.
      compute mainy47=51.
      compute mainy48=64.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   Else if main16=91.
      compute avy46=40.
      compute avy47=40.
      compute avy48=17.
      compute mainy46=51.
      compute mainy47=51.
      compute mainy48=68.
      compute mtravy46=-7.
      compute mtravy47=-7.
      compute mtravy48=5.
   End if.
End if.

Do if main16=1 and main17=1 and mtmark16=0.
   compute avy46=16.
   compute avy47=16.
   compute avy48=16.
   compute mainy46=2.
   compute mainy47=2.
   compute mainy48=2.
   compute mtravy46=-7. 
   compute mtravy47=-7. 
   compute mtravy48=-7. 
Else if main16=2 and main17=2 and mtmark16=0.
   compute avy46=16.
   compute avy47=16.
   compute avy48=16.
   compute mainy46=2.
   compute mainy47=2.
   compute mainy48=2.
   compute mtravy46=-7.
   compute mtravy47=-7.
   compute mtravy48=-7.
End if.

freq avy46 avy47 avy48 mainy46 mainy47 mainy48 mtravy46 mtravy47 mtravy48.

*set values for the 17th time slot.
freq mtmark17.
*1424 missing travel cases in time slot 17.

temp.
select if mtmark17=1.
cro main17 by main18.

if main17=83 or main18=83 or main17=63 or main18=63 mtmark17=0.
if main17=34 or main17=38 or main17=62 or main17=67 or main17=81 mtmark17=0.
if main18=34 or main18=38 or main18=62 or main18=67 or main18=81 mtmark17=0.
if main17=main18 mtmark17=0.
if main17=1 or main17=61 or main18=61 or main18=72 or main18=50 mtmark17=0.
if main17=59 and main18>57 mtmark17=0.
if main17=60 or main17=64 or main17=66 or main17=68 or main17=70 or 
   main17=71 or main17=72 or main17=73 or main17=35 or main17=52 or 
   main17=65 or main17=74 or main17=80 or main17=82 or main17=99 mtmark17=0.
if main17=84 and main17=52 mtmark12=0.
*errors fixed, 492 cases remain.

temp.
select if sec17=45.
cro main17 by main18 by mtmark17.

temp.
select if sec17=46 or sec17=47.
cro main17 by main18 by mtmark17.

Do if mtmark17=0.
   Do if main17>95.
      compute avy49=41.
      compute avy50=41.
      compute avy51=41.
      compute mainy49=69.
      compute mainy50=69.
      compute mainy51=69.
      compute mtravy49=-8.
      compute mtravy50=-8.
      compute mtravy51=-8.
   Else if main17=1.
      compute avy49=16.
      compute avy50=16.
      compute avy51=13.
      compute mainy49=2.
      compute mainy50=2.
      compute mainy51=4.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=-7. 
   Else if main17=2.
      compute avy49=16.
      compute avy50=16.
      compute avy51=36.
      compute mainy49=2.
      compute mainy50=2.
      compute mainy51=55.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=3 or main17=4.
      compute avy49=16.
      compute avy50=16.
      compute avy51=16.
      compute mainy49=2.
      compute mainy50=2.
      compute mainy51=2.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=-7. 
   Else if main17=5.
      compute avy49=16.
      compute avy50=16.
      compute avy51=16.
      compute mainy49=3.
      compute mainy50=3.
      compute mainy51=3.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=6.
      compute avy49=13.
      compute avy50=13.
      compute avy51=13.
      compute mainy49=1.
      compute mainy50=1.
      compute mainy51=1.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if (main17>6 and main17<20) and (sec17=46 or sec17=47).
      compute avy49=5.
      compute avy50=30.
      compute avy51=30.
      compute mainy49=63.
      compute mainy50=58.
      compute mainy51=58.
      compute mtravy49=5.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17>6 and main17<20.
      compute avy49=30.
      compute avy50=30.
      compute avy51=30.
      compute mainy49=58.
      compute mainy50=58.
      compute mainy51=58.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if (main17>19 and main17<30) and (sec17=46 or sec17=47).
      compute avy49=5.
      compute avy50=31.
      compute avy51=31.
      compute mainy49=63.
      compute mainy50=59.
      compute mainy51=59.
      compute mtravy49=5.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17>19 and main17<30.
      compute avy49=31.
      compute avy50=31.
      compute avy51=31.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=59.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17>29 and main17<34.
      compute avy49=13.
      compute avy50=13.
      compute avy51=13.
      compute mainy49=4.
      compute mainy50=4.
      compute mainy51=4.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=34 and sec17=45.
      compute avy49=5.
      compute avy50=15.
      compute avy51=15.
      compute mainy49=63.
      compute mainy50=6.
      compute mainy51=6.
      compute mtravy49=1.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=34 and (sec17=46 or sec17=47) and main18=41.
      compute avy49=15.
      compute avy50=15.
      compute avy51=5.
      compute mainy49=6.
      compute mainy50=6.
      compute mainy51=63.
      compute mtravy49=1.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=34 and (sec17=46 or sec17=47) and (main18=42 or main18=47).
      compute avy49=15.
      compute avy50=15.
      compute avy51=5.
      compute mainy49=6.
      compute mainy50=6.
      compute mainy51=63.
      compute mtravy49=1.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=34 and (sec17=46 or sec17=47).
      compute avy49=5.
      compute avy50=15.
      compute avy51=15.
      compute mainy49=63.
      compute mainy50=6.
      compute mainy51=6.
      compute mtravy49=5.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=34 or main17=35 or ((main17=38 or main17=39) and loc17=1).
      compute avy49=15.
      compute avy50=15.
      compute avy51=15.
      compute mainy49=6.
      compute mainy50=6.
      compute mainy51=6.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=36.
      compute avy49=14.
      compute avy50=14.
      compute avy51=14.
      compute mainy49=25.
      compute mainy50=25.
      compute mainy51=25.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=37.
      compute avy49=12.
      compute avy50=12.
      compute avy51=12.
      compute mainy49=67.
      compute mainy50=67.
      compute mainy51=67.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=40.
      compute avy49=1.
      compute avy50=1.
      compute avy51=1.
      compute mainy49=13.
      compute mainy50=13.
      compute mainy51=13.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=41 and sec17=45.
      compute avy49=1.
      compute avy50=1.
      compute avy51=5.
      compute mainy49=7.
      compute mainy50=7.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=1.
   Else if main17=41.
      compute avy49=1.
      compute avy50=1.
      compute avy51=1.
      compute mainy49=7.
      compute mainy50=7.
      compute mainy51=7.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=42.
      compute avy49=4.
      compute avy50=4.
      compute avy51=4.
      compute mainy49=15.
      compute mainy50=15.
      compute mainy51=15.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=43.
      compute avy49=2.
      compute avy50=2.
      compute avy51=2.
      compute mainy49=8.
      compute mainy50=8.
      compute mainy51=8.
      compute mtravy49=-7.
      compute mtravy50=-7.
     compute mtravy51=-7.
   Else if main17=44.
      compute avy49=3.
      compute avy50=3.
      compute avy51=3.
      compute mainy49=9.
      compute mainy50=9.
      compute mainy51=9.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=45 and (main18=42 or main18=79).
      compute avy49=5.
      compute avy50=5.
      compute avy51=5.
      compute mainy49=64.
      compute mainy50=64.
      compute mainy51=64.
      compute mtravy49=1.
      compute mtravy50=1.
      compute mtravy51=1.
   Else if (main17=46 or main17=47) and (main18=42 or main18=79).
      compute avy49=5.
      compute avy50=5.
      compute avy51=5.
      compute mainy49=64.
      compute mainy50=64.
      compute mainy51=64.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=45.
      compute avy49=5.
      compute avy50=5.
      compute avy51=5.
      compute mainy49=63.
      compute mainy50=63.
      compute mainy51=63.
      compute mtravy49=1.
      compute mtravy50=1.
      compute mtravy51=1.
   Else if main17=46 or main17=47.
      compute avy49=5.
      compute avy50=5.
      compute avy51=5.
      compute mainy49=63.
      compute mainy50=63.
      compute mainy51=63.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=48.
      compute avy49=5.
      compute avy50=5.
      compute avy51=5.
      compute mainy49=11.
      compute mainy50=11.
      compute mainy51=11.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=49.
      compute avy49=1.
      compute avy50=1.
      compute avy51=1.
      compute mainy49=5.
      compute mainy50=5.
      compute mainy51=5.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=50.
      compute avy49=8.
      compute avy50=8.
      compute avy51=8.
      compute mainy49=21.
      compute mainy50=21.
      compute mainy51=21.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=51.
      compute avy49=11.
      compute avy50=11.
      compute avy51=11.
      compute mainy49=28.
      compute mainy50=28.
      compute mainy51=28.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=52.
      compute avy49=11.
      compute avy50=11.
      compute avy51=11.
      compute mainy49=30.
      compute mainy50=30.
      compute mainy51=30.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=53.
      compute avy49=6.
      compute avy50=6.
      compute avy51=6.
      compute mainy49=18.
      compute mainy50=18.
      compute mainy51=18.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=54.
      compute avy49=7.
      compute avy50=7.
      compute avy51=7.
      compute mainy49=20.
      compute mainy50=20.
      compute mainy51=20.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=55.
      compute avy49=8.
      compute avy50=8.
      compute avy51=8.
      compute mainy49=22.
      compute mainy50=22.
      compute mainy51=22.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=56.
      compute avy49=8.
      compute avy50=8.
      compute avy51=8.
      compute mainy49=27.
      compute mainy50=27.
      compute mainy51=27.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=57 and sec17=45.
      compute avy49=10.
      compute avy50=10.
      compute avy51=5.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=1.
   Else if main17=57.
      compute avy49=10.
      compute avy50=10.
      compute avy51=10.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=24.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=58.
      compute avy49=12.
      compute avy50=12.
      compute avy51=12.
      compute mainy49=66.
      compute mainy50=66.
      compute mainy51=66.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=59 and (sec17=46 or sec17=47).
      compute avy49=5.
      compute avy50=7.
      compute avy51=13.
      compute mainy49=63.
      compute mainy50=23.
      compute mainy51=4.
      compute mtravy49=5.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=59.
      compute avy49=7.
      compute avy50=7.
      compute avy51=13.
      compute mainy49=23.
      compute mainy50=23.
      compute mainy51=4.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=60.
      compute avy49=9.
      compute avy50=9.
      compute avy51=9.
      compute mainy49=46.
      compute mainy50=46.
      compute mainy51=46.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=61.
      compute avy49=33.
      compute avy50=33.
      compute avy51=33.
      compute mainy49=16.
      compute mainy50=16.
      compute mainy51=16.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=62.
      compute avy49=34.
      compute avy50=34.
      compute avy51=34.
      compute mainy49=56.
      compute mainy50=56.
      compute mainy51=56.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=63.
      compute avy49=35.
      compute avy50=35.
      compute avy51=35.
      compute mainy49=56.
      compute mainy50=56.
      compute mainy51=56.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=64.
      compute avy49=40.
      compute avy50=40.
      compute avy51=40.
      compute mainy49=54.
      compute mainy50=54.
      compute mainy51=54.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=65.
      compute avy49=39.
      compute avy50=39.
      compute avy51=39.
      compute mainy49=54.
      compute mainy50=54.
      compute mainy51=54.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=66.
      compute avy49=38.
      compute avy50=38.
      compute avy51=38.
      compute mainy49=48.
      compute mainy50=48.
      compute mainy51=48.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=67 and (sec17=46 or sec17=47).
      compute avy49=37.
      compute avy50=37.
      compute avy51=5.
      compute mainy49=49.
      compute mainy50=49.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=67.
      compute avy49=37.
      compute avy50=37.
      compute avy51=37.
      compute mainy49=49.
      compute mainy50=49.
      compute mainy51=49.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=68.
      compute avy49=32.
      compute avy50=32.
      compute avy51=32.
      compute mainy49=57.
      compute mainy50=57.
      compute mainy51=57.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=69.
      compute avy49=36.
      compute avy50=36.
      compute avy51=36.
      compute mainy49=55.
      compute mainy50=55.
      compute mainy51=55.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=70.
      compute avy49=25.
      compute avy50=25.
      compute avy51=25.
      compute mainy49=35.
      compute mainy50=35.
      compute mainy51=35.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=71.
      compute avy49=29.
      compute avy50=29.
      compute avy51=29.
      compute mainy49=48.
      compute mainy50=48.
      compute mainy51=48.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=72.
      compute avy49=24.
      compute avy50=24.
      compute avy51=24.
      compute mainy49=37.
      compute mainy50=37.
      compute mainy51=37.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=73.
      compute avy49=23.
      compute avy50=23.
      compute avy51=23.
      compute mainy49=33.
      compute mainy50=33.
      compute mainy51=33.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=74.
      compute avy49=26.
      compute avy50=26.
      compute avy51=26.
      compute mainy49=40.
      compute mainy50=40.
      compute mainy51=40.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=75 or main17=39.
      compute avy49=27.
      compute avy50=27.
      compute avy51=27.
      compute mainy49=39.
      compute mainy50=39.
      compute mainy51=39.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=76.
      compute avy49=25.
      compute avy50=25.
      compute avy51=25.
      compute mainy49=40.
      compute mainy50=40.
      compute mainy51=40.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=77 or main17=38.
      compute avy49=28.
      compute avy50=28.
      compute avy51=28.
      compute mainy49=39.
      compute mainy50=39.
      compute mainy51=39.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=78.
      compute avy49=22.
      compute avy50=22.
      compute avy51=22.
      compute mainy49=34.
      compute mainy50=34.
      compute mainy51=34.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=79.
      compute avy49=4.
      compute avy50=4.
      compute avy51=4.
      compute mainy49=17.
      compute mainy50=17.
      compute mainy51=17.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=80.
      compute avy49=18.
      compute avy50=18.
      compute avy51=18.
      compute mainy49=38.
      compute mainy50=38.
      compute mainy51=38.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=81.
      compute avy49=19.
      compute avy50=19.
      compute avy51=19.
      compute mainy49=42.
      compute mainy50=42.
      compute mainy51=42.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=82.
      compute avy49=20.
      compute avy50=20.
      compute avy51=20.
      compute mainy49=36.
      compute mainy50=36.
      compute mainy51=36.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=83.
      compute avy49=21.
      compute avy50=21.
      compute avy51=21.
      compute mainy49=43.
      compute mainy50=43.
      compute mainy51=43.
      compute mtravy49=3.
      compute mtravy50=3.
      compute mtravy51=3.
   Else if main17=84.
      compute avy49=18.
      compute avy50=18.
      compute avy51=18.
      compute mainy49=45.
      compute mainy50=45.
      compute mainy51=45.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=85 or main17=86.
      compute avy49=18.
      compute avy50=18.
      compute avy51=18.
      compute mainy49=38.
      compute mainy50=38.
      compute mainy51=38.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=89.
      compute avy49=17.
      compute avy50=17.
      compute avy51=17.
      compute mainy49=68.
      compute mainy50=68.
      compute mainy51=68.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=90.
      compute avy49=17.
      compute avy50=17.
      compute avy51=17.
      compute mainy49=62.
      compute mainy50=62.
      compute mainy51=62.
      compute mtravy49=5.
      compute mtravy50=5.
      compute mtravy51=5.
   Else if main17=91.
      compute avy49=40.
      compute avy50=40.
      compute avy51=40.
      compute mainy49=51.
      compute mainy50=51.
      compute mainy51=51.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=92.
      compute avy49=31.
      compute avy50=31.
      compute avy51=31.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=59.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=93.
      compute avy49=41.
      compute avy50=41.
      compute avy51=41.
      compute mainy49=41.
      compute mainy50=41.
      compute mainy51=41.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=-7.
   End if.
Else if mtmark17=1.
   Do if main17=2 and (main18=42 or main18=79).
      compute avy49=16.
      compute avy50=36.
      compute avy51=5.
      compute mainy49=2.
      compute mainy50=55.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=2 and (main18=41 or main18=44).
      compute avy49=16.
      compute avy50=36.
      compute avy51=5.
      compute mainy49=2.
      compute mainy50=55.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=2 and (main18=36 or main18=57).
      compute avy49=16.
      compute avy50=36.
      compute avy51=12.
      compute mainy49=2.
      compute mainy50=55.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=2.
      compute avy49=16.
      compute avy50=36.
      compute avy51=17.
      compute mainy49=2.
      compute mainy50=55.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=3 and (main18=42 or main18=79).
      compute avy49=16.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=2.
      compute mainy50=4.
      compute mainy51=64.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=5. 
   Else if main17=3 and (main18=41 or main18=44).
      compute avy49=16.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=2.
      compute mainy50=4.
      compute mainy51=63.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=5. 
   Else if main17=3 and (main18=36 or main18=57).
      compute avy49=16.
      compute avy50=13.
      compute avy51=12.
      compute mainy49=2.
      compute mainy50=4.
      compute mainy51=67.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=5. 
   Else if main17=3.
      compute avy49=16.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=2.
      compute mainy50=4.
      compute mainy51=63.
      compute mtravy49=-7. 
      compute mtravy50=-7. 
      compute mtravy51=5.
   Else if main17=6 and (main18=41 or main18=44).
      compute avy49=13.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=1.
      compute mainy50=1.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=6 and (main18=42 or main18=79).
      compute avy49=13.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=1.
      compute mainy50=1.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=6 and (main18=36 or main18=57).
      compute avy49=13.
      compute avy50=13.
      compute avy51=12.
      compute mainy49=1.
      compute mainy50=1.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=6.
      compute avy49=13.
      compute avy50=13.
      compute avy51=17.
      compute mainy49=1.
      compute mainy50=1.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>10 and main17<15) and (main18=42 or main18=79).
      compute avy49=30.
      compute avy50=30.
      compute avy51=5.
      compute mainy49=58.
      compute mainy50=58.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>10 and main17<15) and (main18=41 or main18=44).
      compute avy49=30.
      compute avy50=30.
      compute avy51=5.
      compute mainy49=58.
      compute mainy50=58.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>10 and main17<15) and (main18=36 or main18=57).
      compute avy49=30.
      compute avy50=30.
      compute avy51=12.
      compute mainy49=58.
      compute mainy50=58.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17>10 and main17<15.
      compute avy49=30.
      compute avy50=30.
      compute avy51=17.
      compute mainy49=58.
      compute mainy50=58.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>19 and main17<30) and (main18=41 or main18=44).
      compute avy49=31.
      compute avy50=31.
      compute avy51=5.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>19 and main17<30) and (main18=42 or main18=79).
      compute avy49=31.
      compute avy50=31.
      compute avy51=5.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>19 and main17<30) and (main18=36 or main18=57).
      compute avy49=31.
      compute avy50=31.
      compute avy51=12.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17>19 and main17<30.
      compute avy49=31.
      compute avy50=31.
      compute avy51=17.
      compute mainy49=59.
      compute mainy50=59.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>29 and main17<34) and sec17=45.
      compute avy49=5.
      compute avy50=13.
      compute avy51=13.
      compute mainy49=63.
      compute mainy50=4.
      compute mainy51=4.
      compute mtravy49=1.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if (main17>29 and main17<34) and (main18=42 or main18=79).
      compute avy49=13.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=4.
      compute mainy50=4.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>29 and main17<34) and (main18=57 or main18=36).
      compute avy49=13.
      compute avy50=13.
      compute avy51=12.
      compute mainy49=4.
      compute mainy50=4.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>29 and main17<34) and (main18=41 or main18=44 or main18=47).
      compute avy49=13.
      compute avy50=13.
      compute avy51=5.
      compute mainy49=4.
      compute mainy50=4.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if (main17>29 and main17<34).
      compute avy49=13.
      compute avy50=13.
      compute avy51=17.
      compute mainy49=4.
      compute mainy50=4.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=36.
      compute avy49=14.
      compute avy50=14.
      compute avy51=12.
      compute mainy49=25.
      compute mainy50=25.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=41 and sec17=45.
      compute avy49=1.
      compute avy50=1.
      compute avy51=5.
      compute mainy49=7.
      compute mainy50=7.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=1.
   Else if main17=41.
      compute avy49=1.
      compute avy50=1.
      compute avy51=5.
      compute mainy49=7.
      compute mainy50=7.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=42.
      compute avy49=4.
      compute avy50=4.
      compute avy51=5.
      compute mainy49=15.
      compute mainy50=15.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=43 and (main18=42 or main18=79).
      compute avy49=2.
      compute avy50=2.
      compute avy51=5.
      compute mainy49=8.
      compute mainy50=8.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
     compute mtravy51=5.
   Else if main17=43.
      compute avy49=2.
      compute avy50=2.
      compute avy51=5.
      compute mainy49=8.
      compute mainy50=8.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
     compute mtravy51=5.
   Else if main17=44.
      compute avy49=3.
      compute avy50=3.
      compute avy51=5.
      compute mainy49=9.
      compute mainy50=9.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=50 and (main18=41 or main18=44).
      compute avy49=8.
      compute avy50=8.
      compute avy51=5.
      compute mainy49=21.
      compute mainy50=21.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=50 and (main18=42 or main18=79).
      compute avy49=8.
      compute avy50=8.
      compute avy51=5.
      compute mainy49=21.
      compute mainy50=21.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=50 and (main18=57 or main18=36).
      compute avy49=8.
      compute avy50=8.
      compute avy51=12.
      compute mainy49=21.
      compute mainy50=21.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=50.
      compute avy49=8.
      compute avy50=8.
      compute avy51=17.
      compute mainy49=21.
      compute mainy50=21.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=51 and (main18=41 or main18=44 or main18=45).
      compute avy49=11.
      compute avy50=11.
      compute avy51=5.
      compute mainy49=28.
      compute mainy50=28.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=51 and (main18=42 or main18=79).
      compute avy49=11.
      compute avy50=11.
      compute avy51=5.
      compute mainy49=28.
      compute mainy50=28.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=51 and (main18=57 or main18=36).
      compute avy49=11.
      compute avy50=11.
      compute avy51=12.
      compute mainy49=28.
      compute mainy50=28.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=51.
      compute avy49=11.
      compute avy50=11.
      compute avy51=17.
      compute mainy49=28.
      compute mainy50=28.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=53 and (main18=42 or main18=79).
      compute avy49=6.
      compute avy50=6.
      compute avy51=5.
      compute mainy49=18.
      compute mainy50=18.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=53 and (main18=36 or main18=57).
      compute avy49=6.
      compute avy50=6.
      compute avy51=12.
      compute mainy49=18.
      compute mainy50=18.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=53 and (main18=41 or main18=44).
      compute avy49=6.
      compute avy50=6.
      compute avy51=5.
      compute mainy49=18.
      compute mainy50=18.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=53.
      compute avy49=6.
      compute avy50=6.
      compute avy51=17.
      compute mainy49=18.
      compute mainy50=18.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=54 and (main18=36 or main18=57).
      compute avy49=7.
      compute avy50=7.
      compute avy51=12.
      compute mainy49=20.
      compute mainy50=20.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=54 and (main18=41 or main18=44 or main18=47).
      compute avy49=7.
      compute avy50=7.
      compute avy51=5.
      compute mainy49=20.
      compute mainy50=20.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=54 and (main18=42 or main18=79).
      compute avy49=7.
      compute avy50=7.
      compute avy51=5.
      compute mainy49=20.
      compute mainy50=20.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=54.
      compute avy49=7.
      compute avy50=7.
      compute avy51=17.
      compute mainy49=20.
      compute mainy50=20.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=55 and (main18=57 or main18=36).
      compute avy49=8.
      compute avy50=8.
      compute avy51=12.
      compute mainy49=22.
      compute mainy50=22.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=55 and (main18=42 or main18=79).
      compute avy49=8.
      compute avy50=8.
      compute avy51=5.
      compute mainy49=22.
      compute mainy50=22.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=55.
      compute avy49=8.
      compute avy50=8.
      compute avy51=17.
      compute mainy49=22.
      compute mainy50=22.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=56 and (main18=41 or main18=44).
      compute avy49=8.
      compute avy50=8.
      compute avy51=5.
      compute mainy49=27.
      compute mainy50=27.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=56 and (main18=42 or main18=79).
      compute avy49=8.
      compute avy50=8.
      compute avy51=5.
      compute mainy49=27.
      compute mainy50=27.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=56 and (main18=36 or main18=57).
      compute avy49=8.
      compute avy50=8.
      compute avy51=12.
      compute mainy49=27.
      compute mainy50=27.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=56.
      compute avy49=8.
      compute avy50=8.
      compute avy51=17.
      compute mainy49=27.
      compute mainy50=27.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=57 and sec17=45.
      compute avy49=5.
      compute avy50=10.
      compute avy51=10.
      compute mainy49=63.
      compute mainy50=24.
      compute mainy51=24.
      compute mtravy49=5.
      compute mtravy50=-7.
      compute mtravy51=-7.
   Else if main17=57 and (main18=41 or main18=44).
      compute avy49=10.
      compute avy50=10.
      compute avy51=5.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=57 and (main18=42 or main18=79).
      compute avy49=10.
      compute avy50=10.
      compute avy51=5.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=57 and (main18=36 or main18=57).
      compute avy49=10.
      compute avy50=10.
      compute avy51=12.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=57.
      compute avy49=10.
      compute avy50=10.
      compute avy51=17.
      compute mainy49=24.
      compute mainy50=24.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=59.
      compute avy49=7.
      compute avy50=7.
      compute avy51=12.
      compute mainy49=23.
      compute mainy50=23.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=66.
      compute avy49=38.
      compute avy50=38.
      compute avy51=12.
      compute mainy49=48.
      compute mainy50=48.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=69 and (main18=41 or main18=44).
      compute avy49=36.
      compute avy50=36.
      compute avy51=5.
      compute mainy49=55.
      compute mainy50=55.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=69 and (main18=36 or main18=57).
      compute avy49=36.
      compute avy50=36.
      compute avy51=12.
      compute mainy49=55.
      compute mainy50=55.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=69.
      compute avy49=36.
      compute avy50=36.
      compute avy51=17.
      compute mainy49=55.
      compute mainy50=55.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=71 and main18=42.
      compute avy49=29.
      compute avy50=29.
      compute avy51=5.
      compute mainy49=48.
      compute mainy50=48.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=71 and main18=41.
      compute avy49=29.
      compute avy50=29.
      compute avy51=5.
      compute mainy49=48.
      compute mainy50=48.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=75.
      compute avy49=27.
      compute avy50=27.
      compute avy51=17.
      compute mainy49=39.
      compute mainy50=39.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=77.
      compute avy49=28.
      compute avy50=28.
      compute avy51=17.
      compute mainy49=39.
      compute mainy50=39.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=78 and (main17=41 or main17=44).
      compute avy49=22.
      compute avy50=22.
      compute avy51=5.
      compute mainy49=34.
      compute mainy50=34.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=78.
      compute avy49=22.
      compute avy50=22.
      compute avy51=17.
      compute mainy49=34.
      compute mainy50=34.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=79.
      compute avy49=4.
      compute avy50=4.
      compute avy51=5.
      compute mainy49=17.
      compute mainy50=17.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=82.
      compute avy49=20.
      compute avy50=20.
      compute avy51=17.
      compute mainy49=36.
      compute mainy50=36.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=84.
      compute avy49=18.
      compute avy50=18.
      compute avy51=17.
      compute mainy49=45.
      compute mainy50=45.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=85 or main17=86.
      compute avy49=18.
      compute avy50=18.
      compute avy51=17.
      compute mainy49=38.
      compute mainy50=38.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=91 and (main18=36 or main18=57).
      compute avy49=40.
      compute avy50=40.
      compute avy51=12.
      compute mainy49=51.
      compute mainy50=51.
      compute mainy51=67.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=91 and (main18=41 or main18=44).
      compute avy49=40.
      compute avy50=40.
      compute avy51=5.
      compute mainy49=51.
      compute mainy50=51.
      compute mainy51=63.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=91 and (main18=42 or main18=79).
      compute avy49=40.
      compute avy50=40.
      compute avy51=5.
      compute mainy49=51.
      compute mainy50=51.
      compute mainy51=64.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   Else if main17=91.
      compute avy49=40.
      compute avy50=40.
      compute avy51=17.
      compute mainy49=51.
      compute mainy50=51.
      compute mainy51=68.
      compute mtravy49=-7.
      compute mtravy50=-7.
      compute mtravy51=5.
   End if.
End if.

Do if main17=1 and main18=1 and mtmark17=0.
   compute avy49=16.
   compute avy50=16.
   compute avy51=16.
   compute mainy49=2.
   compute mainy50=2.
   compute mainy51=2.
   compute mtravy49=-7. 
   compute mtravy50=-7. 
   compute mtravy51=-7. 
Else if main17=2 and main18=2 and mtmark17=0.
   compute avy49=16.
   compute avy50=16.
   compute avy51=16.
   compute mainy49=2.
   compute mainy50=2.
   compute mainy51=2.
   compute mtravy49=-7.
   compute mtravy50=-7.
   compute mtravy51=-7.
End if.

freq avy49 avy50 avy51 mainy49 mainy50 mainy51 mtravy49 mtravy50 mtravy51.

*set values for the 18th time slot.
freq mtmark18.
*1739 missing travel cases in time slot 18.

temp.
select if mtmark18=1.
cro main18 by main19.

if main18=83 or main19=83 or main18=63 or main19=63 mtmark18=0.
if main18=34 or main18=38 or main18=62 or main18=67 or main18=81 mtmark18=0.
if main19=34 or main19=38 or main19=62 or main19=67 or main19=81 mtmark18=0.
if main18=main19 mtmark18=0.
if main18=1 or main18=61 or main19=61 or main19=72 or main19=50 mtmark18=0.
if main18=59 and main19>57 mtmark18=0.
if main18=60 or main18=64 or main18=66 or main18=68 or main18=70 or 
   main18=71 or main18=72 or main18=73 or main18=35 or main18=52 or 
   main18=65 or main18=74 or main18=80 or main18=82 or main18=99 or
   main18=76 mtmark18=0.
if main18=84 and main18=52 mtmark12=0.
*errors fixed, 487 cases remain.

temp.
select if sec18=45.
cro main18 by main19 by mtmark18.

temp.
select if sec18=46 or sec18=47.
cro main18 by main19 by mtmark18.

Do if mtmark18=0.
   Do if main18>95.
      compute avy52=41.
      compute avy53=41.
      compute avy54=41.
      compute mainy52=69.
      compute mainy53=69.
      compute mainy54=69.
      compute mtravy52=-8.
      compute mtravy53=-8.
      compute mtravy54=-8.
   Else if main18=1.
      compute avy52=16.
      compute avy53=16.
      compute avy54=13.
      compute mainy52=2.
      compute mainy53=2.
      compute mainy54=4.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=-7. 
   Else if main18=2.
      compute avy52=16.
      compute avy53=16.
      compute avy54=36.
      compute mainy52=2.
      compute mainy53=2.
      compute mainy54=55.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=3 or main18=4.
      compute avy52=16.
      compute avy53=16.
      compute avy54=16.
      compute mainy52=2.
      compute mainy53=2.
      compute mainy54=2.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=-7. 
   Else if main18=5.
      compute avy52=16.
      compute avy53=16.
      compute avy54=16.
      compute mainy52=3.
      compute mainy53=3.
      compute mainy54=3.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=6.
      compute avy52=13.
      compute avy53=13.
      compute avy54=13.
      compute mainy52=1.
      compute mainy53=1.
      compute mainy54=1.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18>6 and main18<20.
      compute avy52=30.
      compute avy53=30.
      compute avy54=30.
      compute mainy52=58.
      compute mainy53=58.
      compute mainy54=58.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18>19 and main18<30.
      compute avy52=31.
      compute avy53=31.
      compute avy54=31.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=59.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18>29 and main18<34.
      compute avy52=13.
      compute avy53=13.
      compute avy54=13.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=4.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=34 and sec18=45.
      compute avy52=15.
      compute avy53=15.
      compute avy54=5.
      compute mainy52=6.
      compute mainy53=6.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=1.
   Else if main18=34 and (sec18=46 or sec18=47) and main19=42.
      compute avy52=15.
      compute avy53=15.
      compute avy54=5.
      compute mainy52=6.
      compute mainy53=6.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=34 and (sec18=46 or sec18=47).
      compute avy52=15.
      compute avy53=15.
      compute avy54=5.
      compute mainy52=6.
      compute mainy53=6.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=35 and (sec18=46 or sec18=47).
      compute avy52=15.
      compute avy53=15.
      compute avy54=5.
      compute mainy52=6.
      compute mainy53=6.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=34 or main18=35 or ((main18=38 or main18=39) and loc18=1).
      compute avy52=15.
      compute avy53=15.
      compute avy54=15.
      compute mainy52=6.
      compute mainy53=6.
      compute mainy54=6.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=36.
      compute avy52=14.
      compute avy53=14.
      compute avy54=14.
      compute mainy52=25.
      compute mainy53=25.
      compute mainy54=25.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=37.
      compute avy52=12.
      compute avy53=12.
      compute avy54=12.
      compute mainy52=67.
      compute mainy53=67.
      compute mainy54=67.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=40.
      compute avy52=1.
      compute avy53=1.
      compute avy54=1.
      compute mainy52=13.
      compute mainy53=13.
      compute mainy54=13.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=41 and (sec18=46 or sec18=47).
      compute avy52=1.
      compute avy53=1.
      compute avy54=5.
      compute mainy52=7.
      compute mainy53=7.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=41.
      compute avy52=1.
      compute avy53=1.
      compute avy54=1.
      compute mainy52=7.
      compute mainy53=7.
      compute mainy54=7.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=42.
      compute avy52=4.
      compute avy53=4.
      compute avy54=4.
      compute mainy52=15.
      compute mainy53=15.
      compute mainy54=15.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=43.
      compute avy52=2.
      compute avy53=2.
      compute avy54=2.
      compute mainy52=8.
      compute mainy53=8.
      compute mainy54=8.
      compute mtravy52=-7.
      compute mtravy53=-7.
     compute mtravy54=-7.
   Else if main18=44.
      compute avy52=3.
      compute avy53=3.
      compute avy54=3.
      compute mainy52=9.
      compute mainy53=9.
      compute mainy54=9.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=45 and (main19=42 or main19=79).
      compute avy52=5.
      compute avy53=5.
      compute avy54=5.
      compute mainy52=64.
      compute mainy53=64.
      compute mainy54=64.
      compute mtravy52=1.
      compute mtravy53=1.
      compute mtravy54=1.
   Else if (main18=46 or main18=47) and (main19=42 or main19=79).
      compute avy52=5.
      compute avy53=5.
      compute avy54=5.
      compute mainy52=64.
      compute mainy53=64.
      compute mainy54=64.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=45.
      compute avy52=5.
      compute avy53=5.
      compute avy54=5.
      compute mainy52=63.
      compute mainy53=63.
      compute mainy54=63.
      compute mtravy52=1.
      compute mtravy53=1.
      compute mtravy54=1.
   Else if main18=46 or main18=47.
      compute avy52=5.
      compute avy53=5.
      compute avy54=5.
      compute mainy52=63.
      compute mainy53=63.
      compute mainy54=63.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=48.
      compute avy52=5.
      compute avy53=5.
      compute avy54=5.
      compute mainy52=11.
      compute mainy53=11.
      compute mainy54=11.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=49 and (sec18=46 or sec18=47).
      compute avy52=1.
      compute avy53=1.
      compute avy54=5.
      compute mainy52=5.
      compute mainy53=5.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=49.
      compute avy52=1.
      compute avy53=1.
      compute avy54=1.
      compute mainy52=5.
      compute mainy53=5.
      compute mainy54=5.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=50.
      compute avy52=8.
      compute avy53=8.
      compute avy54=8.
      compute mainy52=21.
      compute mainy53=21.
      compute mainy54=21.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=51.
      compute avy52=11.
      compute avy53=11.
      compute avy54=11.
      compute mainy52=28.
      compute mainy53=28.
      compute mainy54=28.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=52.
      compute avy52=11.
      compute avy53=11.
      compute avy54=11.
      compute mainy52=30.
      compute mainy53=30.
      compute mainy54=30.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=53.
      compute avy52=6.
      compute avy53=6.
      compute avy54=6.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=18.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=54.
      compute avy52=7.
      compute avy53=7.
      compute avy54=7.
      compute mainy52=20.
      compute mainy53=20.
      compute mainy54=20.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=55.
      compute avy52=8.
      compute avy53=8.
      compute avy54=8.
      compute mainy52=22.
      compute mainy53=22.
      compute mainy54=22.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=56.
      compute avy52=8.
      compute avy53=8.
      compute avy54=8.
      compute mainy52=27.
      compute mainy53=27.
      compute mainy54=27.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=57.
      compute avy52=10.
      compute avy53=10.
      compute avy54=5.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5. 
  Else if main18=57.
      compute avy52=10.
      compute avy53=10.
      compute avy54=10.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=24.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=58.
      compute avy52=12.
      compute avy53=12.
      compute avy54=12.
      compute mainy52=66.
      compute mainy53=66.
      compute mainy54=66.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=59.
      compute avy52=7.
      compute avy53=7.
      compute avy54=13.
      compute mainy52=23.
      compute mainy53=23.
      compute mainy54=4.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=60.
      compute avy52=9.
      compute avy53=9.
      compute avy54=9.
      compute mainy52=46.
      compute mainy53=46.
      compute mainy54=46.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=61 and (sec18=46 or sec18=47).
      compute avy52=33.
      compute avy53=33.
      compute avy54=5.
      compute mainy52=16.
      compute mainy53=16.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=61.
      compute avy52=33.
      compute avy53=33.
      compute avy54=33.
      compute mainy52=16.
      compute mainy53=16.
      compute mainy54=16.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=62.
      compute avy52=34.
      compute avy53=34.
      compute avy54=34.
      compute mainy52=56.
      compute mainy53=56.
      compute mainy54=56.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=63.
      compute avy52=35.
      compute avy53=35.
      compute avy54=35.
      compute mainy52=56.
      compute mainy53=56.
      compute mainy54=56.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=64.
      compute avy52=40.
      compute avy53=40.
      compute avy54=40.
      compute mainy52=54.
      compute mainy53=54.
      compute mainy54=54.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=65.
      compute avy52=39.
      compute avy53=39.
      compute avy54=39.
      compute mainy52=54.
      compute mainy53=54.
      compute mainy54=54.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=66.
      compute avy52=38.
      compute avy53=38.
      compute avy54=38.
      compute mainy52=48.
      compute mainy53=48.
      compute mainy54=48.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=67 and sec18=45.
      compute avy52=37.
      compute avy53=37.
      compute avy54=5.
      compute mainy52=49.
      compute mainy53=49.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=1.
   Else if main18=67.
      compute avy52=37.
      compute avy53=37.
      compute avy54=37.
      compute mainy52=49.
      compute mainy53=49.
      compute mainy54=49.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=68 and (sec18=46 or sec18=47).
      compute avy52=32.
      compute avy53=32.
      compute avy54=5.
      compute mainy52=57.
      compute mainy53=57.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=68.
      compute avy52=32.
      compute avy53=32.
      compute avy54=32.
      compute mainy52=57.
      compute mainy53=57.
      compute mainy54=57.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=69.
      compute avy52=36.
      compute avy53=36.
      compute avy54=36.
      compute mainy52=55.
      compute mainy53=55.
      compute mainy54=55.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=70.
      compute avy52=25.
      compute avy53=25.
      compute avy54=25.
      compute mainy52=35.
      compute mainy53=35.
      compute mainy54=35.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=71.
      compute avy52=29.
      compute avy53=29.
      compute avy54=29.
      compute mainy52=48.
      compute mainy53=48.
      compute mainy54=48.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=72.
      compute avy52=24.
      compute avy53=24.
      compute avy54=24.
      compute mainy52=37.
      compute mainy53=37.
      compute mainy54=37.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=73.
      compute avy52=23.
      compute avy53=23.
      compute avy54=23.
      compute mainy52=33.
      compute mainy53=33.
      compute mainy54=33.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=74.
      compute avy52=26.
      compute avy53=26.
      compute avy54=26.
      compute mainy52=40.
      compute mainy53=40.
      compute mainy54=40.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=75 or main18=39.
      compute avy52=27.
      compute avy53=27.
      compute avy54=27.
      compute mainy52=39.
      compute mainy53=39.
      compute mainy54=39.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=76.
      compute avy52=25.
      compute avy53=25.
      compute avy54=25.
      compute mainy52=40.
      compute mainy53=40.
      compute mainy54=40.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=77 or main18=38.
      compute avy52=28.
      compute avy53=28.
      compute avy54=28.
      compute mainy52=39.
      compute mainy53=39.
      compute mainy54=39.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=78.
      compute avy52=22.
      compute avy53=22.
      compute avy54=22.
      compute mainy52=34.
      compute mainy53=34.
      compute mainy54=34.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=79.
      compute avy52=4.
      compute avy53=4.
      compute avy54=4.
      compute mainy52=17.
      compute mainy53=17.
      compute mainy54=17.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=80.
      compute avy52=18.
      compute avy53=18.
      compute avy54=18.
      compute mainy52=38.
      compute mainy53=38.
      compute mainy54=38.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=81.
      compute avy52=19.
      compute avy53=19.
      compute avy54=19.
      compute mainy52=42.
      compute mainy53=42.
      compute mainy54=42.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=82.
      compute avy52=20.
      compute avy53=20.
      compute avy54=20.
      compute mainy52=36.
      compute mainy53=36.
      compute mainy54=36.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=83.
      compute avy52=21.
      compute avy53=21.
      compute avy54=21.
      compute mainy52=43.
      compute mainy53=43.
      compute mainy54=43.
      compute mtravy52=3.
      compute mtravy53=3.
      compute mtravy54=3.
   Else if main18=84.
      compute avy52=18.
      compute avy53=18.
      compute avy54=18.
      compute mainy52=45.
      compute mainy53=45.
      compute mainy54=45.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=85 or main18=86.
      compute avy52=18.
      compute avy53=18.
      compute avy54=18.
      compute mainy52=38.
      compute mainy53=38.
      compute mainy54=38.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=89.
      compute avy52=17.
      compute avy53=17.
      compute avy54=17.
      compute mainy52=68.
      compute mainy53=68.
      compute mainy54=68.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=90.
      compute avy52=17.
      compute avy53=17.
      compute avy54=17.
      compute mainy52=62.
      compute mainy53=62.
      compute mainy54=62.
      compute mtravy52=5.
      compute mtravy53=5.
      compute mtravy54=5.
   Else if main18=91.
      compute avy52=40.
      compute avy53=40.
      compute avy54=40.
      compute mainy52=51.
      compute mainy53=51.
      compute mainy54=51.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=92.
      compute avy52=31.
      compute avy53=31.
      compute avy54=31.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=59.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   Else if main18=93.
      compute avy52=41.
      compute avy53=41.
      compute avy54=41.
      compute mainy52=41.
      compute mainy53=41.
      compute mainy54=41.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=-7.
   End if.
Else if mtmark18=1.
   Do if main18=2 and (main19=42 or main19=79).
      compute avy52=16.
      compute avy53=36.
      compute avy54=5.
      compute mainy52=2.
      compute mainy53=55.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=2 and (main19=41 or main19=44).
      compute avy52=16.
      compute avy53=36.
      compute avy54=5.
      compute mainy52=2.
      compute mainy53=55.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=2 and (main19=36 or main19=57).
      compute avy52=16.
      compute avy53=36.
      compute avy54=12.
      compute mainy52=2.
      compute mainy53=55.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=2.
      compute avy52=16.
      compute avy53=36.
      compute avy54=17.
      compute mainy52=2.
      compute mainy53=55.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18=3 or main18=4) and (main19=42 or main19=79).
      compute avy52=16.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=2.
      compute mainy53=4.
      compute mainy54=64.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=5. 
   Else if (main18=3 or main18=4) and (main19=41 or main19=44).
      compute avy52=16.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=2.
      compute mainy53=4.
      compute mainy54=63.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=5. 
   Else if (main18=3 or main18=4) and (main19=36 or main19=57).
      compute avy52=16.
      compute avy53=13.
      compute avy54=12.
      compute mainy52=2.
      compute mainy53=4.
      compute mainy54=67.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=5. 
   Else if (main18=3 or main18=4).
      compute avy52=16.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=2.
      compute mainy53=4.
      compute mainy54=63.
      compute mtravy52=-7. 
      compute mtravy53=-7. 
      compute mtravy54=5.
   Else if main18=6 and (main19=41 or main19=44).
      compute avy52=13.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=1.
      compute mainy53=1.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=6 and (main19=42 or main19=79).
      compute avy52=13.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=1.
      compute mainy53=1.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=6 and (main19=36 or main19=57).
      compute avy52=13.
      compute avy53=13.
      compute avy54=12.
      compute mainy52=1.
      compute mainy53=1.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=6.
      compute avy52=13.
      compute avy53=13.
      compute avy54=17.
      compute mainy52=1.
      compute mainy53=1.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>10 and main18<15) and (main19=42 or main19=79).
      compute avy52=30.
      compute avy53=30.
      compute avy54=5.
      compute mainy52=58.
      compute mainy53=58.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>10 and main18<15) and (main19=41 or main19=44).
      compute avy52=30.
      compute avy53=30.
      compute avy54=5.
      compute mainy52=58.
      compute mainy53=58.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>10 and main18<15) and (main19=36 or main19=57).
      compute avy52=30.
      compute avy53=30.
      compute avy54=12.
      compute mainy52=58.
      compute mainy53=58.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18>10 and main18<15.
      compute avy52=30.
      compute avy53=30.
      compute avy54=17.
      compute mainy52=58.
      compute mainy53=58.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>19 and main18<30) and (main19=41 or main19=44).
      compute avy52=31.
      compute avy53=31.
      compute avy54=5.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>19 and main18<30) and (main19=42 or main19=79).
      compute avy52=31.
      compute avy53=31.
      compute avy54=5.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>19 and main18<30) and (main19=36 or main19=57).
      compute avy52=31.
      compute avy53=31.
      compute avy54=12.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18>19 and main18<30.
      compute avy52=31.
      compute avy53=31.
      compute avy54=17.
      compute mainy52=59.
      compute mainy53=59.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>29 and main18<34) and sec18=45.
      compute avy52=13.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=1.
   Else if (main18>29 and main18<34) and (main19=42 or main19=79).
      compute avy52=13.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>29 and main18<34) and (main19=57 or main19=36).
      compute avy52=13.
      compute avy53=13.
      compute avy54=12.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>29 and main18<34) and (main19=41 or main19=44 or main19=47).
      compute avy52=13.
      compute avy53=13.
      compute avy54=5.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if (main18>29 and main18<34).
      compute avy52=13.
      compute avy53=13.
      compute avy54=17.
      compute mainy52=4.
      compute mainy53=4.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=36.
      compute avy52=14.
      compute avy53=14.
      compute avy54=12.
      compute mainy52=25.
      compute mainy53=25.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=41.
      compute avy52=1.
      compute avy53=1.
      compute avy54=5.
      compute mainy52=7.
      compute mainy53=7.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=42.
      compute avy52=4.
      compute avy53=4.
      compute avy54=5.
      compute mainy52=15.
      compute mainy53=15.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=43 and (main19=42 or main19=79).
      compute avy52=2.
      compute avy53=2.
      compute avy54=5.
      compute mainy52=8.
      compute mainy53=8.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
     compute mtravy54=5.
   Else if main18=43.
      compute avy52=2.
      compute avy53=2.
      compute avy54=5.
      compute mainy52=8.
      compute mainy53=8.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
     compute mtravy54=5.
   Else if main18=44.
      compute avy52=3.
      compute avy53=3.
      compute avy54=5.
      compute mainy52=9.
      compute mainy53=9.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=50 and (main19=41 or main19=44).
      compute avy52=8.
      compute avy53=8.
      compute avy54=5.
      compute mainy52=21.
      compute mainy53=21.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=50 and (main19=42 or main19=79).
      compute avy52=8.
      compute avy53=8.
      compute avy54=5.
      compute mainy52=21.
      compute mainy53=21.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=50 and (main19=57 or main19=36).
      compute avy52=8.
      compute avy53=8.
      compute avy54=12.
      compute mainy52=21.
      compute mainy53=21.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=50.
      compute avy52=8.
      compute avy53=8.
      compute avy54=17.
      compute mainy52=21.
      compute mainy53=21.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=51 and (main19=41 or main19=44 or main19=45).
      compute avy52=11.
      compute avy53=11.
      compute avy54=5.
      compute mainy52=28.
      compute mainy53=28.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=51 and (main19=42 or main19=79).
      compute avy52=11.
      compute avy53=11.
      compute avy54=5.
      compute mainy52=28.
      compute mainy53=28.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=51 and (main19=57 or main19=36).
      compute avy52=11.
      compute avy53=11.
      compute avy54=12.
      compute mainy52=28.
      compute mainy53=28.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=51.
      compute avy52=11.
      compute avy53=11.
      compute avy54=17.
      compute mainy52=28.
      compute mainy53=28.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=53 and (main19=42 or main19=79).
      compute avy52=6.
      compute avy53=6.
      compute avy54=5.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=53 and (main19=36 or main19=57).
      compute avy52=6.
      compute avy53=6.
      compute avy54=12.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=53 and sec18=45.
      compute avy52=6.
      compute avy53=6.
      compute avy54=5.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=1.
   Else if main18=53 and (main19=41 or main19=44).
      compute avy52=6.
      compute avy53=6.
      compute avy54=5.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=53.
      compute avy52=6.
      compute avy53=6.
      compute avy54=17.
      compute mainy52=18.
      compute mainy53=18.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=54 and (main19=36 or main19=57).
      compute avy52=7.
      compute avy53=7.
      compute avy54=12.
      compute mainy52=20.
      compute mainy53=20.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=54 and (main19=41 or main19=44 or main19=47).
      compute avy52=7.
      compute avy53=7.
      compute avy54=5.
      compute mainy52=20.
      compute mainy53=20.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=54 and (main19=42 or main19=79).
      compute avy52=7.
      compute avy53=7.
      compute avy54=5.
      compute mainy52=20.
      compute mainy53=20.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=54.
      compute avy52=7.
      compute avy53=7.
      compute avy54=17.
      compute mainy52=20.
      compute mainy53=20.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=55 and (main19=57 or main19=36).
      compute avy52=8.
      compute avy53=8.
      compute avy54=12.
      compute mainy52=22.
      compute mainy53=22.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=55 and (main19=42 or main19=79).
      compute avy52=8.
      compute avy53=8.
      compute avy54=5.
      compute mainy52=22.
      compute mainy53=22.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=55.
      compute avy52=8.
      compute avy53=8.
      compute avy54=17.
      compute mainy52=22.
      compute mainy53=22.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=56 and (main19=41 or main19=44).
      compute avy52=8.
      compute avy53=8.
      compute avy54=5.
      compute mainy52=27.
      compute mainy53=27.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=56 and (main19=42 or main19=79).
      compute avy52=8.
      compute avy53=8.
      compute avy54=5.
      compute mainy52=27.
      compute mainy53=27.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=56 and (main19=36 or main19=57).
      compute avy52=8.
      compute avy53=8.
      compute avy54=12.
      compute mainy52=27.
      compute mainy53=27.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=56.
      compute avy52=8.
      compute avy53=8.
      compute avy54=17.
      compute mainy52=27.
      compute mainy53=27.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=57 and (main19=41 or main19=44).
      compute avy52=10.
      compute avy53=10.
      compute avy54=5.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=57 and (main19=42 or main19=79).
      compute avy52=10.
      compute avy53=10.
      compute avy54=5.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=57 and (main19=36 or main19=57).
      compute avy52=10.
      compute avy53=10.
      compute avy54=12.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=57.
      compute avy52=10.
      compute avy53=10.
      compute avy54=17.
      compute mainy52=24.
      compute mainy53=24.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=59.
      compute avy52=7.
      compute avy53=7.
      compute avy54=12.
      compute mainy52=23.
      compute mainy53=23.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=66.
      compute avy52=38.
      compute avy53=38.
      compute avy54=12.
      compute mainy52=48.
      compute mainy53=48.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=69 and (main19=41 or main19=44).
      compute avy52=36.
      compute avy53=36.
      compute avy54=5.
      compute mainy52=55.
      compute mainy53=55.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=69 and (main19=36 or main19=57).
      compute avy52=36.
      compute avy53=36.
      compute avy54=12.
      compute mainy52=55.
      compute mainy53=55.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=69.
      compute avy52=36.
      compute avy53=36.
      compute avy54=17.
      compute mainy52=55.
      compute mainy53=55.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=71 and main19=42.
      compute avy52=29.
      compute avy53=29.
      compute avy54=5.
      compute mainy52=48.
      compute mainy53=48.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=71 and main19=41.
      compute avy52=29.
      compute avy53=29.
      compute avy54=5.
      compute mainy52=48.
      compute mainy53=48.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=75.
      compute avy52=27.
      compute avy53=27.
      compute avy54=17.
      compute mainy52=39.
      compute mainy53=39.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=77.
      compute avy52=28.
      compute avy53=28.
      compute avy54=17.
      compute mainy52=39.
      compute mainy53=39.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=78 and (main18=41 or main18=44).
      compute avy52=22.
      compute avy53=22.
      compute avy54=5.
      compute mainy52=34.
      compute mainy53=34.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=78.
      compute avy52=22.
      compute avy53=22.
      compute avy54=17.
      compute mainy52=34.
      compute mainy53=34.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=79.
      compute avy52=4.
      compute avy53=4.
      compute avy54=5.
      compute mainy52=17.
      compute mainy53=17.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=82.
      compute avy52=20.
      compute avy53=20.
      compute avy54=17.
      compute mainy52=36.
      compute mainy53=36.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=84.
      compute avy52=18.
      compute avy53=18.
      compute avy54=17.
      compute mainy52=45.
      compute mainy53=45.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=85 or main18=86.
      compute avy52=18.
      compute avy53=18.
      compute avy54=17.
      compute mainy52=38.
      compute mainy53=38.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=91 and (main19=36 or main19=57).
      compute avy52=40.
      compute avy53=40.
      compute avy54=12.
      compute mainy52=51.
      compute mainy53=51.
      compute mainy54=67.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=91 and (main19=41 or main19=44).
      compute avy52=40.
      compute avy53=40.
      compute avy54=5.
      compute mainy52=51.
      compute mainy53=51.
      compute mainy54=63.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=91 and (main19=42 or main19=79).
      compute avy52=40.
      compute avy53=40.
      compute avy54=5.
      compute mainy52=51.
      compute mainy53=51.
      compute mainy54=64.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   Else if main18=91.
      compute avy52=40.
      compute avy53=40.
      compute avy54=17.
      compute mainy52=51.
      compute mainy53=51.
      compute mainy54=68.
      compute mtravy52=-7.
      compute mtravy53=-7.
      compute mtravy54=5.
   End if.
End if.

Do if main18=1 and main19=1 and mtmark18=0.
   compute avy52=16.
   compute avy53=16.
   compute avy54=16.
   compute mainy52=2.
   compute mainy53=2.
   compute mainy54=2.
   compute mtravy52=-7. 
   compute mtravy53=-7. 
   compute mtravy54=-7. 
Else if main18=2 and main19=2 and mtmark18=0.
   compute avy52=16.
   compute avy53=16.
   compute avy54=16.
   compute mainy52=2.
   compute mainy53=2.
   compute mainy54=2.
   compute mtravy52=-7.
   compute mtravy53=-7.
   compute mtravy54=-7.
End if.

freq avy52 avy53 avy54 mainy52 mainy53 mainy54 mtravy52 mtravy53 mtravy54.

*set values for the 19th time slot.
freq mtmark19.
*1322 missing travel cases in time slot 19.

temp.
select if mtmark19=1.
cro main19 by main20.

if main19=83 or main20=83 or main19=63 or main20=63 mtmark19=0.
if main19=34 or main19=38 or main19=62 or main19=67 or main19=81 mtmark19=0.
if main20=34 or main20=38 or main20=62 or main20=67 or main20=81 mtmark19=0.
if main19=main20 mtmark19=0.
if main19=1 or main19=61 or main20=61 or main20=72 or main20=50 mtmark19=0.
if main19=59 and main20>57 mtmark19=0.
if main19=60 or main19=64 or main19=66 or main19=68 or main19=70 or 
   main19=71 or main19=72 or main19=73 or main19=35 or main19=52 or 
   main19=65 or main19=74 or main19=80 or main19=82 or main19=99 or
   main19=76 mtmark19=0.
if main19=84 and main19=52 mtmark12=0.
*errors fixed, 473 cases remain.

temp.
select if sec19=45.
cro main19 by main20 by mtmark19.

temp.
select if sec19=46 or sec19=47.
cro main19 by main20 by mtmark19.

Do if mtmark19=0.
   Do if main19>95.
      compute avy55=41.
      compute avy56=41.
      compute avy57=41.
      compute mainy55=69.
      compute mainy56=69.
      compute mainy57=69.
      compute mtravy55=-8.
      compute mtravy56=-8.
      compute mtravy57=-8.
   Else if main19=1.
      compute avy55=16.
      compute avy56=16.
      compute avy57=13.
      compute mainy55=2.
      compute mainy56=2.
      compute mainy57=4.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=-7. 
   Else if main19=2.
      compute avy55=16.
      compute avy56=16.
      compute avy57=36.
      compute mainy55=2.
      compute mainy56=2.
      compute mainy57=55.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=3 or main19=4.
      compute avy55=16.
      compute avy56=16.
      compute avy57=16.
      compute mainy55=2.
      compute mainy56=2.
      compute mainy57=2.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=-7. 
   Else if main19=5.
      compute avy55=16.
      compute avy56=16.
      compute avy57=16.
      compute mainy55=3.
      compute mainy56=3.
      compute mainy57=3.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=6.
      compute avy55=13.
      compute avy56=13.
      compute avy57=13.
      compute mainy55=1.
      compute mainy56=1.
      compute mainy57=1.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19>6 and main19<20.
      compute avy55=30.
      compute avy56=30.
      compute avy57=30.
      compute mainy55=58.
      compute mainy56=58.
      compute mainy57=58.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19>19 and main19<30.
      compute avy55=31.
      compute avy56=31.
      compute avy57=31.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=59.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19>29 and main19<34.
      compute avy55=13.
      compute avy56=13.
      compute avy57=13.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=4.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=34 and sec19=45.
      compute avy55=15.
      compute avy56=15.
      compute avy57=5.
      compute mainy55=6.
      compute mainy56=6.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if (main19=34 or main19=35) and (sec19=46 or sec19=47) and main20=42.
      compute avy55=15.
      compute avy56=15.
      compute avy57=5.
      compute mainy55=6.
      compute mainy56=6.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19=34 or main19=35) and (sec19=46 or sec19=47).
      compute avy55=15.
      compute avy56=15.
      compute avy57=5.
      compute mainy55=6.
      compute mainy56=6.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=34 or main19=35 or ((main19=38 or main19=39) and loc19=1).
      compute avy55=15.
      compute avy56=15.
      compute avy57=15.
      compute mainy55=6.
      compute mainy56=6.
      compute mainy57=6.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=36.
      compute avy55=14.
      compute avy56=14.
      compute avy57=14.
      compute mainy55=25.
      compute mainy56=25.
      compute mainy57=25.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=37.
      compute avy55=12.
      compute avy56=12.
      compute avy57=12.
      compute mainy55=67.
      compute mainy56=67.
      compute mainy57=67.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=40.
      compute avy55=1.
      compute avy56=1.
      compute avy57=1.
      compute mainy55=13.
      compute mainy56=13.
      compute mainy57=13.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=41.
      compute avy55=1.
      compute avy56=1.
      compute avy57=1.
      compute mainy55=7.
      compute mainy56=7.
      compute mainy57=7.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=42.
      compute avy55=4.
      compute avy56=4.
      compute avy57=4.
      compute mainy55=15.
      compute mainy56=15.
      compute mainy57=15.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=43.
      compute avy55=2.
      compute avy56=2.
      compute avy57=2.
      compute mainy55=8.
      compute mainy56=8.
      compute mainy57=8.
      compute mtravy55=-7.
      compute mtravy56=-7.
     compute mtravy57=-7.
   Else if main19=44.
      compute avy55=3.
      compute avy56=3.
      compute avy57=3.
      compute mainy55=9.
      compute mainy56=9.
      compute mainy57=9.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=45 and (main20=42 or main20=79).
      compute avy55=5.
      compute avy56=5.
      compute avy57=5.
      compute mainy55=64.
      compute mainy56=64.
      compute mainy57=64.
      compute mtravy55=1.
      compute mtravy56=1.
      compute mtravy57=1.
   Else if (main19=46 or main19=47) and (main20=42 or main20=79).
      compute avy55=5.
      compute avy56=5.
      compute avy57=5.
      compute mainy55=64.
      compute mainy56=64.
      compute mainy57=64.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=45.
      compute avy55=5.
      compute avy56=5.
      compute avy57=5.
      compute mainy55=63.
      compute mainy56=63.
      compute mainy57=63.
      compute mtravy55=1.
      compute mtravy56=1.
      compute mtravy57=1.
   Else if main19=46 or main19=47.
      compute avy55=5.
      compute avy56=5.
      compute avy57=5.
      compute mainy55=63.
      compute mainy56=63.
      compute mainy57=63.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=48.
      compute avy55=5.
      compute avy56=5.
      compute avy57=5.
      compute mainy55=11.
      compute mainy56=11.
      compute mainy57=11.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=49.
      compute avy55=1.
      compute avy56=1.
      compute avy57=1.
      compute mainy55=5.
      compute mainy56=5.
      compute mainy57=5.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=50.
      compute avy55=8.
      compute avy56=8.
      compute avy57=8.
      compute mainy55=21.
      compute mainy56=21.
      compute mainy57=21.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=51.
      compute avy55=11.
      compute avy56=11.
      compute avy57=11.
      compute mainy55=28.
      compute mainy56=28.
      compute mainy57=28.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=52.
      compute avy55=11.
      compute avy56=11.
      compute avy57=11.
      compute mainy55=30.
      compute mainy56=30.
      compute mainy57=30.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=53 and sec19=45.
      compute avy55=6.
      compute avy56=6.
      compute avy57=5.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if main19=53.
      compute avy55=6.
      compute avy56=6.
      compute avy57=6.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=18.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=54.
      compute avy55=7.
      compute avy56=7.
      compute avy57=7.
      compute mainy55=20.
      compute mainy56=20.
      compute mainy57=20.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=55.
      compute avy55=8.
      compute avy56=8.
      compute avy57=8.
      compute mainy55=22.
      compute mainy56=22.
      compute mainy57=22.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=56.
      compute avy55=8.
      compute avy56=8.
      compute avy57=8.
      compute mainy55=27.
      compute mainy56=27.
      compute mainy57=27.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=57 and (sec19=46 or sec19=47).
      compute avy55=10.
      compute avy56=10.
      compute avy57=5.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=57.
      compute avy55=10.
      compute avy56=10.
      compute avy57=10.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=24.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=58.
      compute avy55=12.
      compute avy56=12.
      compute avy57=12.
      compute mainy55=66.
      compute mainy56=66.
      compute mainy57=66.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=59.
      compute avy55=7.
      compute avy56=7.
      compute avy57=13.
      compute mainy55=23.
      compute mainy56=23.
      compute mainy57=4.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=60.
      compute avy55=9.
      compute avy56=9.
      compute avy57=9.
      compute mainy55=46.
      compute mainy56=46.
      compute mainy57=46.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=61 and (sec19=46 or sec19=47).
      compute avy55=33.
      compute avy56=33.
      compute avy57=5.
      compute mainy55=16.
      compute mainy56=16.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=61.
      compute avy55=33.
      compute avy56=33.
      compute avy57=33.
      compute mainy55=16.
      compute mainy56=16.
      compute mainy57=16.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=62.
      compute avy55=34.
      compute avy56=34.
      compute avy57=34.
      compute mainy55=56.
      compute mainy56=56.
      compute mainy57=56.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=63.
      compute avy55=35.
      compute avy56=35.
      compute avy57=35.
      compute mainy55=56.
      compute mainy56=56.
      compute mainy57=56.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=64.
      compute avy55=40.
      compute avy56=40.
      compute avy57=40.
      compute mainy55=54.
      compute mainy56=54.
      compute mainy57=54.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=65.
      compute avy55=39.
      compute avy56=39.
      compute avy57=39.
      compute mainy55=54.
      compute mainy56=54.
      compute mainy57=54.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=66.
      compute avy55=38.
      compute avy56=38.
      compute avy57=38.
      compute mainy55=48.
      compute mainy56=48.
      compute mainy57=48.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=67 and (sec19=46 or sec19=47).
      compute avy55=37.
      compute avy56=37.
      compute avy57=5.
      compute mainy55=49.
      compute mainy56=49.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=67.
      compute avy55=37.
      compute avy56=37.
      compute avy57=37.
      compute mainy55=49.
      compute mainy56=49.
      compute mainy57=49.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=68 and (sec19=46 or sec19=47).
      compute avy55=32.
      compute avy56=32.
      compute avy57=5.
      compute mainy55=57.
      compute mainy56=57.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=68.
      compute avy55=32.
      compute avy56=32.
      compute avy57=32.
      compute mainy55=57.
      compute mainy56=57.
      compute mainy57=57.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=69.
      compute avy55=36.
      compute avy56=36.
      compute avy57=36.
      compute mainy55=55.
      compute mainy56=55.
      compute mainy57=55.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=70.
      compute avy55=25.
      compute avy56=25.
      compute avy57=25.
      compute mainy55=35.
      compute mainy56=35.
      compute mainy57=35.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=71.
      compute avy55=29.
      compute avy56=29.
      compute avy57=29.
      compute mainy55=48.
      compute mainy56=48.
      compute mainy57=48.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=72.
      compute avy55=24.
      compute avy56=24.
      compute avy57=24.
      compute mainy55=37.
      compute mainy56=37.
      compute mainy57=37.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=73.
      compute avy55=23.
      compute avy56=23.
      compute avy57=23.
      compute mainy55=33.
      compute mainy56=33.
      compute mainy57=33.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=74.
      compute avy55=26.
      compute avy56=26.
      compute avy57=26.
      compute mainy55=40.
      compute mainy56=40.
      compute mainy57=40.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=75 or main19=39.
      compute avy55=27.
      compute avy56=27.
      compute avy57=27.
      compute mainy55=39.
      compute mainy56=39.
      compute mainy57=39.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=76.
      compute avy55=25.
      compute avy56=25.
      compute avy57=25.
      compute mainy55=40.
      compute mainy56=40.
      compute mainy57=40.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=77 or main19=38.
      compute avy55=28.
      compute avy56=28.
      compute avy57=28.
      compute mainy55=39.
      compute mainy56=39.
      compute mainy57=39.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=78.
      compute avy55=22.
      compute avy56=22.
      compute avy57=22.
      compute mainy55=34.
      compute mainy56=34.
      compute mainy57=34.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=79.
      compute avy55=4.
      compute avy56=4.
      compute avy57=4.
      compute mainy55=17.
      compute mainy56=17.
      compute mainy57=17.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=80.
      compute avy55=18.
      compute avy56=18.
      compute avy57=18.
      compute mainy55=38.
      compute mainy56=38.
      compute mainy57=38.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=81.
      compute avy55=19.
      compute avy56=19.
      compute avy57=19.
      compute mainy55=42.
      compute mainy56=42.
      compute mainy57=42.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=82.
      compute avy55=20.
      compute avy56=20.
      compute avy57=20.
      compute mainy55=36.
      compute mainy56=36.
      compute mainy57=36.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=83.
      compute avy55=21.
      compute avy56=21.
      compute avy57=21.
      compute mainy55=43.
      compute mainy56=43.
      compute mainy57=43.
      compute mtravy55=3.
      compute mtravy56=3.
      compute mtravy57=3.
   Else if main19=84.
      compute avy55=18.
      compute avy56=18.
      compute avy57=18.
      compute mainy55=45.
      compute mainy56=45.
      compute mainy57=45.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=85 or main19=86.
      compute avy55=18.
      compute avy56=18.
      compute avy57=18.
      compute mainy55=38.
      compute mainy56=38.
      compute mainy57=38.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=89.
      compute avy55=17.
      compute avy56=17.
      compute avy57=17.
      compute mainy55=68.
      compute mainy56=68.
      compute mainy57=68.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=90.
      compute avy55=17.
      compute avy56=17.
      compute avy57=17.
      compute mainy55=62.
      compute mainy56=62.
      compute mainy57=62.
      compute mtravy55=5.
      compute mtravy56=5.
      compute mtravy57=5.
   Else if main19=91.
      compute avy55=40.
      compute avy56=40.
      compute avy57=40.
      compute mainy55=51.
      compute mainy56=51.
      compute mainy57=51.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=92.
      compute avy55=31.
      compute avy56=31.
      compute avy57=31.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=59.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   Else if main19=93.
      compute avy55=41.
      compute avy56=41.
      compute avy57=41.
      compute mainy55=41.
      compute mainy56=41.
      compute mainy57=41.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=-7.
   End if.
Else if mtmark19=1.
   Do if main19=2 and (main20=42 or main20=79).
      compute avy55=16.
      compute avy56=36.
      compute avy57=5.
      compute mainy55=2.
      compute mainy56=55.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=2 and (main20=41 or main20=44).
      compute avy55=16.
      compute avy56=36.
      compute avy57=5.
      compute mainy55=2.
      compute mainy56=55.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=2 and (main20=36 or main20=57).
      compute avy55=16.
      compute avy56=36.
      compute avy57=12.
      compute mainy55=2.
      compute mainy56=55.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=2.
      compute avy55=16.
      compute avy56=36.
      compute avy57=17.
      compute mainy55=2.
      compute mainy56=55.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19=3 or main19=4) and (main20=42 or main20=79).
      compute avy55=16.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=2.
      compute mainy56=4.
      compute mainy57=64.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=5. 
   Else if (main19=3 or main19=4) and (main20=41 or main20=44).
      compute avy55=16.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=2.
      compute mainy56=4.
      compute mainy57=63.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=5. 
   Else if (main19=3 or main19=4) and (main20=36 or main20=57).
      compute avy55=16.
      compute avy56=13.
      compute avy57=12.
      compute mainy55=2.
      compute mainy56=4.
      compute mainy57=67.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=5. 
   Else if (main19=3 or main19=4).
      compute avy55=16.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=2.
      compute mainy56=4.
      compute mainy57=63.
      compute mtravy55=-7. 
      compute mtravy56=-7. 
      compute mtravy57=5.
   Else if main19=6 and (main20=41 or main20=44).
      compute avy55=13.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=1.
      compute mainy56=1.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=6 and (main20=42 or main20=79).
      compute avy55=13.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=1.
      compute mainy56=1.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=6 and (main20=36 or main20=57).
      compute avy55=13.
      compute avy56=13.
      compute avy57=12.
      compute mainy55=1.
      compute mainy56=1.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=6.
      compute avy55=13.
      compute avy56=13.
      compute avy57=17.
      compute mainy55=1.
      compute mainy56=1.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>10 and main19<15) and (main20=42 or main20=79).
      compute avy55=30.
      compute avy56=30.
      compute avy57=5.
      compute mainy55=58.
      compute mainy56=58.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>10 and main19<15) and (main20=41 or main20=44).
      compute avy55=30.
      compute avy56=30.
      compute avy57=5.
      compute mainy55=58.
      compute mainy56=58.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>10 and main19<15) and (main20=36 or main20=57).
      compute avy55=30.
      compute avy56=30.
      compute avy57=12.
      compute mainy55=58.
      compute mainy56=58.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19>10 and main19<15.
      compute avy55=30.
      compute avy56=30.
      compute avy57=17.
      compute mainy55=58.
      compute mainy56=58.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>19 and main19<30) and sec19=45.
      compute avy55=31.
      compute avy56=31.
      compute avy57=5.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if (main19>19 and main19<30) and (main20=41 or main20=44).
      compute avy55=31.
      compute avy56=31.
      compute avy57=5.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>19 and main19<30) and (main20=42 or main20=79).
      compute avy55=31.
      compute avy56=31.
      compute avy57=5.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>19 and main19<30) and (main20=36 or main20=57).
      compute avy55=31.
      compute avy56=31.
      compute avy57=12.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19>19 and main19<30.
      compute avy55=31.
      compute avy56=31.
      compute avy57=17.
      compute mainy55=59.
      compute mainy56=59.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>29 and main19<34) and sec19=45.
      compute avy55=13.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if (main19>29 and main19<34) and (main20=42 or main20=79).
      compute avy55=13.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>29 and main19<34) and (main20=57 or main20=36).
      compute avy55=13.
      compute avy56=13.
      compute avy57=12.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>29 and main19<34) and (main20=41 or main20=44 or main20=47).
      compute avy55=13.
      compute avy56=13.
      compute avy57=5.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if (main19>29 and main19<34).
      compute avy55=13.
      compute avy56=13.
      compute avy57=17.
      compute mainy55=4.
      compute mainy56=4.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=36.
      compute avy55=14.
      compute avy56=14.
      compute avy57=12.
      compute mainy55=25.
      compute mainy56=25.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=41.
      compute avy55=1.
      compute avy56=1.
      compute avy57=5.
      compute mainy55=7.
      compute mainy56=7.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=42.
      compute avy55=4.
      compute avy56=4.
      compute avy57=5.
      compute mainy55=15.
      compute mainy56=15.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=43 and (main20=42 or main20=79).
      compute avy55=2.
      compute avy56=2.
      compute avy57=5.
      compute mainy55=8.
      compute mainy56=8.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
     compute mtravy57=5.
   Else if main19=43.
      compute avy55=2.
      compute avy56=2.
      compute avy57=5.
      compute mainy55=8.
      compute mainy56=8.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
     compute mtravy57=5.
   Else if main19=44.
      compute avy55=3.
      compute avy56=3.
      compute avy57=5.
      compute mainy55=9.
      compute mainy56=9.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=50 and (main20=41 or main20=44).
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=21.
      compute mainy56=21.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=50 and (main20=42 or main20=79).
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=21.
      compute mainy56=21.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=50 and (main20=57 or main20=36).
      compute avy55=8.
      compute avy56=8.
      compute avy57=12.
      compute mainy55=21.
      compute mainy56=21.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=50.
      compute avy55=8.
      compute avy56=8.
      compute avy57=17.
      compute mainy55=21.
      compute mainy56=21.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=51 and (main20=41 or main20=44 or main20=45).
      compute avy55=11.
      compute avy56=11.
      compute avy57=5.
      compute mainy55=28.
      compute mainy56=28.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=51 and (main20=42 or main20=79).
      compute avy55=11.
      compute avy56=11.
      compute avy57=5.
      compute mainy55=28.
      compute mainy56=28.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=51 and (main20=57 or main20=36).
      compute avy55=11.
      compute avy56=11.
      compute avy57=12.
      compute mainy55=28.
      compute mainy56=28.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=51.
      compute avy55=11.
      compute avy56=11.
      compute avy57=17.
      compute mainy55=28.
      compute mainy56=28.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=53 and (main20=42 or main20=79).
      compute avy55=6.
      compute avy56=6.
      compute avy57=5.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=53 and (main20=36 or main20=57).
      compute avy55=6.
      compute avy56=6.
      compute avy57=12.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=53 and (main20=41 or main20=44).
      compute avy55=6.
      compute avy56=6.
      compute avy57=5.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=53.
      compute avy55=6.
      compute avy56=6.
      compute avy57=17.
      compute mainy55=18.
      compute mainy56=18.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=54 and (main20=36 or main20=57).
      compute avy55=7.
      compute avy56=7.
      compute avy57=12.
      compute mainy55=20.
      compute mainy56=20.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=54 and (main20=41 or main20=44 or main20=47).
      compute avy55=7.
      compute avy56=7.
      compute avy57=5.
      compute mainy55=20.
      compute mainy56=20.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=54 and (main20=42 or main20=79).
      compute avy55=7.
      compute avy56=7.
      compute avy57=5.
      compute mainy55=20.
      compute mainy56=20.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=54.
      compute avy55=7.
      compute avy56=7.
      compute avy57=17.
      compute mainy55=20.
      compute mainy56=20.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=55 and (main20=57 or main20=36).
      compute avy55=8.
      compute avy56=8.
      compute avy57=12.
      compute mainy55=22.
      compute mainy56=22.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=55 and (main20=42 or main20=79).
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=22.
      compute mainy56=22.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=55 and sec19=45.
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=22.
      compute mainy56=22.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if main19=55.
      compute avy55=8.
      compute avy56=8.
      compute avy57=17.
      compute mainy55=22.
      compute mainy56=22.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=56 and (main20=41 or main20=44).
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=27.
      compute mainy56=27.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=56 and (main20=42 or main20=79).
      compute avy55=8.
      compute avy56=8.
      compute avy57=5.
      compute mainy55=27.
      compute mainy56=27.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=56 and (main20=36 or main20=57).
      compute avy55=8.
      compute avy56=8.
      compute avy57=12.
      compute mainy55=27.
      compute mainy56=27.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=56.
      compute avy55=8.
      compute avy56=8.
      compute avy57=17.
      compute mainy55=27.
      compute mainy56=27.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=57 and (main20=41 or main20=44).
      compute avy55=10.
      compute avy56=10.
      compute avy57=5.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=57 and (main20=42 or main20=79).
      compute avy55=10.
      compute avy56=10.
      compute avy57=5.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=57 and (main20=36 or main20=57).
      compute avy55=10.
      compute avy56=10.
      compute avy57=12.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=57.
      compute avy55=10.
      compute avy56=10.
      compute avy57=17.
      compute mainy55=24.
      compute mainy56=24.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=59.
      compute avy55=7.
      compute avy56=7.
      compute avy57=12.
      compute mainy55=23.
      compute mainy56=23.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=66.
      compute avy55=38.
      compute avy56=38.
      compute avy57=12.
      compute mainy55=48.
      compute mainy56=48.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=69 and sec19=45.
      compute avy55=36.
      compute avy56=36.
      compute avy57=5.
      compute mainy55=55.
      compute mainy56=55.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=1.
   Else if main19=69 and (main20=41 or main20=44).
      compute avy55=36.
      compute avy56=36.
      compute avy57=5.
      compute mainy55=55.
      compute mainy56=55.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=69 and (main20=36 or main20=57).
      compute avy55=36.
      compute avy56=36.
      compute avy57=12.
      compute mainy55=55.
      compute mainy56=55.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=69.
      compute avy55=36.
      compute avy56=36.
      compute avy57=17.
      compute mainy55=55.
      compute mainy56=55.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=71 and main20=42.
      compute avy55=29.
      compute avy56=29.
      compute avy57=5.
      compute mainy55=48.
      compute mainy56=48.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=71 and main20=41.
      compute avy55=29.
      compute avy56=29.
      compute avy57=5.
      compute mainy55=48.
      compute mainy56=48.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=75.
      compute avy55=27.
      compute avy56=27.
      compute avy57=17.
      compute mainy55=39.
      compute mainy56=39.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=77.
      compute avy55=28.
      compute avy56=28.
      compute avy57=17.
      compute mainy55=39.
      compute mainy56=39.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=78 and (main19=41 or main19=44).
      compute avy55=22.
      compute avy56=22.
      compute avy57=5.
      compute mainy55=34.
      compute mainy56=34.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=78.
      compute avy55=22.
      compute avy56=22.
      compute avy57=17.
      compute mainy55=34.
      compute mainy56=34.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=79.
      compute avy55=4.
      compute avy56=4.
      compute avy57=5.
      compute mainy55=17.
      compute mainy56=17.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=82.
      compute avy55=20.
      compute avy56=20.
      compute avy57=17.
      compute mainy55=36.
      compute mainy56=36.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=84.
      compute avy55=18.
      compute avy56=18.
      compute avy57=17.
      compute mainy55=45.
      compute mainy56=45.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=85 or main19=86.
      compute avy55=18.
      compute avy56=18.
      compute avy57=17.
      compute mainy55=38.
      compute mainy56=38.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=91 and (main20=36 or main20=57).
      compute avy55=40.
      compute avy56=40.
      compute avy57=12.
      compute mainy55=51.
      compute mainy56=51.
      compute mainy57=67.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=91 and (main20=41 or main20=44).
      compute avy55=40.
      compute avy56=40.
      compute avy57=5.
      compute mainy55=51.
      compute mainy56=51.
      compute mainy57=63.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=91 and (main20=42 or main20=79).
      compute avy55=40.
      compute avy56=40.
      compute avy57=5.
      compute mainy55=51.
      compute mainy56=51.
      compute mainy57=64.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   Else if main19=91.
      compute avy55=40.
      compute avy56=40.
      compute avy57=17.
      compute mainy55=51.
      compute mainy56=51.
      compute mainy57=68.
      compute mtravy55=-7.
      compute mtravy56=-7.
      compute mtravy57=5.
   End if.
End if.

Do if main19=1 and main20=1 and mtmark19=0.
   compute avy55=16.
   compute avy56=16.
   compute avy57=16.
   compute mainy55=2.
   compute mainy56=2.
   compute mainy57=2.
   compute mtravy55=-7. 
   compute mtravy56=-7. 
   compute mtravy57=-7. 
Else if main19=2 and main20=2 and mtmark19=0.
   compute avy55=16.
   compute avy56=16.
   compute avy57=16.
   compute mainy55=2.
   compute mainy56=2.
   compute mainy57=2.
   compute mtravy55=-7.
   compute mtravy56=-7.
   compute mtravy57=-7.
End if.

freq avy55 avy56 avy57 mainy55 mainy56 mainy57 mtravy55 mtravy56 mtravy57.

*set values for the 20th time slot.
freq mtmark20.
*1519 missing travel cases in time slot 20.

temp.
select if mtmark20=1.
cro main20 by main21.

if main20=83 or main21=83 or main20=63 or main21=63 mtmark20=0.
if main20=34 or main20=38 or main20=62 or main20=67 or main20=81 mtmark20=0.
if main21=34 or main21=38 or main21=62 or main21=67 or main21=81 mtmark20=0.
if main20=main21 mtmark20=0.
if main20=1 or main20=61 or main21=61 or main21=72 or main21=50 mtmark20=0.
if main20=59 and main21>57 mtmark20=0.
if main20=60 or main20=64 or main20=66 or main20=68 or main20=70 or 
   main20=71 or main20=72 or main20=73 or main20=35 or main20=52 or 
   main20=65 or main20=74 or main20=80 or main20=82 or main20=99 or
   main20=76 mtmark20=0.
if main20=84 and main20=52 mtmark12=0.
*errors fixed, 684 cases remain.

temp.
select if sec20=45.
cro main20 by main21 by mtmark20.

temp.
select if sec20=46 or sec20=47.
cro main20 by main21 by mtmark20.

Do if mtmark20=0.
   Do if main20>95.
      compute avy58=41.
      compute avy59=41.
      compute avy60=41.
      compute mainy58=69.
      compute mainy59=69.
      compute mainy60=69.
      compute mtravy58=-8.
      compute mtravy59=-8.
      compute mtravy60=-8.
   Else if main20=1.
      compute avy58=16.
      compute avy59=16.
      compute avy60=13.
      compute mainy58=2.
      compute mainy59=2.
      compute mainy60=4.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=-7. 
   Else if main20=2.
      compute avy58=16.
      compute avy59=16.
      compute avy60=36.
      compute mainy58=2.
      compute mainy59=2.
      compute mainy60=55.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=3 or main20=4.
      compute avy58=16.
      compute avy59=16.
      compute avy60=16.
      compute mainy58=2.
      compute mainy59=2.
      compute mainy60=2.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=-7. 
   Else if main20=5.
      compute avy58=16.
      compute avy59=16.
      compute avy60=16.
      compute mainy58=3.
      compute mainy59=3.
      compute mainy60=3.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=6.
      compute avy58=13.
      compute avy59=13.
      compute avy60=13.
      compute mainy58=1.
      compute mainy59=1.
      compute mainy60=1.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20>6 and main20<20.
      compute avy58=30.
      compute avy59=30.
      compute avy60=30.
      compute mainy58=58.
      compute mainy59=58.
      compute mainy60=58.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20>19 and main20<30.
      compute avy58=31.
      compute avy59=31.
      compute avy60=31.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=59.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20>29 and main20<34.
      compute avy58=13.
      compute avy59=13.
      compute avy60=13.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=4.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=34 and sec20=45.
      compute avy58=15.
      compute avy59=15.
      compute avy60=5.
      compute mainy58=6.
      compute mainy59=6.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=1.
   Else if main20=34 or main20=35 or ((main20=38 or main20=39) and loc20=1).
      compute avy58=15.
      compute avy59=15.
      compute avy60=15.
      compute mainy58=6.
      compute mainy59=6.
      compute mainy60=6.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=36.
      compute avy58=14.
      compute avy59=14.
      compute avy60=14.
      compute mainy58=25.
      compute mainy59=25.
      compute mainy60=25.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=37.
      compute avy58=12.
      compute avy59=12.
      compute avy60=12.
      compute mainy58=67.
      compute mainy59=67.
      compute mainy60=67.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=40.
      compute avy58=1.
      compute avy59=1.
      compute avy60=1.
      compute mainy58=13.
      compute mainy59=13.
      compute mainy60=13.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=41.
      compute avy58=1.
      compute avy59=1.
      compute avy60=1.
      compute mainy58=7.
      compute mainy59=7.
      compute mainy60=7.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=42.
      compute avy58=4.
      compute avy59=4.
      compute avy60=4.
      compute mainy58=15.
      compute mainy59=15.
      compute mainy60=15.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=43.
      compute avy58=2.
      compute avy59=2.
      compute avy60=2.
      compute mainy58=8.
      compute mainy59=8.
      compute mainy60=8.
      compute mtravy58=-7.
      compute mtravy59=-7.
     compute mtravy60=-7.
   Else if main20=44.
      compute avy58=3.
      compute avy59=3.
      compute avy60=3.
      compute mainy58=9.
      compute mainy59=9.
      compute mainy60=9.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=45 and (main21=42 or main21=79).
      compute avy58=5.
      compute avy59=5.
      compute avy60=5.
      compute mainy58=64.
      compute mainy59=64.
      compute mainy60=64.
      compute mtravy58=1.
      compute mtravy59=1.
      compute mtravy60=1.
   Else if (main20=46 or main20=47) and (main21=42 or main21=79).
      compute avy58=5.
      compute avy59=5.
      compute avy60=5.
      compute mainy58=64.
      compute mainy59=64.
      compute mainy60=64.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=45.
      compute avy58=5.
      compute avy59=5.
      compute avy60=5.
      compute mainy58=63.
      compute mainy59=63.
      compute mainy60=63.
      compute mtravy58=1.
      compute mtravy59=1.
      compute mtravy60=1.
   Else if main20=46 or main20=47.
      compute avy58=5.
      compute avy59=5.
      compute avy60=5.
      compute mainy58=63.
      compute mainy59=63.
      compute mainy60=63.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=48.
      compute avy58=5.
      compute avy59=5.
      compute avy60=5.
      compute mainy58=11.
      compute mainy59=11.
      compute mainy60=11.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=49.
      compute avy58=1.
      compute avy59=1.
      compute avy60=1.
      compute mainy58=5.
      compute mainy59=5.
      compute mainy60=5.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=50.
      compute avy58=8.
      compute avy59=8.
      compute avy60=8.
      compute mainy58=21.
      compute mainy59=21.
      compute mainy60=21.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=51.
      compute avy58=11.
      compute avy59=11.
      compute avy60=11.
      compute mainy58=28.
      compute mainy59=28.
      compute mainy60=28.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=52.
      compute avy58=11.
      compute avy59=11.
      compute avy60=11.
      compute mainy58=30.
      compute mainy59=30.
      compute mainy60=30.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=53 and sec20=45.
      compute avy58=6.
      compute avy59=6.
      compute avy60=5.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=1.
   Else if main20=53.
      compute avy58=6.
      compute avy59=6.
      compute avy60=6.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=18.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=54.
      compute avy58=7.
      compute avy59=7.
      compute avy60=7.
      compute mainy58=20.
      compute mainy59=20.
      compute mainy60=20.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=55.
      compute avy58=8.
      compute avy59=8.
      compute avy60=8.
      compute mainy58=22.
      compute mainy59=22.
      compute mainy60=22.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=56.
      compute avy58=8.
      compute avy59=8.
      compute avy60=8.
      compute mainy58=27.
      compute mainy59=27.
      compute mainy60=27.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=57.
      compute avy58=10.
      compute avy59=10.
      compute avy60=10.
      compute mainy58=24.
      compute mainy59=24.
      compute mainy60=24.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=58 and sec20=45.
      compute avy58=12.
      compute avy59=12.
      compute avy60=5.
      compute mainy58=66.
      compute mainy59=66.
      compute mainy60=63.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=1.
   Else if main20=58.
      compute avy58=12.
      compute avy59=12.
      compute avy60=12.
      compute mainy58=66.
      compute mainy59=66.
      compute mainy60=66.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=59.
      compute avy58=7.
      compute avy59=7.
      compute avy60=13.
      compute mainy58=23.
      compute mainy59=23.
      compute mainy60=4.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=60.
      compute avy58=9.
      compute avy59=9.
      compute avy60=9.
      compute mainy58=46.
      compute mainy59=46.
      compute mainy60=46.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=61.
      compute avy58=33.
      compute avy59=33.
      compute avy60=33.
      compute mainy58=16.
      compute mainy59=16.
      compute mainy60=16.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=62.
      compute avy58=34.
      compute avy59=34.
      compute avy60=34.
      compute mainy58=56.
      compute mainy59=56.
      compute mainy60=56.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=63 and sec20=45.
      compute avy58=35.
      compute avy59=35.
      compute avy60=5.
      compute mainy58=56.
      compute mainy59=56.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=1.
   Else if main20=63.
      compute avy58=35.
      compute avy59=35.
      compute avy60=35.
      compute mainy58=56.
      compute mainy59=56.
      compute mainy60=56.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=64.
      compute avy58=40.
      compute avy59=40.
      compute avy60=40.
      compute mainy58=54.
      compute mainy59=54.
      compute mainy60=54.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=65.
      compute avy58=39.
      compute avy59=39.
      compute avy60=39.
      compute mainy58=54.
      compute mainy59=54.
      compute mainy60=54.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=66.
      compute avy58=38.
      compute avy59=38.
      compute avy60=38.
      compute mainy58=48.
      compute mainy59=48.
      compute mainy60=48.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=67 and sec20=45.
      compute avy58=37.
      compute avy59=37.
      compute avy60=5.
      compute mainy58=49.
      compute mainy59=49.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=1.
   Else if main20=67.
      compute avy58=37.
      compute avy59=37.
      compute avy60=37.
      compute mainy58=49.
      compute mainy59=49.
      compute mainy60=49.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=68.
      compute avy58=32.
      compute avy59=32.
      compute avy60=32.
      compute mainy58=57.
      compute mainy59=57.
      compute mainy60=57.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=69.
      compute avy58=36.
      compute avy59=36.
      compute avy60=36.
      compute mainy58=55.
      compute mainy59=55.
      compute mainy60=55.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=70.
      compute avy58=25.
      compute avy59=25.
      compute avy60=25.
      compute mainy58=35.
      compute mainy59=35.
      compute mainy60=35.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=71.
      compute avy58=29.
      compute avy59=29.
      compute avy60=29.
      compute mainy58=48.
      compute mainy59=48.
      compute mainy60=48.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=72.
      compute avy58=24.
      compute avy59=24.
      compute avy60=24.
      compute mainy58=37.
      compute mainy59=37.
      compute mainy60=37.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=73.
      compute avy58=23.
      compute avy59=23.
      compute avy60=23.
      compute mainy58=33.
      compute mainy59=33.
      compute mainy60=33.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=74.
      compute avy58=26.
      compute avy59=26.
      compute avy60=26.
      compute mainy58=40.
      compute mainy59=40.
      compute mainy60=40.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=75 or main20=39.
      compute avy58=27.
      compute avy59=27.
      compute avy60=27.
      compute mainy58=39.
      compute mainy59=39.
      compute mainy60=39.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=76.
      compute avy58=25.
      compute avy59=25.
      compute avy60=25.
      compute mainy58=40.
      compute mainy59=40.
      compute mainy60=40.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=77 or main20=38.
      compute avy58=28.
      compute avy59=28.
      compute avy60=28.
      compute mainy58=39.
      compute mainy59=39.
      compute mainy60=39.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=78.
      compute avy58=22.
      compute avy59=22.
      compute avy60=22.
      compute mainy58=34.
      compute mainy59=34.
      compute mainy60=34.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=79.
      compute avy58=4.
      compute avy59=4.
      compute avy60=4.
      compute mainy58=17.
      compute mainy59=17.
      compute mainy60=17.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=80.
      compute avy58=18.
      compute avy59=18.
      compute avy60=18.
      compute mainy58=38.
      compute mainy59=38.
      compute mainy60=38.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=81.
      compute avy58=19.
      compute avy59=19.
      compute avy60=19.
      compute mainy58=42.
      compute mainy59=42.
      compute mainy60=42.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=82.
      compute avy58=20.
      compute avy59=20.
      compute avy60=20.
      compute mainy58=36.
      compute mainy59=36.
      compute mainy60=36.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=83.
      compute avy58=21.
      compute avy59=21.
      compute avy60=21.
      compute mainy58=43.
      compute mainy59=43.
      compute mainy60=43.
      compute mtravy58=3.
      compute mtravy59=3.
      compute mtravy60=3.
   Else if main20=84.
      compute avy58=18.
      compute avy59=18.
      compute avy60=18.
      compute mainy58=45.
      compute mainy59=45.
      compute mainy60=45.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=85 or main20=86.
      compute avy58=18.
      compute avy59=18.
      compute avy60=18.
      compute mainy58=38.
      compute mainy59=38.
      compute mainy60=38.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=89.
      compute avy58=17.
      compute avy59=17.
      compute avy60=17.
      compute mainy58=68.
      compute mainy59=68.
      compute mainy60=68.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=90.
      compute avy58=17.
      compute avy59=17.
      compute avy60=17.
      compute mainy58=62.
      compute mainy59=62.
      compute mainy60=62.
      compute mtravy58=5.
      compute mtravy59=5.
      compute mtravy60=5.
   Else if main20=91.
      compute avy58=40.
      compute avy59=40.
      compute avy60=40.
      compute mainy58=51.
      compute mainy59=51.
      compute mainy60=51.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=92.
      compute avy58=31.
      compute avy59=31.
      compute avy60=31.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=59.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   Else if main20=93.
      compute avy58=41.
      compute avy59=41.
      compute avy60=41.
      compute mainy58=41.
      compute mainy59=41.
      compute mainy60=41.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=-7.
   End if.
Else if mtmark20=1.
   Do if main20=2 and (main21=42 or main21=79).
      compute avy58=16.
      compute avy59=36.
      compute avy60=5.
      compute mainy58=2.
      compute mainy59=55.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=2 and (main21=41 or main21=44).
      compute avy58=16.
      compute avy59=36.
      compute avy60=5.
      compute mainy58=2.
      compute mainy59=55.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=2 and (main21=36 or main21=57).
      compute avy58=16.
      compute avy59=36.
      compute avy60=12.
      compute mainy58=2.
      compute mainy59=55.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=2.
      compute avy58=16.
      compute avy59=36.
      compute avy60=17.
      compute mainy58=2.
      compute mainy59=55.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20=3 or main20=4) and (main21=42 or main21=79).
      compute avy58=16.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=2.
      compute mainy59=4.
      compute mainy60=64.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=5. 
   Else if (main20=3 or main20=4) and (main21=41 or main21=44).
      compute avy58=16.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=2.
      compute mainy59=4.
      compute mainy60=63.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=5. 
   Else if (main20=3 or main20=4) and (main21=36 or main21=57).
      compute avy58=16.
      compute avy59=13.
      compute avy60=12.
      compute mainy58=2.
      compute mainy59=4.
      compute mainy60=67.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=5. 
   Else if (main20=3 or main20=4).
      compute avy58=16.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=2.
      compute mainy59=4.
      compute mainy60=63.
      compute mtravy58=-7. 
      compute mtravy59=-7. 
      compute mtravy60=5.
   Else if main20=6 and (main21=41 or main21=44).
      compute avy58=13.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=1.
      compute mainy59=1.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=6 and (main21=42 or main21=79).
      compute avy58=13.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=1.
      compute mainy59=1.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=6 and (main21=36 or main21=57).
      compute avy58=13.
      compute avy59=13.
      compute avy60=12.
      compute mainy58=1.
      compute mainy59=1.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=6.
      compute avy58=13.
      compute avy59=13.
      compute avy60=17.
      compute mainy58=1.
      compute mainy59=1.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>10 and main20<15) and (main21=42 or main21=79).
      compute avy58=30.
      compute avy59=30.
      compute avy60=5.
      compute mainy58=58.
      compute mainy59=58.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>10 and main20<15) and (main21=41 or main21=44).
      compute avy58=30.
      compute avy59=30.
      compute avy60=5.
      compute mainy58=58.
      compute mainy59=58.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>10 and main20<15) and (main21=36 or main21=57).
      compute avy58=30.
      compute avy59=30.
      compute avy60=12.
      compute mainy58=58.
      compute mainy59=58.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20>10 and main20<15.
      compute avy58=30.
      compute avy59=30.
      compute avy60=17.
      compute mainy58=58.
      compute mainy59=58.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>19 and main20<30) and (main21=41 or main21=44).
      compute avy58=31.
      compute avy59=31.
      compute avy60=5.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>19 and main20<30) and (main21=42 or main21=79).
      compute avy58=31.
      compute avy59=31.
      compute avy60=5.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>19 and main20<30) and (main21=36 or main21=57).
      compute avy58=31.
      compute avy59=31.
      compute avy60=12.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20>19 and main20<30.
      compute avy58=31.
      compute avy59=31.
      compute avy60=17.
      compute mainy58=59.
      compute mainy59=59.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>29 and main20<34) and sec20=45.
      compute avy58=13.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=1.
   Else if (main20>29 and main20<34) and (main21=42 or main21=79).
      compute avy58=13.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>29 and main20<34) and (main21=57 or main21=36).
      compute avy58=13.
      compute avy59=13.
      compute avy60=12.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>29 and main20<34) and (main21=41 or main21=44 or main21=47).
      compute avy58=13.
      compute avy59=13.
      compute avy60=5.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if (main20>29 and main20<34).
      compute avy58=13.
      compute avy59=13.
      compute avy60=17.
      compute mainy58=4.
      compute mainy59=4.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=36.
      compute avy58=14.
      compute avy59=14.
      compute avy60=12.
      compute mainy58=25.
      compute mainy59=25.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=41.
      compute avy58=1.
      compute avy59=1.
      compute avy60=5.
      compute mainy58=7.
      compute mainy59=7.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=42.
      compute avy58=4.
      compute avy59=4.
      compute avy60=5.
      compute mainy58=15.
      compute mainy59=15.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=43 and (main21=42 or main21=79).
      compute avy58=2.
      compute avy59=2.
      compute avy60=5.
      compute mainy58=8.
      compute mainy59=8.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
     compute mtravy60=5.
   Else if main20=43.
      compute avy58=2.
      compute avy59=2.
      compute avy60=5.
      compute mainy58=8.
      compute mainy59=8.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
     compute mtravy60=5.
   Else if main20=44.
      compute avy58=3.
      compute avy59=3.
      compute avy60=5.
      compute mainy58=9.
      compute mainy59=9.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=50 and (main21=41 or main21=44).
      compute avy58=8.
      compute avy59=8.
      compute avy60=5.
      compute mainy58=21.
      compute mainy59=21.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=50 and (main21=42 or main21=79).
      compute avy58=8.
      compute avy59=8.
      compute avy60=5.
      compute mainy58=21.
      compute mainy59=21.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=50 and (main21=57 or main21=36).
      compute avy58=8.
      compute avy59=8.
      compute avy60=12.
      compute mainy58=21.
      compute mainy59=21.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=50.
      compute avy58=8.
      compute avy59=8.
      compute avy60=17.
      compute mainy58=21.
      compute mainy59=21.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=51 and (main21=41 or main21=44 or main21=45).
      compute avy58=11.
      compute avy59=11.
      compute avy60=5.
      compute mainy58=28.
      compute mainy59=28.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=51 and (main21=42 or main21=79).
      compute avy58=11.
      compute avy59=11.
      compute avy60=5.
      compute mainy58=28.
      compute mainy59=28.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=51 and (main21=57 or main21=36).
      compute avy58=11.
      compute avy59=11.
      compute avy60=12.
      compute mainy58=28.
      compute mainy59=28.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=51.
      compute avy58=11.
      compute avy59=11.
      compute avy60=17.
      compute mainy58=28.
      compute mainy59=28.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=53 and (main21=42 or main21=79).
      compute avy58=6.
      compute avy59=6.
      compute avy60=5.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=53 and (main21=36 or main21=57).
      compute avy58=6.
      compute avy59=6.
      compute avy60=12.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=53 and (main21=41 or main21=44).
      compute avy58=6.
      compute avy59=6.
      compute avy60=5.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=53.
      compute avy58=6.
      compute avy59=6.
      compute avy60=17.
      compute mainy58=18.
      compute mainy59=18.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=54 and (main21=36 or main21=57).
      compute avy58=7.
      compute avy59=7.
      compute avy60=12.
      compute mainy58=20.
      compute mainy59=20.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=54 and (main21=41 or main21=44 or main21=47).
      compute avy58=7.
      compute avy59=7.
      compute avy60=5.
      compute mainy58=20.
      compute mainy59=20.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      Do if sec20=45.
         compute mtravy60=1.
      Else.
         compute mtravy60=5.
      End if.
   Else if main20=54 and (main21=42 or main21=79).
      compute avy58=7.
      compute avy59=7.
      compute avy60=5.
      compute mainy58=20.
      compute mainy59=20.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=54.
      compute avy58=7.
      compute avy59=7.
      compute avy60=17.
      compute mainy58=20.
      compute mainy59=20.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=55 and (main21=57 or main21=36).
      compute avy58=8.
      compute avy59=8.
      compute avy60=12.
      compute mainy58=22.
      compute mainy59=22.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=55 and (main21=42 or main21=79).
      compute avy58=8.
      compute avy59=8.
      compute avy60=5.
      compute mainy58=22.
      compute mainy59=22.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=55.
      compute avy58=8.
      compute avy59=8.
      compute avy60=17.
      compute mainy58=22.
      compute mainy59=22.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=56 and (main21=41 or main21=44).
      compute avy58=8.
      compute avy59=8.
      compute avy60=5.
      compute mainy58=27.
      compute mainy59=27.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=56 and (main21=42 or main21=79).
      compute avy58=8.
      compute avy59=8.
      compute avy60=5.
      compute mainy58=27.
      compute mainy59=27.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=56 and (main21=36 or main21=57).
      compute avy58=8.
      compute avy59=8.
      compute avy60=12.
      compute mainy58=27.
      compute mainy59=27.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=56.
      compute avy58=8.
      compute avy59=8.
      compute avy60=17.
      compute mainy58=27.
      compute mainy59=27.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=57 and (main21=41 or main21=44).
      compute avy58=10.
      compute avy59=10.
      compute avy60=5.
      compute mainy58=24.
      compute mainy59=24.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=57 and (main21=42 or main21=79).
      compute avy58=10.
      compute avy59=10.
      compute avy60=5.
      compute mainy58=24.
      compute mainy59=24.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=57 and (main21=36 or main21=57).
      compute avy58=10.
      compute avy59=10.
      compute avy60=12.
      compute mainy58=24.
      compute mainy59=24.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=57.
      compute avy58=10.
      compute avy59=10.
      compute avy60=17.
      compute mainy58=24.
      compute mainy59=24.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=59.
      compute avy58=7.
      compute avy59=7.
      compute avy60=12.
      compute mainy58=23.
      compute mainy59=23.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=66.
      compute avy58=38.
      compute avy59=38.
      compute avy60=12.
      compute mainy58=48.
      compute mainy59=48.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=69 and (main21=41 or main21=44 or main21=48).
      compute avy58=36.
      compute avy59=36.
      compute avy60=5.
      compute mainy58=55.
      compute mainy59=55.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      Do if sec20=45.
         compute mtravy60=1.
      Else.
         compute mtravy60=5.
      End if.
   Else if main20=69 and (main21=36 or main21=57).
      compute avy58=36.
      compute avy59=36.
      compute avy60=12.
      compute mainy58=55.
      compute mainy59=55.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=69.
      compute avy58=36.
      compute avy59=36.
      compute avy60=17.
      compute mainy58=55.
      compute mainy59=55.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=71 and main21=42.
      compute avy58=29.
      compute avy59=29.
      compute avy60=5.
      compute mainy58=48.
      compute mainy59=48.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=71 and main21=41.
      compute avy58=29.
      compute avy59=29.
      compute avy60=5.
      compute mainy58=48.
      compute mainy59=48.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=75.
      compute avy58=27.
      compute avy59=27.
      compute avy60=17.
      compute mainy58=39.
      compute mainy59=39.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=77.
      compute avy58=28.
      compute avy59=28.
      compute avy60=17.
      compute mainy58=39.
      compute mainy59=39.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=78 and (main20=41 or main20=44).
      compute avy58=22.
      compute avy59=22.
      compute avy60=5.
      compute mainy58=34.
      compute mainy59=34.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=78.
      compute avy58=22.
      compute avy59=22.
      compute avy60=17.
      compute mainy58=34.
      compute mainy59=34.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=79.
      compute avy58=4.
      compute avy59=4.
      compute avy60=5.
      compute mainy58=17.
      compute mainy59=17.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=82.
      compute avy58=20.
      compute avy59=20.
      compute avy60=17.
      compute mainy58=36.
      compute mainy59=36.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=84.
      compute avy58=18.
      compute avy59=18.
      compute avy60=17.
      compute mainy58=45.
      compute mainy59=45.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=85 or main20=86.
      compute avy58=18.
      compute avy59=18.
      compute avy60=17.
      compute mainy58=38.
      compute mainy59=38.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=91 and (main21=36 or main21=57).
      compute avy58=40.
      compute avy59=40.
      compute avy60=12.
      compute mainy58=51.
      compute mainy59=51.
      compute mainy60=67.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=91 and (main21=41 or main21=44).
      compute avy58=40.
      compute avy59=40.
      compute avy60=5.
      compute mainy58=51.
      compute mainy59=51.
      compute mainy60=63.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=91 and (main21=42 or main21=79).
      compute avy58=40.
      compute avy59=40.
      compute avy60=5.
      compute mainy58=51.
      compute mainy59=51.
      compute mainy60=64.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   Else if main20=91.
      compute avy58=40.
      compute avy59=40.
      compute avy60=17.
      compute mainy58=51.
      compute mainy59=51.
      compute mainy60=68.
      compute mtravy58=-7.
      compute mtravy59=-7.
      compute mtravy60=5.
   End if.
End if.

Do if main20=1 and main21=1 and mtmark20=0.
   compute avy58=16.
   compute avy59=16.
   compute avy60=16.
   compute mainy58=2.
   compute mainy59=2.
   compute mainy60=2.
   compute mtravy58=-7. 
   compute mtravy59=-7. 
   compute mtravy60=-7. 
Else if main20=2 and main21=2 and mtmark20=0.
   compute avy58=16.
   compute avy59=16.
   compute avy60=16.
   compute mainy58=2.
   compute mainy59=2.
   compute mainy60=2.
   compute mtravy58=-7.
   compute mtravy59=-7.
   compute mtravy60=-7.
End if.

freq avy58 avy59 avy60 mainy58 mainy59 mainy60 mtravy58 mtravy59 mtravy60.

*set values for the 21th time slot.
freq mtmark21.
*808 missing travel cases in time slot 21.

temp.
select if mtmark21=1.
cro main21 by main22.

if main21=83 or main22=83 or main21=63 or main22=63 mtmark21=0.
if main21=34 or main21=38 or main21=62 or main21=67 or main21=81 mtmark21=0.
if main22=34 or main22=38 or main22=62 or main22=67 or main22=81 mtmark21=0.
if main21=main22 mtmark21=0.
if main21=1 or main21=61 or main22=61 or main22=72 or main22=50 mtmark21=0.
if main21=59 and main22>57 mtmark21=0.
if main21=60 or main21=64 or main21=66 or main21=68 or main21=70 or 
   main21=71 or main21=72 or main21=73 or main21=35 or main21=52 or 
   main21=65 or main21=74 or main21=80 or main21=82 or main21=99 or
   main21=76 or main21=49 mtmark21=0.
if main21=84 and main21=52 mtmark12=0.
*errors fixed, 412 cases remain.

temp.
select if sec21=45.
cro main21 by main22 by mtmark21.

temp.
select if sec21=46 or sec21=47.
cro main21 by main22 by mtmark21.

Do if mtmark21=0.
   Do if main21>95.
      compute avy61=41.
      compute avy62=41.
      compute avy63=41.
      compute mainy61=69.
      compute mainy62=69.
      compute mainy63=69.
      compute mtravy61=-8.
      compute mtravy62=-8.
      compute mtravy63=-8.
   Else if main21=1.
      compute avy61=16.
      compute avy62=16.
      compute avy63=13.
      compute mainy61=2.
      compute mainy62=2.
      compute mainy63=4.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=-7. 
   Else if main21=2.
      compute avy61=16.
      compute avy62=16.
      compute avy63=36.
      compute mainy61=2.
      compute mainy62=2.
      compute mainy63=55.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=3 or main21=4.
      compute avy61=16.
      compute avy62=16.
      compute avy63=16.
      compute mainy61=2.
      compute mainy62=2.
      compute mainy63=2.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=-7. 
   Else if main21=5.
      compute avy61=16.
      compute avy62=16.
      compute avy63=16.
      compute mainy61=3.
      compute mainy62=3.
      compute mainy63=3.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=6.
      compute avy61=13.
      compute avy62=13.
      compute avy63=13.
      compute mainy61=1.
      compute mainy62=1.
      compute mainy63=1.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21>6 and main21<20.
      compute avy61=30.
      compute avy62=30.
      compute avy63=30.
      compute mainy61=58.
      compute mainy62=58.
      compute mainy63=58.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21>19 and main21<30.
      compute avy61=31.
      compute avy62=31.
      compute avy63=31.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=59.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21>29 and main21<34.
      compute avy61=13.
      compute avy62=13.
      compute avy63=13.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=4.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=34 and sec21=45.
      compute avy61=15.
      compute avy62=15.
      compute avy63=5.
      compute mainy61=6.
      compute mainy62=6.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=1.
   Else if main21=34 or main21=35 or ((main21=38 or main21=39) and loc21=1).
      compute avy61=15.
      compute avy62=15.
      compute avy63=15.
      compute mainy61=6.
      compute mainy62=6.
      compute mainy63=6.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=36.
      compute avy61=14.
      compute avy62=14.
      compute avy63=14.
      compute mainy61=25.
      compute mainy62=25.
      compute mainy63=25.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=37.
      compute avy61=12.
      compute avy62=12.
      compute avy63=12.
      compute mainy61=67.
      compute mainy62=67.
      compute mainy63=67.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=40.
      compute avy61=1.
      compute avy62=1.
      compute avy63=1.
      compute mainy61=13.
      compute mainy62=13.
      compute mainy63=13.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=41.
      compute avy61=1.
      compute avy62=1.
      compute avy63=1.
      compute mainy61=7.
      compute mainy62=7.
      compute mainy63=7.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=42.
      compute avy61=4.
      compute avy62=4.
      compute avy63=4.
      compute mainy61=15.
      compute mainy62=15.
      compute mainy63=15.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=43.
      compute avy61=2.
      compute avy62=2.
      compute avy63=2.
      compute mainy61=8.
      compute mainy62=8.
      compute mainy63=8.
      compute mtravy61=-7.
      compute mtravy62=-7.
     compute mtravy63=-7.
   Else if main21=44.
      compute avy61=3.
      compute avy62=3.
      compute avy63=3.
      compute mainy61=9.
      compute mainy62=9.
      compute mainy63=9.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=45 and (main22=42 or main22=79).
      compute avy61=5.
      compute avy62=5.
      compute avy63=5.
      compute mainy61=64.
      compute mainy62=64.
      compute mainy63=64.
      compute mtravy61=1.
      compute mtravy62=1.
      compute mtravy63=1.
   Else if (main21=46 or main21=47) and (main22=42 or main22=79).
      compute avy61=5.
      compute avy62=5.
      compute avy63=5.
      compute mainy61=64.
      compute mainy62=64.
      compute mainy63=64.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=45.
      compute avy61=5.
      compute avy62=5.
      compute avy63=5.
      compute mainy61=63.
      compute mainy62=63.
      compute mainy63=63.
      compute mtravy61=1.
      compute mtravy62=1.
      compute mtravy63=1.
   Else if main21=46 or main21=47.
      compute avy61=5.
      compute avy62=5.
      compute avy63=5.
      compute mainy61=63.
      compute mainy62=63.
      compute mainy63=63.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=48.
      compute avy61=5.
      compute avy62=5.
      compute avy63=5.
      compute mainy61=11.
      compute mainy62=11.
      compute mainy63=11.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=49.
      compute avy61=1.
      compute avy62=1.
      compute avy63=1.
      compute mainy61=5.
      compute mainy62=5.
      compute mainy63=5.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=50.
      compute avy61=8.
      compute avy62=8.
      compute avy63=8.
      compute mainy61=21.
      compute mainy62=21.
      compute mainy63=21.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=51.
      compute avy61=11.
      compute avy62=11.
      compute avy63=11.
      compute mainy61=28.
      compute mainy62=28.
      compute mainy63=28.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=52.
      compute avy61=11.
      compute avy62=11.
      compute avy63=11.
      compute mainy61=30.
      compute mainy62=30.
      compute mainy63=30.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=53.
      compute avy61=6.
      compute avy62=6.
      compute avy63=6.
      compute mainy61=18.
      compute mainy62=18.
      compute mainy63=18.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=54.
      compute avy61=7.
      compute avy62=7.
      compute avy63=7.
      compute mainy61=20.
      compute mainy62=20.
      compute mainy63=20.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=55.
      compute avy61=8.
      compute avy62=8.
      compute avy63=8.
      compute mainy61=22.
      compute mainy62=22.
      compute mainy63=22.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=56.
      compute avy61=8.
      compute avy62=8.
      compute avy63=8.
      compute mainy61=27.
      compute mainy62=27.
      compute mainy63=27.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=57.
      compute avy61=10.
      compute avy62=10.
      compute avy63=10.
      compute mainy61=24.
      compute mainy62=24.
      compute mainy63=24.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=58.
      compute avy61=12.
      compute avy62=12.
      compute avy63=12.
      compute mainy61=66.
      compute mainy62=66.
      compute mainy63=66.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=59.
      compute avy61=7.
      compute avy62=7.
      compute avy63=13.
      compute mainy61=23.
      compute mainy62=23.
      compute mainy63=4.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=60.
      compute avy61=9.
      compute avy62=9.
      compute avy63=9.
      compute mainy61=46.
      compute mainy62=46.
      compute mainy63=46.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=61.
      compute avy61=33.
      compute avy62=33.
      compute avy63=33.
      compute mainy61=16.
      compute mainy62=16.
      compute mainy63=16.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=62.
      compute avy61=34.
      compute avy62=34.
      compute avy63=34.
      compute mainy61=56.
      compute mainy62=56.
      compute mainy63=56.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=63.
      compute avy61=35.
      compute avy62=35.
      compute avy63=35.
      compute mainy61=56.
      compute mainy62=56.
      compute mainy63=56.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=64.
      compute avy61=40.
      compute avy62=40.
      compute avy63=40.
      compute mainy61=54.
      compute mainy62=54.
      compute mainy63=54.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=65.
      compute avy61=39.
      compute avy62=39.
      compute avy63=39.
      compute mainy61=54.
      compute mainy62=54.
      compute mainy63=54.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=66.
      compute avy61=38.
      compute avy62=38.
      compute avy63=38.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=48.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=67.
      compute avy61=37.
      compute avy62=37.
      compute avy63=37.
      compute mainy61=49.
      compute mainy62=49.
      compute mainy63=49.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=68.
      compute avy61=32.
      compute avy62=32.
      compute avy63=32.
      compute mainy61=57.
      compute mainy62=57.
      compute mainy63=57.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=69.
      compute avy61=36.
      compute avy62=36.
      compute avy63=36.
      compute mainy61=55.
      compute mainy62=55.
      compute mainy63=55.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=70.
      compute avy61=25.
      compute avy62=25.
      compute avy63=25.
      compute mainy61=35.
      compute mainy62=35.
      compute mainy63=35.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=71 and (sec21=46 or sec21=47).
      compute avy61=29.
      compute avy62=29.
      compute avy63=5.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=71.
      compute avy61=29.
      compute avy62=29.
      compute avy63=29.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=48.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=72.
      compute avy61=24.
      compute avy62=24.
      compute avy63=24.
      compute mainy61=37.
      compute mainy62=37.
      compute mainy63=37.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=73.
      compute avy61=23.
      compute avy62=23.
      compute avy63=23.
      compute mainy61=33.
      compute mainy62=33.
      compute mainy63=33.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=74.
      compute avy61=26.
      compute avy62=26.
      compute avy63=26.
      compute mainy61=40.
      compute mainy62=40.
      compute mainy63=40.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=75 or main21=39.
      compute avy61=27.
      compute avy62=27.
      compute avy63=27.
      compute mainy61=39.
      compute mainy62=39.
      compute mainy63=39.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=76.
      compute avy61=25.
      compute avy62=25.
      compute avy63=25.
      compute mainy61=40.
      compute mainy62=40.
      compute mainy63=40.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=77 or main21=38.
      compute avy61=28.
      compute avy62=28.
      compute avy63=28.
      compute mainy61=39.
      compute mainy62=39.
      compute mainy63=39.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=78.
      compute avy61=22.
      compute avy62=22.
      compute avy63=22.
      compute mainy61=34.
      compute mainy62=34.
      compute mainy63=34.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=79.
      compute avy61=4.
      compute avy62=4.
      compute avy63=4.
      compute mainy61=17.
      compute mainy62=17.
      compute mainy63=17.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=80.
      compute avy61=18.
      compute avy62=18.
      compute avy63=18.
      compute mainy61=38.
      compute mainy62=38.
      compute mainy63=38.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=81.
      compute avy61=19.
      compute avy62=19.
      compute avy63=19.
      compute mainy61=42.
      compute mainy62=42.
      compute mainy63=42.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=82.
      compute avy61=20.
      compute avy62=20.
      compute avy63=20.
      compute mainy61=36.
      compute mainy62=36.
      compute mainy63=36.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=83.
      compute avy61=21.
      compute avy62=21.
      compute avy63=21.
      compute mainy61=43.
      compute mainy62=43.
      compute mainy63=43.
      compute mtravy61=3.
      compute mtravy62=3.
      compute mtravy63=3.
   Else if main21=84.
      compute avy61=18.
      compute avy62=18.
      compute avy63=18.
      compute mainy61=45.
      compute mainy62=45.
      compute mainy63=45.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=85 or main21=86.
      compute avy61=18.
      compute avy62=18.
      compute avy63=18.
      compute mainy61=38.
      compute mainy62=38.
      compute mainy63=38.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=89.
      compute avy61=17.
      compute avy62=17.
      compute avy63=17.
      compute mainy61=68.
      compute mainy62=68.
      compute mainy63=68.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=90.
      compute avy61=17.
      compute avy62=17.
      compute avy63=17.
      compute mainy61=62.
      compute mainy62=62.
      compute mainy63=62.
      compute mtravy61=5.
      compute mtravy62=5.
      compute mtravy63=5.
   Else if main21=91.
      compute avy61=40.
      compute avy62=40.
      compute avy63=40.
      compute mainy61=51.
      compute mainy62=51.
      compute mainy63=51.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=92.
      compute avy61=31.
      compute avy62=31.
      compute avy63=31.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=59.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   Else if main21=93.
      compute avy61=41.
      compute avy62=41.
      compute avy63=41.
      compute mainy61=41.
      compute mainy62=41.
      compute mainy63=41.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=-7.
   End if.
Else if mtmark21=1.
   Do if main21=2 and (main22=42 or main22=79).
      compute avy61=16.
      compute avy62=36.
      compute avy63=5.
      compute mainy61=2.
      compute mainy62=55.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=2 and (main22=41 or main22=44).
      compute avy61=16.
      compute avy62=36.
      compute avy63=5.
      compute mainy61=2.
      compute mainy62=55.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=2 and (main22=36 or main22=57).
      compute avy61=16.
      compute avy62=36.
      compute avy63=12.
      compute mainy61=2.
      compute mainy62=55.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=2.
      compute avy61=16.
      compute avy62=36.
      compute avy63=17.
      compute mainy61=2.
      compute mainy62=55.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21=3 or main21=4) and (main22=42 or main22=79).
      compute avy61=16.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=2.
      compute mainy62=4.
      compute mainy63=64.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=5. 
   Else if (main21=3 or main21=4) and (main22=41 or main22=44).
      compute avy61=16.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=2.
      compute mainy62=4.
      compute mainy63=63.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=5. 
   Else if (main21=3 or main21=4) and (main22=36 or main22=57).
      compute avy61=16.
      compute avy62=13.
      compute avy63=12.
      compute mainy61=2.
      compute mainy62=4.
      compute mainy63=67.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=5. 
   Else if (main21=3 or main21=4).
      compute avy61=16.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=2.
      compute mainy62=4.
      compute mainy63=63.
      compute mtravy61=-7. 
      compute mtravy62=-7. 
      compute mtravy63=5.
   Else if main21=6 and (main22=41 or main22=44).
      compute avy61=13.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=1.
      compute mainy62=1.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=6 and (main22=42 or main22=79).
      compute avy61=13.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=1.
      compute mainy62=1.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=6 and (main22=36 or main22=57).
      compute avy61=13.
      compute avy62=13.
      compute avy63=12.
      compute mainy61=1.
      compute mainy62=1.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=6.
      compute avy61=13.
      compute avy62=13.
      compute avy63=17.
      compute mainy61=1.
      compute mainy62=1.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>10 and main21<15) and (main22=42 or main22=79).
      compute avy61=30.
      compute avy62=30.
      compute avy63=5.
      compute mainy61=58.
      compute mainy62=58.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>10 and main21<15) and (main22=41 or main22=44).
      compute avy61=30.
      compute avy62=30.
      compute avy63=5.
      compute mainy61=58.
      compute mainy62=58.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>10 and main21<15) and (main22=36 or main22=57).
      compute avy61=30.
      compute avy62=30.
      compute avy63=12.
      compute mainy61=58.
      compute mainy62=58.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21>10 and main21<15.
      compute avy61=30.
      compute avy62=30.
      compute avy63=17.
      compute mainy61=58.
      compute mainy62=58.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>19 and main21<30) and (main22=41 or main22=44).
      compute avy61=31.
      compute avy62=31.
      compute avy63=5.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>19 and main21<30) and (main22=42 or main22=79).
      compute avy61=31.
      compute avy62=31.
      compute avy63=5.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>19 and main21<30) and (main22=36 or main22=57).
      compute avy61=31.
      compute avy62=31.
      compute avy63=12.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21>19 and main21<30.
      compute avy61=31.
      compute avy62=31.
      compute avy63=17.
      compute mainy61=59.
      compute mainy62=59.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>29 and main21<34) and sec21=45.
      compute avy61=13.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=1.
   Else if (main21>29 and main21<34) and (main22=42 or main22=79).
      compute avy61=13.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>29 and main21<34) and (main22=57 or main22=36).
      compute avy61=13.
      compute avy62=13.
      compute avy63=12.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>29 and main21<34) and (main22=41 or main22=44 or main22=47).
      compute avy61=13.
      compute avy62=13.
      compute avy63=5.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if (main21>29 and main21<34).
      compute avy61=13.
      compute avy62=13.
      compute avy63=17.
      compute mainy61=4.
      compute mainy62=4.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=36.
      compute avy61=14.
      compute avy62=14.
      compute avy63=12.
      compute mainy61=25.
      compute mainy62=25.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=41.
      compute avy61=1.
      compute avy62=1.
      compute avy63=5.
      compute mainy61=7.
      compute mainy62=7.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=42.
      compute avy61=4.
      compute avy62=4.
      compute avy63=5.
      compute mainy61=15.
      compute mainy62=15.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=43 and (main22=42 or main22=79).
      compute avy61=2.
      compute avy62=2.
      compute avy63=5.
      compute mainy61=8.
      compute mainy62=8.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
     compute mtravy63=5.
   Else if main21=43.
      compute avy61=2.
      compute avy62=2.
      compute avy63=5.
      compute mainy61=8.
      compute mainy62=8.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
     compute mtravy63=5.
   Else if main21=44.
      compute avy61=3.
      compute avy62=3.
      compute avy63=5.
      compute mainy61=9.
      compute mainy62=9.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=50 and (main22=41 or main22=44).
      compute avy61=8.
      compute avy62=8.
      compute avy63=5.
      compute mainy61=21.
      compute mainy62=21.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=50 and (main22=42 or main22=79).
      compute avy61=8.
      compute avy62=8.
      compute avy63=5.
      compute mainy61=21.
      compute mainy62=21.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=50 and (main22=57 or main22=36).
      compute avy61=8.
      compute avy62=8.
      compute avy63=12.
      compute mainy61=21.
      compute mainy62=21.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=50.
      compute avy61=8.
      compute avy62=8.
      compute avy63=17.
      compute mainy61=21.
      compute mainy62=21.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=51 and (main22=41 or main22=44 or main22=45).
      compute avy61=11.
      compute avy62=11.
      compute avy63=5.
      compute mainy61=28.
      compute mainy62=28.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=51 and (main22=42 or main22=79).
      compute avy61=11.
      compute avy62=11.
      compute avy63=5.
      compute mainy61=28.
      compute mainy62=28.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=51 and (main22=57 or main22=36).
      compute avy61=11.
      compute avy62=11.
      compute avy63=12.
      compute mainy61=28.
      compute mainy62=28.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=51.
      compute avy61=11.
      compute avy62=11.
      compute avy63=17.
      compute mainy61=28.
      compute mainy62=28.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=53 and (main22=42 or main22=79).
      compute avy61=6.
      compute avy62=6.
      compute avy63=5.
      compute mainy61=18.
      compute mainy62=18.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=53 and (main22=36 or main22=57).
      compute avy61=6.
      compute avy62=6.
      compute avy63=12.
      compute mainy61=18.
      compute mainy62=18.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=53 and (main22=41 or main22=44).
      compute avy61=6.
      compute avy62=6.
      compute avy63=5.
      compute mainy61=18.
      compute mainy62=18.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=53.
      compute avy61=6.
      compute avy62=6.
      compute avy63=17.
      compute mainy61=18.
      compute mainy62=18.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=54 and (main22=36 or main22=57).
      compute avy61=7.
      compute avy62=7.
      compute avy63=12.
      compute mainy61=20.
      compute mainy62=20.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=54 and (main22=41 or main22=44 or main22=47).
      compute avy61=7.
      compute avy62=7.
      compute avy63=5.
      compute mainy61=20.
      compute mainy62=20.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=54 and (main22=42 or main22=79).
      compute avy61=7.
      compute avy62=7.
      compute avy63=5.
      compute mainy61=20.
      compute mainy62=20.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=54.
      compute avy61=7.
      compute avy62=7.
      compute avy63=17.
      compute mainy61=20.
      compute mainy62=20.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=55 and (main22=57 or main22=36).
      compute avy61=8.
      compute avy62=8.
      compute avy63=12.
      compute mainy61=22.
      compute mainy62=22.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=55 and (main22=42 or main22=79).
      compute avy61=8.
      compute avy62=8.
      compute avy63=5.
      compute mainy61=22.
      compute mainy62=22.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=55.
      compute avy61=8.
      compute avy62=8.
      compute avy63=17.
      compute mainy61=22.
      compute mainy62=22.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=56 and (main22=41 or main22=44).
      compute avy61=8.
      compute avy62=8.
      compute avy63=5.
      compute mainy61=27.
      compute mainy62=27.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=56 and (main22=42 or main22=79).
      compute avy61=8.
      compute avy62=8.
      compute avy63=5.
      compute mainy61=27.
      compute mainy62=27.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=56 and (main22=36 or main22=57).
      compute avy61=8.
      compute avy62=8.
      compute avy63=12.
      compute mainy61=27.
      compute mainy62=27.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=56.
      compute avy61=8.
      compute avy62=8.
      compute avy63=17.
      compute mainy61=27.
      compute mainy62=27.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=57 and (main22=41 or main22=44).
      compute avy61=10.
      compute avy62=10.
      compute avy63=5.
      compute mainy61=24.
      compute mainy62=24.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=57 and (main22=42 or main22=79).
      compute avy61=10.
      compute avy62=10.
      compute avy63=5.
      compute mainy61=24.
      compute mainy62=24.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=57 and (main22=36 or main22=57).
      compute avy61=10.
      compute avy62=10.
      compute avy63=12.
      compute mainy61=24.
      compute mainy62=24.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=57.
      compute avy61=10.
      compute avy62=10.
      compute avy63=17.
      compute mainy61=24.
      compute mainy62=24.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=59.
      compute avy61=7.
      compute avy62=7.
      compute avy63=12.
      compute mainy61=23.
      compute mainy62=23.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=66.
      compute avy61=38.
      compute avy62=38.
      compute avy63=12.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=69 and (main22=41 or main22=44).
      compute avy61=36.
      compute avy62=36.
      compute avy63=5.
      compute mainy61=55.
      compute mainy62=55.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=69 and (main22=36 or main22=57).
      compute avy61=36.
      compute avy62=36.
      compute avy63=12.
      compute mainy61=55.
      compute mainy62=55.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=69.
      compute avy61=36.
      compute avy62=36.
      compute avy63=17.
      compute mainy61=55.
      compute mainy62=55.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=71 and main22=42.
      compute avy61=29.
      compute avy62=29.
      compute avy63=5.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=71 and main22=41.
      compute avy61=29.
      compute avy62=29.
      compute avy63=5.
      compute mainy61=48.
      compute mainy62=48.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=75.
      compute avy61=27.
      compute avy62=27.
      compute avy63=17.
      compute mainy61=39.
      compute mainy62=39.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=77.
      compute avy61=28.
      compute avy62=28.
      compute avy63=17.
      compute mainy61=39.
      compute mainy62=39.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=78 and (main21=41 or main21=44).
      compute avy61=22.
      compute avy62=22.
      compute avy63=5.
      compute mainy61=34.
      compute mainy62=34.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=78.
      compute avy61=22.
      compute avy62=22.
      compute avy63=17.
      compute mainy61=34.
      compute mainy62=34.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=79.
      compute avy61=4.
      compute avy62=4.
      compute avy63=5.
      compute mainy61=17.
      compute mainy62=17.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=82.
      compute avy61=20.
      compute avy62=20.
      compute avy63=17.
      compute mainy61=36.
      compute mainy62=36.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=84.
      compute avy61=18.
      compute avy62=18.
      compute avy63=17.
      compute mainy61=45.
      compute mainy62=45.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=85 or main21=86.
      compute avy61=18.
      compute avy62=18.
      compute avy63=17.
      compute mainy61=38.
      compute mainy62=38.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=91 and (main22=36 or main22=57).
      compute avy61=40.
      compute avy62=40.
      compute avy63=12.
      compute mainy61=51.
      compute mainy62=51.
      compute mainy63=67.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=91 and (main22=41 or main22=44).
      compute avy61=40.
      compute avy62=40.
      compute avy63=5.
      compute mainy61=51.
      compute mainy62=51.
      compute mainy63=63.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=91 and (main22=42 or main22=79).
      compute avy61=40.
      compute avy62=40.
      compute avy63=5.
      compute mainy61=51.
      compute mainy62=51.
      compute mainy63=64.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   Else if main21=91.
      compute avy61=40.
      compute avy62=40.
      compute avy63=17.
      compute mainy61=51.
      compute mainy62=51.
      compute mainy63=68.
      compute mtravy61=-7.
      compute mtravy62=-7.
      compute mtravy63=5.
   End if.
End if.

Do if main21=1 and main22=1 and mtmark21=0.
   compute avy61=16.
   compute avy62=16.
   compute avy63=16.
   compute mainy61=2.
   compute mainy62=2.
   compute mainy63=2.
   compute mtravy61=-7. 
   compute mtravy62=-7. 
   compute mtravy63=-7. 
Else if main21=2 and main22=2 and mtmark21=0.
   compute avy61=16.
   compute avy62=16.
   compute avy63=16.
   compute mainy61=2.
   compute mainy62=2.
   compute mainy63=2.
   compute mtravy61=-7.
   compute mtravy62=-7.
   compute mtravy63=-7.
End if.

freq avy61 avy62 avy63 mainy61 mainy62 mainy63 mtravy61 mtravy62 mtravy63.

*set values for the 22th time slot.
freq mtmark22.
*1445 missing travel cases in time slot 22.

temp.
select if mtmark22=1.
cro main22 by main23.

if main22=83 or main23=83 or main22=63 or main23=63 mtmark22=0.
if main22=34 or main22=38 or main22=62 or main22=67 or main22=81 mtmark22=0.
if main23=34 or main23=38 or main23=62 or main23=67 or main23=81 mtmark22=0.
if main22=main23 mtmark22=0.
if main22=1 or main22=61 or main23=61 or main23=72 or main23=50 mtmark22=0.
if main22=59 and main23>57 mtmark22=0.
if main22=60 or main22=64 or main22=66 or main22=68 or main22=70 or 
   main22=71 or main22=72 or main22=73 or main22=35 or main22=52 or 
   main22=65 or main22=74 or main22=80 or main22=82 or main22=99 or
   main22=76 or main22=49 mtmark22=0.
if main22=84 and main22=52 mtmark12=0.
*errors fixed, 775 cases remain.

temp.
select if sec22=45.
cro main22 by main23 by mtmark22.

temp.
select if sec22=46 or sec22=47.
cro main22 by main23 by mtmark22.

Do if mtmark22=0.
   Do if main22>95.
      compute avy64=41.
      compute avy65=41.
      compute avy66=41.
      compute mainy64=69.
      compute mainy65=69.
      compute mainy66=69.
      compute mtravy64=-8.
      compute mtravy65=-8.
      compute mtravy66=-8.
   Else if main22=1.
      compute avy64=16.
      compute avy65=16.
      compute avy66=13.
      compute mainy64=2.
      compute mainy65=2.
      compute mainy66=4.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=-7. 
   Else if main22=2.
      compute avy64=16.
      compute avy65=16.
      compute avy66=36.
      compute mainy64=2.
      compute mainy65=2.
      compute mainy66=55.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=3 or main22=4.
      compute avy64=16.
      compute avy65=16.
      compute avy66=16.
      compute mainy64=2.
      compute mainy65=2.
      compute mainy66=2.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=-7. 
   Else if main22=5.
      compute avy64=16.
      compute avy65=16.
      compute avy66=16.
      compute mainy64=3.
      compute mainy65=3.
      compute mainy66=3.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=6.
      compute avy64=13.
      compute avy65=13.
      compute avy66=13.
      compute mainy64=1.
      compute mainy65=1.
      compute mainy66=1.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22>6 and main22<20.
      compute avy64=30.
      compute avy65=30.
      compute avy66=30.
      compute mainy64=58.
      compute mainy65=58.
      compute mainy66=58.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22>19 and main22<30.
      compute avy64=31.
      compute avy65=31.
      compute avy66=31.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=59.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22>29 and main22<34.
      compute avy64=13.
      compute avy65=13.
      compute avy66=13.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=4.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=34 and sec22=45.
      compute avy64=15.
      compute avy65=15.
      compute avy66=5.
      compute mainy64=6.
      compute mainy65=6.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=1.
   Else if main22=34 or main22=35 or ((main22=38 or main22=39) and loc22=1).
      compute avy64=15.
      compute avy65=15.
      compute avy66=15.
      compute mainy64=6.
      compute mainy65=6.
      compute mainy66=6.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=36.
      compute avy64=14.
      compute avy65=14.
      compute avy66=14.
      compute mainy64=25.
      compute mainy65=25.
      compute mainy66=25.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=37.
      compute avy64=12.
      compute avy65=12.
      compute avy66=12.
      compute mainy64=67.
      compute mainy65=67.
      compute mainy66=67.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=40.
      compute avy64=1.
      compute avy65=1.
      compute avy66=1.
      compute mainy64=13.
      compute mainy65=13.
      compute mainy66=13.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=41.
      compute avy64=1.
      compute avy65=1.
      compute avy66=1.
      compute mainy64=7.
      compute mainy65=7.
      compute mainy66=7.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=42.
      compute avy64=4.
      compute avy65=4.
      compute avy66=4.
      compute mainy64=15.
      compute mainy65=15.
      compute mainy66=15.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=43.
      compute avy64=2.
      compute avy65=2.
      compute avy66=2.
      compute mainy64=8.
      compute mainy65=8.
      compute mainy66=8.
      compute mtravy64=-7.
      compute mtravy65=-7.
     compute mtravy66=-7.
   Else if main22=44.
      compute avy64=3.
      compute avy65=3.
      compute avy66=3.
      compute mainy64=9.
      compute mainy65=9.
      compute mainy66=9.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=45 and (main23=42 or main23=79).
      compute avy64=5.
      compute avy65=5.
      compute avy66=5.
      compute mainy64=64.
      compute mainy65=64.
      compute mainy66=64.
      compute mtravy64=1.
      compute mtravy65=1.
      compute mtravy66=1.
   Else if (main22=46 or main22=47) and (main23=42 or main23=79).
      compute avy64=5.
      compute avy65=5.
      compute avy66=5.
      compute mainy64=64.
      compute mainy65=64.
      compute mainy66=64.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=45.
      compute avy64=5.
      compute avy65=5.
      compute avy66=5.
      compute mainy64=63.
      compute mainy65=63.
      compute mainy66=63.
      compute mtravy64=1.
      compute mtravy65=1.
      compute mtravy66=1.
   Else if main22=46 or main22=47.
      compute avy64=5.
      compute avy65=5.
      compute avy66=5.
      compute mainy64=63.
      compute mainy65=63.
      compute mainy66=63.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=48.
      compute avy64=5.
      compute avy65=5.
      compute avy66=5.
      compute mainy64=11.
      compute mainy65=11.
      compute mainy66=11.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=49.
      compute avy64=1.
      compute avy65=1.
      compute avy66=1.
      compute mainy64=5.
      compute mainy65=5.
      compute mainy66=5.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=50.
      compute avy64=8.
      compute avy65=8.
      compute avy66=8.
      compute mainy64=21.
      compute mainy65=21.
      compute mainy66=21.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=51.
      compute avy64=11.
      compute avy65=11.
      compute avy66=11.
      compute mainy64=28.
      compute mainy65=28.
      compute mainy66=28.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=52.
      compute avy64=11.
      compute avy65=11.
      compute avy66=11.
      compute mainy64=30.
      compute mainy65=30.
      compute mainy66=30.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=53.
      compute avy64=6.
      compute avy65=6.
      compute avy66=6.
      compute mainy64=18.
      compute mainy65=18.
      compute mainy66=18.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=54.
      compute avy64=7.
      compute avy65=7.
      compute avy66=7.
      compute mainy64=20.
      compute mainy65=20.
      compute mainy66=20.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=55.
      compute avy64=8.
      compute avy65=8.
      compute avy66=8.
      compute mainy64=22.
      compute mainy65=22.
      compute mainy66=22.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=56.
      compute avy64=8.
      compute avy65=8.
      compute avy66=8.
      compute mainy64=27.
      compute mainy65=27.
      compute mainy66=27.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=57 and (sec22=46 or sec22=47).
      compute avy64=5.
      compute avy65=10.
      compute avy66=10.
      compute mainy64=63.
      compute mainy65=24.
      compute mainy66=24.
      compute mtravy64=5.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=57.
      compute avy64=10.
      compute avy65=10.
      compute avy66=10.
      compute mainy64=24.
      compute mainy65=24.
      compute mainy66=24.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=58.
      compute avy64=12.
      compute avy65=12.
      compute avy66=12.
      compute mainy64=66.
      compute mainy65=66.
      compute mainy66=66.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=59.
      compute avy64=7.
      compute avy65=7.
      compute avy66=13.
      compute mainy64=23.
      compute mainy65=23.
      compute mainy66=4.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=60.
      compute avy64=9.
      compute avy65=9.
      compute avy66=9.
      compute mainy64=46.
      compute mainy65=46.
      compute mainy66=46.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=61.
      compute avy64=33.
      compute avy65=33.
      compute avy66=33.
      compute mainy64=16.
      compute mainy65=16.
      compute mainy66=16.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=62.
      compute avy64=34.
      compute avy65=34.
      compute avy66=34.
      compute mainy64=56.
      compute mainy65=56.
      compute mainy66=56.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=63.
      compute avy64=35.
      compute avy65=35.
      compute avy66=35.
      compute mainy64=56.
      compute mainy65=56.
      compute mainy66=56.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=64.
      compute avy64=40.
      compute avy65=40.
      compute avy66=40.
      compute mainy64=54.
      compute mainy65=54.
      compute mainy66=54.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=65.
      compute avy64=39.
      compute avy65=39.
      compute avy66=39.
      compute mainy64=54.
      compute mainy65=54.
      compute mainy66=54.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=66.
      compute avy64=38.
      compute avy65=38.
      compute avy66=38.
      compute mainy64=48.
      compute mainy65=48.
      compute mainy66=48.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=67.
      compute avy64=37.
      compute avy65=37.
      compute avy66=37.
      compute mainy64=49.
      compute mainy65=49.
      compute mainy66=49.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=68.
      compute avy64=32.
      compute avy65=32.
      compute avy66=32.
      compute mainy64=57.
      compute mainy65=57.
      compute mainy66=57.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=69.
      compute avy64=36.
      compute avy65=36.
      compute avy66=36.
      compute mainy64=55.
      compute mainy65=55.
      compute mainy66=55.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=70.
      compute avy64=25.
      compute avy65=25.
      compute avy66=25.
      compute mainy64=35.
      compute mainy65=35.
      compute mainy66=35.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=71.
      compute avy64=29.
      compute avy65=29.
      compute avy66=29.
      compute mainy64=48.
      compute mainy65=48.
      compute mainy66=48.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=72.
      compute avy64=24.
      compute avy65=24.
      compute avy66=24.
      compute mainy64=37.
      compute mainy65=37.
      compute mainy66=37.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=73.
      compute avy64=23.
      compute avy65=23.
      compute avy66=23.
      compute mainy64=33.
      compute mainy65=33.
      compute mainy66=33.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=74.
      compute avy64=26.
      compute avy65=26.
      compute avy66=26.
      compute mainy64=40.
      compute mainy65=40.
      compute mainy66=40.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=75 or main22=39.
      compute avy64=27.
      compute avy65=27.
      compute avy66=27.
      compute mainy64=39.
      compute mainy65=39.
      compute mainy66=39.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=76.
      compute avy64=25.
      compute avy65=25.
      compute avy66=25.
      compute mainy64=40.
      compute mainy65=40.
      compute mainy66=40.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=77 or main22=38.
      compute avy64=28.
      compute avy65=28.
      compute avy66=28.
      compute mainy64=39.
      compute mainy65=39.
      compute mainy66=39.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=78.
      compute avy64=22.
      compute avy65=22.
      compute avy66=22.
      compute mainy64=34.
      compute mainy65=34.
      compute mainy66=34.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=79.
      compute avy64=4.
      compute avy65=4.
      compute avy66=4.
      compute mainy64=17.
      compute mainy65=17.
      compute mainy66=17.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=80.
      compute avy64=18.
      compute avy65=18.
      compute avy66=18.
      compute mainy64=38.
      compute mainy65=38.
      compute mainy66=38.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=81.
      compute avy64=19.
      compute avy65=19.
      compute avy66=19.
      compute mainy64=42.
      compute mainy65=42.
      compute mainy66=42.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=82.
      compute avy64=20.
      compute avy65=20.
      compute avy66=20.
      compute mainy64=36.
      compute mainy65=36.
      compute mainy66=36.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=83.
      compute avy64=21.
      compute avy65=21.
      compute avy66=21.
      compute mainy64=43.
      compute mainy65=43.
      compute mainy66=43.
      compute mtravy64=3.
      compute mtravy65=3.
      compute mtravy66=3.
   Else if main22=84.
      compute avy64=18.
      compute avy65=18.
      compute avy66=18.
      compute mainy64=45.
      compute mainy65=45.
      compute mainy66=45.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=85 or main22=86.
      compute avy64=18.
      compute avy65=18.
      compute avy66=18.
      compute mainy64=38.
      compute mainy65=38.
      compute mainy66=38.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=89.
      compute avy64=17.
      compute avy65=17.
      compute avy66=17.
      compute mainy64=68.
      compute mainy65=68.
      compute mainy66=68.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=90.
      compute avy64=17.
      compute avy65=17.
      compute avy66=17.
      compute mainy64=62.
      compute mainy65=62.
      compute mainy66=62.
      compute mtravy64=5.
      compute mtravy65=5.
      compute mtravy66=5.
   Else if main22=91.
      compute avy64=40.
      compute avy65=40.
      compute avy66=40.
      compute mainy64=51.
      compute mainy65=51.
      compute mainy66=51.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=92.
      compute avy64=31.
      compute avy65=31.
      compute avy66=31.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=59.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   Else if main22=93.
      compute avy64=41.
      compute avy65=41.
      compute avy66=41.
      compute mainy64=41.
      compute mainy65=41.
      compute mainy66=41.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=-7.
   End if.
Else if mtmark22=1.
   Do if main22=2 and (main23=42 or main23=79).
      compute avy64=16.
      compute avy65=36.
      compute avy66=5.
      compute mainy64=2.
      compute mainy65=55.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=2 and (main23=41 or main23=44).
      compute avy64=16.
      compute avy65=36.
      compute avy66=5.
      compute mainy64=2.
      compute mainy65=55.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=2 and (main23=36 or main23=57).
      compute avy64=16.
      compute avy65=36.
      compute avy66=12.
      compute mainy64=2.
      compute mainy65=55.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=2.
      compute avy64=16.
      compute avy65=36.
      compute avy66=17.
      compute mainy64=2.
      compute mainy65=55.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22=3 or main22=4) and (main23=42 or main23=79).
      compute avy64=16.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=2.
      compute mainy65=4.
      compute mainy66=64.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=5. 
   Else if (main22=3 or main22=4) and (main23=41 or main23=44).
      compute avy64=16.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=2.
      compute mainy65=4.
      compute mainy66=63.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=5. 
   Else if (main22=3 or main22=4) and (main23=36 or main23=57).
      compute avy64=16.
      compute avy65=13.
      compute avy66=12.
      compute mainy64=2.
      compute mainy65=4.
      compute mainy66=67.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=5. 
   Else if (main22=3 or main22=4).
      compute avy64=16.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=2.
      compute mainy65=4.
      compute mainy66=63.
      compute mtravy64=-7. 
      compute mtravy65=-7. 
      compute mtravy66=5.
   Else if main22=6 and (main23=41 or main23=44).
      compute avy64=13.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=1.
      compute mainy65=1.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=6 and (main23=42 or main23=79).
      compute avy64=13.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=1.
      compute mainy65=1.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=6 and (main23=36 or main23=57).
      compute avy64=13.
      compute avy65=13.
      compute avy66=12.
      compute mainy64=1.
      compute mainy65=1.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=6.
      compute avy64=13.
      compute avy65=13.
      compute avy66=17.
      compute mainy64=1.
      compute mainy65=1.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>10 and main22<15) and (main23=42 or main23=79).
      compute avy64=30.
      compute avy65=30.
      compute avy66=5.
      compute mainy64=58.
      compute mainy65=58.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>10 and main22<15) and (main23=41 or main23=44).
      compute avy64=30.
      compute avy65=30.
      compute avy66=5.
      compute mainy64=58.
      compute mainy65=58.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>10 and main22<15) and (main23=36 or main23=57).
      compute avy64=30.
      compute avy65=30.
      compute avy66=12.
      compute mainy64=58.
      compute mainy65=58.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22>10 and main22<15.
      compute avy64=30.
      compute avy65=30.
      compute avy66=17.
      compute mainy64=58.
      compute mainy65=58.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>19 and main22<30) and (main23=41 or main23=44).
      compute avy64=31.
      compute avy65=31.
      compute avy66=5.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>19 and main22<30) and (main23=42 or main23=79).
      compute avy64=31.
      compute avy65=31.
      compute avy66=5.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>19 and main22<30) and (main23=36 or main23=57).
      compute avy64=31.
      compute avy65=31.
      compute avy66=12.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22>19 and main22<30.
      compute avy64=31.
      compute avy65=31.
      compute avy66=17.
      compute mainy64=59.
      compute mainy65=59.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>29 and main22<34) and sec22=45.
      compute avy64=13.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=1.
   Else if (main22>29 and main22<34) and (main23=42 or main23=79).
      compute avy64=13.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>29 and main22<34) and (main23=57 or main23=36).
      compute avy64=13.
      compute avy65=13.
      compute avy66=12.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>29 and main22<34) and (main23=41 or main23=44 or main23=47).
      compute avy64=13.
      compute avy65=13.
      compute avy66=5.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if (main22>29 and main22<34).
      compute avy64=13.
      compute avy65=13.
      compute avy66=17.
      compute mainy64=4.
      compute mainy65=4.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=36.
      compute avy64=14.
      compute avy65=14.
      compute avy66=12.
      compute mainy64=25.
      compute mainy65=25.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=41.
      compute avy64=1.
      compute avy65=1.
      compute avy66=5.
      compute mainy64=7.
      compute mainy65=7.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=42.
      compute avy64=4.
      compute avy65=4.
      compute avy66=5.
      compute mainy64=15.
      compute mainy65=15.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=43 and (main23=42 or main23=79).
      compute avy64=2.
      compute avy65=2.
      compute avy66=5.
      compute mainy64=8.
      compute mainy65=8.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
     compute mtravy66=5.
   Else if main22=43.
      compute avy64=2.
      compute avy65=2.
      compute avy66=5.
      compute mainy64=8.
      compute mainy65=8.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
     compute mtravy66=5.
   Else if main22=44.
      compute avy64=3.
      compute avy65=3.
      compute avy66=5.
      compute mainy64=9.
      compute mainy65=9.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=50 and (main23=41 or main23=44).
      compute avy64=8.
      compute avy65=8.
      compute avy66=5.
      compute mainy64=21.
      compute mainy65=21.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=50 and (main23=42 or main23=79).
      compute avy64=8.
      compute avy65=8.
      compute avy66=5.
      compute mainy64=21.
      compute mainy65=21.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=50 and (main23=57 or main23=36).
      compute avy64=8.
      compute avy65=8.
      compute avy66=12.
      compute mainy64=21.
      compute mainy65=21.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=50.
      compute avy64=8.
      compute avy65=8.
      compute avy66=17.
      compute mainy64=21.
      compute mainy65=21.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=51 and (main23=41 or main23=44 or main23=45).
      compute avy64=11.
      compute avy65=11.
      compute avy66=5.
      compute mainy64=28.
      compute mainy65=28.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=51 and (main23=42 or main23=79).
      compute avy64=11.
      compute avy65=11.
      compute avy66=5.
      compute mainy64=28.
      compute mainy65=28.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=51 and (main23=57 or main23=36).
      compute avy64=11.
      compute avy65=11.
      compute avy66=12.
      compute mainy64=28.
      compute mainy65=28.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=51.
      compute avy64=11.
      compute avy65=11.
      compute avy66=17.
      compute mainy64=28.
      compute mainy65=28.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=53 and (main23=42 or main23=79).
      compute avy64=6.
      compute avy65=6.
      compute avy66=5.
      compute mainy64=18.
      compute mainy65=18.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=53 and (main23=36 or main23=57).
      compute avy64=6.
      compute avy65=6.
      compute avy66=12.
      compute mainy64=18.
      compute mainy65=18.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=53 and (main23=41 or main23=44).
      compute avy64=6.
      compute avy65=6.
      compute avy66=5.
      compute mainy64=18.
      compute mainy65=18.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=53.
      compute avy64=6.
      compute avy65=6.
      compute avy66=17.
      compute mainy64=18.
      compute mainy65=18.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=54 and (main23=36 or main23=57).
      compute avy64=7.
      compute avy65=7.
      compute avy66=12.
      compute mainy64=20.
      compute mainy65=20.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=54 and (main23=41 or main23=44 or main23=47).
      compute avy64=7.
      compute avy65=7.
      compute avy66=5.
      compute mainy64=20.
      compute mainy65=20.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=54 and (main23=42 or main23=79).
      compute avy64=7.
      compute avy65=7.
      compute avy66=5.
      compute mainy64=20.
      compute mainy65=20.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=54.
      compute avy64=7.
      compute avy65=7.
      compute avy66=17.
      compute mainy64=20.
      compute mainy65=20.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=55 and (main23=57 or main23=36).
      compute avy64=8.
      compute avy65=8.
      compute avy66=12.
      compute mainy64=22.
      compute mainy65=22.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=55 and (main23=42 or main23=79).
      compute avy64=8.
      compute avy65=8.
      compute avy66=5.
      compute mainy64=22.
      compute mainy65=22.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=55.
      compute avy64=8.
      compute avy65=8.
      compute avy66=17.
      compute mainy64=22.
      compute mainy65=22.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=56 and (main23=41 or main23=44).
      compute avy64=8.
      compute avy65=8.
      compute avy66=5.
      compute mainy64=27.
      compute mainy65=27.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=56 and (main23=42 or main23=79).
      compute avy64=8.
      compute avy65=8.
      compute avy66=5.
      compute mainy64=27.
      compute mainy65=27.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=56 and (main23=36 or main23=57).
      compute avy64=8.
      compute avy65=8.
      compute avy66=12.
      compute mainy64=27.
      compute mainy65=27.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=56.
      compute avy64=8.
      compute avy65=8.
      compute avy66=17.
      compute mainy64=27.
      compute mainy65=27.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=57 and (main23=41 or main23=44).
      compute avy64=10.
      compute avy65=10.
      compute avy66=5.
      compute mainy64=24.
      compute mainy65=24.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=57 and (main23=42 or main23=79).
      compute avy64=10.
      compute avy65=10.
      compute avy66=5.
      compute mainy64=24.
      compute mainy65=24.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=57 and (main23=36 or main23=57).
      compute avy64=10.
      compute avy65=10.
      compute avy66=12.
      compute mainy64=24.
      compute mainy65=24.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=57.
      compute avy64=10.
      compute avy65=10.
      compute avy66=17.
      compute mainy64=24.
      compute mainy65=24.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=59.
      compute avy64=7.
      compute avy65=7.
      compute avy66=12.
      compute mainy64=23.
      compute mainy65=23.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=66.
      compute avy64=38.
      compute avy65=38.
      compute avy66=12.
      compute mainy64=48.
      compute mainy65=48.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=69 and (main23=41 or main23=44).
      compute avy64=36.
      compute avy65=36.
      compute avy66=5.
      compute mainy64=55.
      compute mainy65=55.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=69 and (main23=36 or main23=57).
      compute avy64=36.
      compute avy65=36.
      compute avy66=12.
      compute mainy64=55.
      compute mainy65=55.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=69.
      compute avy64=36.
      compute avy65=36.
      compute avy66=17.
      compute mainy64=55.
      compute mainy65=55.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=71 and main23=42.
      compute avy64=29.
      compute avy65=29.
      compute avy66=5.
      compute mainy64=48.
      compute mainy65=48.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=71 and main23=41.
      compute avy64=29.
      compute avy65=29.
      compute avy66=5.
      compute mainy64=48.
      compute mainy65=48.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=75.
      compute avy64=27.
      compute avy65=27.
      compute avy66=17.
      compute mainy64=39.
      compute mainy65=39.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=77.
      compute avy64=28.
      compute avy65=28.
      compute avy66=17.
      compute mainy64=39.
      compute mainy65=39.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=78 and (main22=41 or main22=44).
      compute avy64=22.
      compute avy65=22.
      compute avy66=5.
      compute mainy64=34.
      compute mainy65=34.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=78.
      compute avy64=22.
      compute avy65=22.
      compute avy66=17.
      compute mainy64=34.
      compute mainy65=34.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=79.
      compute avy64=4.
      compute avy65=4.
      compute avy66=5.
      compute mainy64=17.
      compute mainy65=17.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=82.
      compute avy64=20.
      compute avy65=20.
      compute avy66=17.
      compute mainy64=36.
      compute mainy65=36.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=84.
      compute avy64=18.
      compute avy65=18.
      compute avy66=17.
      compute mainy64=45.
      compute mainy65=45.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=85 or main22=86.
      compute avy64=18.
      compute avy65=18.
      compute avy66=17.
      compute mainy64=38.
      compute mainy65=38.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=91 and (main23=36 or main23=57).
      compute avy64=40.
      compute avy65=40.
      compute avy66=12.
      compute mainy64=51.
      compute mainy65=51.
      compute mainy66=67.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=91 and (main23=41 or main23=44).
      compute avy64=40.
      compute avy65=40.
      compute avy66=5.
      compute mainy64=51.
      compute mainy65=51.
      compute mainy66=63.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=91 and (main23=42 or main23=79).
      compute avy64=40.
      compute avy65=40.
      compute avy66=5.
      compute mainy64=51.
      compute mainy65=51.
      compute mainy66=64.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   Else if main22=91.
      compute avy64=40.
      compute avy65=40.
      compute avy66=17.
      compute mainy64=51.
      compute mainy65=51.
      compute mainy66=68.
      compute mtravy64=-7.
      compute mtravy65=-7.
      compute mtravy66=5.
   End if.
End if.

Do if main22=1 and main23=1 and mtmark22=0.
   compute avy64=16.
   compute avy65=16.
   compute avy66=16.
   compute mainy64=2.
   compute mainy65=2.
   compute mainy66=2.
   compute mtravy64=-7. 
   compute mtravy65=-7. 
   compute mtravy66=-7. 
Else if main22=2 and main23=2 and mtmark22=0.
   compute avy64=16.
   compute avy65=16.
   compute avy66=16.
   compute mainy64=2.
   compute mainy65=2.
   compute mainy66=2.
   compute mtravy64=-7.
   compute mtravy65=-7.
   compute mtravy66=-7.
End if.

freq avy64 avy65 avy66 mainy64 mainy65 mainy66 mtravy64 mtravy65 mtravy66.

*set values for the 23rd time slot.
freq mtmark23.
*977 missing travel cases in time slot 23.

temp.
select if mtmark23=1.
cro main23 by main24.

if main23=83 or main24=83 or main23=63 or main24=63 mtmark23=0.
if main23=34 or main23=38 or main23=62 or main23=67 or main23=81 mtmark23=0.
if main24=34 or main24=38 or main24=62 or main24=67 or main24=81 mtmark23=0.
if main23=main24 mtmark23=0.
if main23=1 or main23=61 or main24=61 or main24=72 or main24=50 mtmark23=0.
if main23=59 and main24>57 mtmark23=0.
if main23=60 or main23=64 or main23=66 or main23=68 or main23=70 or 
   main23=71 or main23=72 or main23=73 or main23=35 or main23=52 or 
   main23=65 or main23=74 or main23=80 or main23=82 or main23=99 or
   main23=76 or main23=49 mtmark23=0.
if main23=84 and main23=52 mtmark12=0.
*errors fixed, 538 cases remain.

temp.
select if sec23=45.
cro main23 by main24 by mtmark23.

temp.
select if sec23=46 or sec23=47.
cro main23 by main24 by mtmark23.

Do if mtmark23=0.
   Do if main23>95.
      compute avy67=41.
      compute avy68=41.
      compute avy69=41.
      compute mainy67=69.
      compute mainy68=69.
      compute mainy69=69.
      compute mtravy67=-8.
      compute mtravy68=-8.
      compute mtravy69=-8.
   Else if main23=1.
      compute avy67=16.
      compute avy68=16.
      compute avy69=13.
      compute mainy67=2.
      compute mainy68=2.
      compute mainy69=4.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=-7. 
   Else if main23=2.
      compute avy67=16.
      compute avy68=16.
      compute avy69=36.
      compute mainy67=2.
      compute mainy68=2.
      compute mainy69=55.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=3 or main23=4.
      compute avy67=16.
      compute avy68=16.
      compute avy69=16.
      compute mainy67=2.
      compute mainy68=2.
      compute mainy69=2.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=-7. 
   Else if main23=5.
      compute avy67=16.
      compute avy68=16.
      compute avy69=16.
      compute mainy67=3.
      compute mainy68=3.
      compute mainy69=3.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=6.
      compute avy67=13.
      compute avy68=13.
      compute avy69=13.
      compute mainy67=1.
      compute mainy68=1.
      compute mainy69=1.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23>6 and main23<20.
      compute avy67=30.
      compute avy68=30.
      compute avy69=30.
      compute mainy67=58.
      compute mainy68=58.
      compute mainy69=58.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23>19 and main23<30.
      compute avy67=31.
      compute avy68=31.
      compute avy69=31.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=59.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23>29 and main23<34.
      compute avy67=13.
      compute avy68=13.
      compute avy69=13.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=4.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=34 and sec23=45.
      compute avy67=15.
      compute avy68=15.
      compute avy69=5.
      compute mainy67=6.
      compute mainy68=6.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=1.
   Else if main23=34 and (sec23=46 or sec23=47).
      compute avy67=15.
      compute avy68=15.
      compute avy69=5.
      compute mainy67=6.
      compute mainy68=6.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=34 or main23=35 or ((main23=38 or main23=39) and loc23=1).
      compute avy67=15.
      compute avy68=15.
      compute avy69=15.
      compute mainy67=6.
      compute mainy68=6.
      compute mainy69=6.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=36.
      compute avy67=14.
      compute avy68=14.
      compute avy69=14.
      compute mainy67=25.
      compute mainy68=25.
      compute mainy69=25.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=37.
      compute avy67=12.
      compute avy68=12.
      compute avy69=12.
      compute mainy67=67.
      compute mainy68=67.
      compute mainy69=67.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=40.
      compute avy67=1.
      compute avy68=1.
      compute avy69=1.
      compute mainy67=13.
      compute mainy68=13.
      compute mainy69=13.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=41 and (sec23=46 or sec23=47).
      compute avy67=1.
      compute avy68=1.
      compute avy69=5.
      compute mainy67=7.
      compute mainy68=7.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=41.
      compute avy67=1.
      compute avy68=1.
      compute avy69=1.
      compute mainy67=7.
      compute mainy68=7.
      compute mainy69=7.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=42 and (sec23=46 or sec23=47).
      compute avy67=4.
      compute avy68=4.
      compute avy69=5.
      compute mainy67=15.
      compute mainy68=15.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=42.
      compute avy67=4.
      compute avy68=4.
      compute avy69=4.
      compute mainy67=15.
      compute mainy68=15.
      compute mainy69=15.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=43.
      compute avy67=2.
      compute avy68=2.
      compute avy69=2.
      compute mainy67=8.
      compute mainy68=8.
      compute mainy69=8.
      compute mtravy67=-7.
      compute mtravy68=-7.
     compute mtravy69=-7.
   Else if main23=44.
      compute avy67=3.
      compute avy68=3.
      compute avy69=3.
      compute mainy67=9.
      compute mainy68=9.
      compute mainy69=9.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=45 and (main24=42 or main24=79).
      compute avy67=5.
      compute avy68=5.
      compute avy69=5.
      compute mainy67=64.
      compute mainy68=64.
      compute mainy69=64.
      compute mtravy67=1.
      compute mtravy68=1.
      compute mtravy69=1.
   Else if (main23=46 or main23=47) and (main24=42 or main24=79).
      compute avy67=5.
      compute avy68=5.
      compute avy69=5.
      compute mainy67=64.
      compute mainy68=64.
      compute mainy69=64.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=45.
      compute avy67=5.
      compute avy68=5.
      compute avy69=5.
      compute mainy67=63.
      compute mainy68=63.
      compute mainy69=63.
      compute mtravy67=1.
      compute mtravy68=1.
      compute mtravy69=1.
   Else if main23=46 or main23=47.
      compute avy67=5.
      compute avy68=5.
      compute avy69=5.
      compute mainy67=63.
      compute mainy68=63.
      compute mainy69=63.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=48.
      compute avy67=5.
      compute avy68=5.
      compute avy69=5.
      compute mainy67=11.
      compute mainy68=11.
      compute mainy69=11.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=49.
      compute avy67=1.
      compute avy68=1.
      compute avy69=1.
      compute mainy67=5.
      compute mainy68=5.
      compute mainy69=5.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=50.
      compute avy67=8.
      compute avy68=8.
      compute avy69=8.
      compute mainy67=21.
      compute mainy68=21.
      compute mainy69=21.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=51.
      compute avy67=11.
      compute avy68=11.
      compute avy69=11.
      compute mainy67=28.
      compute mainy68=28.
      compute mainy69=28.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=52.
      compute avy67=11.
      compute avy68=11.
      compute avy69=11.
      compute mainy67=30.
      compute mainy68=30.
      compute mainy69=30.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=53.
      compute avy67=6.
      compute avy68=6.
      compute avy69=6.
      compute mainy67=18.
      compute mainy68=18.
      compute mainy69=18.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=54.
      compute avy67=7.
      compute avy68=7.
      compute avy69=7.
      compute mainy67=20.
      compute mainy68=20.
      compute mainy69=20.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=55.
      compute avy67=8.
      compute avy68=8.
      compute avy69=8.
      compute mainy67=22.
      compute mainy68=22.
      compute mainy69=22.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=56.
      compute avy67=8.
      compute avy68=8.
      compute avy69=8.
      compute mainy67=27.
      compute mainy68=27.
      compute mainy69=27.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=57.
      compute avy67=10.
      compute avy68=10.
      compute avy69=10.
      compute mainy67=24.
      compute mainy68=24.
      compute mainy69=24.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=58.
      compute avy67=12.
      compute avy68=12.
      compute avy69=12.
      compute mainy67=66.
      compute mainy68=66.
      compute mainy69=66.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=59.
      compute avy67=7.
      compute avy68=7.
      compute avy69=13.
      compute mainy67=23.
      compute mainy68=23.
      compute mainy69=4.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=60.
      compute avy67=9.
      compute avy68=9.
      compute avy69=9.
      compute mainy67=46.
      compute mainy68=46.
      compute mainy69=46.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=61.
      compute avy67=33.
      compute avy68=33.
      compute avy69=33.
      compute mainy67=16.
      compute mainy68=16.
      compute mainy69=16.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=62.
      compute avy67=34.
      compute avy68=34.
      compute avy69=34.
      compute mainy67=56.
      compute mainy68=56.
      compute mainy69=56.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=63.
      compute avy67=35.
      compute avy68=35.
      compute avy69=35.
      compute mainy67=56.
      compute mainy68=56.
      compute mainy69=56.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=64.
      compute avy67=40.
      compute avy68=40.
      compute avy69=40.
      compute mainy67=54.
      compute mainy68=54.
      compute mainy69=54.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=65.
      compute avy67=39.
      compute avy68=39.
      compute avy69=39.
      compute mainy67=54.
      compute mainy68=54.
      compute mainy69=54.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=66.
      compute avy67=38.
      compute avy68=38.
      compute avy69=38.
      compute mainy67=48.
      compute mainy68=48.
      compute mainy69=48.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=67.
      compute avy67=37.
      compute avy68=37.
      compute avy69=37.
      compute mainy67=49.
      compute mainy68=49.
      compute mainy69=49.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=68.
      compute avy67=32.
      compute avy68=32.
      compute avy69=32.
      compute mainy67=57.
      compute mainy68=57.
      compute mainy69=57.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=69.
      compute avy67=36.
      compute avy68=36.
      compute avy69=36.
      compute mainy67=55.
      compute mainy68=55.
      compute mainy69=55.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=70.
      compute avy67=25.
      compute avy68=25.
      compute avy69=25.
      compute mainy67=35.
      compute mainy68=35.
      compute mainy69=35.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=71.
      compute avy67=29.
      compute avy68=29.
      compute avy69=29.
      compute mainy67=48.
      compute mainy68=48.
      compute mainy69=48.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=72.
      compute avy67=24.
      compute avy68=24.
      compute avy69=24.
      compute mainy67=37.
      compute mainy68=37.
      compute mainy69=37.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=73.
      compute avy67=23.
      compute avy68=23.
      compute avy69=23.
      compute mainy67=33.
      compute mainy68=33.
      compute mainy69=33.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=74.
      compute avy67=26.
      compute avy68=26.
      compute avy69=26.
      compute mainy67=40.
      compute mainy68=40.
      compute mainy69=40.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=75 or main23=39.
      compute avy67=27.
      compute avy68=27.
      compute avy69=27.
      compute mainy67=39.
      compute mainy68=39.
      compute mainy69=39.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=76.
      compute avy67=25.
      compute avy68=25.
      compute avy69=25.
      compute mainy67=40.
      compute mainy68=40.
      compute mainy69=40.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=77 or main23=38.
      compute avy67=28.
      compute avy68=28.
      compute avy69=28.
      compute mainy67=39.
      compute mainy68=39.
      compute mainy69=39.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=78.
      compute avy67=22.
      compute avy68=22.
      compute avy69=22.
      compute mainy67=34.
      compute mainy68=34.
      compute mainy69=34.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=79.
      compute avy67=4.
      compute avy68=4.
      compute avy69=4.
      compute mainy67=17.
      compute mainy68=17.
      compute mainy69=17.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=80.
      compute avy67=18.
      compute avy68=18.
      compute avy69=18.
      compute mainy67=38.
      compute mainy68=38.
      compute mainy69=38.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=81.
      compute avy67=19.
      compute avy68=19.
      compute avy69=19.
      compute mainy67=42.
      compute mainy68=42.
      compute mainy69=42.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=82.
      compute avy67=20.
      compute avy68=20.
      compute avy69=20.
      compute mainy67=36.
      compute mainy68=36.
      compute mainy69=36.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=83.
      compute avy67=21.
      compute avy68=21.
      compute avy69=21.
      compute mainy67=43.
      compute mainy68=43.
      compute mainy69=43.
      compute mtravy67=3.
      compute mtravy68=3.
      compute mtravy69=3.
   Else if main23=84.
      compute avy67=18.
      compute avy68=18.
      compute avy69=18.
      compute mainy67=45.
      compute mainy68=45.
      compute mainy69=45.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=85 or main23=86.
      compute avy67=18.
      compute avy68=18.
      compute avy69=18.
      compute mainy67=38.
      compute mainy68=38.
      compute mainy69=38.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=89.
      compute avy67=17.
      compute avy68=17.
      compute avy69=17.
      compute mainy67=68.
      compute mainy68=68.
      compute mainy69=68.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=90.
      compute avy67=17.
      compute avy68=17.
      compute avy69=17.
      compute mainy67=62.
      compute mainy68=62.
      compute mainy69=62.
      compute mtravy67=5.
      compute mtravy68=5.
      compute mtravy69=5.
   Else if main23=91.
      compute avy67=40.
      compute avy68=40.
      compute avy69=40.
      compute mainy67=51.
      compute mainy68=51.
      compute mainy69=51.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=92.
      compute avy67=31.
      compute avy68=31.
      compute avy69=31.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=59.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   Else if main23=93.
      compute avy67=41.
      compute avy68=41.
      compute avy69=41.
      compute mainy67=41.
      compute mainy68=41.
      compute mainy69=41.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=-7.
   End if.
Else if mtmark23=1.
   Do if main23=2 and (main24=42 or main24=79).
      compute avy67=16.
      compute avy68=36.
      compute avy69=5.
      compute mainy67=2.
      compute mainy68=55.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=2 and (main24=41 or main24=44).
      compute avy67=16.
      compute avy68=36.
      compute avy69=5.
      compute mainy67=2.
      compute mainy68=55.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=2 and (main24=36 or main24=57).
      compute avy67=16.
      compute avy68=36.
      compute avy69=12.
      compute mainy67=2.
      compute mainy68=55.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=2.
      compute avy67=16.
      compute avy68=36.
      compute avy69=17.
      compute mainy67=2.
      compute mainy68=55.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23=3 or main23=4) and (main24=42 or main24=79).
      compute avy67=16.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=2.
      compute mainy68=4.
      compute mainy69=64.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=5. 
   Else if (main23=3 or main23=4) and (main24=41 or main24=44).
      compute avy67=16.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=2.
      compute mainy68=4.
      compute mainy69=63.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=5. 
   Else if (main23=3 or main23=4) and (main24=36 or main24=57).
      compute avy67=16.
      compute avy68=13.
      compute avy69=12.
      compute mainy67=2.
      compute mainy68=4.
      compute mainy69=67.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=5. 
   Else if (main23=3 or main23=4).
      compute avy67=16.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=2.
      compute mainy68=4.
      compute mainy69=63.
      compute mtravy67=-7. 
      compute mtravy68=-7. 
      compute mtravy69=5.
   Else if main23=6 and (main24=41 or main24=44).
      compute avy67=13.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=1.
      compute mainy68=1.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=6 and (main24=42 or main24=79).
      compute avy67=13.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=1.
      compute mainy68=1.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=6 and (main24=36 or main24=57).
      compute avy67=13.
      compute avy68=13.
      compute avy69=12.
      compute mainy67=1.
      compute mainy68=1.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=6.
      compute avy67=13.
      compute avy68=13.
      compute avy69=17.
      compute mainy67=1.
      compute mainy68=1.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>10 and main23<15) and (main24=42 or main24=79).
      compute avy67=30.
      compute avy68=30.
      compute avy69=5.
      compute mainy67=58.
      compute mainy68=58.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>10 and main23<15) and (main24=41 or main24=44).
      compute avy67=30.
      compute avy68=30.
      compute avy69=5.
      compute mainy67=58.
      compute mainy68=58.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>10 and main23<15) and (main24=36 or main24=57).
      compute avy67=30.
      compute avy68=30.
      compute avy69=12.
      compute mainy67=58.
      compute mainy68=58.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23>10 and main23<15.
      compute avy67=30.
      compute avy68=30.
      compute avy69=17.
      compute mainy67=58.
      compute mainy68=58.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>19 and main23<30) and (main24=41 or main24=44).
      compute avy67=31.
      compute avy68=31.
      compute avy69=5.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>19 and main23<30) and (main24=42 or main24=79).
      compute avy67=31.
      compute avy68=31.
      compute avy69=5.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>19 and main23<30) and (main24=36 or main24=57).
      compute avy67=31.
      compute avy68=31.
      compute avy69=12.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23>19 and main23<30.
      compute avy67=31.
      compute avy68=31.
      compute avy69=17.
      compute mainy67=59.
      compute mainy68=59.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>29 and main23<34) and sec23=45.
      compute avy67=13.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=1.
   Else if (main23>29 and main23<34) and (main24=42 or main24=79).
      compute avy67=13.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>29 and main23<34) and (main24=57 or main24=36).
      compute avy67=13.
      compute avy68=13.
      compute avy69=12.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>29 and main23<34) and (main24=41 or main24=44 or main24=47).
      compute avy67=13.
      compute avy68=13.
      compute avy69=5.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if (main23>29 and main23<34).
      compute avy67=13.
      compute avy68=13.
      compute avy69=17.
      compute mainy67=4.
      compute mainy68=4.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=36.
      compute avy67=14.
      compute avy68=14.
      compute avy69=12.
      compute mainy67=25.
      compute mainy68=25.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=41.
      compute avy67=1.
      compute avy68=1.
      compute avy69=5.
      compute mainy67=7.
      compute mainy68=7.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      Do if sec23=45.
         compute mtravy69=1.
      Else.
         compute mtravy69=5.
      End if.
   Else if main23=42.
      compute avy67=4.
      compute avy68=4.
      compute avy69=5.
      compute mainy67=15.
      compute mainy68=15.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=43 and (main24=42 or main24=79).
      compute avy67=2.
      compute avy68=2.
      compute avy69=5.
      compute mainy67=8.
      compute mainy68=8.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
     compute mtravy69=5.
   Else if main23=43.
      compute avy67=2.
      compute avy68=2.
      compute avy69=5.
      compute mainy67=8.
      compute mainy68=8.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
     compute mtravy69=5.
   Else if main23=44.
      compute avy67=3.
      compute avy68=3.
      compute avy69=5.
      compute mainy67=9.
      compute mainy68=9.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=50 and (main24=41 or main24=44).
      compute avy67=8.
      compute avy68=8.
      compute avy69=5.
      compute mainy67=21.
      compute mainy68=21.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=50 and (main24=42 or main24=79).
      compute avy67=8.
      compute avy68=8.
      compute avy69=5.
      compute mainy67=21.
      compute mainy68=21.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=50 and (main24=57 or main24=36).
      compute avy67=8.
      compute avy68=8.
      compute avy69=12.
      compute mainy67=21.
      compute mainy68=21.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=50.
      compute avy67=8.
      compute avy68=8.
      compute avy69=17.
      compute mainy67=21.
      compute mainy68=21.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=51 and (main24=41 or main24=44 or main24=45).
      compute avy67=11.
      compute avy68=11.
      compute avy69=5.
      compute mainy67=28.
      compute mainy68=28.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=51 and (main24=42 or main24=79).
      compute avy67=11.
      compute avy68=11.
      compute avy69=5.
      compute mainy67=28.
      compute mainy68=28.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=51 and (main24=57 or main24=36).
      compute avy67=11.
      compute avy68=11.
      compute avy69=12.
      compute mainy67=28.
      compute mainy68=28.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=51.
      compute avy67=11.
      compute avy68=11.
      compute avy69=17.
      compute mainy67=28.
      compute mainy68=28.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=53 and (main24=42 or main24=79).
      compute avy67=6.
      compute avy68=6.
      compute avy69=5.
      compute mainy67=18.
      compute mainy68=18.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=53 and (main24=36 or main24=57).
      compute avy67=6.
      compute avy68=6.
      compute avy69=12.
      compute mainy67=18.
      compute mainy68=18.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=53 and (main24=41 or main24=44).
      compute avy67=6.
      compute avy68=6.
      compute avy69=5.
      compute mainy67=18.
      compute mainy68=18.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=53.
      compute avy67=6.
      compute avy68=6.
      compute avy69=17.
      compute mainy67=18.
      compute mainy68=18.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=54 and (main24=36 or main24=57).
      compute avy67=7.
      compute avy68=7.
      compute avy69=12.
      compute mainy67=20.
      compute mainy68=20.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=54 and (main24=41 or main24=44 or main24=47).
      compute avy67=7.
      compute avy68=7.
      compute avy69=5.
      compute mainy67=20.
      compute mainy68=20.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=54 and (main24=42 or main24=79).
      compute avy67=7.
      compute avy68=7.
      compute avy69=5.
      compute mainy67=20.
      compute mainy68=20.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=54.
      compute avy67=7.
      compute avy68=7.
      compute avy69=17.
      compute mainy67=20.
      compute mainy68=20.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=55 and (main24=57 or main24=36).
      compute avy67=8.
      compute avy68=8.
      compute avy69=12.
      compute mainy67=22.
      compute mainy68=22.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=55 and (main24=42 or main24=79).
      compute avy67=8.
      compute avy68=8.
      compute avy69=5.
      compute mainy67=22.
      compute mainy68=22.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=55.
      compute avy67=8.
      compute avy68=8.
      compute avy69=17.
      compute mainy67=22.
      compute mainy68=22.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=56 and (main24=41 or main24=44).
      compute avy67=8.
      compute avy68=8.
      compute avy69=5.
      compute mainy67=27.
      compute mainy68=27.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=56 and (main24=42 or main24=79).
      compute avy67=8.
      compute avy68=8.
      compute avy69=5.
      compute mainy67=27.
      compute mainy68=27.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=56 and (main24=36 or main24=57).
      compute avy67=8.
      compute avy68=8.
      compute avy69=12.
      compute mainy67=27.
      compute mainy68=27.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=56.
      compute avy67=8.
      compute avy68=8.
      compute avy69=17.
      compute mainy67=27.
      compute mainy68=27.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=57 and (main24=41 or main24=44).
      compute avy67=10.
      compute avy68=10.
      compute avy69=5.
      compute mainy67=24.
      compute mainy68=24.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=57 and (main24=42 or main24=79).
      compute avy67=10.
      compute avy68=10.
      compute avy69=5.
      compute mainy67=24.
      compute mainy68=24.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=57 and (main24=36 or main24=57).
      compute avy67=10.
      compute avy68=10.
      compute avy69=12.
      compute mainy67=24.
      compute mainy68=24.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=57.
      compute avy67=10.
      compute avy68=10.
      compute avy69=17.
      compute mainy67=24.
      compute mainy68=24.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=59.
      compute avy67=7.
      compute avy68=7.
      compute avy69=12.
      compute mainy67=23.
      compute mainy68=23.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=66.
      compute avy67=38.
      compute avy68=38.
      compute avy69=12.
      compute mainy67=48.
      compute mainy68=48.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=69 and (main24=41 or main24=44).
      compute avy67=36.
      compute avy68=36.
      compute avy69=5.
      compute mainy67=55.
      compute mainy68=55.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=69 and (main24=36 or main24=57).
      compute avy67=36.
      compute avy68=36.
      compute avy69=12.
      compute mainy67=55.
      compute mainy68=55.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=69.
      compute avy67=36.
      compute avy68=36.
      compute avy69=17.
      compute mainy67=55.
      compute mainy68=55.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=71 and main24=42.
      compute avy67=29.
      compute avy68=29.
      compute avy69=5.
      compute mainy67=48.
      compute mainy68=48.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=71 and main24=41.
      compute avy67=29.
      compute avy68=29.
      compute avy69=5.
      compute mainy67=48.
      compute mainy68=48.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=75.
      compute avy67=27.
      compute avy68=27.
      compute avy69=17.
      compute mainy67=39.
      compute mainy68=39.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=77.
      compute avy67=28.
      compute avy68=28.
      compute avy69=17.
      compute mainy67=39.
      compute mainy68=39.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=78 and (main23=41 or main23=44).
      compute avy67=22.
      compute avy68=22.
      compute avy69=5.
      compute mainy67=34.
      compute mainy68=34.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=78.
      compute avy67=22.
      compute avy68=22.
      compute avy69=17.
      compute mainy67=34.
      compute mainy68=34.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=79.
      compute avy67=4.
      compute avy68=4.
      compute avy69=5.
      compute mainy67=17.
      compute mainy68=17.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=82.
      compute avy67=20.
      compute avy68=20.
      compute avy69=17.
      compute mainy67=36.
      compute mainy68=36.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=84.
      compute avy67=18.
      compute avy68=18.
      compute avy69=17.
      compute mainy67=45.
      compute mainy68=45.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=85 or main23=86.
      compute avy67=18.
      compute avy68=18.
      compute avy69=17.
      compute mainy67=38.
      compute mainy68=38.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=91 and (main24=36 or main24=57).
      compute avy67=40.
      compute avy68=40.
      compute avy69=12.
      compute mainy67=51.
      compute mainy68=51.
      compute mainy69=67.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=91 and (main24=41 or main24=44).
      compute avy67=40.
      compute avy68=40.
      compute avy69=5.
      compute mainy67=51.
      compute mainy68=51.
      compute mainy69=63.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=91 and (main24=42 or main24=79).
      compute avy67=40.
      compute avy68=40.
      compute avy69=5.
      compute mainy67=51.
      compute mainy68=51.
      compute mainy69=64.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   Else if main23=91.
      compute avy67=40.
      compute avy68=40.
      compute avy69=17.
      compute mainy67=51.
      compute mainy68=51.
      compute mainy69=68.
      compute mtravy67=-7.
      compute mtravy68=-7.
      compute mtravy69=5.
   End if.
End if.

Do if main23=1 and main24=1 and mtmark23=0.
   compute avy67=16.
   compute avy68=16.
   compute avy69=16.
   compute mainy67=2.
   compute mainy68=2.
   compute mainy69=2.
   compute mtravy67=-7. 
   compute mtravy68=-7. 
   compute mtravy69=-7. 
Else if main23=2 and main24=2 and mtmark23=0.
   compute avy67=16.
   compute avy68=16.
   compute avy69=16.
   compute mainy67=2.
   compute mainy68=2.
   compute mainy69=2.
   compute mtravy67=-7.
   compute mtravy68=-7.
   compute mtravy69=-7.
End if.

freq avy67 avy68 avy69 mainy67 mainy68 mainy69 mtravy67 mtravy68 mtravy69.

*set values for the 24th time slot.
freq mtmark24.
*1436 missing travel cases in time slot 24.

temp.
select if mtmark24=1.
cro main24 by main25.

if main24=83 or main25=83 or main24=63 or main25=63 mtmark24=0.
if main24=34 or main24=38 or main24=62 or main24=67 or main24=81 mtmark24=0.
if main25=34 or main25=38 or main25=62 or main25=67 or main25=81 mtmark24=0.
if main24=main25 mtmark24=0.
if main24=1 or main24=61 or main25=61 or main25=72 or main25=50 mtmark24=0.
if main24=59 and main25>57 mtmark24=0.
if main24=60 or main24=64 or main24=66 or main24=68 or main24=70 or 
   main24=71 or main24=72 or main24=73 or main24=35 or main24=52 or 
   main24=65 or main24=74 or main24=80 or main24=82 or main24=99 or
   main24=76 or main24=49 mtmark24=0.
if main24=84 and main24=52 mtmark12=0.
*errors fixed, 756 cases remain.

temp.
select if sec24=45.
cro main24 by main25 by mtmark24.

temp.
select if sec24=46 or sec24=47.
cro main24 by main25 by mtmark24.

Do if mtmark24=0.
   Do if main24>95.
      compute avy70=41.
      compute avy71=41.
      compute avy72=41.
      compute mainy70=69.
      compute mainy71=69.
      compute mainy72=69.
      compute mtravy70=-8.
      compute mtravy71=-8.
      compute mtravy72=-8.
   Else if main24=1.
      compute avy70=16.
      compute avy71=16.
      compute avy72=13.
      compute mainy70=2.
      compute mainy71=2.
      compute mainy72=4.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=-7. 
   Else if main24=2.
      compute avy70=16.
      compute avy71=16.
      compute avy72=36.
      compute mainy70=2.
      compute mainy71=2.
      compute mainy72=55.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=3 or main24=4.
      compute avy70=16.
      compute avy71=16.
      compute avy72=16.
      compute mainy70=2.
      compute mainy71=2.
      compute mainy72=2.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=-7. 
   Else if main24=5.
      compute avy70=16.
      compute avy71=16.
      compute avy72=16.
      compute mainy70=3.
      compute mainy71=3.
      compute mainy72=3.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=6.
      compute avy70=13.
      compute avy71=13.
      compute avy72=13.
      compute mainy70=1.
      compute mainy71=1.
      compute mainy72=1.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24>6 and main24<20.
      compute avy70=30.
      compute avy71=30.
      compute avy72=30.
      compute mainy70=58.
      compute mainy71=58.
      compute mainy72=58.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24>19 and main24<30.
      compute avy70=31.
      compute avy71=31.
      compute avy72=31.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=59.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24>29 and main24<34.
      compute avy70=13.
      compute avy71=13.
      compute avy72=13.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=4.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=34 and sec24=45.
      compute avy70=15.
      compute avy71=15.
      compute avy72=5.
      compute mainy70=6.
      compute mainy71=6.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=1.
   Else if main24=34 or main24=35 or ((main24=38 or main24=39) and loc24=1).
      compute avy70=15.
      compute avy71=15.
      compute avy72=15.
      compute mainy70=6.
      compute mainy71=6.
      compute mainy72=6.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=36.
      compute avy70=14.
      compute avy71=14.
      compute avy72=14.
      compute mainy70=25.
      compute mainy71=25.
      compute mainy72=25.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=37.
      compute avy70=12.
      compute avy71=12.
      compute avy72=12.
      compute mainy70=67.
      compute mainy71=67.
      compute mainy72=67.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=40.
      compute avy70=1.
      compute avy71=1.
      compute avy72=1.
      compute mainy70=13.
      compute mainy71=13.
      compute mainy72=13.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=41 and sec24=45.
      compute avy70=1.
      compute avy71=1.
      compute avy72=5.
      compute mainy70=7.
      compute mainy71=7.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=41.
      compute avy70=1.
      compute avy71=1.
      compute avy72=1.
      compute mainy70=7.
      compute mainy71=7.
      compute mainy72=7.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=42 and sec24=45.
      compute avy70=4.
      compute avy71=4.
      compute avy72=5.
      compute mainy70=15.
      compute mainy71=15.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=42.
      compute avy70=4.
      compute avy71=4.
      compute avy72=4.
      compute mainy70=15.
      compute mainy71=15.
      compute mainy72=15.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=43.
      compute avy70=2.
      compute avy71=2.
      compute avy72=2.
      compute mainy70=8.
      compute mainy71=8.
      compute mainy72=8.
      compute mtravy70=-7.
      compute mtravy71=-7.
     compute mtravy72=-7.
   Else if main24=44.
      compute avy70=3.
      compute avy71=3.
      compute avy72=3.
      compute mainy70=9.
      compute mainy71=9.
      compute mainy72=9.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=45 and (main25=42 or main25=79).
      compute avy70=5.
      compute avy71=5.
      compute avy72=5.
      compute mainy70=64.
      compute mainy71=64.
      compute mainy72=64.
      compute mtravy70=1.
      compute mtravy71=1.
      compute mtravy72=1.
   Else if (main24=46 or main24=47) and (main25=42 or main25=79).
      compute avy70=5.
      compute avy71=5.
      compute avy72=5.
      compute mainy70=64.
      compute mainy71=64.
      compute mainy72=64.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=45.
      compute avy70=5.
      compute avy71=5.
      compute avy72=5.
      compute mainy70=63.
      compute mainy71=63.
      compute mainy72=63.
      compute mtravy70=1.
      compute mtravy71=1.
      compute mtravy72=1.
   Else if main24=46 or main24=47.
      compute avy70=5.
      compute avy71=5.
      compute avy72=5.
      compute mainy70=63.
      compute mainy71=63.
      compute mainy72=63.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=48.
      compute avy70=5.
      compute avy71=5.
      compute avy72=5.
      compute mainy70=11.
      compute mainy71=11.
      compute mainy72=11.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=49.
      compute avy70=1.
      compute avy71=1.
      compute avy72=1.
      compute mainy70=5.
      compute mainy71=5.
      compute mainy72=5.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=50.
      compute avy70=8.
      compute avy71=8.
      compute avy72=8.
      compute mainy70=21.
      compute mainy71=21.
      compute mainy72=21.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=51.
      compute avy70=11.
      compute avy71=11.
      compute avy72=11.
      compute mainy70=28.
      compute mainy71=28.
      compute mainy72=28.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=52.
      compute avy70=11.
      compute avy71=11.
      compute avy72=11.
      compute mainy70=30.
      compute mainy71=30.
      compute mainy72=30.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=53.
      compute avy70=6.
      compute avy71=6.
      compute avy72=6.
      compute mainy70=18.
      compute mainy71=18.
      compute mainy72=18.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=54.
      compute avy70=7.
      compute avy71=7.
      compute avy72=7.
      compute mainy70=20.
      compute mainy71=20.
      compute mainy72=20.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=55.
      compute avy70=8.
      compute avy71=8.
      compute avy72=8.
      compute mainy70=22.
      compute mainy71=22.
      compute mainy72=22.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=56.
      compute avy70=8.
      compute avy71=8.
      compute avy72=8.
      compute mainy70=27.
      compute mainy71=27.
      compute mainy72=27.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=57.
      compute avy70=10.
      compute avy71=10.
      compute avy72=10.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=24.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=58 and (sec24=46 or sec24=47).
      compute avy70=5.
      compute avy71=12.
      compute avy72=12.
      compute mainy70=63.
      compute mainy71=66.
      compute mainy72=66.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=58.
      compute avy70=12.
      compute avy71=12.
      compute avy72=12.
      compute mainy70=66.
      compute mainy71=66.
      compute mainy72=66.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=59.
      compute avy70=7.
      compute avy71=7.
      compute avy72=13.
      compute mainy70=23.
      compute mainy71=23.
      compute mainy72=4.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=60.
      compute avy70=9.
      compute avy71=9.
      compute avy72=9.
      compute mainy70=46.
      compute mainy71=46.
      compute mainy72=46.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=61.
      compute avy70=33.
      compute avy71=33.
      compute avy72=33.
      compute mainy70=16.
      compute mainy71=16.
      compute mainy72=16.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=62.
      compute avy70=34.
      compute avy71=34.
      compute avy72=34.
      compute mainy70=56.
      compute mainy71=56.
      compute mainy72=56.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=63.
      compute avy70=35.
      compute avy71=35.
      compute avy72=35.
      compute mainy70=56.
      compute mainy71=56.
      compute mainy72=56.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=64.
      compute avy70=40.
      compute avy71=40.
      compute avy72=40.
      compute mainy70=54.
      compute mainy71=54.
      compute mainy72=54.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=65.
      compute avy70=39.
      compute avy71=39.
      compute avy72=39.
      compute mainy70=54.
      compute mainy71=54.
      compute mainy72=54.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=66.
      compute avy70=38.
      compute avy71=38.
      compute avy72=38.
      compute mainy70=48.
      compute mainy71=48.
      compute mainy72=48.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=67.
      compute avy70=37.
      compute avy71=37.
      compute avy72=37.
      compute mainy70=49.
      compute mainy71=49.
      compute mainy72=49.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=68.
      compute avy70=32.
      compute avy71=32.
      compute avy72=32.
      compute mainy70=57.
      compute mainy71=57.
      compute mainy72=57.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=69.
      compute avy70=36.
      compute avy71=36.
      compute avy72=36.
      compute mainy70=55.
      compute mainy71=55.
      compute mainy72=55.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=70.
      compute avy70=25.
      compute avy71=25.
      compute avy72=25.
      compute mainy70=35.
      compute mainy71=35.
      compute mainy72=35.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=71 and sec24=45.
      compute avy70=5.
      compute avy71=29.
      compute avy72=29.
      compute mainy70=63.
      compute mainy71=48.
      compute mainy72=48.
      compute mtravy70=1.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=71.
      compute avy70=29.
      compute avy71=29.
      compute avy72=29.
      compute mainy70=48.
      compute mainy71=48.
      compute mainy72=48.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=72.
      compute avy70=24.
      compute avy71=24.
      compute avy72=24.
      compute mainy70=37.
      compute mainy71=37.
      compute mainy72=37.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=73.
      compute avy70=23.
      compute avy71=23.
      compute avy72=23.
      compute mainy70=33.
      compute mainy71=33.
      compute mainy72=33.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=74.
      compute avy70=26.
      compute avy71=26.
      compute avy72=26.
      compute mainy70=40.
      compute mainy71=40.
      compute mainy72=40.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=75 or main24=39.
      compute avy70=27.
      compute avy71=27.
      compute avy72=27.
      compute mainy70=39.
      compute mainy71=39.
      compute mainy72=39.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=76.
      compute avy70=25.
      compute avy71=25.
      compute avy72=25.
      compute mainy70=40.
      compute mainy71=40.
      compute mainy72=40.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=77 or main24=38.
      compute avy70=28.
      compute avy71=28.
      compute avy72=28.
      compute mainy70=39.
      compute mainy71=39.
      compute mainy72=39.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=78.
      compute avy70=22.
      compute avy71=22.
      compute avy72=22.
      compute mainy70=34.
      compute mainy71=34.
      compute mainy72=34.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=79 and (sec24=46 or sec24=47).
      compute avy70=4.
      compute avy71=4.
      compute avy72=5.
      compute mainy70=17.
      compute mainy71=17.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=79.
      compute avy70=4.
      compute avy71=4.
      compute avy72=4.
      compute mainy70=17.
      compute mainy71=17.
      compute mainy72=17.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=80.
      compute avy70=18.
      compute avy71=18.
      compute avy72=18.
      compute mainy70=38.
      compute mainy71=38.
      compute mainy72=38.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=81.
      compute avy70=19.
      compute avy71=19.
      compute avy72=19.
      compute mainy70=42.
      compute mainy71=42.
      compute mainy72=42.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=82.
      compute avy70=20.
      compute avy71=20.
      compute avy72=20.
      compute mainy70=36.
      compute mainy71=36.
      compute mainy72=36.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=83.
      compute avy70=21.
      compute avy71=21.
      compute avy72=21.
      compute mainy70=43.
      compute mainy71=43.
      compute mainy72=43.
      compute mtravy70=3.
      compute mtravy71=3.
      compute mtravy72=3.
   Else if main24=84.
      compute avy70=18.
      compute avy71=18.
      compute avy72=18.
      compute mainy70=45.
      compute mainy71=45.
      compute mainy72=45.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=85 or main24=86.
      compute avy70=18.
      compute avy71=18.
      compute avy72=18.
      compute mainy70=38.
      compute mainy71=38.
      compute mainy72=38.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=89.
      compute avy70=17.
      compute avy71=17.
      compute avy72=17.
      compute mainy70=68.
      compute mainy71=68.
      compute mainy72=68.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=90.
      compute avy70=17.
      compute avy71=17.
      compute avy72=17.
      compute mainy70=62.
      compute mainy71=62.
      compute mainy72=62.
      compute mtravy70=5.
      compute mtravy71=5.
      compute mtravy72=5.
   Else if main24=91.
      compute avy70=40.
      compute avy71=40.
      compute avy72=40.
      compute mainy70=51.
      compute mainy71=51.
      compute mainy72=51.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=92.
      compute avy70=31.
      compute avy71=31.
      compute avy72=31.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=59.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   Else if main24=93.
      compute avy70=41.
      compute avy71=41.
      compute avy72=41.
      compute mainy70=41.
      compute mainy71=41.
      compute mainy72=41.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=-7.
   End if.
Else if mtmark24=1.
   Do if main24=2 and (main25=42 or main25=79).
      compute avy70=16.
      compute avy71=36.
      compute avy72=5.
      compute mainy70=2.
      compute mainy71=55.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=2 and (main25=41 or main25=44).
      compute avy70=16.
      compute avy71=36.
      compute avy72=5.
      compute mainy70=2.
      compute mainy71=55.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=2 and (main25=36 or main25=57).
      compute avy70=16.
      compute avy71=36.
      compute avy72=12.
      compute mainy70=2.
      compute mainy71=55.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=2.
      compute avy70=16.
      compute avy71=36.
      compute avy72=17.
      compute mainy70=2.
      compute mainy71=55.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24=3 or main24=4) and (main25=42 or main25=79).
      compute avy70=16.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=2.
      compute mainy71=4.
      compute mainy72=64.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=5. 
   Else if (main24=3 or main24=4) and (main25=41 or main25=44).
      compute avy70=16.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=2.
      compute mainy71=4.
      compute mainy72=63.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=5. 
   Else if (main24=3 or main24=4) and (main25=36 or main25=57).
      compute avy70=16.
      compute avy71=13.
      compute avy72=12.
      compute mainy70=2.
      compute mainy71=4.
      compute mainy72=67.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=5. 
   Else if (main24=3 or main24=4).
      compute avy70=16.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=2.
      compute mainy71=4.
      compute mainy72=63.
      compute mtravy70=-7. 
      compute mtravy71=-7. 
      compute mtravy72=5.
   Else if main24=6 and (main25=41 or main25=44).
      compute avy70=13.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=1.
      compute mainy71=1.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=6 and (main25=42 or main25=79).
      compute avy70=13.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=1.
      compute mainy71=1.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=6 and (main25=36 or main25=57).
      compute avy70=13.
      compute avy71=13.
      compute avy72=12.
      compute mainy70=1.
      compute mainy71=1.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=6.
      compute avy70=13.
      compute avy71=13.
      compute avy72=17.
      compute mainy70=1.
      compute mainy71=1.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>10 and main24<15) and (main25=42 or main25=79).
      compute avy70=30.
      compute avy71=30.
      compute avy72=5.
      compute mainy70=58.
      compute mainy71=58.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>10 and main24<15) and (main25=41 or main25=44).
      compute avy70=30.
      compute avy71=30.
      compute avy72=5.
      compute mainy70=58.
      compute mainy71=58.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>10 and main24<15) and (main25=36 or main25=57).
      compute avy70=30.
      compute avy71=30.
      compute avy72=12.
      compute mainy70=58.
      compute mainy71=58.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24>10 and main24<15.
      compute avy70=30.
      compute avy71=30.
      compute avy72=17.
      compute mainy70=58.
      compute mainy71=58.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>19 and main24<30) and (main25=41 or main25=44).
      compute avy70=31.
      compute avy71=31.
      compute avy72=5.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>19 and main24<30) and (main25=42 or main25=79).
      compute avy70=31.
      compute avy71=31.
      compute avy72=5.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>19 and main24<30) and (main25=36 or main25=57).
      compute avy70=31.
      compute avy71=31.
      compute avy72=12.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24>19 and main24<30.
      compute avy70=31.
      compute avy71=31.
      compute avy72=17.
      compute mainy70=59.
      compute mainy71=59.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>29 and main24<34) and sec24=45.
      compute avy70=13.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=1.
   Else if (main24>29 and main24<34) and (main25=42 or main25=79).
      compute avy70=13.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>29 and main24<34) and (main25=57 or main25=36).
      compute avy70=13.
      compute avy71=13.
      compute avy72=12.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>29 and main24<34) and (main25=41 or main25=44 or main25=47).
      compute avy70=13.
      compute avy71=13.
      compute avy72=5.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if (main24>29 and main24<34).
      compute avy70=13.
      compute avy71=13.
      compute avy72=17.
      compute mainy70=4.
      compute mainy71=4.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=36.
      compute avy70=14.
      compute avy71=14.
      compute avy72=12.
      compute mainy70=25.
      compute mainy71=25.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=41.
      compute avy70=1.
      compute avy71=1.
      compute avy72=5.
      compute mainy70=7.
      compute mainy71=7.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=42.
      compute avy70=4.
      compute avy71=4.
      compute avy72=5.
      compute mainy70=15.
      compute mainy71=15.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=43 and (main25=42 or main25=79).
      compute avy70=2.
      compute avy71=2.
      compute avy72=5.
      compute mainy70=8.
      compute mainy71=8.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
     compute mtravy72=5.
   Else if main24=43.
      compute avy70=2.
      compute avy71=2.
      compute avy72=5.
      compute mainy70=8.
      compute mainy71=8.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
     compute mtravy72=5.
   Else if main24=44.
      compute avy70=3.
      compute avy71=3.
      compute avy72=5.
      compute mainy70=9.
      compute mainy71=9.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=50 and (main25=41 or main25=44).
      compute avy70=8.
      compute avy71=8.
      compute avy72=5.
      compute mainy70=21.
      compute mainy71=21.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=50 and (main25=42 or main25=79).
      compute avy70=8.
      compute avy71=8.
      compute avy72=5.
      compute mainy70=21.
      compute mainy71=21.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=50 and (main25=57 or main25=36).
      compute avy70=8.
      compute avy71=8.
      compute avy72=12.
      compute mainy70=21.
      compute mainy71=21.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=50.
      compute avy70=8.
      compute avy71=8.
      compute avy72=17.
      compute mainy70=21.
      compute mainy71=21.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=51 and (main25=41 or main25=44 or main25=45).
      compute avy70=11.
      compute avy71=11.
      compute avy72=5.
      compute mainy70=28.
      compute mainy71=28.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=51 and (main25=42 or main25=79).
      compute avy70=11.
      compute avy71=11.
      compute avy72=5.
      compute mainy70=28.
      compute mainy71=28.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=51 and (main25=57 or main25=36).
      compute avy70=11.
      compute avy71=11.
      compute avy72=12.
      compute mainy70=28.
      compute mainy71=28.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=51.
      compute avy70=11.
      compute avy71=11.
      compute avy72=17.
      compute mainy70=28.
      compute mainy71=28.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=53 and (main25=42 or main25=79).
      compute avy70=6.
      compute avy71=6.
      compute avy72=5.
      compute mainy70=18.
      compute mainy71=18.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=53 and (main25=36 or main25=57).
      compute avy70=6.
      compute avy71=6.
      compute avy72=12.
      compute mainy70=18.
      compute mainy71=18.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=53 and (main25=41 or main25=44).
      compute avy70=6.
      compute avy71=6.
      compute avy72=5.
      compute mainy70=18.
      compute mainy71=18.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=53.
      compute avy70=6.
      compute avy71=6.
      compute avy72=17.
      compute mainy70=18.
      compute mainy71=18.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=54 and (main25=36 or main25=57).
      compute avy70=7.
      compute avy71=7.
      compute avy72=12.
      compute mainy70=20.
      compute mainy71=20.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=54 and (main25=41 or main25=44 or main25=47).
      compute avy70=7.
      compute avy71=7.
      compute avy72=5.
      compute mainy70=20.
      compute mainy71=20.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=54 and (main25=42 or main25=79).
      compute avy70=7.
      compute avy71=7.
      compute avy72=5.
      compute mainy70=20.
      compute mainy71=20.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=54.
      compute avy70=7.
      compute avy71=7.
      compute avy72=17.
      compute mainy70=20.
      compute mainy71=20.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=55 and (main25=57 or main25=36).
      compute avy70=8.
      compute avy71=8.
      compute avy72=12.
      compute mainy70=22.
      compute mainy71=22.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=55 and (main25=42 or main25=79).
      compute avy70=8.
      compute avy71=8.
      compute avy72=5.
      compute mainy70=22.
      compute mainy71=22.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=55.
      compute avy70=8.
      compute avy71=8.
      compute avy72=17.
      compute mainy70=22.
      compute mainy71=22.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=56 and (main25=41 or main25=44).
      compute avy70=8.
      compute avy71=8.
      compute avy72=5.
      compute mainy70=27.
      compute mainy71=27.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=56 and (main25=42 or main25=79).
      compute avy70=8.
      compute avy71=8.
      compute avy72=5.
      compute mainy70=27.
      compute mainy71=27.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=56 and (main25=36 or main25=57).
      compute avy70=8.
      compute avy71=8.
      compute avy72=12.
      compute mainy70=27.
      compute mainy71=27.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=56.
      compute avy70=8.
      compute avy71=8.
      compute avy72=17.
      compute mainy70=27.
      compute mainy71=27.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=57 and (main25=41 or main25=44).
      compute avy70=10.
      compute avy71=10.
      compute avy72=5.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=57 and (main25=42 or main25=79).
      compute avy70=10.
      compute avy71=10.
      compute avy72=5.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=57 and (main25=36 or main25=57).
      compute avy70=10.
      compute avy71=10.
      compute avy72=12.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=57 and sec24=45.
      compute avy70=10.
      compute avy71=10.
      compute avy72=5.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=1.
   Else if main24=57.
      compute avy70=10.
      compute avy71=10.
      compute avy72=17.
      compute mainy70=24.
      compute mainy71=24.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=59.
      compute avy70=7.
      compute avy71=7.
      compute avy72=12.
      compute mainy70=23.
      compute mainy71=23.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=66.
      compute avy70=38.
      compute avy71=38.
      compute avy72=12.
      compute mainy70=48.
      compute mainy71=48.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=69 and (main25=41 or main25=44).
      compute avy70=36.
      compute avy71=36.
      compute avy72=5.
      compute mainy70=55.
      compute mainy71=55.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=69 and (main25=36 or main25=57).
      compute avy70=36.
      compute avy71=36.
      compute avy72=12.
      compute mainy70=55.
      compute mainy71=55.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=69.
      compute avy70=36.
      compute avy71=36.
      compute avy72=17.
      compute mainy70=55.
      compute mainy71=55.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=71 and main25=42.
      compute avy70=29.
      compute avy71=29.
      compute avy72=5.
      compute mainy70=48.
      compute mainy71=48.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=71 and main25=41.
      compute avy70=29.
      compute avy71=29.
      compute avy72=5.
      compute mainy70=48.
      compute mainy71=48.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=75.
      compute avy70=27.
      compute avy71=27.
      compute avy72=17.
      compute mainy70=39.
      compute mainy71=39.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=77.
      compute avy70=28.
      compute avy71=28.
      compute avy72=17.
      compute mainy70=39.
      compute mainy71=39.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=78 and (main24=41 or main24=44).
      compute avy70=22.
      compute avy71=22.
      compute avy72=5.
      compute mainy70=34.
      compute mainy71=34.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=78.
      compute avy70=22.
      compute avy71=22.
      compute avy72=17.
      compute mainy70=34.
      compute mainy71=34.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=79.
      compute avy70=4.
      compute avy71=4.
      compute avy72=5.
      compute mainy70=17.
      compute mainy71=17.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=82.
      compute avy70=20.
      compute avy71=20.
      compute avy72=17.
      compute mainy70=36.
      compute mainy71=36.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=84.
      compute avy70=18.
      compute avy71=18.
      compute avy72=17.
      compute mainy70=45.
      compute mainy71=45.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=85 or main24=86.
      compute avy70=18.
      compute avy71=18.
      compute avy72=17.
      compute mainy70=38.
      compute mainy71=38.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=91 and (main25=36 or main25=57).
      compute avy70=40.
      compute avy71=40.
      compute avy72=12.
      compute mainy70=51.
      compute mainy71=51.
      compute mainy72=67.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=91 and (main25=41 or main25=44).
      compute avy70=40.
      compute avy71=40.
      compute avy72=5.
      compute mainy70=51.
      compute mainy71=51.
      compute mainy72=63.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=91 and (main25=42 or main25=79).
      compute avy70=40.
      compute avy71=40.
      compute avy72=5.
      compute mainy70=51.
      compute mainy71=51.
      compute mainy72=64.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   Else if main24=91.
      compute avy70=40.
      compute avy71=40.
      compute avy72=17.
      compute mainy70=51.
      compute mainy71=51.
      compute mainy72=68.
      compute mtravy70=-7.
      compute mtravy71=-7.
      compute mtravy72=5.
   End if.
End if.

Do if main24=1 and main25=1 and mtmark24=0.
   compute avy70=16.
   compute avy71=16.
   compute avy72=16.
   compute mainy70=2.
   compute mainy71=2.
   compute mainy72=2.
   compute mtravy70=-7. 
   compute mtravy71=-7. 
   compute mtravy72=-7. 
Else if main24=2 and main25=2 and mtmark24=0.
   compute avy70=16.
   compute avy71=16.
   compute avy72=16.
   compute mainy70=2.
   compute mainy71=2.
   compute mainy72=2.
   compute mtravy70=-7.
   compute mtravy71=-7.
   compute mtravy72=-7.
End if.

freq avy70 avy71 avy72 mainy70 mainy71 mainy72 mtravy70 mtravy71 mtravy72.

*set values for the 25th time slot.
freq mtmark25.
*1441 missing travel cases in time slot 25.

temp.
select if mtmark25=1.
cro main25 by main26.

if main25=83 or main26=83 or main25=63 or main26=63 mtmark25=0.
if main25=34 or main25=38 or main25=62 or main25=67 or main25=81 mtmark25=0.
if main26=34 or main26=38 or main26=62 or main26=67 or main26=81 mtmark25=0.
if main25=main26 mtmark25=0.
if main25=1 or main25=61 or main26=61 or main26=72 or main26=50 mtmark25=0.
if main25=59 and main26>57 mtmark25=0.
if main25=60 or main25=64 or main25=66 or main25=68 or main25=70 or 
   main25=71 or main25=72 or main25=73 or main25=35 or main25=52 or 
   main25=65 or main25=74 or main25=80 or main25=82 or main25=99 or
   main25=76 or main25=49 mtmark25=0.
if main25=84 and main25=52 mtmark12=0.
*errors fixed, 697 cases remain.

temp.
select if sec25=45.
cro main25 by main26 by mtmark25.

temp.
select if sec25=46 or sec25=47.
cro main25 by main26 by mtmark25.

Do if mtmark25=0.
   Do if main25>95.
      compute avy73=41.
      compute avy74=41.
      compute avy75=41.
      compute mainy73=69.
      compute mainy74=69.
      compute mainy75=69.
      compute mtravy73=-8.
      compute mtravy74=-8.
      compute mtravy75=-8.
   Else if main25=1.
      compute avy73=16.
      compute avy74=16.
      compute avy75=13.
      compute mainy73=2.
      compute mainy74=2.
      compute mainy75=4.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=-7. 
   Else if main25=2.
      compute avy73=16.
      compute avy74=16.
      compute avy75=36.
      compute mainy73=2.
      compute mainy74=2.
      compute mainy75=55.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=3 or main25=4.
      compute avy73=16.
      compute avy74=16.
      compute avy75=16.
      compute mainy73=2.
      compute mainy74=2.
      compute mainy75=2.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=-7. 
   Else if main25=5.
      compute avy73=16.
      compute avy74=16.
      compute avy75=16.
      compute mainy73=3.
      compute mainy74=3.
      compute mainy75=3.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=6.
      compute avy73=13.
      compute avy74=13.
      compute avy75=13.
      compute mainy73=1.
      compute mainy74=1.
      compute mainy75=1.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25>6 and main25<20.
      compute avy73=30.
      compute avy74=30.
      compute avy75=30.
      compute mainy73=58.
      compute mainy74=58.
      compute mainy75=58.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25>19 and main25<30.
      compute avy73=31.
      compute avy74=31.
      compute avy75=31.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=59.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25>29 and main25<34.
      compute avy73=13.
      compute avy74=13.
      compute avy75=13.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=4.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=34 and sec25=45.
      compute avy73=15.
      compute avy74=15.
      compute avy75=5.
      compute mainy73=6.
      compute mainy74=6.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=1.
   Else if main25=34 or main25=35 or ((main25=38 or main25=39) and loc25=1).
      compute avy73=15.
      compute avy74=15.
      compute avy75=15.
      compute mainy73=6.
      compute mainy74=6.
      compute mainy75=6.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=36.
      compute avy73=14.
      compute avy74=14.
      compute avy75=14.
      compute mainy73=25.
      compute mainy74=25.
      compute mainy75=25.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=37.
      compute avy73=12.
      compute avy74=12.
      compute avy75=12.
      compute mainy73=67.
      compute mainy74=67.
      compute mainy75=67.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=40.
      compute avy73=1.
      compute avy74=1.
      compute avy75=1.
      compute mainy73=13.
      compute mainy74=13.
      compute mainy75=13.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=41.
      compute avy73=1.
      compute avy74=1.
      compute avy75=1.
      compute mainy73=7.
      compute mainy74=7.
      compute mainy75=7.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=42.
      compute avy73=4.
      compute avy74=4.
      compute avy75=4.
      compute mainy73=15.
      compute mainy74=15.
      compute mainy75=15.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=43.
      compute avy73=2.
      compute avy74=2.
      compute avy75=2.
      compute mainy73=8.
      compute mainy74=8.
      compute mainy75=8.
      compute mtravy73=-7.
      compute mtravy74=-7.
     compute mtravy75=-7.
   Else if main25=44.
      compute avy73=3.
      compute avy74=3.
      compute avy75=3.
      compute mainy73=9.
      compute mainy74=9.
      compute mainy75=9.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=45 and (main26=42 or main26=79).
      compute avy73=5.
      compute avy74=5.
      compute avy75=5.
      compute mainy73=64.
      compute mainy74=64.
      compute mainy75=64.
      compute mtravy73=1.
      compute mtravy74=1.
      compute mtravy75=1.
   Else if (main25=46 or main25=47) and (main26=42 or main26=79).
      compute avy73=5.
      compute avy74=5.
      compute avy75=5.
      compute mainy73=64.
      compute mainy74=64.
      compute mainy75=64.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=45.
      compute avy73=5.
      compute avy74=5.
      compute avy75=5.
      compute mainy73=63.
      compute mainy74=63.
      compute mainy75=63.
      compute mtravy73=1.
      compute mtravy74=1.
      compute mtravy75=1.
   Else if main25=46 or main25=47.
      compute avy73=5.
      compute avy74=5.
      compute avy75=5.
      compute mainy73=63.
      compute mainy74=63.
      compute mainy75=63.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=48.
      compute avy73=5.
      compute avy74=5.
      compute avy75=5.
      compute mainy73=11.
      compute mainy74=11.
      compute mainy75=11.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=49.
      compute avy73=1.
      compute avy74=1.
      compute avy75=1.
      compute mainy73=5.
      compute mainy74=5.
      compute mainy75=5.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=50.
      compute avy73=8.
      compute avy74=8.
      compute avy75=8.
      compute mainy73=21.
      compute mainy74=21.
      compute mainy75=21.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=51.
      compute avy73=11.
      compute avy74=11.
      compute avy75=11.
      compute mainy73=28.
      compute mainy74=28.
      compute mainy75=28.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=52.
      compute avy73=11.
      compute avy74=11.
      compute avy75=11.
      compute mainy73=30.
      compute mainy74=30.
      compute mainy75=30.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=53.
      compute avy73=6.
      compute avy74=6.
      compute avy75=6.
      compute mainy73=18.
      compute mainy74=18.
      compute mainy75=18.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=54.
      compute avy73=7.
      compute avy74=7.
      compute avy75=7.
      compute mainy73=20.
      compute mainy74=20.
      compute mainy75=20.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=55.
      compute avy73=8.
      compute avy74=8.
      compute avy75=8.
      compute mainy73=22.
      compute mainy74=22.
      compute mainy75=22.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=56.
      compute avy73=8.
      compute avy74=8.
      compute avy75=8.
      compute mainy73=27.
      compute mainy74=27.
      compute mainy75=27.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=57.
      compute avy73=10.
      compute avy74=10.
      compute avy75=10.
      compute mainy73=24.
      compute mainy74=24.
      compute mainy75=24.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=58.
      compute avy73=12.
      compute avy74=12.
      compute avy75=12.
      compute mainy73=66.
      compute mainy74=66.
      compute mainy75=66.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=59.
      compute avy73=7.
      compute avy74=7.
      compute avy75=13.
      compute mainy73=23.
      compute mainy74=23.
      compute mainy75=4.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=60.
      compute avy73=9.
      compute avy74=9.
      compute avy75=9.
      compute mainy73=46.
      compute mainy74=46.
      compute mainy75=46.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=61.
      compute avy73=33.
      compute avy74=33.
      compute avy75=33.
      compute mainy73=16.
      compute mainy74=16.
      compute mainy75=16.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=62.
      compute avy73=34.
      compute avy74=34.
      compute avy75=34.
      compute mainy73=56.
      compute mainy74=56.
      compute mainy75=56.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=63.
      compute avy73=35.
      compute avy74=35.
      compute avy75=35.
      compute mainy73=56.
      compute mainy74=56.
      compute mainy75=56.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=64.
      compute avy73=40.
      compute avy74=40.
      compute avy75=40.
      compute mainy73=54.
      compute mainy74=54.
      compute mainy75=54.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=65.
      compute avy73=39.
      compute avy74=39.
      compute avy75=39.
      compute mainy73=54.
      compute mainy74=54.
      compute mainy75=54.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=66.
      compute avy73=38.
      compute avy74=38.
      compute avy75=38.
      compute mainy73=48.
      compute mainy74=48.
      compute mainy75=48.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=67.
      compute avy73=37.
      compute avy74=37.
      compute avy75=37.
      compute mainy73=49.
      compute mainy74=49.
      compute mainy75=49.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=68.
      compute avy73=32.
      compute avy74=32.
      compute avy75=32.
      compute mainy73=57.
      compute mainy74=57.
      compute mainy75=57.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=69.
      compute avy73=36.
      compute avy74=36.
      compute avy75=36.
      compute mainy73=55.
      compute mainy74=55.
      compute mainy75=55.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=70.
      compute avy73=25.
      compute avy74=25.
      compute avy75=25.
      compute mainy73=35.
      compute mainy74=35.
      compute mainy75=35.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=71.
      compute avy73=29.
      compute avy74=29.
      compute avy75=29.
      compute mainy73=48.
      compute mainy74=48.
      compute mainy75=48.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=72.
      compute avy73=24.
      compute avy74=24.
      compute avy75=24.
      compute mainy73=37.
      compute mainy74=37.
      compute mainy75=37.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=73.
      compute avy73=23.
      compute avy74=23.
      compute avy75=23.
      compute mainy73=33.
      compute mainy74=33.
      compute mainy75=33.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=74.
      compute avy73=26.
      compute avy74=26.
      compute avy75=26.
      compute mainy73=40.
      compute mainy74=40.
      compute mainy75=40.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=75 or main25=39.
      compute avy73=27.
      compute avy74=27.
      compute avy75=27.
      compute mainy73=39.
      compute mainy74=39.
      compute mainy75=39.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=76.
      compute avy73=25.
      compute avy74=25.
      compute avy75=25.
      compute mainy73=40.
      compute mainy74=40.
      compute mainy75=40.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=77 or main25=38.
      compute avy73=28.
      compute avy74=28.
      compute avy75=28.
      compute mainy73=39.
      compute mainy74=39.
      compute mainy75=39.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=78.
      compute avy73=22.
      compute avy74=22.
      compute avy75=22.
      compute mainy73=34.
      compute mainy74=34.
      compute mainy75=34.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=79.
      compute avy73=4.
      compute avy74=4.
      compute avy75=4.
      compute mainy73=17.
      compute mainy74=17.
      compute mainy75=17.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=80.
      compute avy73=18.
      compute avy74=18.
      compute avy75=18.
      compute mainy73=38.
      compute mainy74=38.
      compute mainy75=38.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=81.
      compute avy73=19.
      compute avy74=19.
      compute avy75=19.
      compute mainy73=42.
      compute mainy74=42.
      compute mainy75=42.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=82.
      compute avy73=20.
      compute avy74=20.
      compute avy75=20.
      compute mainy73=36.
      compute mainy74=36.
      compute mainy75=36.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=83.
      compute avy73=21.
      compute avy74=21.
      compute avy75=21.
      compute mainy73=43.
      compute mainy74=43.
      compute mainy75=43.
      compute mtravy73=3.
      compute mtravy74=3.
      compute mtravy75=3.
   Else if main25=84.
      compute avy73=18.
      compute avy74=18.
      compute avy75=18.
      compute mainy73=45.
      compute mainy74=45.
      compute mainy75=45.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=85 or main25=86.
      compute avy73=18.
      compute avy74=18.
      compute avy75=18.
      compute mainy73=38.
      compute mainy74=38.
      compute mainy75=38.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=89.
      compute avy73=17.
      compute avy74=17.
      compute avy75=17.
      compute mainy73=68.
      compute mainy74=68.
      compute mainy75=68.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=90.
      compute avy73=17.
      compute avy74=17.
      compute avy75=17.
      compute mainy73=62.
      compute mainy74=62.
      compute mainy75=62.
      compute mtravy73=5.
      compute mtravy74=5.
      compute mtravy75=5.
   Else if main25=91.
      compute avy73=40.
      compute avy74=40.
      compute avy75=40.
      compute mainy73=51.
      compute mainy74=51.
      compute mainy75=51.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=92.
      compute avy73=31.
      compute avy74=31.
      compute avy75=31.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=59.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   Else if main25=93.
      compute avy73=41.
      compute avy74=41.
      compute avy75=41.
      compute mainy73=41.
      compute mainy74=41.
      compute mainy75=41.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=-7.
   End if.
Else if mtmark25=1.
   Do if main25=2 and (main26=42 or main26=79).
      compute avy73=16.
      compute avy74=36.
      compute avy75=5.
      compute mainy73=2.
      compute mainy74=55.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=2 and (main26=41 or main26=44).
      compute avy73=16.
      compute avy74=36.
      compute avy75=5.
      compute mainy73=2.
      compute mainy74=55.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=2 and (main26=36 or main26=57).
      compute avy73=16.
      compute avy74=36.
      compute avy75=12.
      compute mainy73=2.
      compute mainy74=55.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=2.
      compute avy73=16.
      compute avy74=36.
      compute avy75=17.
      compute mainy73=2.
      compute mainy74=55.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25=3 or main25=4) and (main26=42 or main26=79).
      compute avy73=16.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=2.
      compute mainy74=4.
      compute mainy75=64.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=5. 
   Else if (main25=3 or main25=4) and (main26=41 or main26=44).
      compute avy73=16.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=2.
      compute mainy74=4.
      compute mainy75=63.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=5. 
   Else if (main25=3 or main25=4) and (main26=36 or main26=57).
      compute avy73=16.
      compute avy74=13.
      compute avy75=12.
      compute mainy73=2.
      compute mainy74=4.
      compute mainy75=67.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=5. 
   Else if (main25=3 or main25=4).
      compute avy73=16.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=2.
      compute mainy74=4.
      compute mainy75=63.
      compute mtravy73=-7. 
      compute mtravy74=-7. 
      compute mtravy75=5.
   Else if main25=6 and (main26=41 or main26=44).
      compute avy73=13.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=1.
      compute mainy74=1.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=6 and (main26=42 or main26=79).
      compute avy73=13.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=1.
      compute mainy74=1.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=6 and (main26=36 or main26=57).
      compute avy73=13.
      compute avy74=13.
      compute avy75=12.
      compute mainy73=1.
      compute mainy74=1.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=6.
      compute avy73=13.
      compute avy74=13.
      compute avy75=17.
      compute mainy73=1.
      compute mainy74=1.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>10 and main25<15) and (main26=42 or main26=79).
      compute avy73=30.
      compute avy74=30.
      compute avy75=5.
      compute mainy73=58.
      compute mainy74=58.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>10 and main25<15) and (main26=41 or main26=44).
      compute avy73=30.
      compute avy74=30.
      compute avy75=5.
      compute mainy73=58.
      compute mainy74=58.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>10 and main25<15) and (main26=36 or main26=57).
      compute avy73=30.
      compute avy74=30.
      compute avy75=12.
      compute mainy73=58.
      compute mainy74=58.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25>10 and main25<15.
      compute avy73=30.
      compute avy74=30.
      compute avy75=17.
      compute mainy73=58.
      compute mainy74=58.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>19 and main25<30) and (main26=41 or main26=44).
      compute avy73=31.
      compute avy74=31.
      compute avy75=5.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>19 and main25<30) and (main26=42 or main26=79).
      compute avy73=31.
      compute avy74=31.
      compute avy75=5.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>19 and main25<30) and (main26=36 or main26=57).
      compute avy73=31.
      compute avy74=31.
      compute avy75=12.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25>19 and main25<30.
      compute avy73=31.
      compute avy74=31.
      compute avy75=17.
      compute mainy73=59.
      compute mainy74=59.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>29 and main25<34) and sec25=45.
      compute avy73=13.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=1.
   Else if (main25>29 and main25<34) and (main26=42 or main26=79).
      compute avy73=13.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>29 and main25<34) and (main26=57 or main26=36).
      compute avy73=13.
      compute avy74=13.
      compute avy75=12.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>29 and main25<34) and (main26=41 or main26=44 or main26=47).
      compute avy73=13.
      compute avy74=13.
      compute avy75=5.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if (main25>29 and main25<34).
      compute avy73=13.
      compute avy74=13.
      compute avy75=17.
      compute mainy73=4.
      compute mainy74=4.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=36.
      compute avy73=14.
      compute avy74=14.
      compute avy75=12.
      compute mainy73=25.
      compute mainy74=25.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=41.
      compute avy73=1.
      compute avy74=1.
      compute avy75=5.
      compute mainy73=7.
      compute mainy74=7.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      Do if sec25=45.
         compute mtravy75=1.
      Else.
         compute mtravy75=5.
      End if.
   Else if main25=42.
      compute avy73=4.
      compute avy74=4.
      compute avy75=5.
      compute mainy73=15.
      compute mainy74=15.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=43 and (main26=42 or main26=79).
      compute avy73=2.
      compute avy74=2.
      compute avy75=5.
      compute mainy73=8.
      compute mainy74=8.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
     compute mtravy75=5.
   Else if main25=43.
      compute avy73=2.
      compute avy74=2.
      compute avy75=5.
      compute mainy73=8.
      compute mainy74=8.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
     compute mtravy75=5.
   Else if main25=44.
      compute avy73=3.
      compute avy74=3.
      compute avy75=5.
      compute mainy73=9.
      compute mainy74=9.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=50 and (main26=41 or main26=44).
      compute avy73=8.
      compute avy74=8.
      compute avy75=5.
      compute mainy73=21.
      compute mainy74=21.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=50 and (main26=42 or main26=79).
      compute avy73=8.
      compute avy74=8.
      compute avy75=5.
      compute mainy73=21.
      compute mainy74=21.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=50 and (main26=57 or main26=36).
      compute avy73=8.
      compute avy74=8.
      compute avy75=12.
      compute mainy73=21.
      compute mainy74=21.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=50.
      compute avy73=8.
      compute avy74=8.
      compute avy75=17.
      compute mainy73=21.
      compute mainy74=21.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=51 and (main26=41 or main26=44 or main26=45).
      compute avy73=11.
      compute avy74=11.
      compute avy75=5.
      compute mainy73=28.
      compute mainy74=28.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=51 and (main26=42 or main26=79).
      compute avy73=11.
      compute avy74=11.
      compute avy75=5.
      compute mainy73=28.
      compute mainy74=28.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=51 and (main26=57 or main26=36).
      compute avy73=11.
      compute avy74=11.
      compute avy75=12.
      compute mainy73=28.
      compute mainy74=28.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=51.
      compute avy73=11.
      compute avy74=11.
      compute avy75=17.
      compute mainy73=28.
      compute mainy74=28.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=53 and (main26=42 or main26=79).
      compute avy73=6.
      compute avy74=6.
      compute avy75=5.
      compute mainy73=18.
      compute mainy74=18.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=53 and (main26=36 or main26=57).
      compute avy73=6.
      compute avy74=6.
      compute avy75=12.
      compute mainy73=18.
      compute mainy74=18.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=53 and (main26=41 or main26=44).
      compute avy73=6.
      compute avy74=6.
      compute avy75=5.
      compute mainy73=18.
      compute mainy74=18.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=53.
      compute avy73=6.
      compute avy74=6.
      compute avy75=17.
      compute mainy73=18.
      compute mainy74=18.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=54 and (main26=36 or main26=57).
      compute avy73=7.
      compute avy74=7.
      compute avy75=12.
      compute mainy73=20.
      compute mainy74=20.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=54 and (main26=41 or main26=44 or main26=47).
      compute avy73=7.
      compute avy74=7.
      compute avy75=5.
      compute mainy73=20.
      compute mainy74=20.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=54 and (main26=42 or main26=79).
      compute avy73=7.
      compute avy74=7.
      compute avy75=5.
      compute mainy73=20.
      compute mainy74=20.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=54.
      compute avy73=7.
      compute avy74=7.
      compute avy75=17.
      compute mainy73=20.
      compute mainy74=20.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=55 and (main26=57 or main26=36).
      compute avy73=8.
      compute avy74=8.
      compute avy75=12.
      compute mainy73=22.
      compute mainy74=22.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=55 and (main26=42 or main26=79).
      compute avy73=8.
      compute avy74=8.
      compute avy75=5.
      compute mainy73=22.
      compute mainy74=22.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=55.
      compute avy73=8.
      compute avy74=8.
      compute avy75=17.
      compute mainy73=22.
      compute mainy74=22.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=56 and (main26=41 or main26=44).
      compute avy73=8.
      compute avy74=8.
      compute avy75=5.
      compute mainy73=27.
      compute mainy74=27.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=56 and (main26=42 or main26=79).
      compute avy73=8.
      compute avy74=8.
      compute avy75=5.
      compute mainy73=27.
      compute mainy74=27.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=56 and (main26=36 or main26=57).
      compute avy73=8.
      compute avy74=8.
      compute avy75=12.
      compute mainy73=27.
      compute mainy74=27.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=56.
      compute avy73=8.
      compute avy74=8.
      compute avy75=17.
      compute mainy73=27.
      compute mainy74=27.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=57 and (main26=41 or main26=44).
      compute avy73=10.
      compute avy74=10.
      compute avy75=5.
      compute mainy73=24.
      compute mainy74=24.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=57 and (main26=42 or main26=79).
      compute avy73=10.
      compute avy74=10.
      compute avy75=5.
      compute mainy73=24.
      compute mainy74=24.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=57 and (main26=36 or main26=57).
      compute avy73=10.
      compute avy74=10.
      compute avy75=12.
      compute mainy73=24.
      compute mainy74=24.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=57.
      compute avy73=10.
      compute avy74=10.
      compute avy75=17.
      compute mainy73=24.
      compute mainy74=24.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=59.
      compute avy73=7.
      compute avy74=7.
      compute avy75=12.
      compute mainy73=23.
      compute mainy74=23.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=66.
      compute avy73=38.
      compute avy74=38.
      compute avy75=12.
      compute mainy73=48.
      compute mainy74=48.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=69 and (main26=41 or main26=44).
      compute avy73=36.
      compute avy74=36.
      compute avy75=5.
      compute mainy73=55.
      compute mainy74=55.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=69 and (main26=36 or main26=57).
      compute avy73=36.
      compute avy74=36.
      compute avy75=12.
      compute mainy73=55.
      compute mainy74=55.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=69.
      compute avy73=36.
      compute avy74=36.
      compute avy75=17.
      compute mainy73=55.
      compute mainy74=55.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=71 and main26=42.
      compute avy73=29.
      compute avy74=29.
      compute avy75=5.
      compute mainy73=48.
      compute mainy74=48.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=71 and main26=41.
      compute avy73=29.
      compute avy74=29.
      compute avy75=5.
      compute mainy73=48.
      compute mainy74=48.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=75.
      compute avy73=27.
      compute avy74=27.
      compute avy75=17.
      compute mainy73=39.
      compute mainy74=39.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=77.
      compute avy73=28.
      compute avy74=28.
      compute avy75=17.
      compute mainy73=39.
      compute mainy74=39.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=78 and (main25=41 or main25=44).
      compute avy73=22.
      compute avy74=22.
      compute avy75=5.
      compute mainy73=34.
      compute mainy74=34.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=78.
      compute avy73=22.
      compute avy74=22.
      compute avy75=17.
      compute mainy73=34.
      compute mainy74=34.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=79.
      compute avy73=4.
      compute avy74=4.
      compute avy75=5.
      compute mainy73=17.
      compute mainy74=17.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=82.
      compute avy73=20.
      compute avy74=20.
      compute avy75=17.
      compute mainy73=36.
      compute mainy74=36.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=84.
      compute avy73=18.
      compute avy74=18.
      compute avy75=17.
      compute mainy73=45.
      compute mainy74=45.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=85 or main25=86.
      compute avy73=18.
      compute avy74=18.
      compute avy75=17.
      compute mainy73=38.
      compute mainy74=38.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=91 and (main26=36 or main26=57).
      compute avy73=40.
      compute avy74=40.
      compute avy75=12.
      compute mainy73=51.
      compute mainy74=51.
      compute mainy75=67.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=91 and (main26=41 or main26=44).
      compute avy73=40.
      compute avy74=40.
      compute avy75=5.
      compute mainy73=51.
      compute mainy74=51.
      compute mainy75=63.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=91 and (main26=42 or main26=79).
      compute avy73=40.
      compute avy74=40.
      compute avy75=5.
      compute mainy73=51.
      compute mainy74=51.
      compute mainy75=64.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   Else if main25=91.
      compute avy73=40.
      compute avy74=40.
      compute avy75=17.
      compute mainy73=51.
      compute mainy74=51.
      compute mainy75=68.
      compute mtravy73=-7.
      compute mtravy74=-7.
      compute mtravy75=5.
   End if.
End if.

Do if main25=1 and main26=1 and mtmark25=0.
   compute avy73=16.
   compute avy74=16.
   compute avy75=16.
   compute mainy73=2.
   compute mainy74=2.
   compute mainy75=2.
   compute mtravy73=-7. 
   compute mtravy74=-7. 
   compute mtravy75=-7. 
Else if main25=2 and main26=2 and mtmark25=0.
   compute avy73=16.
   compute avy74=16.
   compute avy75=16.
   compute mainy73=2.
   compute mainy74=2.
   compute mainy75=2.
   compute mtravy73=-7.
   compute mtravy74=-7.
   compute mtravy75=-7.
End if.

freq avy73 avy74 avy75 mainy73 mainy74 mainy75 mtravy73 mtravy74 mtravy75.

*set values for the 26th time slot.
freq mtmark26.
*1681 missing travel cases in time slot 26.

temp.
select if mtmark26=1.
cro main26 by main27.

if main26=83 or main27=83 or main26=63 or main27=63 mtmark26=0.
if main26=34 or main26=38 or main26=62 or main26=67 or main26=81 mtmark26=0.
if main27=34 or main27=38 or main27=62 or main27=67 or main27=81 mtmark26=0.
if main26=main27 mtmark26=0.
if main26=1 or main26=61 or main27=61 or main27=72 or main27=50 mtmark26=0.
if main26=59 and main27>57 mtmark26=0.
if main26=60 or main26=64 or main26=66 or main26=68 or main26=70 or 
   main26=71 or main26=72 or main26=73 or main26=35 or main26=52 or 
   main26=65 or main26=74 or main26=80 or main26=82 or main26=99 or
   main26=76 or main26=49 mtmark26=0.
if main26=84 and main26=52 mtmark12=0.
*errors fixed, 691 cases remain.

temp.
select if sec26=45.
cro main26 by main27 by mtmark26.

temp.
select if sec26=46 or sec26=47.
cro main26 by main27 by mtmark26.

Do if mtmark26=0.
   Do if main26>95.
      compute avy76=41.
      compute avy77=41.
      compute avy78=41.
      compute mainy76=69.
      compute mainy77=69.
      compute mainy78=69.
      compute mtravy76=-8.
      compute mtravy77=-8.
      compute mtravy78=-8.
   Else if main26=1.
      compute avy76=16.
      compute avy77=16.
      compute avy78=13.
      compute mainy76=2.
      compute mainy77=2.
      compute mainy78=4.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=-7. 
   Else if main26=2.
      compute avy76=16.
      compute avy77=16.
      compute avy78=36.
      compute mainy76=2.
      compute mainy77=2.
      compute mainy78=55.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=3 or main26=4.
      compute avy76=16.
      compute avy77=16.
      compute avy78=16.
      compute mainy76=2.
      compute mainy77=2.
      compute mainy78=2.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=-7. 
   Else if main26=5.
      compute avy76=16.
      compute avy77=16.
      compute avy78=16.
      compute mainy76=3.
      compute mainy77=3.
      compute mainy78=3.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=6.
      compute avy76=13.
      compute avy77=13.
      compute avy78=13.
      compute mainy76=1.
      compute mainy77=1.
      compute mainy78=1.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26>6 and main26<20.
      compute avy76=30.
      compute avy77=30.
      compute avy78=30.
      compute mainy76=58.
      compute mainy77=58.
      compute mainy78=58.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26>19 and main26<30.
      compute avy76=31.
      compute avy77=31.
      compute avy78=31.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=59.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26>29 and main26<34.
      compute avy76=13.
      compute avy77=13.
      compute avy78=13.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=4.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=34 and sec26=45.
      compute avy76=15.
      compute avy77=15.
      compute avy78=5.
      compute mainy76=6.
      compute mainy77=6.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=1.
   Else if main26=34 and (sec26=46 or sec26=47).
      compute avy76=15.
      compute avy77=15.
      compute avy78=5.
      compute mainy76=6.
      compute mainy77=6.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=34 or main26=35 or ((main26=38 or main26=39) and loc26=1).
      compute avy76=15.
      compute avy77=15.
      compute avy78=15.
      compute mainy76=6.
      compute mainy77=6.
      compute mainy78=6.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=36.
      compute avy76=14.
      compute avy77=14.
      compute avy78=14.
      compute mainy76=25.
      compute mainy77=25.
      compute mainy78=25.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=37.
      compute avy76=12.
      compute avy77=12.
      compute avy78=12.
      compute mainy76=67.
      compute mainy77=67.
      compute mainy78=67.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=40.
      compute avy76=1.
      compute avy77=1.
      compute avy78=1.
      compute mainy76=13.
      compute mainy77=13.
      compute mainy78=13.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=41 and sec26=45.
      compute avy76=1.
      compute avy77=1.
      compute avy78=5.
      compute mainy76=7.
      compute mainy77=7.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=1.
   Else if main26=41 and (sec26=46 or sec26=47).
      compute avy76=1.
      compute avy77=1.
      compute avy78=5.
      compute mainy76=7.
      compute mainy77=7.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=41.
      compute avy76=1.
      compute avy77=1.
      compute avy78=1.
      compute mainy76=7.
      compute mainy77=7.
      compute mainy78=7.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=42.
      compute avy76=4.
      compute avy77=4.
      compute avy78=4.
      compute mainy76=15.
      compute mainy77=15.
      compute mainy78=15.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=43.
      compute avy76=2.
      compute avy77=2.
      compute avy78=2.
      compute mainy76=8.
      compute mainy77=8.
      compute mainy78=8.
      compute mtravy76=-7.
      compute mtravy77=-7.
     compute mtravy78=-7.
   Else if main26=44.
      compute avy76=3.
      compute avy77=3.
      compute avy78=3.
      compute mainy76=9.
      compute mainy77=9.
      compute mainy78=9.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=45 and (main27=42 or main27=79).
      compute avy76=5.
      compute avy77=5.
      compute avy78=5.
      compute mainy76=64.
      compute mainy77=64.
      compute mainy78=64.
      compute mtravy76=1.
      compute mtravy77=1.
      compute mtravy78=1.
   Else if (main26=46 or main26=47) and (main27=42 or main27=79).
      compute avy76=5.
      compute avy77=5.
      compute avy78=5.
      compute mainy76=64.
      compute mainy77=64.
      compute mainy78=64.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=45.
      compute avy76=5.
      compute avy77=5.
      compute avy78=5.
      compute mainy76=63.
      compute mainy77=63.
      compute mainy78=63.
      compute mtravy76=1.
      compute mtravy77=1.
      compute mtravy78=1.
   Else if main26=46 or main26=47.
      compute avy76=5.
      compute avy77=5.
      compute avy78=5.
      compute mainy76=63.
      compute mainy77=63.
      compute mainy78=63.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=48.
      compute avy76=5.
      compute avy77=5.
      compute avy78=5.
      compute mainy76=11.
      compute mainy77=11.
      compute mainy78=11.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=49.
      compute avy76=1.
      compute avy77=1.
      compute avy78=1.
      compute mainy76=5.
      compute mainy77=5.
      compute mainy78=5.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=50.
      compute avy76=8.
      compute avy77=8.
      compute avy78=8.
      compute mainy76=21.
      compute mainy77=21.
      compute mainy78=21.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=51.
      compute avy76=11.
      compute avy77=11.
      compute avy78=11.
      compute mainy76=28.
      compute mainy77=28.
      compute mainy78=28.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=52.
      compute avy76=11.
      compute avy77=11.
      compute avy78=11.
      compute mainy76=30.
      compute mainy77=30.
      compute mainy78=30.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=53.
      compute avy76=6.
      compute avy77=6.
      compute avy78=6.
      compute mainy76=18.
      compute mainy77=18.
      compute mainy78=18.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=54.
      compute avy76=7.
      compute avy77=7.
      compute avy78=7.
      compute mainy76=20.
      compute mainy77=20.
      compute mainy78=20.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=55.
      compute avy76=8.
      compute avy77=8.
      compute avy78=8.
      compute mainy76=22.
      compute mainy77=22.
      compute mainy78=22.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=56.
      compute avy76=8.
      compute avy77=8.
      compute avy78=8.
      compute mainy76=27.
      compute mainy77=27.
      compute mainy78=27.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=57.
      compute avy76=10.
      compute avy77=10.
      compute avy78=10.
      compute mainy76=24.
      compute mainy77=24.
      compute mainy78=24.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=58.
      compute avy76=12.
      compute avy77=12.
      compute avy78=12.
      compute mainy76=66.
      compute mainy77=66.
      compute mainy78=66.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=59.
      compute avy76=7.
      compute avy77=7.
      compute avy78=13.
      compute mainy76=23.
      compute mainy77=23.
      compute mainy78=4.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=60.
      compute avy76=9.
      compute avy77=9.
      compute avy78=9.
      compute mainy76=46.
      compute mainy77=46.
      compute mainy78=46.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=61.
      compute avy76=33.
      compute avy77=33.
      compute avy78=33.
      compute mainy76=16.
      compute mainy77=16.
      compute mainy78=16.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=62.
      compute avy76=34.
      compute avy77=34.
      compute avy78=34.
      compute mainy76=56.
      compute mainy77=56.
      compute mainy78=56.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=63.
      compute avy76=35.
      compute avy77=35.
      compute avy78=35.
      compute mainy76=56.
      compute mainy77=56.
      compute mainy78=56.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=64.
      compute avy76=40.
      compute avy77=40.
      compute avy78=40.
      compute mainy76=54.
      compute mainy77=54.
      compute mainy78=54.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=65.
      compute avy76=39.
      compute avy77=39.
      compute avy78=39.
      compute mainy76=54.
      compute mainy77=54.
      compute mainy78=54.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=66.
      compute avy76=38.
      compute avy77=38.
      compute avy78=38.
      compute mainy76=48.
      compute mainy77=48.
      compute mainy78=48.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=67 and (sec26=46 or sec26=47).
      compute avy76=37.
      compute avy77=37.
      compute avy78=5.
      compute mainy76=49.
      compute mainy77=49.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=67.
      compute avy76=37.
      compute avy77=37.
      compute avy78=37.
      compute mainy76=49.
      compute mainy77=49.
      compute mainy78=49.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=68.
      compute avy76=32.
      compute avy77=32.
      compute avy78=32.
      compute mainy76=57.
      compute mainy77=57.
      compute mainy78=57.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=69.
      compute avy76=36.
      compute avy77=36.
      compute avy78=36.
      compute mainy76=55.
      compute mainy77=55.
      compute mainy78=55.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=70.
      compute avy76=25.
      compute avy77=25.
      compute avy78=25.
      compute mainy76=35.
      compute mainy77=35.
      compute mainy78=35.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=71.
      compute avy76=29.
      compute avy77=29.
      compute avy78=29.
      compute mainy76=48.
      compute mainy77=48.
      compute mainy78=48.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=72.
      compute avy76=24.
      compute avy77=24.
      compute avy78=24.
      compute mainy76=37.
      compute mainy77=37.
      compute mainy78=37.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=73.
      compute avy76=23.
      compute avy77=23.
      compute avy78=23.
      compute mainy76=33.
      compute mainy77=33.
      compute mainy78=33.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=74.
      compute avy76=26.
      compute avy77=26.
      compute avy78=26.
      compute mainy76=40.
      compute mainy77=40.
      compute mainy78=40.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=75 or main26=39.
      compute avy76=27.
      compute avy77=27.
      compute avy78=27.
      compute mainy76=39.
      compute mainy77=39.
      compute mainy78=39.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=76.
      compute avy76=25.
      compute avy77=25.
      compute avy78=25.
      compute mainy76=40.
      compute mainy77=40.
      compute mainy78=40.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=77 or main26=38.
      compute avy76=28.
      compute avy77=28.
      compute avy78=28.
      compute mainy76=39.
      compute mainy77=39.
      compute mainy78=39.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=78.
      compute avy76=22.
      compute avy77=22.
      compute avy78=22.
      compute mainy76=34.
      compute mainy77=34.
      compute mainy78=34.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=79.
      compute avy76=4.
      compute avy77=4.
      compute avy78=4.
      compute mainy76=17.
      compute mainy77=17.
      compute mainy78=17.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=80.
      compute avy76=18.
      compute avy77=18.
      compute avy78=18.
      compute mainy76=38.
      compute mainy77=38.
      compute mainy78=38.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=81.
      compute avy76=19.
      compute avy77=19.
      compute avy78=19.
      compute mainy76=42.
      compute mainy77=42.
      compute mainy78=42.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=82.
      compute avy76=20.
      compute avy77=20.
      compute avy78=20.
      compute mainy76=36.
      compute mainy77=36.
      compute mainy78=36.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=83.
      compute avy76=21.
      compute avy77=21.
      compute avy78=21.
      compute mainy76=43.
      compute mainy77=43.
      compute mainy78=43.
      compute mtravy76=3.
      compute mtravy77=3.
      compute mtravy78=3.
   Else if main26=84.
      compute avy76=18.
      compute avy77=18.
      compute avy78=18.
      compute mainy76=45.
      compute mainy77=45.
      compute mainy78=45.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=85 or main26=86.
      compute avy76=18.
      compute avy77=18.
      compute avy78=18.
      compute mainy76=38.
      compute mainy77=38.
      compute mainy78=38.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=89.
      compute avy76=17.
      compute avy77=17.
      compute avy78=17.
      compute mainy76=68.
      compute mainy77=68.
      compute mainy78=68.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=90.
      compute avy76=17.
      compute avy77=17.
      compute avy78=17.
      compute mainy76=62.
      compute mainy77=62.
      compute mainy78=62.
      compute mtravy76=5.
      compute mtravy77=5.
      compute mtravy78=5.
   Else if main26=91.
      compute avy76=40.
      compute avy77=40.
      compute avy78=40.
      compute mainy76=51.
      compute mainy77=51.
      compute mainy78=51.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=92.
      compute avy76=31.
      compute avy77=31.
      compute avy78=31.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=59.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   Else if main26=93.
      compute avy76=41.
      compute avy77=41.
      compute avy78=41.
      compute mainy76=41.
      compute mainy77=41.
      compute mainy78=41.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=-7.
   End if.
Else if mtmark26=1.
   Do if main26=2 and (main27=42 or main27=79).
      compute avy76=16.
      compute avy77=36.
      compute avy78=5.
      compute mainy76=2.
      compute mainy77=55.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=2 and (main27=41 or main27=44).
      compute avy76=16.
      compute avy77=36.
      compute avy78=5.
      compute mainy76=2.
      compute mainy77=55.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=2 and (main27=36 or main27=57).
      compute avy76=16.
      compute avy77=36.
      compute avy78=12.
      compute mainy76=2.
      compute mainy77=55.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=2.
      compute avy76=16.
      compute avy77=36.
      compute avy78=17.
      compute mainy76=2.
      compute mainy77=55.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26=3 or main26=4) and (main27=42 or main27=79).
      compute avy76=16.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=2.
      compute mainy77=4.
      compute mainy78=64.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=5. 
   Else if (main26=3 or main26=4) and (main27=41 or main27=44).
      compute avy76=16.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=2.
      compute mainy77=4.
      compute mainy78=63.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=5. 
   Else if (main26=3 or main26=4) and (main27=36 or main27=57).
      compute avy76=16.
      compute avy77=13.
      compute avy78=12.
      compute mainy76=2.
      compute mainy77=4.
      compute mainy78=67.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=5. 
   Else if (main26=3 or main26=4).
      compute avy76=16.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=2.
      compute mainy77=4.
      compute mainy78=63.
      compute mtravy76=-7. 
      compute mtravy77=-7. 
      compute mtravy78=5.
   Else if main26=6 and (main27=41 or main27=44).
      compute avy76=13.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=1.
      compute mainy77=1.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=6 and (main27=42 or main27=79).
      compute avy76=13.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=1.
      compute mainy77=1.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=6 and (main27=36 or main27=57).
      compute avy76=13.
      compute avy77=13.
      compute avy78=12.
      compute mainy76=1.
      compute mainy77=1.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=6.
      compute avy76=13.
      compute avy77=13.
      compute avy78=17.
      compute mainy76=1.
      compute mainy77=1.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>10 and main26<15) and (main27=42 or main27=79).
      compute avy76=30.
      compute avy77=30.
      compute avy78=5.
      compute mainy76=58.
      compute mainy77=58.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>10 and main26<15) and (main27=41 or main27=44).
      compute avy76=30.
      compute avy77=30.
      compute avy78=5.
      compute mainy76=58.
      compute mainy77=58.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>10 and main26<15) and (main27=36 or main27=57).
      compute avy76=30.
      compute avy77=30.
      compute avy78=12.
      compute mainy76=58.
      compute mainy77=58.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26>10 and main26<15.
      compute avy76=30.
      compute avy77=30.
      compute avy78=17.
      compute mainy76=58.
      compute mainy77=58.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>19 and main26<30) and (main27=41 or main27=44).
      compute avy76=31.
      compute avy77=31.
      compute avy78=5.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>19 and main26<30) and (main27=42 or main27=79).
      compute avy76=31.
      compute avy77=31.
      compute avy78=5.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>19 and main26<30) and (main27=36 or main27=57).
      compute avy76=31.
      compute avy77=31.
      compute avy78=12.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26>19 and main26<30.
      compute avy76=31.
      compute avy77=31.
      compute avy78=17.
      compute mainy76=59.
      compute mainy77=59.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>29 and main26<34) and sec26=45.
      compute avy76=13.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=1.
   Else if (main26>29 and main26<34) and (main27=42 or main27=79).
      compute avy76=13.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>29 and main26<34) and (main27=57 or main27=36).
      compute avy76=13.
      compute avy77=13.
      compute avy78=12.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>29 and main26<34) and (main27=41 or main27=44 or main27=47).
      compute avy76=13.
      compute avy77=13.
      compute avy78=5.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if (main26>29 and main26<34).
      compute avy76=13.
      compute avy77=13.
      compute avy78=17.
      compute mainy76=4.
      compute mainy77=4.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=36.
      compute avy76=14.
      compute avy77=14.
      compute avy78=12.
      compute mainy76=25.
      compute mainy77=25.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=41.
      compute avy76=1.
      compute avy77=1.
      compute avy78=5.
      compute mainy76=7.
      compute mainy77=7.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      Do if sec26=45.
         compute mtravy78=1.
      Else.
         compute mtravy78=5.
      End if.
   Else if main26=42.
      compute avy76=4.
      compute avy77=4.
      compute avy78=5.
      compute mainy76=15.
      compute mainy77=15.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=43 and (main27=42 or main27=79).
      compute avy76=2.
      compute avy77=2.
      compute avy78=5.
      compute mainy76=8.
      compute mainy77=8.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
     compute mtravy78=5.
   Else if main26=43.
      compute avy76=2.
      compute avy77=2.
      compute avy78=5.
      compute mainy76=8.
      compute mainy77=8.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
     compute mtravy78=5.
   Else if main26=44.
      compute avy76=3.
      compute avy77=3.
      compute avy78=5.
      compute mainy76=9.
      compute mainy77=9.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=50 and (main27=41 or main27=44).
      compute avy76=8.
      compute avy77=8.
      compute avy78=5.
      compute mainy76=21.
      compute mainy77=21.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=50 and (main27=42 or main27=79).
      compute avy76=8.
      compute avy77=8.
      compute avy78=5.
      compute mainy76=21.
      compute mainy77=21.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=50 and (main27=57 or main27=36).
      compute avy76=8.
      compute avy77=8.
      compute avy78=12.
      compute mainy76=21.
      compute mainy77=21.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=50.
      compute avy76=8.
      compute avy77=8.
      compute avy78=17.
      compute mainy76=21.
      compute mainy77=21.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=51 and (main27=41 or main27=44 or main27=45).
      compute avy76=11.
      compute avy77=11.
      compute avy78=5.
      compute mainy76=28.
      compute mainy77=28.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=51 and (main27=42 or main27=79).
      compute avy76=11.
      compute avy77=11.
      compute avy78=5.
      compute mainy76=28.
      compute mainy77=28.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=51 and (main27=57 or main27=36).
      compute avy76=11.
      compute avy77=11.
      compute avy78=12.
      compute mainy76=28.
      compute mainy77=28.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=51.
      compute avy76=11.
      compute avy77=11.
      compute avy78=17.
      compute mainy76=28.
      compute mainy77=28.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=53 and (main27=42 or main27=79).
      compute avy76=6.
      compute avy77=6.
      compute avy78=5.
      compute mainy76=18.
      compute mainy77=18.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=53 and (main27=36 or main27=57).
      compute avy76=6.
      compute avy77=6.
      compute avy78=12.
      compute mainy76=18.
      compute mainy77=18.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=53 and (main27=41 or main27=44).
      compute avy76=6.
      compute avy77=6.
      compute avy78=5.
      compute mainy76=18.
      compute mainy77=18.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=53.
      compute avy76=6.
      compute avy77=6.
      compute avy78=17.
      compute mainy76=18.
      compute mainy77=18.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=54 and (main27=36 or main27=57).
      compute avy76=7.
      compute avy77=7.
      compute avy78=12.
      compute mainy76=20.
      compute mainy77=20.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=54 and (main27=41 or main27=44 or main27=47).
      compute avy76=7.
      compute avy77=7.
      compute avy78=5.
      compute mainy76=20.
      compute mainy77=20.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=54 and (main27=42 or main27=79).
      compute avy76=7.
      compute avy77=7.
      compute avy78=5.
      compute mainy76=20.
      compute mainy77=20.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=54.
      compute avy76=7.
      compute avy77=7.
      compute avy78=17.
      compute mainy76=20.
      compute mainy77=20.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=55 and (main27=57 or main27=36).
      compute avy76=8.
      compute avy77=8.
      compute avy78=12.
      compute mainy76=22.
      compute mainy77=22.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=55 and (main27=42 or main27=79).
      compute avy76=8.
      compute avy77=8.
      compute avy78=5.
      compute mainy76=22.
      compute mainy77=22.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=55.
      compute avy76=8.
      compute avy77=8.
      compute avy78=17.
      compute mainy76=22.
      compute mainy77=22.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=56 and (main27=41 or main27=44).
      compute avy76=8.
      compute avy77=8.
      compute avy78=5.
      compute mainy76=27.
      compute mainy77=27.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=56 and (main27=42 or main27=79).
      compute avy76=8.
      compute avy77=8.
      compute avy78=5.
      compute mainy76=27.
      compute mainy77=27.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=56 and (main27=36 or main27=57).
      compute avy76=8.
      compute avy77=8.
      compute avy78=12.
      compute mainy76=27.
      compute mainy77=27.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=56.
      compute avy76=8.
      compute avy77=8.
      compute avy78=17.
      compute mainy76=27.
      compute mainy77=27.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=57 and (main27=41 or main27=44).
      compute avy76=10.
      compute avy77=10.
      compute avy78=5.
      compute mainy76=24.
      compute mainy77=24.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=57 and (main27=42 or main27=79).
      compute avy76=10.
      compute avy77=10.
      compute avy78=5.
      compute mainy76=24.
      compute mainy77=24.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=57 and (main27=36 or main27=57).
      compute avy76=10.
      compute avy77=10.
      compute avy78=12.
      compute mainy76=24.
      compute mainy77=24.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=57.
      compute avy76=10.
      compute avy77=10.
      compute avy78=17.
      compute mainy76=24.
      compute mainy77=24.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=59.
      compute avy76=7.
      compute avy77=7.
      compute avy78=12.
      compute mainy76=23.
      compute mainy77=23.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=66.
      compute avy76=38.
      compute avy77=38.
      compute avy78=12.
      compute mainy76=48.
      compute mainy77=48.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=69 and (main27=41 or main27=44).
      compute avy76=36.
      compute avy77=36.
      compute avy78=5.
      compute mainy76=55.
      compute mainy77=55.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=69 and (main27=36 or main27=57).
      compute avy76=36.
      compute avy77=36.
      compute avy78=12.
      compute mainy76=55.
      compute mainy77=55.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=69.
      compute avy76=36.
      compute avy77=36.
      compute avy78=17.
      compute mainy76=55.
      compute mainy77=55.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=71 and main27=42.
      compute avy76=29.
      compute avy77=29.
      compute avy78=5.
      compute mainy76=48.
      compute mainy77=48.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=71 and main27=41.
      compute avy76=29.
      compute avy77=29.
      compute avy78=5.
      compute mainy76=48.
      compute mainy77=48.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=75.
      compute avy76=27.
      compute avy77=27.
      compute avy78=17.
      compute mainy76=39.
      compute mainy77=39.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=77.
      compute avy76=28.
      compute avy77=28.
      compute avy78=17.
      compute mainy76=39.
      compute mainy77=39.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=78 and (main26=41 or main26=44).
      compute avy76=22.
      compute avy77=22.
      compute avy78=5.
      compute mainy76=34.
      compute mainy77=34.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=78.
      compute avy76=22.
      compute avy77=22.
      compute avy78=17.
      compute mainy76=34.
      compute mainy77=34.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=79.
      compute avy76=4.
      compute avy77=4.
      compute avy78=5.
      compute mainy76=17.
      compute mainy77=17.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=82.
      compute avy76=20.
      compute avy77=20.
      compute avy78=17.
      compute mainy76=36.
      compute mainy77=36.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=84.
      compute avy76=18.
      compute avy77=18.
      compute avy78=17.
      compute mainy76=45.
      compute mainy77=45.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=85 or main26=86.
      compute avy76=18.
      compute avy77=18.
      compute avy78=17.
      compute mainy76=38.
      compute mainy77=38.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=91 and (main27=36 or main27=57).
      compute avy76=40.
      compute avy77=40.
      compute avy78=12.
      compute mainy76=51.
      compute mainy77=51.
      compute mainy78=67.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=91 and (main27=41 or main27=44).
      compute avy76=40.
      compute avy77=40.
      compute avy78=5.
      compute mainy76=51.
      compute mainy77=51.
      compute mainy78=63.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=91 and (main27=42 or main27=79).
      compute avy76=40.
      compute avy77=40.
      compute avy78=5.
      compute mainy76=51.
      compute mainy77=51.
      compute mainy78=64.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   Else if main26=91.
      compute avy76=40.
      compute avy77=40.
      compute avy78=17.
      compute mainy76=51.
      compute mainy77=51.
      compute mainy78=68.
      compute mtravy76=-7.
      compute mtravy77=-7.
      compute mtravy78=5.
   End if.
End if.

Do if main26=1 and main27=1 and mtmark26=0.
   compute avy76=16.
   compute avy77=16.
   compute avy78=16.
   compute mainy76=2.
   compute mainy77=2.
   compute mainy78=2.
   compute mtravy76=-7. 
   compute mtravy77=-7. 
   compute mtravy78=-7. 
Else if main26=2 and main27=2 and mtmark26=0.
   compute avy76=16.
   compute avy77=16.
   compute avy78=16.
   compute mainy76=2.
   compute mainy77=2.
   compute mainy78=2.
   compute mtravy76=-7.
   compute mtravy77=-7.
   compute mtravy78=-7.
End if.

freq avy76 avy77 avy78 mainy76 mainy77 mainy78 mtravy76 mtravy77 mtravy78.

*set values for the 27th time slot.
freq mtmark27.
*1478 missing travel cases in time slot 27.

temp.
select if mtmark27=1.
cro main27 by main28.

if main27=83 or main28=83 or main27=63 or main28=63 mtmark27=0.
if main27=34 or main27=38 or main27=62 or main27=67 or main27=81 mtmark27=0.
if main28=34 or main28=38 or main28=62 or main28=67 or main28=81 mtmark27=0.
if main27=main28 mtmark27=0.
if main27=1 or main27=61 or main28=61 or main28=72 or main28=50 mtmark27=0.
if main27=59 and main28>57 mtmark27=0.
if main27=60 or main27=64 or main27=66 or main27=68 or main27=70 or 
   main27=71 or main27=72 or main27=73 or main27=35 or main27=52 or 
   main27=65 or main27=74 or main27=80 or main27=82 or main27=99 or
   main27=76 or main27=49 mtmark27=0.
if main27=84 and main27=52 mtmark12=0.
*errors fixed, 583 cases remain.

temp.
select if sec27=45.
cro main27 by main28 by mtmark27.

Do if mtmark27=0.
   Do if main27>95.
      compute avy79=41.
      compute avy80=41.
      compute avy81=41.
      compute mainy79=69.
      compute mainy80=69.
      compute mainy81=69.
      compute mtravy79=-8.
      compute mtravy80=-8.
      compute mtravy81=-8.
   Else if main27=1.
      compute avy79=16.
      compute avy80=16.
      compute avy81=13.
      compute mainy79=2.
      compute mainy80=2.
      compute mainy81=4.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=-7. 
   Else if main27=2.
      compute avy79=16.
      compute avy80=16.
      compute avy81=36.
      compute mainy79=2.
      compute mainy80=2.
      compute mainy81=55.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=3 or main27=4.
      compute avy79=16.
      compute avy80=16.
      compute avy81=16.
      compute mainy79=2.
      compute mainy80=2.
      compute mainy81=2.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=-7. 
   Else if main27=5.
      compute avy79=16.
      compute avy80=16.
      compute avy81=16.
      compute mainy79=3.
      compute mainy80=3.
      compute mainy81=3.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=6.
      compute avy79=13.
      compute avy80=13.
      compute avy81=13.
      compute mainy79=1.
      compute mainy80=1.
      compute mainy81=1.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27>6 and main27<20.
      compute avy79=30.
      compute avy80=30.
      compute avy81=30.
      compute mainy79=58.
      compute mainy80=58.
      compute mainy81=58.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27>19 and main27<30.
      compute avy79=31.
      compute avy80=31.
      compute avy81=31.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=59.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27>29 and main27<34.
      compute avy79=13.
      compute avy80=13.
      compute avy81=13.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=4.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=34 and sec27=45.
      compute avy79=15.
      compute avy80=15.
      compute avy81=5.
      compute mainy79=6.
      compute mainy80=6.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=1.
   Else if main27=34 or main27=35 or ((main27=38 or main27=39) and loc27=1).
      compute avy79=15.
      compute avy80=15.
      compute avy81=15.
      compute mainy79=6.
      compute mainy80=6.
      compute mainy81=6.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=36.
      compute avy79=14.
      compute avy80=14.
      compute avy81=14.
      compute mainy79=25.
      compute mainy80=25.
      compute mainy81=25.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=37.
      compute avy79=12.
      compute avy80=12.
      compute avy81=12.
      compute mainy79=67.
      compute mainy80=67.
      compute mainy81=67.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=40.
      compute avy79=1.
      compute avy80=1.
      compute avy81=1.
      compute mainy79=13.
      compute mainy80=13.
      compute mainy81=13.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=41.
      compute avy79=1.
      compute avy80=1.
      compute avy81=1.
      compute mainy79=7.
      compute mainy80=7.
      compute mainy81=7.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=42.
      compute avy79=4.
      compute avy80=4.
      compute avy81=4.
      compute mainy79=15.
      compute mainy80=15.
      compute mainy81=15.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=43.
      compute avy79=2.
      compute avy80=2.
      compute avy81=2.
      compute mainy79=8.
      compute mainy80=8.
      compute mainy81=8.
      compute mtravy79=-7.
      compute mtravy80=-7.
     compute mtravy81=-7.
   Else if main27=44.
      compute avy79=3.
      compute avy80=3.
      compute avy81=3.
      compute mainy79=9.
      compute mainy80=9.
      compute mainy81=9.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=45 and (main28=42 or main28=79).
      compute avy79=5.
      compute avy80=5.
      compute avy81=5.
      compute mainy79=64.
      compute mainy80=64.
      compute mainy81=64.
      compute mtravy79=1.
      compute mtravy80=1.
      compute mtravy81=1.
   Else if (main27=46 or main27=47) and (main28=42 or main28=79).
      compute avy79=5.
      compute avy80=5.
      compute avy81=5.
      compute mainy79=64.
      compute mainy80=64.
      compute mainy81=64.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=45.
      compute avy79=5.
      compute avy80=5.
      compute avy81=5.
      compute mainy79=63.
      compute mainy80=63.
      compute mainy81=63.
      compute mtravy79=1.
      compute mtravy80=1.
      compute mtravy81=1.
   Else if main27=46 or main27=47.
      compute avy79=5.
      compute avy80=5.
      compute avy81=5.
      compute mainy79=63.
      compute mainy80=63.
      compute mainy81=63.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=48.
      compute avy79=5.
      compute avy80=5.
      compute avy81=5.
      compute mainy79=11.
      compute mainy80=11.
      compute mainy81=11.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=49.
      compute avy79=1.
      compute avy80=1.
      compute avy81=1.
      compute mainy79=5.
      compute mainy80=5.
      compute mainy81=5.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=50.
      compute avy79=8.
      compute avy80=8.
      compute avy81=8.
      compute mainy79=21.
      compute mainy80=21.
      compute mainy81=21.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=51.
      compute avy79=11.
      compute avy80=11.
      compute avy81=11.
      compute mainy79=28.
      compute mainy80=28.
      compute mainy81=28.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=52.
      compute avy79=11.
      compute avy80=11.
      compute avy81=11.
      compute mainy79=30.
      compute mainy80=30.
      compute mainy81=30.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=53.
      compute avy79=6.
      compute avy80=6.
      compute avy81=6.
      compute mainy79=18.
      compute mainy80=18.
      compute mainy81=18.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=54.
      compute avy79=7.
      compute avy80=7.
      compute avy81=7.
      compute mainy79=20.
      compute mainy80=20.
      compute mainy81=20.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=55.
      compute avy79=8.
      compute avy80=8.
      compute avy81=8.
      compute mainy79=22.
      compute mainy80=22.
      compute mainy81=22.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=56.
      compute avy79=8.
      compute avy80=8.
      compute avy81=8.
      compute mainy79=27.
      compute mainy80=27.
      compute mainy81=27.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=57.
      compute avy79=10.
      compute avy80=10.
      compute avy81=10.
      compute mainy79=24.
      compute mainy80=24.
      compute mainy81=24.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=58.
      compute avy79=12.
      compute avy80=12.
      compute avy81=12.
      compute mainy79=66.
      compute mainy80=66.
      compute mainy81=66.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=59.
      compute avy79=7.
      compute avy80=7.
      compute avy81=13.
      compute mainy79=23.
      compute mainy80=23.
      compute mainy81=4.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=60.
      compute avy79=9.
      compute avy80=9.
      compute avy81=9.
      compute mainy79=46.
      compute mainy80=46.
      compute mainy81=46.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=61.
      compute avy79=33.
      compute avy80=33.
      compute avy81=33.
      compute mainy79=16.
      compute mainy80=16.
      compute mainy81=16.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=62.
      compute avy79=34.
      compute avy80=34.
      compute avy81=34.
      compute mainy79=56.
      compute mainy80=56.
      compute mainy81=56.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=63.
      compute avy79=35.
      compute avy80=35.
      compute avy81=35.
      compute mainy79=56.
      compute mainy80=56.
      compute mainy81=56.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=64.
      compute avy79=40.
      compute avy80=40.
      compute avy81=40.
      compute mainy79=54.
      compute mainy80=54.
      compute mainy81=54.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=65.
      compute avy79=39.
      compute avy80=39.
      compute avy81=39.
      compute mainy79=54.
      compute mainy80=54.
      compute mainy81=54.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=66.
      compute avy79=38.
      compute avy80=38.
      compute avy81=38.
      compute mainy79=48.
      compute mainy80=48.
      compute mainy81=48.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=67.
      compute avy79=37.
      compute avy80=37.
      compute avy81=37.
      compute mainy79=49.
      compute mainy80=49.
      compute mainy81=49.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=68.
      compute avy79=32.
      compute avy80=32.
      compute avy81=32.
      compute mainy79=57.
      compute mainy80=57.
      compute mainy81=57.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=69.
      compute avy79=36.
      compute avy80=36.
      compute avy81=36.
      compute mainy79=55.
      compute mainy80=55.
      compute mainy81=55.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=70.
      compute avy79=25.
      compute avy80=25.
      compute avy81=25.
      compute mainy79=35.
      compute mainy80=35.
      compute mainy81=35.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=71.
      compute avy79=29.
      compute avy80=29.
      compute avy81=29.
      compute mainy79=48.
      compute mainy80=48.
      compute mainy81=48.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=72.
      compute avy79=24.
      compute avy80=24.
      compute avy81=24.
      compute mainy79=37.
      compute mainy80=37.
      compute mainy81=37.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=73.
      compute avy79=23.
      compute avy80=23.
      compute avy81=23.
      compute mainy79=33.
      compute mainy80=33.
      compute mainy81=33.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=74.
      compute avy79=26.
      compute avy80=26.
      compute avy81=26.
      compute mainy79=40.
      compute mainy80=40.
      compute mainy81=40.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=75 or main27=39.
      compute avy79=27.
      compute avy80=27.
      compute avy81=27.
      compute mainy79=39.
      compute mainy80=39.
      compute mainy81=39.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=76.
      compute avy79=25.
      compute avy80=25.
      compute avy81=25.
      compute mainy79=40.
      compute mainy80=40.
      compute mainy81=40.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=77 or main27=38.
      compute avy79=28.
      compute avy80=28.
      compute avy81=28.
      compute mainy79=39.
      compute mainy80=39.
      compute mainy81=39.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=78.
      compute avy79=22.
      compute avy80=22.
      compute avy81=22.
      compute mainy79=34.
      compute mainy80=34.
      compute mainy81=34.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=79.
      compute avy79=4.
      compute avy80=4.
      compute avy81=4.
      compute mainy79=17.
      compute mainy80=17.
      compute mainy81=17.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=80.
      compute avy79=18.
      compute avy80=18.
      compute avy81=18.
      compute mainy79=38.
      compute mainy80=38.
      compute mainy81=38.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=81.
      compute avy79=19.
      compute avy80=19.
      compute avy81=19.
      compute mainy79=42.
      compute mainy80=42.
      compute mainy81=42.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=82.
      compute avy79=20.
      compute avy80=20.
      compute avy81=20.
      compute mainy79=36.
      compute mainy80=36.
      compute mainy81=36.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=83.
      compute avy79=21.
      compute avy80=21.
      compute avy81=21.
      compute mainy79=43.
      compute mainy80=43.
      compute mainy81=43.
      compute mtravy79=3.
      compute mtravy80=3.
      compute mtravy81=3.
   Else if main27=84.
      compute avy79=18.
      compute avy80=18.
      compute avy81=18.
      compute mainy79=45.
      compute mainy80=45.
      compute mainy81=45.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=85 or main27=86.
      compute avy79=18.
      compute avy80=18.
      compute avy81=18.
      compute mainy79=38.
      compute mainy80=38.
      compute mainy81=38.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=89.
      compute avy79=17.
      compute avy80=17.
      compute avy81=17.
      compute mainy79=68.
      compute mainy80=68.
      compute mainy81=68.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=90.
      compute avy79=17.
      compute avy80=17.
      compute avy81=17.
      compute mainy79=62.
      compute mainy80=62.
      compute mainy81=62.
      compute mtravy79=5.
      compute mtravy80=5.
      compute mtravy81=5.
   Else if main27=91.
      compute avy79=40.
      compute avy80=40.
      compute avy81=40.
      compute mainy79=51.
      compute mainy80=51.
      compute mainy81=51.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=92.
      compute avy79=31.
      compute avy80=31.
      compute avy81=31.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=59.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   Else if main27=93.
      compute avy79=41.
      compute avy80=41.
      compute avy81=41.
      compute mainy79=41.
      compute mainy80=41.
      compute mainy81=41.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=-7.
   End if.
Else if mtmark27=1.
   Do if main27=2 and (main28=42 or main28=79).
      compute avy79=16.
      compute avy80=36.
      compute avy81=5.
      compute mainy79=2.
      compute mainy80=55.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=2 and (main28=41 or main28=44).
      compute avy79=16.
      compute avy80=36.
      compute avy81=5.
      compute mainy79=2.
      compute mainy80=55.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=2 and (main28=36 or main28=57).
      compute avy79=16.
      compute avy80=36.
      compute avy81=12.
      compute mainy79=2.
      compute mainy80=55.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=2.
      compute avy79=16.
      compute avy80=36.
      compute avy81=17.
      compute mainy79=2.
      compute mainy80=55.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27=3 or main27=4) and (main28=42 or main28=79).
      compute avy79=16.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=2.
      compute mainy80=4.
      compute mainy81=64.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=5. 
   Else if (main27=3 or main27=4) and (main28=41 or main28=44).
      compute avy79=16.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=2.
      compute mainy80=4.
      compute mainy81=63.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=5. 
   Else if (main27=3 or main27=4) and (main28=36 or main28=57).
      compute avy79=16.
      compute avy80=13.
      compute avy81=12.
      compute mainy79=2.
      compute mainy80=4.
      compute mainy81=67.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=5. 
   Else if (main27=3 or main27=4).
      compute avy79=16.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=2.
      compute mainy80=4.
      compute mainy81=63.
      compute mtravy79=-7. 
      compute mtravy80=-7. 
      compute mtravy81=5.
   Else if main27=6 and (main28=41 or main28=44).
      compute avy79=13.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=1.
      compute mainy80=1.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=6 and (main28=42 or main28=79).
      compute avy79=13.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=1.
      compute mainy80=1.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=6 and (main28=36 or main28=57).
      compute avy79=13.
      compute avy80=13.
      compute avy81=12.
      compute mainy79=1.
      compute mainy80=1.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=6.
      compute avy79=13.
      compute avy80=13.
      compute avy81=17.
      compute mainy79=1.
      compute mainy80=1.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>10 and main27<15) and (main28=42 or main28=79).
      compute avy79=30.
      compute avy80=30.
      compute avy81=5.
      compute mainy79=58.
      compute mainy80=58.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>10 and main27<15) and (main28=41 or main28=44).
      compute avy79=30.
      compute avy80=30.
      compute avy81=5.
      compute mainy79=58.
      compute mainy80=58.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>10 and main27<15) and (main28=36 or main28=57).
      compute avy79=30.
      compute avy80=30.
      compute avy81=12.
      compute mainy79=58.
      compute mainy80=58.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27>10 and main27<15.
      compute avy79=30.
      compute avy80=30.
      compute avy81=17.
      compute mainy79=58.
      compute mainy80=58.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>19 and main27<30) and (main28=41 or main28=44).
      compute avy79=31.
      compute avy80=31.
      compute avy81=5.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>19 and main27<30) and (main28=42 or main28=79).
      compute avy79=31.
      compute avy80=31.
      compute avy81=5.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>19 and main27<30) and (main28=36 or main28=57).
      compute avy79=31.
      compute avy80=31.
      compute avy81=12.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27>19 and main27<30.
      compute avy79=31.
      compute avy80=31.
      compute avy81=17.
      compute mainy79=59.
      compute mainy80=59.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>29 and main27<34) and sec27=45.
      compute avy79=13.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=1.
   Else if (main27>29 and main27<34) and (main28=42 or main28=79).
      compute avy79=13.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>29 and main27<34) and (main28=57 or main28=36).
      compute avy79=13.
      compute avy80=13.
      compute avy81=12.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>29 and main27<34) and (main28=41 or main28=44 or main28=47).
      compute avy79=13.
      compute avy80=13.
      compute avy81=5.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if (main27>29 and main27<34).
      compute avy79=13.
      compute avy80=13.
      compute avy81=17.
      compute mainy79=4.
      compute mainy80=4.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=36.
      compute avy79=14.
      compute avy80=14.
      compute avy81=12.
      compute mainy79=25.
      compute mainy80=25.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=41.
      compute avy79=1.
      compute avy80=1.
      compute avy81=5.
      compute mainy79=7.
      compute mainy80=7.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      Do if sec27=45.
         compute mtravy81=5.
      Else.
         compute mtravy81=5.
      End if.
   Else if main27=42.
      compute avy79=4.
      compute avy80=4.
      compute avy81=5.
      compute mainy79=15.
      compute mainy80=15.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=43 and (main28=42 or main28=79).
      compute avy79=2.
      compute avy80=2.
      compute avy81=5.
      compute mainy79=8.
      compute mainy80=8.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
     compute mtravy81=5.
   Else if main27=43.
      compute avy79=2.
      compute avy80=2.
      compute avy81=5.
      compute mainy79=8.
      compute mainy80=8.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
     compute mtravy81=5.
   Else if main27=44.
      compute avy79=3.
      compute avy80=3.
      compute avy81=5.
      compute mainy79=9.
      compute mainy80=9.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=50 and (main28=41 or main28=44).
      compute avy79=8.
      compute avy80=8.
      compute avy81=5.
      compute mainy79=21.
      compute mainy80=21.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=50 and (main28=42 or main28=79).
      compute avy79=8.
      compute avy80=8.
      compute avy81=5.
      compute mainy79=21.
      compute mainy80=21.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=50 and (main28=57 or main28=36).
      compute avy79=8.
      compute avy80=8.
      compute avy81=12.
      compute mainy79=21.
      compute mainy80=21.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=50.
      compute avy79=8.
      compute avy80=8.
      compute avy81=17.
      compute mainy79=21.
      compute mainy80=21.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=51 and (main28=41 or main28=44 or main28=45).
      compute avy79=11.
      compute avy80=11.
      compute avy81=5.
      compute mainy79=28.
      compute mainy80=28.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=51 and (main28=42 or main28=79).
      compute avy79=11.
      compute avy80=11.
      compute avy81=5.
      compute mainy79=28.
      compute mainy80=28.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=51 and (main28=57 or main28=36).
      compute avy79=11.
      compute avy80=11.
      compute avy81=12.
      compute mainy79=28.
      compute mainy80=28.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=51.
      compute avy79=11.
      compute avy80=11.
      compute avy81=17.
      compute mainy79=28.
      compute mainy80=28.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=53 and (main28=42 or main28=79).
      compute avy79=6.
      compute avy80=6.
      compute avy81=5.
      compute mainy79=18.
      compute mainy80=18.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=53 and (main28=36 or main28=57).
      compute avy79=6.
      compute avy80=6.
      compute avy81=12.
      compute mainy79=18.
      compute mainy80=18.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=53 and (main28=41 or main28=44).
      compute avy79=6.
      compute avy80=6.
      compute avy81=5.
      compute mainy79=18.
      compute mainy80=18.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=53.
      compute avy79=6.
      compute avy80=6.
      compute avy81=17.
      compute mainy79=18.
      compute mainy80=18.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=54 and (main28=36 or main28=57).
      compute avy79=7.
      compute avy80=7.
      compute avy81=12.
      compute mainy79=20.
      compute mainy80=20.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=54 and (main28=41 or main28=44 or main28=47).
      compute avy79=7.
      compute avy80=7.
      compute avy81=5.
      compute mainy79=20.
      compute mainy80=20.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=54 and (main28=42 or main28=79).
      compute avy79=7.
      compute avy80=7.
      compute avy81=5.
      compute mainy79=20.
      compute mainy80=20.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=54.
      compute avy79=7.
      compute avy80=7.
      compute avy81=17.
      compute mainy79=20.
      compute mainy80=20.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=55 and (main28=57 or main28=36).
      compute avy79=8.
      compute avy80=8.
      compute avy81=12.
      compute mainy79=22.
      compute mainy80=22.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=55 and (main28=42 or main28=79).
      compute avy79=8.
      compute avy80=8.
      compute avy81=5.
      compute mainy79=22.
      compute mainy80=22.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=55.
      compute avy79=8.
      compute avy80=8.
      compute avy81=17.
      compute mainy79=22.
      compute mainy80=22.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=56 and (main28=41 or main28=44).
      compute avy79=8.
      compute avy80=8.
      compute avy81=5.
      compute mainy79=27.
      compute mainy80=27.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=56 and (main28=42 or main28=79).
      compute avy79=8.
      compute avy80=8.
      compute avy81=5.
      compute mainy79=27.
      compute mainy80=27.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=56 and (main28=36 or main28=57).
      compute avy79=8.
      compute avy80=8.
      compute avy81=12.
      compute mainy79=27.
      compute mainy80=27.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=56.
      compute avy79=8.
      compute avy80=8.
      compute avy81=17.
      compute mainy79=27.
      compute mainy80=27.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=57 and (main28=41 or main28=44).
      compute avy79=10.
      compute avy80=10.
      compute avy81=5.
      compute mainy79=24.
      compute mainy80=24.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=57 and (main28=42 or main28=79).
      compute avy79=10.
      compute avy80=10.
      compute avy81=5.
      compute mainy79=24.
      compute mainy80=24.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=57 and (main28=36 or main28=57).
      compute avy79=10.
      compute avy80=10.
      compute avy81=12.
      compute mainy79=24.
      compute mainy80=24.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=57.
      compute avy79=10.
      compute avy80=10.
      compute avy81=17.
      compute mainy79=24.
      compute mainy80=24.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=59.
      compute avy79=7.
      compute avy80=7.
      compute avy81=12.
      compute mainy79=23.
      compute mainy80=23.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=66.
      compute avy79=38.
      compute avy80=38.
      compute avy81=12.
      compute mainy79=48.
      compute mainy80=48.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=69 and (main28=41 or main28=44).
      compute avy79=36.
      compute avy80=36.
      compute avy81=5.
      compute mainy79=55.
      compute mainy80=55.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=69 and (main28=36 or main28=57).
      compute avy79=36.
      compute avy80=36.
      compute avy81=12.
      compute mainy79=55.
      compute mainy80=55.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=69.
      compute avy79=36.
      compute avy80=36.
      compute avy81=17.
      compute mainy79=55.
      compute mainy80=55.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=71 and main28=42.
      compute avy79=29.
      compute avy80=29.
      compute avy81=5.
      compute mainy79=48.
      compute mainy80=48.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=71 and main28=41.
      compute avy79=29.
      compute avy80=29.
      compute avy81=5.
      compute mainy79=48.
      compute mainy80=48.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=75.
      compute avy79=27.
      compute avy80=27.
      compute avy81=17.
      compute mainy79=39.
      compute mainy80=39.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=77.
      compute avy79=28.
      compute avy80=28.
      compute avy81=17.
      compute mainy79=39.
      compute mainy80=39.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=78 and (main27=41 or main27=44).
      compute avy79=22.
      compute avy80=22.
      compute avy81=5.
      compute mainy79=34.
      compute mainy80=34.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=78.
      compute avy79=22.
      compute avy80=22.
      compute avy81=17.
      compute mainy79=34.
      compute mainy80=34.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=79.
      compute avy79=4.
      compute avy80=4.
      compute avy81=5.
      compute mainy79=17.
      compute mainy80=17.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=82.
      compute avy79=20.
      compute avy80=20.
      compute avy81=17.
      compute mainy79=36.
      compute mainy80=36.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=84.
      compute avy79=18.
      compute avy80=18.
      compute avy81=17.
      compute mainy79=45.
      compute mainy80=45.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=85 or main27=86.
      compute avy79=18.
      compute avy80=18.
      compute avy81=17.
      compute mainy79=38.
      compute mainy80=38.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=91 and (main28=36 or main28=57).
      compute avy79=40.
      compute avy80=40.
      compute avy81=12.
      compute mainy79=51.
      compute mainy80=51.
      compute mainy81=67.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=91 and (main28=41 or main28=44).
      compute avy79=40.
      compute avy80=40.
      compute avy81=5.
      compute mainy79=51.
      compute mainy80=51.
      compute mainy81=63.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=91 and (main28=42 or main28=79).
      compute avy79=40.
      compute avy80=40.
      compute avy81=5.
      compute mainy79=51.
      compute mainy80=51.
      compute mainy81=64.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   Else if main27=91.
      compute avy79=40.
      compute avy80=40.
      compute avy81=17.
      compute mainy79=51.
      compute mainy80=51.
      compute mainy81=68.
      compute mtravy79=-7.
      compute mtravy80=-7.
      compute mtravy81=5.
   End if.
End if.

Do if main27=1 and main28=1 and mtmark27=0.
   compute avy79=16.
   compute avy80=16.
   compute avy81=16.
   compute mainy79=2.
   compute mainy80=2.
   compute mainy81=2.
   compute mtravy79=-7. 
   compute mtravy80=-7. 
   compute mtravy81=-7. 
Else if main27=2 and main28=2 and mtmark27=0.
   compute avy79=16.
   compute avy80=16.
   compute avy81=16.
   compute mainy79=2.
   compute mainy80=2.
   compute mainy81=2.
   compute mtravy79=-7.
   compute mtravy80=-7.
   compute mtravy81=-7.
End if.

freq avy79 avy80 avy81 mainy79 mainy80 mainy81 mtravy79 mtravy80 mtravy81.

*set values for the 28th time slot.
freq mtmark28.
*1542 missing travel cases in time slot 28.

temp.
select if mtmark28=1.
cro main28 by main29.

if main28=83 or main29=83 or main28=63 or main29=63 mtmark28=0.
if main28=34 or main28=38 or main28=62 or main28=67 or main28=81 mtmark28=0.
if main29=34 or main29=38 or main29=62 or main29=67 or main29=81 mtmark28=0.
if main28=main29 mtmark28=0.
if main28=1 or main28=61 or main29=61 or main29=72 or main29=50 mtmark28=0.
if main28=59 and main29>57 mtmark28=0.
if main28=60 or main28=64 or main28=66 or main28=68 or main28=70 or 
   main28=71 or main28=72 or main28=73 or main28=35 or main28=52 or 
   main28=65 or main28=74 or main28=80 or main28=82 or main28=99 or
   main28=76 or main28=49 mtmark28=0.
if main28=84 and main28=52 mtmark12=0.
*errors fixed, 623 cases remain.

temp.
select if sec28=45.
cro main28 by main29 by mtmark28.

Do if mtmark28=0.
   Do if main28>95.
      compute avy82=41.
      compute avy83=41.
      compute avy84=41.
      compute mainy82=69.
      compute mainy83=69.
      compute mainy84=69.
      compute mtravy82=-8.
      compute mtravy83=-8.
      compute mtravy84=-8.
   Else if main28=1.
      compute avy82=16.
      compute avy83=16.
      compute avy84=13.
      compute mainy82=2.
      compute mainy83=2.
      compute mainy84=4.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=-7. 
   Else if main28=2.
      compute avy82=16.
      compute avy83=16.
      compute avy84=36.
      compute mainy82=2.
      compute mainy83=2.
      compute mainy84=55.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=3 or main28=4.
      compute avy82=16.
      compute avy83=16.
      compute avy84=16.
      compute mainy82=2.
      compute mainy83=2.
      compute mainy84=2.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=-7. 
   Else if main28=5.
      compute avy82=16.
      compute avy83=16.
      compute avy84=16.
      compute mainy82=3.
      compute mainy83=3.
      compute mainy84=3.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=6.
      compute avy82=13.
      compute avy83=13.
      compute avy84=13.
      compute mainy82=1.
      compute mainy83=1.
      compute mainy84=1.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28>6 and main28<20.
      compute avy82=30.
      compute avy83=30.
      compute avy84=30.
      compute mainy82=58.
      compute mainy83=58.
      compute mainy84=58.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28>19 and main28<30.
      compute avy82=31.
      compute avy83=31.
      compute avy84=31.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=59.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28>29 and main28<34.
      compute avy82=13.
      compute avy83=13.
      compute avy84=13.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=4.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=34 and sec28=45.
      compute avy82=15.
      compute avy83=15.
      compute avy84=5.
      compute mainy82=6.
      compute mainy83=6.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=1.
   Else if main28=34 or main28=35 or ((main28=38 or main28=39) and loc28=1).
      compute avy82=15.
      compute avy83=15.
      compute avy84=15.
      compute mainy82=6.
      compute mainy83=6.
      compute mainy84=6.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=36.
      compute avy82=14.
      compute avy83=14.
      compute avy84=14.
      compute mainy82=25.
      compute mainy83=25.
      compute mainy84=25.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=37.
      compute avy82=12.
      compute avy83=12.
      compute avy84=12.
      compute mainy82=67.
      compute mainy83=67.
      compute mainy84=67.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=40.
      compute avy82=1.
      compute avy83=1.
      compute avy84=1.
      compute mainy82=13.
      compute mainy83=13.
      compute mainy84=13.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=41 and sec28=45.
      compute avy82=1.
      compute avy83=1.
      compute avy84=5.
      compute mainy82=7.
      compute mainy83=7.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=1.
   Else if main28=41.
      compute avy82=1.
      compute avy83=1.
      compute avy84=1.
      compute mainy82=7.
      compute mainy83=7.
      compute mainy84=7.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=42.
      compute avy82=4.
      compute avy83=4.
      compute avy84=4.
      compute mainy82=15.
      compute mainy83=15.
      compute mainy84=15.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=43.
      compute avy82=2.
      compute avy83=2.
      compute avy84=2.
      compute mainy82=8.
      compute mainy83=8.
      compute mainy84=8.
      compute mtravy82=-7.
      compute mtravy83=-7.
     compute mtravy84=-7.
   Else if main28=44.
      compute avy82=3.
      compute avy83=3.
      compute avy84=3.
      compute mainy82=9.
      compute mainy83=9.
      compute mainy84=9.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=45 and (main29=42 or main29=79).
      compute avy82=5.
      compute avy83=5.
      compute avy84=5.
      compute mainy82=64.
      compute mainy83=64.
      compute mainy84=64.
      compute mtravy82=1.
      compute mtravy83=1.
      compute mtravy84=1.
   Else if (main28=46 or main28=47) and (main29=42 or main29=79).
      compute avy82=5.
      compute avy83=5.
      compute avy84=5.
      compute mainy82=64.
      compute mainy83=64.
      compute mainy84=64.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=45.
      compute avy82=5.
      compute avy83=5.
      compute avy84=5.
      compute mainy82=63.
      compute mainy83=63.
      compute mainy84=63.
      compute mtravy82=1.
      compute mtravy83=1.
      compute mtravy84=1.
   Else if main28=46 or main28=47.
      compute avy82=5.
      compute avy83=5.
      compute avy84=5.
      compute mainy82=63.
      compute mainy83=63.
      compute mainy84=63.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=48.
      compute avy82=5.
      compute avy83=5.
      compute avy84=5.
      compute mainy82=11.
      compute mainy83=11.
      compute mainy84=11.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=49.
      compute avy82=1.
      compute avy83=1.
      compute avy84=1.
      compute mainy82=5.
      compute mainy83=5.
      compute mainy84=5.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=50.
      compute avy82=8.
      compute avy83=8.
      compute avy84=8.
      compute mainy82=21.
      compute mainy83=21.
      compute mainy84=21.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=51.
      compute avy82=11.
      compute avy83=11.
      compute avy84=11.
      compute mainy82=28.
      compute mainy83=28.
      compute mainy84=28.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=52.
      compute avy82=11.
      compute avy83=11.
      compute avy84=11.
      compute mainy82=30.
      compute mainy83=30.
      compute mainy84=30.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=53.
      compute avy82=6.
      compute avy83=6.
      compute avy84=6.
      compute mainy82=18.
      compute mainy83=18.
      compute mainy84=18.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=54.
      compute avy82=7.
      compute avy83=7.
      compute avy84=7.
      compute mainy82=20.
      compute mainy83=20.
      compute mainy84=20.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=55.
      compute avy82=8.
      compute avy83=8.
      compute avy84=8.
      compute mainy82=22.
      compute mainy83=22.
      compute mainy84=22.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=56.
      compute avy82=8.
      compute avy83=8.
      compute avy84=8.
      compute mainy82=27.
      compute mainy83=27.
      compute mainy84=27.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=57.
      compute avy82=10.
      compute avy83=10.
      compute avy84=10.
      compute mainy82=24.
      compute mainy83=24.
      compute mainy84=24.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=58.
      compute avy82=12.
      compute avy83=12.
      compute avy84=12.
      compute mainy82=66.
      compute mainy83=66.
      compute mainy84=66.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=59.
      compute avy82=7.
      compute avy83=7.
      compute avy84=13.
      compute mainy82=23.
      compute mainy83=23.
      compute mainy84=4.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=60.
      compute avy82=9.
      compute avy83=9.
      compute avy84=9.
      compute mainy82=46.
      compute mainy83=46.
      compute mainy84=46.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=61.
      compute avy82=33.
      compute avy83=33.
      compute avy84=33.
      compute mainy82=16.
      compute mainy83=16.
      compute mainy84=16.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=62.
      compute avy82=34.
      compute avy83=34.
      compute avy84=34.
      compute mainy82=56.
      compute mainy83=56.
      compute mainy84=56.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=63.
      compute avy82=35.
      compute avy83=35.
      compute avy84=35.
      compute mainy82=56.
      compute mainy83=56.
      compute mainy84=56.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=64.
      compute avy82=40.
      compute avy83=40.
      compute avy84=40.
      compute mainy82=54.
      compute mainy83=54.
      compute mainy84=54.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=65.
      compute avy82=39.
      compute avy83=39.
      compute avy84=39.
      compute mainy82=54.
      compute mainy83=54.
      compute mainy84=54.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=66.
      compute avy82=38.
      compute avy83=38.
      compute avy84=38.
      compute mainy82=48.
      compute mainy83=48.
      compute mainy84=48.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=67.
      compute avy82=37.
      compute avy83=37.
      compute avy84=37.
      compute mainy82=49.
      compute mainy83=49.
      compute mainy84=49.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=68.
      compute avy82=32.
      compute avy83=32.
      compute avy84=32.
      compute mainy82=57.
      compute mainy83=57.
      compute mainy84=57.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=69.
      compute avy82=36.
      compute avy83=36.
      compute avy84=36.
      compute mainy82=55.
      compute mainy83=55.
      compute mainy84=55.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=70.
      compute avy82=25.
      compute avy83=25.
      compute avy84=25.
      compute mainy82=35.
      compute mainy83=35.
      compute mainy84=35.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=71.
      compute avy82=29.
      compute avy83=29.
      compute avy84=29.
      compute mainy82=48.
      compute mainy83=48.
      compute mainy84=48.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=72.
      compute avy82=24.
      compute avy83=24.
      compute avy84=24.
      compute mainy82=37.
      compute mainy83=37.
      compute mainy84=37.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=73.
      compute avy82=23.
      compute avy83=23.
      compute avy84=23.
      compute mainy82=33.
      compute mainy83=33.
      compute mainy84=33.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=74.
      compute avy82=26.
      compute avy83=26.
      compute avy84=26.
      compute mainy82=40.
      compute mainy83=40.
      compute mainy84=40.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=75 or main28=39.
      compute avy82=27.
      compute avy83=27.
      compute avy84=27.
      compute mainy82=39.
      compute mainy83=39.
      compute mainy84=39.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=76.
      compute avy82=25.
      compute avy83=25.
      compute avy84=25.
      compute mainy82=40.
      compute mainy83=40.
      compute mainy84=40.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=77 or main28=38.
      compute avy82=28.
      compute avy83=28.
      compute avy84=28.
      compute mainy82=39.
      compute mainy83=39.
      compute mainy84=39.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=78.
      compute avy82=22.
      compute avy83=22.
      compute avy84=22.
      compute mainy82=34.
      compute mainy83=34.
      compute mainy84=34.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=79.
      compute avy82=4.
      compute avy83=4.
      compute avy84=4.
      compute mainy82=17.
      compute mainy83=17.
      compute mainy84=17.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=80.
      compute avy82=18.
      compute avy83=18.
      compute avy84=18.
      compute mainy82=38.
      compute mainy83=38.
      compute mainy84=38.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=81.
      compute avy82=19.
      compute avy83=19.
      compute avy84=19.
      compute mainy82=42.
      compute mainy83=42.
      compute mainy84=42.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=82.
      compute avy82=20.
      compute avy83=20.
      compute avy84=20.
      compute mainy82=36.
      compute mainy83=36.
      compute mainy84=36.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=83.
      compute avy82=21.
      compute avy83=21.
      compute avy84=21.
      compute mainy82=43.
      compute mainy83=43.
      compute mainy84=43.
      compute mtravy82=3.
      compute mtravy83=3.
      compute mtravy84=3.
   Else if main28=84.
      compute avy82=18.
      compute avy83=18.
      compute avy84=18.
      compute mainy82=45.
      compute mainy83=45.
      compute mainy84=45.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=85 or main28=86.
      compute avy82=18.
      compute avy83=18.
      compute avy84=18.
      compute mainy82=38.
      compute mainy83=38.
      compute mainy84=38.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=89.
      compute avy82=17.
      compute avy83=17.
      compute avy84=17.
      compute mainy82=68.
      compute mainy83=68.
      compute mainy84=68.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=90.
      compute avy82=17.
      compute avy83=17.
      compute avy84=17.
      compute mainy82=62.
      compute mainy83=62.
      compute mainy84=62.
      compute mtravy82=5.
      compute mtravy83=5.
      compute mtravy84=5.
   Else if main28=91.
      compute avy82=40.
      compute avy83=40.
      compute avy84=40.
      compute mainy82=51.
      compute mainy83=51.
      compute mainy84=51.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=92.
      compute avy82=31.
      compute avy83=31.
      compute avy84=31.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=59.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   Else if main28=93.
      compute avy82=41.
      compute avy83=41.
      compute avy84=41.
      compute mainy82=41.
      compute mainy83=41.
      compute mainy84=41.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=-7.
   End if.
Else if mtmark28=1.
   Do if main28=2 and (main29=42 or main29=79).
      compute avy82=16.
      compute avy83=36.
      compute avy84=5.
      compute mainy82=2.
      compute mainy83=55.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=2 and (main29=41 or main29=44).
      compute avy82=16.
      compute avy83=36.
      compute avy84=5.
      compute mainy82=2.
      compute mainy83=55.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=2 and (main29=36 or main29=57).
      compute avy82=16.
      compute avy83=36.
      compute avy84=12.
      compute mainy82=2.
      compute mainy83=55.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=2.
      compute avy82=16.
      compute avy83=36.
      compute avy84=17.
      compute mainy82=2.
      compute mainy83=55.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28=3 or main28=4) and (main29=42 or main29=79).
      compute avy82=16.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=2.
      compute mainy83=4.
      compute mainy84=64.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=5. 
   Else if (main28=3 or main28=4) and (main29=41 or main29=44).
      compute avy82=16.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=2.
      compute mainy83=4.
      compute mainy84=63.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=5. 
   Else if (main28=3 or main28=4) and (main29=36 or main29=57).
      compute avy82=16.
      compute avy83=13.
      compute avy84=12.
      compute mainy82=2.
      compute mainy83=4.
      compute mainy84=67.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=5. 
   Else if (main28=3 or main28=4).
      compute avy82=16.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=2.
      compute mainy83=4.
      compute mainy84=63.
      compute mtravy82=-7. 
      compute mtravy83=-7. 
      compute mtravy84=5.
   Else if main28=6 and (main29=41 or main29=44).
      compute avy82=13.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=1.
      compute mainy83=1.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=6 and (main29=42 or main29=79).
      compute avy82=13.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=1.
      compute mainy83=1.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=6 and (main29=36 or main29=57).
      compute avy82=13.
      compute avy83=13.
      compute avy84=12.
      compute mainy82=1.
      compute mainy83=1.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=6.
      compute avy82=13.
      compute avy83=13.
      compute avy84=17.
      compute mainy82=1.
      compute mainy83=1.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>10 and main28<15) and (main29=42 or main29=79).
      compute avy82=30.
      compute avy83=30.
      compute avy84=5.
      compute mainy82=58.
      compute mainy83=58.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>10 and main28<15) and (main29=41 or main29=44).
      compute avy82=30.
      compute avy83=30.
      compute avy84=5.
      compute mainy82=58.
      compute mainy83=58.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>10 and main28<15) and (main29=36 or main29=57).
      compute avy82=30.
      compute avy83=30.
      compute avy84=12.
      compute mainy82=58.
      compute mainy83=58.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28>10 and main28<15.
      compute avy82=30.
      compute avy83=30.
      compute avy84=17.
      compute mainy82=58.
      compute mainy83=58.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>19 and main28<30) and (main29=41 or main29=44).
      compute avy82=31.
      compute avy83=31.
      compute avy84=5.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>19 and main28<30) and (main29=42 or main29=79).
      compute avy82=31.
      compute avy83=31.
      compute avy84=5.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>19 and main28<30) and (main29=36 or main29=57).
      compute avy82=31.
      compute avy83=31.
      compute avy84=12.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28>19 and main28<30.
      compute avy82=31.
      compute avy83=31.
      compute avy84=17.
      compute mainy82=59.
      compute mainy83=59.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>29 and main28<34) and sec28=45.
      compute avy82=13.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=1.
   Else if (main28>29 and main28<34) and (main29=42 or main29=79).
      compute avy82=13.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>29 and main28<34) and (main29=57 or main29=36).
      compute avy82=13.
      compute avy83=13.
      compute avy84=12.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>29 and main28<34) and (main29=41 or main29=44 or main29=47).
      compute avy82=13.
      compute avy83=13.
      compute avy84=5.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if (main28>29 and main28<34).
      compute avy82=13.
      compute avy83=13.
      compute avy84=17.
      compute mainy82=4.
      compute mainy83=4.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=36.
      compute avy82=14.
      compute avy83=14.
      compute avy84=12.
      compute mainy82=25.
      compute mainy83=25.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=41.
      compute avy82=1.
      compute avy83=1.
      compute avy84=5.
      compute mainy82=7.
      compute mainy83=7.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      Do if sec28=45.
         compute mtravy84=5.
      Else.
         compute mtravy84=5.
      End if.
   Else if main28=42.
      compute avy82=4.
      compute avy83=4.
      compute avy84=5.
      compute mainy82=15.
      compute mainy83=15.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=43 and (main29=42 or main29=79).
      compute avy82=2.
      compute avy83=2.
      compute avy84=5.
      compute mainy82=8.
      compute mainy83=8.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
     compute mtravy84=5.
   Else if main28=43.
      compute avy82=2.
      compute avy83=2.
      compute avy84=5.
      compute mainy82=8.
      compute mainy83=8.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
     compute mtravy84=5.
   Else if main28=44.
      compute avy82=3.
      compute avy83=3.
      compute avy84=5.
      compute mainy82=9.
      compute mainy83=9.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=50 and (main29=41 or main29=44).
      compute avy82=8.
      compute avy83=8.
      compute avy84=5.
      compute mainy82=21.
      compute mainy83=21.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=50 and (main29=42 or main29=79).
      compute avy82=8.
      compute avy83=8.
      compute avy84=5.
      compute mainy82=21.
      compute mainy83=21.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=50 and (main29=57 or main29=36).
      compute avy82=8.
      compute avy83=8.
      compute avy84=12.
      compute mainy82=21.
      compute mainy83=21.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=50.
      compute avy82=8.
      compute avy83=8.
      compute avy84=17.
      compute mainy82=21.
      compute mainy83=21.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=51 and (main29=41 or main29=44 or main29=45).
      compute avy82=11.
      compute avy83=11.
      compute avy84=5.
      compute mainy82=28.
      compute mainy83=28.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=51 and (main29=42 or main29=79).
      compute avy82=11.
      compute avy83=11.
      compute avy84=5.
      compute mainy82=28.
      compute mainy83=28.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=51 and (main29=57 or main29=36).
      compute avy82=11.
      compute avy83=11.
      compute avy84=12.
      compute mainy82=28.
      compute mainy83=28.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=51.
      compute avy82=11.
      compute avy83=11.
      compute avy84=17.
      compute mainy82=28.
      compute mainy83=28.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=53 and (main29=42 or main29=79).
      compute avy82=6.
      compute avy83=6.
      compute avy84=5.
      compute mainy82=18.
      compute mainy83=18.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=53 and (main29=36 or main29=57).
      compute avy82=6.
      compute avy83=6.
      compute avy84=12.
      compute mainy82=18.
      compute mainy83=18.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=53 and (main29=41 or main29=44).
      compute avy82=6.
      compute avy83=6.
      compute avy84=5.
      compute mainy82=18.
      compute mainy83=18.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=53.
      compute avy82=6.
      compute avy83=6.
      compute avy84=17.
      compute mainy82=18.
      compute mainy83=18.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=54 and (main29=36 or main29=57).
      compute avy82=7.
      compute avy83=7.
      compute avy84=12.
      compute mainy82=20.
      compute mainy83=20.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=54 and (main29=41 or main29=44 or main29=47).
      compute avy82=7.
      compute avy83=7.
      compute avy84=5.
      compute mainy82=20.
      compute mainy83=20.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=54 and (main29=42 or main29=79).
      compute avy82=7.
      compute avy83=7.
      compute avy84=5.
      compute mainy82=20.
      compute mainy83=20.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=54.
      compute avy82=7.
      compute avy83=7.
      compute avy84=17.
      compute mainy82=20.
      compute mainy83=20.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=55 and (main29=57 or main29=36).
      compute avy82=8.
      compute avy83=8.
      compute avy84=12.
      compute mainy82=22.
      compute mainy83=22.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=55 and (main29=42 or main29=79).
      compute avy82=8.
      compute avy83=8.
      compute avy84=5.
      compute mainy82=22.
      compute mainy83=22.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=55.
      compute avy82=8.
      compute avy83=8.
      compute avy84=17.
      compute mainy82=22.
      compute mainy83=22.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=56 and (main29=41 or main29=44).
      compute avy82=8.
      compute avy83=8.
      compute avy84=5.
      compute mainy82=27.
      compute mainy83=27.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=56 and (main29=42 or main29=79).
      compute avy82=8.
      compute avy83=8.
      compute avy84=5.
      compute mainy82=27.
      compute mainy83=27.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=56 and (main29=36 or main29=57).
      compute avy82=8.
      compute avy83=8.
      compute avy84=12.
      compute mainy82=27.
      compute mainy83=27.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=56.
      compute avy82=8.
      compute avy83=8.
      compute avy84=17.
      compute mainy82=27.
      compute mainy83=27.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=57 and (main29=41 or main29=44).
      compute avy82=10.
      compute avy83=10.
      compute avy84=5.
      compute mainy82=24.
      compute mainy83=24.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=57 and (main29=42 or main29=79).
      compute avy82=10.
      compute avy83=10.
      compute avy84=5.
      compute mainy82=24.
      compute mainy83=24.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=57 and (main29=36 or main29=57).
      compute avy82=10.
      compute avy83=10.
      compute avy84=12.
      compute mainy82=24.
      compute mainy83=24.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=57.
      compute avy82=10.
      compute avy83=10.
      compute avy84=17.
      compute mainy82=24.
      compute mainy83=24.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=59.
      compute avy82=7.
      compute avy83=7.
      compute avy84=12.
      compute mainy82=23.
      compute mainy83=23.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=66.
      compute avy82=38.
      compute avy83=38.
      compute avy84=12.
      compute mainy82=48.
      compute mainy83=48.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=69 and (main29=41 or main29=44).
      compute avy82=36.
      compute avy83=36.
      compute avy84=5.
      compute mainy82=55.
      compute mainy83=55.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      Do if sec28=45.
         compute mtravy84=1.
      Else.
         compute mtravy84=5.
      End if.
   Else if main28=69 and (main29=36 or main29=57).
      compute avy82=36.
      compute avy83=36.
      compute avy84=12.
      compute mainy82=55.
      compute mainy83=55.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=69.
      compute avy82=36.
      compute avy83=36.
      compute avy84=17.
      compute mainy82=55.
      compute mainy83=55.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=71 and main29=42.
      compute avy82=29.
      compute avy83=29.
      compute avy84=5.
      compute mainy82=48.
      compute mainy83=48.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=71 and main29=41.
      compute avy82=29.
      compute avy83=29.
      compute avy84=5.
      compute mainy82=48.
      compute mainy83=48.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=75.
      compute avy82=27.
      compute avy83=27.
      compute avy84=17.
      compute mainy82=39.
      compute mainy83=39.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=77.
      compute avy82=28.
      compute avy83=28.
      compute avy84=17.
      compute mainy82=39.
      compute mainy83=39.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=78 and (main28=41 or main28=44).
      compute avy82=22.
      compute avy83=22.
      compute avy84=5.
      compute mainy82=34.
      compute mainy83=34.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=78.
      compute avy82=22.
      compute avy83=22.
      compute avy84=17.
      compute mainy82=34.
      compute mainy83=34.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=79.
      compute avy82=4.
      compute avy83=4.
      compute avy84=5.
      compute mainy82=17.
      compute mainy83=17.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=82.
      compute avy82=20.
      compute avy83=20.
      compute avy84=17.
      compute mainy82=36.
      compute mainy83=36.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=84.
      compute avy82=18.
      compute avy83=18.
      compute avy84=17.
      compute mainy82=45.
      compute mainy83=45.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=85 or main28=86.
      compute avy82=18.
      compute avy83=18.
      compute avy84=17.
      compute mainy82=38.
      compute mainy83=38.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=91 and (main29=36 or main29=57).
      compute avy82=40.
      compute avy83=40.
      compute avy84=12.
      compute mainy82=51.
      compute mainy83=51.
      compute mainy84=67.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=91 and (main29=41 or main29=44).
      compute avy82=40.
      compute avy83=40.
      compute avy84=5.
      compute mainy82=51.
      compute mainy83=51.
      compute mainy84=63.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=91 and (main29=42 or main29=79).
      compute avy82=40.
      compute avy83=40.
      compute avy84=5.
      compute mainy82=51.
      compute mainy83=51.
      compute mainy84=64.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   Else if main28=91.
      compute avy82=40.
      compute avy83=40.
      compute avy84=17.
      compute mainy82=51.
      compute mainy83=51.
      compute mainy84=68.
      compute mtravy82=-7.
      compute mtravy83=-7.
      compute mtravy84=5.
   End if.
End if.

Do if main28=1 and main29=1 and mtmark28=0.
   compute avy82=16.
   compute avy83=16.
   compute avy84=16.
   compute mainy82=2.
   compute mainy83=2.
   compute mainy84=2.
   compute mtravy82=-7. 
   compute mtravy83=-7. 
   compute mtravy84=-7. 
Else if main28=2 and main29=2 and mtmark28=0.
   compute avy82=16.
   compute avy83=16.
   compute avy84=16.
   compute mainy82=2.
   compute mainy83=2.
   compute mainy84=2.
   compute mtravy82=-7.
   compute mtravy83=-7.
   compute mtravy84=-7.
End if.

freq avy82 avy83 avy84 mainy82 mainy83 mainy84 mtravy82 mtravy83 mtravy84.

*set values for the 29th time slot.
freq mtmark29.
*1281 missing travel cases in time slot 29.

temp.
select if mtmark29=1.
cro main29 by main30.

if main29=83 or main30=83 or main29=63 or main30=63 mtmark29=0.
if main29=34 or main29=38 or main29=62 or main29=67 or main29=81 mtmark29=0.
if main30=34 or main30=38 or main30=62 or main30=67 or main30=81 mtmark29=0.
if main29=main30 mtmark29=0.
if main29=1 or main29=61 or main30=61 or main30=72 or main30=50 mtmark29=0.
if main29=59 and main30>57 mtmark29=0.
if main29=60 or main29=64 or main29=66 or main29=68 or main29=70 or 
   main29=71 or main29=72 or main29=73 or main29=35 or main29=52 or 
   main29=65 or main29=74 or main29=80 or main29=82 or main29=99 or
   main29=76 or main29=49 mtmark29=0.
if main29=84 and main29=52 mtmark12=0.
*errors fixed, 623 cases remain.

temp.
select if sec29=45.
cro main29 by main30 by mtmark29.

Do if mtmark29=0.
   Do if main29>95.
      compute avy85=41.
      compute avy86=41.
      compute avy87=41.
      compute mainy85=69.
      compute mainy86=69.
      compute mainy87=69.
      compute mtravy85=-8.
      compute mtravy86=-8.
      compute mtravy87=-8.
   Else if main29=1.
      compute avy85=16.
      compute avy86=16.
      compute avy87=13.
      compute mainy85=2.
      compute mainy86=2.
      compute mainy87=4.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=-7. 
   Else if main29=2.
      compute avy85=16.
      compute avy86=16.
      compute avy87=36.
      compute mainy85=2.
      compute mainy86=2.
      compute mainy87=55.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=3 or main29=4.
      compute avy85=16.
      compute avy86=16.
      compute avy87=16.
      compute mainy85=2.
      compute mainy86=2.
      compute mainy87=2.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=-7. 
   Else if main29=5.
      compute avy85=16.
      compute avy86=16.
      compute avy87=16.
      compute mainy85=3.
      compute mainy86=3.
      compute mainy87=3.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=6.
      compute avy85=13.
      compute avy86=13.
      compute avy87=13.
      compute mainy85=1.
      compute mainy86=1.
      compute mainy87=1.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29>6 and main29<20.
      compute avy85=30.
      compute avy86=30.
      compute avy87=30.
      compute mainy85=58.
      compute mainy86=58.
      compute mainy87=58.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29>19 and main29<30.
      compute avy85=31.
      compute avy86=31.
      compute avy87=31.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=59.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=33 and sec29=45.
      compute avy85=5.
      compute avy86=13.
      compute avy87=13.
      compute mainy85=63.
      compute mainy86=4.
      compute mainy87=4.
      compute mtravy85=1.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29>29 and main29<34.
      compute avy85=13.
      compute avy86=13.
      compute avy87=13.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=4.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=34 and sec29=45.
      compute avy85=15.
      compute avy86=15.
      compute avy87=5.
      compute mainy85=6.
      compute mainy86=6.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=1.
   Else if main29=34 or main29=35 or ((main29=38 or main29=39) and loc29=1).
      compute avy85=15.
      compute avy86=15.
      compute avy87=15.
      compute mainy85=6.
      compute mainy86=6.
      compute mainy87=6.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=36.
      compute avy85=14.
      compute avy86=14.
      compute avy87=14.
      compute mainy85=25.
      compute mainy86=25.
      compute mainy87=25.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=37.
      compute avy85=12.
      compute avy86=12.
      compute avy87=12.
      compute mainy85=67.
      compute mainy86=67.
      compute mainy87=67.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=40.
      compute avy85=1.
      compute avy86=1.
      compute avy87=1.
      compute mainy85=13.
      compute mainy86=13.
      compute mainy87=13.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=41.
      compute avy85=1.
      compute avy86=1.
      compute avy87=1.
      compute mainy85=7.
      compute mainy86=7.
      compute mainy87=7.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=42.
      compute avy85=4.
      compute avy86=4.
      compute avy87=4.
      compute mainy85=15.
      compute mainy86=15.
      compute mainy87=15.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=43.
      compute avy85=2.
      compute avy86=2.
      compute avy87=2.
      compute mainy85=8.
      compute mainy86=8.
      compute mainy87=8.
      compute mtravy85=-7.
      compute mtravy86=-7.
     compute mtravy87=-7.
   Else if main29=44.
      compute avy85=3.
      compute avy86=3.
      compute avy87=3.
      compute mainy85=9.
      compute mainy86=9.
      compute mainy87=9.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=45 and (main30=42 or main30=79).
      compute avy85=5.
      compute avy86=5.
      compute avy87=5.
      compute mainy85=64.
      compute mainy86=64.
      compute mainy87=64.
      compute mtravy85=1.
      compute mtravy86=1.
      compute mtravy87=1.
   Else if (main29=46 or main29=47) and (main30=42 or main30=79).
      compute avy85=5.
      compute avy86=5.
      compute avy87=5.
      compute mainy85=64.
      compute mainy86=64.
      compute mainy87=64.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=45.
      compute avy85=5.
      compute avy86=5.
      compute avy87=5.
      compute mainy85=63.
      compute mainy86=63.
      compute mainy87=63.
      compute mtravy85=1.
      compute mtravy86=1.
      compute mtravy87=1.
   Else if main29=46 or main29=47.
      compute avy85=5.
      compute avy86=5.
      compute avy87=5.
      compute mainy85=63.
      compute mainy86=63.
      compute mainy87=63.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=48.
      compute avy85=5.
      compute avy86=5.
      compute avy87=5.
      compute mainy85=11.
      compute mainy86=11.
      compute mainy87=11.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=49.
      compute avy85=1.
      compute avy86=1.
      compute avy87=1.
      compute mainy85=5.
      compute mainy86=5.
      compute mainy87=5.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=50.
      compute avy85=8.
      compute avy86=8.
      compute avy87=8.
      compute mainy85=21.
      compute mainy86=21.
      compute mainy87=21.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=51.
      compute avy85=11.
      compute avy86=11.
      compute avy87=11.
      compute mainy85=28.
      compute mainy86=28.
      compute mainy87=28.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=52.
      compute avy85=11.
      compute avy86=11.
      compute avy87=11.
      compute mainy85=30.
      compute mainy86=30.
      compute mainy87=30.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=53.
      compute avy85=6.
      compute avy86=6.
      compute avy87=6.
      compute mainy85=18.
      compute mainy86=18.
      compute mainy87=18.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=54.
      compute avy85=7.
      compute avy86=7.
      compute avy87=7.
      compute mainy85=20.
      compute mainy86=20.
      compute mainy87=20.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=55.
      compute avy85=8.
      compute avy86=8.
      compute avy87=8.
      compute mainy85=22.
      compute mainy86=22.
      compute mainy87=22.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=56.
      compute avy85=8.
      compute avy86=8.
      compute avy87=8.
      compute mainy85=27.
      compute mainy86=27.
      compute mainy87=27.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=57.
      compute avy85=10.
      compute avy86=10.
      compute avy87=10.
      compute mainy85=24.
      compute mainy86=24.
      compute mainy87=24.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=58.
      compute avy85=12.
      compute avy86=12.
      compute avy87=12.
      compute mainy85=66.
      compute mainy86=66.
      compute mainy87=66.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=59.
      compute avy85=7.
      compute avy86=7.
      compute avy87=13.
      compute mainy85=23.
      compute mainy86=23.
      compute mainy87=4.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=60.
      compute avy85=9.
      compute avy86=9.
      compute avy87=9.
      compute mainy85=46.
      compute mainy86=46.
      compute mainy87=46.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=61.
      compute avy85=33.
      compute avy86=33.
      compute avy87=33.
      compute mainy85=16.
      compute mainy86=16.
      compute mainy87=16.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=62.
      compute avy85=34.
      compute avy86=34.
      compute avy87=34.
      compute mainy85=56.
      compute mainy86=56.
      compute mainy87=56.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=63.
      compute avy85=35.
      compute avy86=35.
      compute avy87=35.
      compute mainy85=56.
      compute mainy86=56.
      compute mainy87=56.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=64.
      compute avy85=40.
      compute avy86=40.
      compute avy87=40.
      compute mainy85=54.
      compute mainy86=54.
      compute mainy87=54.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=65.
      compute avy85=39.
      compute avy86=39.
      compute avy87=39.
      compute mainy85=54.
      compute mainy86=54.
      compute mainy87=54.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=66.
      compute avy85=38.
      compute avy86=38.
      compute avy87=38.
      compute mainy85=48.
      compute mainy86=48.
      compute mainy87=48.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=67.
      compute avy85=37.
      compute avy86=37.
      compute avy87=37.
      compute mainy85=49.
      compute mainy86=49.
      compute mainy87=49.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=68.
      compute avy85=32.
      compute avy86=32.
      compute avy87=32.
      compute mainy85=57.
      compute mainy86=57.
      compute mainy87=57.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=69.
      compute avy85=36.
      compute avy86=36.
      compute avy87=36.
      compute mainy85=55.
      compute mainy86=55.
      compute mainy87=55.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=70.
      compute avy85=25.
      compute avy86=25.
      compute avy87=25.
      compute mainy85=35.
      compute mainy86=35.
      compute mainy87=35.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=71.
      compute avy85=29.
      compute avy86=29.
      compute avy87=29.
      compute mainy85=48.
      compute mainy86=48.
      compute mainy87=48.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=72.
      compute avy85=24.
      compute avy86=24.
      compute avy87=24.
      compute mainy85=37.
      compute mainy86=37.
      compute mainy87=37.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=73.
      compute avy85=23.
      compute avy86=23.
      compute avy87=23.
      compute mainy85=33.
      compute mainy86=33.
      compute mainy87=33.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=74.
      compute avy85=26.
      compute avy86=26.
      compute avy87=26.
      compute mainy85=40.
      compute mainy86=40.
      compute mainy87=40.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=75 or main29=39.
      compute avy85=27.
      compute avy86=27.
      compute avy87=27.
      compute mainy85=39.
      compute mainy86=39.
      compute mainy87=39.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=76.
      compute avy85=25.
      compute avy86=25.
      compute avy87=25.
      compute mainy85=40.
      compute mainy86=40.
      compute mainy87=40.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=77 or main29=38.
      compute avy85=28.
      compute avy86=28.
      compute avy87=28.
      compute mainy85=39.
      compute mainy86=39.
      compute mainy87=39.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=78.
      compute avy85=22.
      compute avy86=22.
      compute avy87=22.
      compute mainy85=34.
      compute mainy86=34.
      compute mainy87=34.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=79.
      compute avy85=4.
      compute avy86=4.
      compute avy87=4.
      compute mainy85=17.
      compute mainy86=17.
      compute mainy87=17.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=80.
      compute avy85=18.
      compute avy86=18.
      compute avy87=18.
      compute mainy85=38.
      compute mainy86=38.
      compute mainy87=38.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=81.
      compute avy85=19.
      compute avy86=19.
      compute avy87=19.
      compute mainy85=42.
      compute mainy86=42.
      compute mainy87=42.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=82.
      compute avy85=20.
      compute avy86=20.
      compute avy87=20.
      compute mainy85=36.
      compute mainy86=36.
      compute mainy87=36.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=83.
      compute avy85=21.
      compute avy86=21.
      compute avy87=21.
      compute mainy85=43.
      compute mainy86=43.
      compute mainy87=43.
      compute mtravy85=3.
      compute mtravy86=3.
      compute mtravy87=3.
   Else if main29=84.
      compute avy85=18.
      compute avy86=18.
      compute avy87=18.
      compute mainy85=45.
      compute mainy86=45.
      compute mainy87=45.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=85 or main29=86.
      compute avy85=18.
      compute avy86=18.
      compute avy87=18.
      compute mainy85=38.
      compute mainy86=38.
      compute mainy87=38.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=89.
      compute avy85=17.
      compute avy86=17.
      compute avy87=17.
      compute mainy85=68.
      compute mainy86=68.
      compute mainy87=68.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=90.
      compute avy85=17.
      compute avy86=17.
      compute avy87=17.
      compute mainy85=62.
      compute mainy86=62.
      compute mainy87=62.
      compute mtravy85=5.
      compute mtravy86=5.
      compute mtravy87=5.
   Else if main29=91.
      compute avy85=40.
      compute avy86=40.
      compute avy87=40.
      compute mainy85=51.
      compute mainy86=51.
      compute mainy87=51.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=92.
      compute avy85=31.
      compute avy86=31.
      compute avy87=31.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=59.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   Else if main29=93.
      compute avy85=41.
      compute avy86=41.
      compute avy87=41.
      compute mainy85=41.
      compute mainy86=41.
      compute mainy87=41.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=-7.
   End if.
Else if mtmark29=1.
   Do if main29=2 and (main30=42 or main30=79).
      compute avy85=16.
      compute avy86=36.
      compute avy87=5.
      compute mainy85=2.
      compute mainy86=55.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=2 and (main30=41 or main30=44).
      compute avy85=16.
      compute avy86=36.
      compute avy87=5.
      compute mainy85=2.
      compute mainy86=55.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=2 and (main30=36 or main30=57).
      compute avy85=16.
      compute avy86=36.
      compute avy87=12.
      compute mainy85=2.
      compute mainy86=55.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=2.
      compute avy85=16.
      compute avy86=36.
      compute avy87=17.
      compute mainy85=2.
      compute mainy86=55.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29=3 or main29=4) and (main30=42 or main30=79).
      compute avy85=16.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=2.
      compute mainy86=4.
      compute mainy87=64.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=5. 
   Else if (main29=3 or main29=4) and (main30=41 or main30=44).
      compute avy85=16.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=2.
      compute mainy86=4.
      compute mainy87=63.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=5. 
   Else if (main29=3 or main29=4) and (main30=36 or main30=57).
      compute avy85=16.
      compute avy86=13.
      compute avy87=12.
      compute mainy85=2.
      compute mainy86=4.
      compute mainy87=67.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=5. 
   Else if (main29=3 or main29=4).
      compute avy85=16.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=2.
      compute mainy86=4.
      compute mainy87=63.
      compute mtravy85=-7. 
      compute mtravy86=-7. 
      compute mtravy87=5.
   Else if main29=6 and (main30=41 or main30=44).
      compute avy85=13.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=1.
      compute mainy86=1.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=6 and (main30=42 or main30=79).
      compute avy85=13.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=1.
      compute mainy86=1.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=6 and (main30=36 or main30=57).
      compute avy85=13.
      compute avy86=13.
      compute avy87=12.
      compute mainy85=1.
      compute mainy86=1.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=6.
      compute avy85=13.
      compute avy86=13.
      compute avy87=17.
      compute mainy85=1.
      compute mainy86=1.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>10 and main29<15) and (main30=42 or main30=79).
      compute avy85=30.
      compute avy86=30.
      compute avy87=5.
      compute mainy85=58.
      compute mainy86=58.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>10 and main29<15) and (main30=41 or main30=44).
      compute avy85=30.
      compute avy86=30.
      compute avy87=5.
      compute mainy85=58.
      compute mainy86=58.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>10 and main29<15) and (main30=36 or main30=57).
      compute avy85=30.
      compute avy86=30.
      compute avy87=12.
      compute mainy85=58.
      compute mainy86=58.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29>10 and main29<15.
      compute avy85=30.
      compute avy86=30.
      compute avy87=17.
      compute mainy85=58.
      compute mainy86=58.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>19 and main29<30) and (main30=41 or main30=44).
      compute avy85=31.
      compute avy86=31.
      compute avy87=5.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>19 and main29<30) and (main30=42 or main30=79).
      compute avy85=31.
      compute avy86=31.
      compute avy87=5.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>19 and main29<30) and (main30=36 or main30=57).
      compute avy85=31.
      compute avy86=31.
      compute avy87=12.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29>19 and main29<30.
      compute avy85=31.
      compute avy86=31.
      compute avy87=17.
      compute mainy85=59.
      compute mainy86=59.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>29 and main29<34) and sec29=45.
      compute avy85=13.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=1.
   Else if (main29>29 and main29<34) and (main30=42 or main30=79).
      compute avy85=13.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>29 and main29<34) and (main30=57 or main30=36).
      compute avy85=13.
      compute avy86=13.
      compute avy87=12.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>29 and main29<34) and (main30=41 or main30=44 or main30=47).
      compute avy85=13.
      compute avy86=13.
      compute avy87=5.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if (main29>29 and main29<34).
      compute avy85=13.
      compute avy86=13.
      compute avy87=17.
      compute mainy85=4.
      compute mainy86=4.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=36.
      compute avy85=14.
      compute avy86=14.
      compute avy87=12.
      compute mainy85=25.
      compute mainy86=25.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=41.
      compute avy85=1.
      compute avy86=1.
      compute avy87=5.
      compute mainy85=7.
      compute mainy86=7.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      Do if sec29=45.
         compute mtravy87=5.
      Else.
         compute mtravy87=5.
      End if.
   Else if main29=42.
      compute avy85=4.
      compute avy86=4.
      compute avy87=5.
      compute mainy85=15.
      compute mainy86=15.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=43 and (main30=42 or main30=79).
      compute avy85=2.
      compute avy86=2.
      compute avy87=5.
      compute mainy85=8.
      compute mainy86=8.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
     compute mtravy87=5.
   Else if main29=43.
      compute avy85=2.
      compute avy86=2.
      compute avy87=5.
      compute mainy85=8.
      compute mainy86=8.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
     compute mtravy87=5.
   Else if main29=44.
      compute avy85=3.
      compute avy86=3.
      compute avy87=5.
      compute mainy85=9.
      compute mainy86=9.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=50 and (main30=41 or main30=44).
      compute avy85=8.
      compute avy86=8.
      compute avy87=5.
      compute mainy85=21.
      compute mainy86=21.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=50 and (main30=42 or main30=79).
      compute avy85=8.
      compute avy86=8.
      compute avy87=5.
      compute mainy85=21.
      compute mainy86=21.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=50 and (main30=57 or main30=36).
      compute avy85=8.
      compute avy86=8.
      compute avy87=12.
      compute mainy85=21.
      compute mainy86=21.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=50.
      compute avy85=8.
      compute avy86=8.
      compute avy87=17.
      compute mainy85=21.
      compute mainy86=21.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=51 and (main30=41 or main30=44 or main30=45).
      compute avy85=11.
      compute avy86=11.
      compute avy87=5.
      compute mainy85=28.
      compute mainy86=28.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=51 and (main30=42 or main30=79).
      compute avy85=11.
      compute avy86=11.
      compute avy87=5.
      compute mainy85=28.
      compute mainy86=28.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=51 and (main30=57 or main30=36).
      compute avy85=11.
      compute avy86=11.
      compute avy87=12.
      compute mainy85=28.
      compute mainy86=28.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=51.
      compute avy85=11.
      compute avy86=11.
      compute avy87=17.
      compute mainy85=28.
      compute mainy86=28.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=53 and (main30=42 or main30=79).
      compute avy85=6.
      compute avy86=6.
      compute avy87=5.
      compute mainy85=18.
      compute mainy86=18.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=53 and (main30=36 or main30=57).
      compute avy85=6.
      compute avy86=6.
      compute avy87=12.
      compute mainy85=18.
      compute mainy86=18.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=53 and (main30=41 or main30=44).
      compute avy85=6.
      compute avy86=6.
      compute avy87=5.
      compute mainy85=18.
      compute mainy86=18.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=53.
      compute avy85=6.
      compute avy86=6.
      compute avy87=17.
      compute mainy85=18.
      compute mainy86=18.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=54 and (main30=36 or main30=57).
      compute avy85=7.
      compute avy86=7.
      compute avy87=12.
      compute mainy85=20.
      compute mainy86=20.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=54 and (main30=41 or main30=44 or main30=47).
      compute avy85=7.
      compute avy86=7.
      compute avy87=5.
      compute mainy85=20.
      compute mainy86=20.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=54 and (main30=42 or main30=79).
      compute avy85=7.
      compute avy86=7.
      compute avy87=5.
      compute mainy85=20.
      compute mainy86=20.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=54.
      compute avy85=7.
      compute avy86=7.
      compute avy87=17.
      compute mainy85=20.
      compute mainy86=20.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=55 and (main30=57 or main30=36).
      compute avy85=8.
      compute avy86=8.
      compute avy87=12.
      compute mainy85=22.
      compute mainy86=22.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=55 and (main30=42 or main30=79).
      compute avy85=8.
      compute avy86=8.
      compute avy87=5.
      compute mainy85=22.
      compute mainy86=22.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=55.
      compute avy85=8.
      compute avy86=8.
      compute avy87=17.
      compute mainy85=22.
      compute mainy86=22.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=56 and (main30=41 or main30=44).
      compute avy85=8.
      compute avy86=8.
      compute avy87=5.
      compute mainy85=27.
      compute mainy86=27.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=56 and (main30=42 or main30=79).
      compute avy85=8.
      compute avy86=8.
      compute avy87=5.
      compute mainy85=27.
      compute mainy86=27.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=56 and (main30=36 or main30=57).
      compute avy85=8.
      compute avy86=8.
      compute avy87=12.
      compute mainy85=27.
      compute mainy86=27.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=56.
      compute avy85=8.
      compute avy86=8.
      compute avy87=17.
      compute mainy85=27.
      compute mainy86=27.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=57 and (main30=41 or main30=44).
      compute avy85=10.
      compute avy86=10.
      compute avy87=5.
      compute mainy85=24.
      compute mainy86=24.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=57 and (main30=42 or main30=79).
      compute avy85=10.
      compute avy86=10.
      compute avy87=5.
      compute mainy85=24.
      compute mainy86=24.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=57 and (main30=36 or main30=57).
      compute avy85=10.
      compute avy86=10.
      compute avy87=12.
      compute mainy85=24.
      compute mainy86=24.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=57.
      compute avy85=10.
      compute avy86=10.
      compute avy87=17.
      compute mainy85=24.
      compute mainy86=24.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=59.
      compute avy85=7.
      compute avy86=7.
      compute avy87=12.
      compute mainy85=23.
      compute mainy86=23.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=66.
      compute avy85=38.
      compute avy86=38.
      compute avy87=12.
      compute mainy85=48.
      compute mainy86=48.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=69 and (main30=41 or main30=44).
      compute avy85=36.
      compute avy86=36.
      compute avy87=5.
      compute mainy85=55.
      compute mainy86=55.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=69 and (main30=36 or main30=57).
      compute avy85=36.
      compute avy86=36.
      compute avy87=12.
      compute mainy85=55.
      compute mainy86=55.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=69.
      compute avy85=36.
      compute avy86=36.
      compute avy87=17.
      compute mainy85=55.
      compute mainy86=55.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=71 and main30=42.
      compute avy85=29.
      compute avy86=29.
      compute avy87=5.
      compute mainy85=48.
      compute mainy86=48.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=71 and main30=41.
      compute avy85=29.
      compute avy86=29.
      compute avy87=5.
      compute mainy85=48.
      compute mainy86=48.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=75.
      compute avy85=27.
      compute avy86=27.
      compute avy87=17.
      compute mainy85=39.
      compute mainy86=39.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=77.
      compute avy85=28.
      compute avy86=28.
      compute avy87=17.
      compute mainy85=39.
      compute mainy86=39.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=78 and (main29=41 or main29=44).
      compute avy85=22.
      compute avy86=22.
      compute avy87=5.
      compute mainy85=34.
      compute mainy86=34.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=78.
      compute avy85=22.
      compute avy86=22.
      compute avy87=17.
      compute mainy85=34.
      compute mainy86=34.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=79.
      compute avy85=4.
      compute avy86=4.
      compute avy87=5.
      compute mainy85=17.
      compute mainy86=17.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=82.
      compute avy85=20.
      compute avy86=20.
      compute avy87=17.
      compute mainy85=36.
      compute mainy86=36.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=84.
      compute avy85=18.
      compute avy86=18.
      compute avy87=17.
      compute mainy85=45.
      compute mainy86=45.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=85 or main29=86.
      compute avy85=18.
      compute avy86=18.
      compute avy87=17.
      compute mainy85=38.
      compute mainy86=38.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=91 and (main30=36 or main30=57).
      compute avy85=40.
      compute avy86=40.
      compute avy87=12.
      compute mainy85=51.
      compute mainy86=51.
      compute mainy87=67.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=91 and (main30=41 or main30=44).
      compute avy85=40.
      compute avy86=40.
      compute avy87=5.
      compute mainy85=51.
      compute mainy86=51.
      compute mainy87=63.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=91 and (main30=42 or main30=79).
      compute avy85=40.
      compute avy86=40.
      compute avy87=5.
      compute mainy85=51.
      compute mainy86=51.
      compute mainy87=64.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   Else if main29=91.
      compute avy85=40.
      compute avy86=40.
      compute avy87=17.
      compute mainy85=51.
      compute mainy86=51.
      compute mainy87=68.
      compute mtravy85=-7.
      compute mtravy86=-7.
      compute mtravy87=5.
   End if.
End if.

Do if main29=1 and main30=1 and mtmark29=0.
   compute avy85=16.
   compute avy86=16.
   compute avy87=16.
   compute mainy85=2.
   compute mainy86=2.
   compute mainy87=2.
   compute mtravy85=-7. 
   compute mtravy86=-7. 
   compute mtravy87=-7. 
Else if main29=2 and main30=2 and mtmark29=0.
   compute avy85=16.
   compute avy86=16.
   compute avy87=16.
   compute mainy85=2.
   compute mainy86=2.
   compute mainy87=2.
   compute mtravy85=-7.
   compute mtravy86=-7.
   compute mtravy87=-7.
End if.

freq avy85 avy86 avy87 mainy85 mainy86 mainy87 mtravy85 mtravy86 mtravy87.

*set values for the 30th time slot.
freq mtmark30.
*1512 missing travel cases in time slot 30.

temp.
select if mtmark30=1.
cro main30 by main31.

if main30=83 or main31=83 or main30=63 or main31=63 mtmark30=0.
if main30=34 or main30=38 or main30=62 or main30=67 or main30=81 mtmark30=0.
if main31=34 or main31=38 or main31=62 or main31=67 or main31=81 mtmark30=0.
if main30=main31 mtmark30=0.
if main30=1 or main30=61 or main31=61 or main31=72 or main31=50 mtmark30=0.
if main30=59 and main31>57 mtmark30=0.
if main30=60 or main30=64 or main30=66 or main30=68 or main30=70 or 
   main30=71 or main30=72 or main30=73 or main30=35 or main30=52 or 
   main30=65 or main30=74 or main30=80 or main30=82 or main30=99 or
   main30=76 or main30=49 mtmark30=0.
if main30=84 and main30=52 mtmark12=0.
*errors fixed, 623 cases remain.

temp.
select if sec30=45.
cro main30 by main31 by mtmark30.

Do if mtmark30=0.
   Do if main30>95.
      compute avy88=41.
      compute avy89=41.
      compute avy90=41.
      compute mainy88=69.
      compute mainy89=69.
      compute mainy90=69.
      compute mtravy88=-8.
      compute mtravy89=-8.
      compute mtravy90=-8.
   Else if main30=1.
      compute avy88=16.
      compute avy89=16.
      compute avy90=13.
      compute mainy88=2.
      compute mainy89=2.
      compute mainy90=4.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=-7. 
   Else if main30=2.
      compute avy88=16.
      compute avy89=16.
      compute avy90=36.
      compute mainy88=2.
      compute mainy89=2.
      compute mainy90=55.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=3 or main30=4.
      compute avy88=16.
      compute avy89=16.
      compute avy90=16.
      compute mainy88=2.
      compute mainy89=2.
      compute mainy90=2.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=-7. 
   Else if main30=5.
      compute avy88=16.
      compute avy89=16.
      compute avy90=16.
      compute mainy88=3.
      compute mainy89=3.
      compute mainy90=3.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=6.
      compute avy88=13.
      compute avy89=13.
      compute avy90=13.
      compute mainy88=1.
      compute mainy89=1.
      compute mainy90=1.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30>6 and main30<20.
      compute avy88=30.
      compute avy89=30.
      compute avy90=30.
      compute mainy88=58.
      compute mainy89=58.
      compute mainy90=58.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30>19 and main30<30.
      compute avy88=31.
      compute avy89=31.
      compute avy90=31.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=59.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30>29 and main30<34.
      compute avy88=13.
      compute avy89=13.
      compute avy90=13.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=4.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=34 and sec30=45.
      compute avy88=15.
      compute avy89=15.
      compute avy90=5.
      compute mainy88=6.
      compute mainy89=6.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=1.
   Else if main30=34 or main30=35 or ((main30=38 or main30=39) and loc30=1).
      compute avy88=15.
      compute avy89=15.
      compute avy90=15.
      compute mainy88=6.
      compute mainy89=6.
      compute mainy90=6.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=36.
      compute avy88=14.
      compute avy89=14.
      compute avy90=14.
      compute mainy88=25.
      compute mainy89=25.
      compute mainy90=25.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=37.
      compute avy88=12.
      compute avy89=12.
      compute avy90=12.
      compute mainy88=67.
      compute mainy89=67.
      compute mainy90=67.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=40.
      compute avy88=1.
      compute avy89=1.
      compute avy90=1.
      compute mainy88=13.
      compute mainy89=13.
      compute mainy90=13.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=41.
      compute avy88=1.
      compute avy89=1.
      compute avy90=1.
      compute mainy88=7.
      compute mainy89=7.
      compute mainy90=7.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=42.
      compute avy88=4.
      compute avy89=4.
      compute avy90=4.
      compute mainy88=15.
      compute mainy89=15.
      compute mainy90=15.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=43.
      compute avy88=2.
      compute avy89=2.
      compute avy90=2.
      compute mainy88=8.
      compute mainy89=8.
      compute mainy90=8.
      compute mtravy88=-7.
      compute mtravy89=-7.
     compute mtravy90=-7.
   Else if main30=44.
      compute avy88=3.
      compute avy89=3.
      compute avy90=3.
      compute mainy88=9.
      compute mainy89=9.
      compute mainy90=9.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=45 and (main31=42 or main31=79).
      compute avy88=5.
      compute avy89=5.
      compute avy90=5.
      compute mainy88=64.
      compute mainy89=64.
      compute mainy90=64.
      compute mtravy88=1.
      compute mtravy89=1.
      compute mtravy90=1.
   Else if (main30=46 or main30=47) and (main31=42 or main31=79).
      compute avy88=5.
      compute avy89=5.
      compute avy90=5.
      compute mainy88=64.
      compute mainy89=64.
      compute mainy90=64.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=45.
      compute avy88=5.
      compute avy89=5.
      compute avy90=5.
      compute mainy88=63.
      compute mainy89=63.
      compute mainy90=63.
      compute mtravy88=1.
      compute mtravy89=1.
      compute mtravy90=1.
   Else if main30=46 or main30=47.
      compute avy88=5.
      compute avy89=5.
      compute avy90=5.
      compute mainy88=63.
      compute mainy89=63.
      compute mainy90=63.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=48.
      compute avy88=5.
      compute avy89=5.
      compute avy90=5.
      compute mainy88=11.
      compute mainy89=11.
      compute mainy90=11.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=49.
      compute avy88=1.
      compute avy89=1.
      compute avy90=1.
      compute mainy88=5.
      compute mainy89=5.
      compute mainy90=5.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=50.
      compute avy88=8.
      compute avy89=8.
      compute avy90=8.
      compute mainy88=21.
      compute mainy89=21.
      compute mainy90=21.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=51.
      compute avy88=11.
      compute avy89=11.
      compute avy90=11.
      compute mainy88=28.
      compute mainy89=28.
      compute mainy90=28.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=52.
      compute avy88=11.
      compute avy89=11.
      compute avy90=11.
      compute mainy88=30.
      compute mainy89=30.
      compute mainy90=30.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=53.
      compute avy88=6.
      compute avy89=6.
      compute avy90=6.
      compute mainy88=18.
      compute mainy89=18.
      compute mainy90=18.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=54.
      compute avy88=7.
      compute avy89=7.
      compute avy90=7.
      compute mainy88=20.
      compute mainy89=20.
      compute mainy90=20.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=55.
      compute avy88=8.
      compute avy89=8.
      compute avy90=8.
      compute mainy88=22.
      compute mainy89=22.
      compute mainy90=22.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=56.
      compute avy88=8.
      compute avy89=8.
      compute avy90=8.
      compute mainy88=27.
      compute mainy89=27.
      compute mainy90=27.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=57.
      compute avy88=10.
      compute avy89=10.
      compute avy90=10.
      compute mainy88=24.
      compute mainy89=24.
      compute mainy90=24.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=58.
      compute avy88=12.
      compute avy89=12.
      compute avy90=12.
      compute mainy88=66.
      compute mainy89=66.
      compute mainy90=66.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=59.
      compute avy88=7.
      compute avy89=7.
      compute avy90=13.
      compute mainy88=23.
      compute mainy89=23.
      compute mainy90=4.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=60.
      compute avy88=9.
      compute avy89=9.
      compute avy90=9.
      compute mainy88=46.
      compute mainy89=46.
      compute mainy90=46.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=61.
      compute avy88=33.
      compute avy89=33.
      compute avy90=33.
      compute mainy88=16.
      compute mainy89=16.
      compute mainy90=16.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=62.
      compute avy88=34.
      compute avy89=34.
      compute avy90=34.
      compute mainy88=56.
      compute mainy89=56.
      compute mainy90=56.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=63.
      compute avy88=35.
      compute avy89=35.
      compute avy90=35.
      compute mainy88=56.
      compute mainy89=56.
      compute mainy90=56.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=64.
      compute avy88=40.
      compute avy89=40.
      compute avy90=40.
      compute mainy88=54.
      compute mainy89=54.
      compute mainy90=54.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=65.
      compute avy88=39.
      compute avy89=39.
      compute avy90=39.
      compute mainy88=54.
      compute mainy89=54.
      compute mainy90=54.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=66.
      compute avy88=38.
      compute avy89=38.
      compute avy90=38.
      compute mainy88=48.
      compute mainy89=48.
      compute mainy90=48.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=67.
      compute avy88=37.
      compute avy89=37.
      compute avy90=37.
      compute mainy88=49.
      compute mainy89=49.
      compute mainy90=49.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=68.
      compute avy88=32.
      compute avy89=32.
      compute avy90=32.
      compute mainy88=57.
      compute mainy89=57.
      compute mainy90=57.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=69.
      compute avy88=36.
      compute avy89=36.
      compute avy90=36.
      compute mainy88=55.
      compute mainy89=55.
      compute mainy90=55.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=70.
      compute avy88=25.
      compute avy89=25.
      compute avy90=25.
      compute mainy88=35.
      compute mainy89=35.
      compute mainy90=35.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=71.
      compute avy88=29.
      compute avy89=29.
      compute avy90=29.
      compute mainy88=48.
      compute mainy89=48.
      compute mainy90=48.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=72.
      compute avy88=24.
      compute avy89=24.
      compute avy90=24.
      compute mainy88=37.
      compute mainy89=37.
      compute mainy90=37.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=73.
      compute avy88=23.
      compute avy89=23.
      compute avy90=23.
      compute mainy88=33.
      compute mainy89=33.
      compute mainy90=33.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=74.
      compute avy88=26.
      compute avy89=26.
      compute avy90=26.
      compute mainy88=40.
      compute mainy89=40.
      compute mainy90=40.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=75 or main30=39.
      compute avy88=27.
      compute avy89=27.
      compute avy90=27.
      compute mainy88=39.
      compute mainy89=39.
      compute mainy90=39.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=76.
      compute avy88=25.
      compute avy89=25.
      compute avy90=25.
      compute mainy88=40.
      compute mainy89=40.
      compute mainy90=40.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=77 or main30=38.
      compute avy88=28.
      compute avy89=28.
      compute avy90=28.
      compute mainy88=39.
      compute mainy89=39.
      compute mainy90=39.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=78.
      compute avy88=22.
      compute avy89=22.
      compute avy90=22.
      compute mainy88=34.
      compute mainy89=34.
      compute mainy90=34.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=79.
      compute avy88=4.
      compute avy89=4.
      compute avy90=4.
      compute mainy88=17.
      compute mainy89=17.
      compute mainy90=17.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=80.
      compute avy88=18.
      compute avy89=18.
      compute avy90=18.
      compute mainy88=38.
      compute mainy89=38.
      compute mainy90=38.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=81.
      compute avy88=19.
      compute avy89=19.
      compute avy90=19.
      compute mainy88=42.
      compute mainy89=42.
      compute mainy90=42.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=82.
      compute avy88=20.
      compute avy89=20.
      compute avy90=20.
      compute mainy88=36.
      compute mainy89=36.
      compute mainy90=36.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=83.
      compute avy88=21.
      compute avy89=21.
      compute avy90=21.
      compute mainy88=43.
      compute mainy89=43.
      compute mainy90=43.
      compute mtravy88=3.
      compute mtravy89=3.
      compute mtravy90=3.
   Else if main30=84.
      compute avy88=18.
      compute avy89=18.
      compute avy90=18.
      compute mainy88=45.
      compute mainy89=45.
      compute mainy90=45.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=85 or main30=86.
      compute avy88=18.
      compute avy89=18.
      compute avy90=18.
      compute mainy88=38.
      compute mainy89=38.
      compute mainy90=38.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=89.
      compute avy88=17.
      compute avy89=17.
      compute avy90=17.
      compute mainy88=68.
      compute mainy89=68.
      compute mainy90=68.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=90.
      compute avy88=17.
      compute avy89=17.
      compute avy90=17.
      compute mainy88=62.
      compute mainy89=62.
      compute mainy90=62.
      compute mtravy88=5.
      compute mtravy89=5.
      compute mtravy90=5.
   Else if main30=91.
      compute avy88=40.
      compute avy89=40.
      compute avy90=40.
      compute mainy88=51.
      compute mainy89=51.
      compute mainy90=51.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=92.
      compute avy88=31.
      compute avy89=31.
      compute avy90=31.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=59.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   Else if main30=93.
      compute avy88=41.
      compute avy89=41.
      compute avy90=41.
      compute mainy88=41.
      compute mainy89=41.
      compute mainy90=41.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=-7.
   End if.
Else if mtmark30=1.
   Do if main30=2 and (main31=42 or main31=79).
      compute avy88=16.
      compute avy89=36.
      compute avy90=5.
      compute mainy88=2.
      compute mainy89=55.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=2 and (main31=41 or main31=44).
      compute avy88=16.
      compute avy89=36.
      compute avy90=5.
      compute mainy88=2.
      compute mainy89=55.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=2 and (main31=36 or main31=57).
      compute avy88=16.
      compute avy89=36.
      compute avy90=12.
      compute mainy88=2.
      compute mainy89=55.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=2.
      compute avy88=16.
      compute avy89=36.
      compute avy90=17.
      compute mainy88=2.
      compute mainy89=55.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30=3 or main30=4) and (main31=42 or main31=79).
      compute avy88=16.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=2.
      compute mainy89=4.
      compute mainy90=64.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=5. 
   Else if (main30=3 or main30=4) and (main31=41 or main31=44).
      compute avy88=16.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=2.
      compute mainy89=4.
      compute mainy90=63.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=5. 
   Else if (main30=3 or main30=4) and (main31=36 or main31=57).
      compute avy88=16.
      compute avy89=13.
      compute avy90=12.
      compute mainy88=2.
      compute mainy89=4.
      compute mainy90=67.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=5. 
   Else if (main30=3 or main30=4).
      compute avy88=16.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=2.
      compute mainy89=4.
      compute mainy90=63.
      compute mtravy88=-7. 
      compute mtravy89=-7. 
      compute mtravy90=5.
   Else if main30=6 and (main31=41 or main31=44).
      compute avy88=13.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=1.
      compute mainy89=1.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=6 and (main31=42 or main31=79).
      compute avy88=13.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=1.
      compute mainy89=1.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=6 and (main31=36 or main31=57).
      compute avy88=13.
      compute avy89=13.
      compute avy90=12.
      compute mainy88=1.
      compute mainy89=1.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=6.
      compute avy88=13.
      compute avy89=13.
      compute avy90=17.
      compute mainy88=1.
      compute mainy89=1.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>10 and main30<15) and (main31=42 or main31=79).
      compute avy88=30.
      compute avy89=30.
      compute avy90=5.
      compute mainy88=58.
      compute mainy89=58.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>10 and main30<15) and (main31=41 or main31=44).
      compute avy88=30.
      compute avy89=30.
      compute avy90=5.
      compute mainy88=58.
      compute mainy89=58.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>10 and main30<15) and (main31=36 or main31=57).
      compute avy88=30.
      compute avy89=30.
      compute avy90=12.
      compute mainy88=58.
      compute mainy89=58.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30>10 and main30<15.
      compute avy88=30.
      compute avy89=30.
      compute avy90=17.
      compute mainy88=58.
      compute mainy89=58.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>19 and main30<30) and (main31=41 or main31=44).
      compute avy88=31.
      compute avy89=31.
      compute avy90=5.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>19 and main30<30) and (main31=42 or main31=79).
      compute avy88=31.
      compute avy89=31.
      compute avy90=5.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>19 and main30<30) and (main31=36 or main31=57).
      compute avy88=31.
      compute avy89=31.
      compute avy90=12.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30>19 and main30<30.
      compute avy88=31.
      compute avy89=31.
      compute avy90=17.
      compute mainy88=59.
      compute mainy89=59.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>29 and main30<34) and sec30=45.
      compute avy88=13.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=1.
   Else if (main30>29 and main30<34) and (main31=42 or main31=79).
      compute avy88=13.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>29 and main30<34) and (main31=57 or main31=36).
      compute avy88=13.
      compute avy89=13.
      compute avy90=12.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>29 and main30<34) and (main31=41 or main31=44 or main31=47).
      compute avy88=13.
      compute avy89=13.
      compute avy90=5.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if (main30>29 and main30<34).
      compute avy88=13.
      compute avy89=13.
      compute avy90=17.
      compute mainy88=4.
      compute mainy89=4.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=36.
      compute avy88=14.
      compute avy89=14.
      compute avy90=12.
      compute mainy88=25.
      compute mainy89=25.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=41.
      compute avy88=1.
      compute avy89=1.
      compute avy90=5.
      compute mainy88=7.
      compute mainy89=7.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      Do if sec30=45.
         compute mtravy90=5.
      Else.
         compute mtravy90=5.
      End if.
   Else if main30=42.
      compute avy88=4.
      compute avy89=4.
      compute avy90=5.
      compute mainy88=15.
      compute mainy89=15.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=43 and (main31=42 or main31=79).
      compute avy88=2.
      compute avy89=2.
      compute avy90=5.
      compute mainy88=8.
      compute mainy89=8.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
     compute mtravy90=5.
   Else if main30=43.
      compute avy88=2.
      compute avy89=2.
      compute avy90=5.
      compute mainy88=8.
      compute mainy89=8.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
     compute mtravy90=5.
   Else if main30=44.
      compute avy88=3.
      compute avy89=3.
      compute avy90=5.
      compute mainy88=9.
      compute mainy89=9.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=50 and (main31=41 or main31=44).
      compute avy88=8.
      compute avy89=8.
      compute avy90=5.
      compute mainy88=21.
      compute mainy89=21.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=50 and (main31=42 or main31=79).
      compute avy88=8.
      compute avy89=8.
      compute avy90=5.
      compute mainy88=21.
      compute mainy89=21.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=50 and (main31=57 or main31=36).
      compute avy88=8.
      compute avy89=8.
      compute avy90=12.
      compute mainy88=21.
      compute mainy89=21.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=50.
      compute avy88=8.
      compute avy89=8.
      compute avy90=17.
      compute mainy88=21.
      compute mainy89=21.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=51 and (main31=41 or main31=44 or main31=45).
      compute avy88=11.
      compute avy89=11.
      compute avy90=5.
      compute mainy88=28.
      compute mainy89=28.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=51 and (main31=42 or main31=79).
      compute avy88=11.
      compute avy89=11.
      compute avy90=5.
      compute mainy88=28.
      compute mainy89=28.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=51 and (main31=57 or main31=36).
      compute avy88=11.
      compute avy89=11.
      compute avy90=12.
      compute mainy88=28.
      compute mainy89=28.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=51.
      compute avy88=11.
      compute avy89=11.
      compute avy90=17.
      compute mainy88=28.
      compute mainy89=28.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=53 and (main31=42 or main31=79).
      compute avy88=6.
      compute avy89=6.
      compute avy90=5.
      compute mainy88=18.
      compute mainy89=18.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=53 and (main31=36 or main31=57).
      compute avy88=6.
      compute avy89=6.
      compute avy90=12.
      compute mainy88=18.
      compute mainy89=18.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=53 and (main31=41 or main31=44).
      compute avy88=6.
      compute avy89=6.
      compute avy90=5.
      compute mainy88=18.
      compute mainy89=18.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=53.
      compute avy88=6.
      compute avy89=6.
      compute avy90=17.
      compute mainy88=18.
      compute mainy89=18.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=54 and (main31=36 or main31=57).
      compute avy88=7.
      compute avy89=7.
      compute avy90=12.
      compute mainy88=20.
      compute mainy89=20.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=54 and (main31=41 or main31=44 or main31=47).
      compute avy88=7.
      compute avy89=7.
      compute avy90=5.
      compute mainy88=20.
      compute mainy89=20.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=54 and (main31=42 or main31=79).
      compute avy88=7.
      compute avy89=7.
      compute avy90=5.
      compute mainy88=20.
      compute mainy89=20.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=54.
      compute avy88=7.
      compute avy89=7.
      compute avy90=17.
      compute mainy88=20.
      compute mainy89=20.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=55 and (main31=57 or main31=36).
      compute avy88=8.
      compute avy89=8.
      compute avy90=12.
      compute mainy88=22.
      compute mainy89=22.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=55 and (main31=42 or main31=79).
      compute avy88=8.
      compute avy89=8.
      compute avy90=5.
      compute mainy88=22.
      compute mainy89=22.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=55.
      compute avy88=8.
      compute avy89=8.
      compute avy90=17.
      compute mainy88=22.
      compute mainy89=22.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=56 and (main31=41 or main31=44).
      compute avy88=8.
      compute avy89=8.
      compute avy90=5.
      compute mainy88=27.
      compute mainy89=27.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=56 and (main31=42 or main31=79).
      compute avy88=8.
      compute avy89=8.
      compute avy90=5.
      compute mainy88=27.
      compute mainy89=27.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=56 and (main31=36 or main31=57).
      compute avy88=8.
      compute avy89=8.
      compute avy90=12.
      compute mainy88=27.
      compute mainy89=27.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=56.
      compute avy88=8.
      compute avy89=8.
      compute avy90=17.
      compute mainy88=27.
      compute mainy89=27.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=57 and (main31=41 or main31=44).
      compute avy88=10.
      compute avy89=10.
      compute avy90=5.
      compute mainy88=24.
      compute mainy89=24.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=57 and (main31=42 or main31=79).
      compute avy88=10.
      compute avy89=10.
      compute avy90=5.
      compute mainy88=24.
      compute mainy89=24.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=57 and (main31=36 or main31=57).
      compute avy88=10.
      compute avy89=10.
      compute avy90=12.
      compute mainy88=24.
      compute mainy89=24.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=57.
      compute avy88=10.
      compute avy89=10.
      compute avy90=17.
      compute mainy88=24.
      compute mainy89=24.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=59.
      compute avy88=7.
      compute avy89=7.
      compute avy90=12.
      compute mainy88=23.
      compute mainy89=23.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=66.
      compute avy88=38.
      compute avy89=38.
      compute avy90=12.
      compute mainy88=48.
      compute mainy89=48.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=69 and (main31=41 or main31=44).
      compute avy88=36.
      compute avy89=36.
      compute avy90=5.
      compute mainy88=55.
      compute mainy89=55.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=69 and (main31=36 or main31=57).
      compute avy88=36.
      compute avy89=36.
      compute avy90=12.
      compute mainy88=55.
      compute mainy89=55.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=69.
      compute avy88=36.
      compute avy89=36.
      compute avy90=17.
      compute mainy88=55.
      compute mainy89=55.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=71 and main31=42.
      compute avy88=29.
      compute avy89=29.
      compute avy90=5.
      compute mainy88=48.
      compute mainy89=48.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=71 and main31=41.
      compute avy88=29.
      compute avy89=29.
      compute avy90=5.
      compute mainy88=48.
      compute mainy89=48.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=75.
      compute avy88=27.
      compute avy89=27.
      compute avy90=17.
      compute mainy88=39.
      compute mainy89=39.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=77.
      compute avy88=28.
      compute avy89=28.
      compute avy90=17.
      compute mainy88=39.
      compute mainy89=39.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=78 and (main30=41 or main30=44).
      compute avy88=22.
      compute avy89=22.
      compute avy90=5.
      compute mainy88=34.
      compute mainy89=34.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=78.
      compute avy88=22.
      compute avy89=22.
      compute avy90=17.
      compute mainy88=34.
      compute mainy89=34.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=79.
      compute avy88=4.
      compute avy89=4.
      compute avy90=5.
      compute mainy88=17.
      compute mainy89=17.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=82.
      compute avy88=20.
      compute avy89=20.
      compute avy90=17.
      compute mainy88=36.
      compute mainy89=36.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=84.
      compute avy88=18.
      compute avy89=18.
      compute avy90=17.
      compute mainy88=45.
      compute mainy89=45.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=85 or main30=86.
      compute avy88=18.
      compute avy89=18.
      compute avy90=17.
      compute mainy88=38.
      compute mainy89=38.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=91 and (main31=36 or main31=57).
      compute avy88=40.
      compute avy89=40.
      compute avy90=12.
      compute mainy88=51.
      compute mainy89=51.
      compute mainy90=67.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=91 and (main31=41 or main31=44).
      compute avy88=40.
      compute avy89=40.
      compute avy90=5.
      compute mainy88=51.
      compute mainy89=51.
      compute mainy90=63.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=91 and (main31=42 or main31=79).
      compute avy88=40.
      compute avy89=40.
      compute avy90=5.
      compute mainy88=51.
      compute mainy89=51.
      compute mainy90=64.
      compute mtravy88=-7.
      compute mtravy89=-7.
      compute mtravy90=5.
   Else if main30=91.
      compute avy88=40.
      compute avy89=40.
      compute avy90=17.
      compute mainy88=51.
      compute mainy89=51.
      compute mainy90=68.
      compute mtravy88=-7.
      compute mtravy89=-7.
      Do if sec30=45.
         compute mtravy90=1.
      Else.
         compute mtravy90=5.
      End if.
   End if.
End if.

Do if main30=1 and main31=1 and mtmark30=0.
   compute avy88=16.
   compute avy89=16.
   compute avy90=16.
   compute mainy88=2.
   compute mainy89=2.
   compute mainy90=2.
   compute mtravy88=-7. 
   compute mtravy89=-7. 
   compute mtravy90=-7. 
Else if main30=2 and main31=2 and mtmark30=0.
   compute avy88=16.
   compute avy89=16.
   compute avy90=16.
   compute mainy88=2.
   compute mainy89=2.
   compute mainy90=2.
   compute mtravy88=-7.
   compute mtravy89=-7.
   compute mtravy90=-7.
End if.

freq avy88 avy89 avy90 mainy88 mainy89 mainy90 mtravy88 mtravy89 mtravy90.

*set values for the 31st time slot.
freq mtmark31.
*1229 missing travel cases in time slot 31.

temp.
select if mtmark31=1.
cro main31 by main32.

if main31=83 or main32=83 or main31=63 or main32=63 mtmark31=0.
if main31=34 or main31=38 or main31=62 or main31=67 or main31=81 mtmark31=0.
if main32=34 or main32=38 or main32=62 or main32=67 or main32=81 mtmark31=0.
if main31=main32 mtmark31=0.
if main31=1 or main31=61 or main32=61 or main32=72 or main32=50 mtmark31=0.
if main31=59 and main32>57 mtmark31=0.
if main31=60 or main31=64 or main31=66 or main31=68 or main31=70 or 
   main31=71 or main31=72 or main31=73 or main31=35 or main31=52 or 
   main31=65 or main31=74 or main31=80 or main31=82 or main31=99 or
   main31=76 or main31=49 mtmark31=0.
if main31=84 and main31=52 mtmark12=0.
*errors fixed, 765 cases remain.

temp.
select if sec31=45.
cro main31 by main32 by mtmark31.

Do if mtmark31=0.
   Do if main31>95.
      compute avy91=41.
      compute avy92=41.
      compute avy93=41.
      compute mainy91=69.
      compute mainy92=69.
      compute mainy93=69.
      compute mtravy91=-8.
      compute mtravy92=-8.
      compute mtravy93=-8.
   Else if main31=1.
      compute avy91=16.
      compute avy92=16.
      compute avy93=13.
      compute mainy91=2.
      compute mainy92=2.
      compute mainy93=4.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=-7. 
   Else if main31=2.
      compute avy91=16.
      compute avy92=16.
      compute avy93=36.
      compute mainy91=2.
      compute mainy92=2.
      compute mainy93=55.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=3 or main31=4.
      compute avy91=16.
      compute avy92=16.
      compute avy93=16.
      compute mainy91=2.
      compute mainy92=2.
      compute mainy93=2.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=-7. 
   Else if main31=5.
      compute avy91=16.
      compute avy92=16.
      compute avy93=16.
      compute mainy91=3.
      compute mainy92=3.
      compute mainy93=3.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=6.
      compute avy91=13.
      compute avy92=13.
      compute avy93=13.
      compute mainy91=1.
      compute mainy92=1.
      compute mainy93=1.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31>6 and main31<20.
      compute avy91=30.
      compute avy92=30.
      compute avy93=30.
      compute mainy91=58.
      compute mainy92=58.
      compute mainy93=58.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31>19 and main31<30.
      compute avy91=31.
      compute avy92=31.
      compute avy93=31.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=59.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31>29 and main31<34.
      compute avy91=13.
      compute avy92=13.
      compute avy93=13.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=4.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=34 and sec31=45.
      compute avy91=15.
      compute avy92=15.
      compute avy93=5.
      compute mainy91=6.
      compute mainy92=6.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=1.
   Else if main31=34 or main31=35 or ((main31=38 or main31=39) and loc31=1).
      compute avy91=15.
      compute avy92=15.
      compute avy93=15.
      compute mainy91=6.
      compute mainy92=6.
      compute mainy93=6.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=36.
      compute avy91=14.
      compute avy92=14.
      compute avy93=14.
      compute mainy91=25.
      compute mainy92=25.
      compute mainy93=25.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=37.
      compute avy91=12.
      compute avy92=12.
      compute avy93=12.
      compute mainy91=67.
      compute mainy92=67.
      compute mainy93=67.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=40.
      compute avy91=1.
      compute avy92=1.
      compute avy93=1.
      compute mainy91=13.
      compute mainy92=13.
      compute mainy93=13.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=41 and sec31=45.
      compute avy91=1.
      compute avy92=1.
      compute avy93=5.
      compute mainy91=7.
      compute mainy92=7.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=1.
   Else if main31=41.
      compute avy91=1.
      compute avy92=1.
      compute avy93=1.
      compute mainy91=7.
      compute mainy92=7.
      compute mainy93=7.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=42.
      compute avy91=4.
      compute avy92=4.
      compute avy93=4.
      compute mainy91=15.
      compute mainy92=15.
      compute mainy93=15.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=43.
      compute avy91=2.
      compute avy92=2.
      compute avy93=2.
      compute mainy91=8.
      compute mainy92=8.
      compute mainy93=8.
      compute mtravy91=-7.
      compute mtravy92=-7.
     compute mtravy93=-7.
   Else if main31=44.
      compute avy91=3.
      compute avy92=3.
      compute avy93=3.
      compute mainy91=9.
      compute mainy92=9.
      compute mainy93=9.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=45 and (main32=42 or main32=79).
      compute avy91=5.
      compute avy92=5.
      compute avy93=5.
      compute mainy91=64.
      compute mainy92=64.
      compute mainy93=64.
      compute mtravy91=1.
      compute mtravy92=1.
      compute mtravy93=1.
   Else if (main31=46 or main31=47) and (main32=42 or main32=79).
      compute avy91=5.
      compute avy92=5.
      compute avy93=5.
      compute mainy91=64.
      compute mainy92=64.
      compute mainy93=64.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=45.
      compute avy91=5.
      compute avy92=5.
      compute avy93=5.
      compute mainy91=63.
      compute mainy92=63.
      compute mainy93=63.
      compute mtravy91=1.
      compute mtravy92=1.
      compute mtravy93=1.
   Else if main31=46 or main31=47.
      compute avy91=5.
      compute avy92=5.
      compute avy93=5.
      compute mainy91=63.
      compute mainy92=63.
      compute mainy93=63.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=48.
      compute avy91=5.
      compute avy92=5.
      compute avy93=5.
      compute mainy91=11.
      compute mainy92=11.
      compute mainy93=11.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=49.
      compute avy91=1.
      compute avy92=1.
      compute avy93=1.
      compute mainy91=5.
      compute mainy92=5.
      compute mainy93=5.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=50.
      compute avy91=8.
      compute avy92=8.
      compute avy93=8.
      compute mainy91=21.
      compute mainy92=21.
      compute mainy93=21.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=51.
      compute avy91=11.
      compute avy92=11.
      compute avy93=11.
      compute mainy91=28.
      compute mainy92=28.
      compute mainy93=28.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=52.
      compute avy91=11.
      compute avy92=11.
      compute avy93=11.
      compute mainy91=30.
      compute mainy92=30.
      compute mainy93=30.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=53.
      compute avy91=6.
      compute avy92=6.
      compute avy93=6.
      compute mainy91=18.
      compute mainy92=18.
      compute mainy93=18.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=54.
      compute avy91=7.
      compute avy92=7.
      compute avy93=7.
      compute mainy91=20.
      compute mainy92=20.
      compute mainy93=20.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=55.
      compute avy91=8.
      compute avy92=8.
      compute avy93=8.
      compute mainy91=22.
      compute mainy92=22.
      compute mainy93=22.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=56.
      compute avy91=8.
      compute avy92=8.
      compute avy93=8.
      compute mainy91=27.
      compute mainy92=27.
      compute mainy93=27.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=57.
      compute avy91=10.
      compute avy92=10.
      compute avy93=10.
      compute mainy91=24.
      compute mainy92=24.
      compute mainy93=24.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=58.
      compute avy91=12.
      compute avy92=12.
      compute avy93=12.
      compute mainy91=66.
      compute mainy92=66.
      compute mainy93=66.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=59.
      compute avy91=7.
      compute avy92=7.
      compute avy93=13.
      compute mainy91=23.
      compute mainy92=23.
      compute mainy93=4.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=60.
      compute avy91=9.
      compute avy92=9.
      compute avy93=9.
      compute mainy91=46.
      compute mainy92=46.
      compute mainy93=46.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=61.
      compute avy91=33.
      compute avy92=33.
      compute avy93=33.
      compute mainy91=16.
      compute mainy92=16.
      compute mainy93=16.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=62.
      compute avy91=34.
      compute avy92=34.
      compute avy93=34.
      compute mainy91=56.
      compute mainy92=56.
      compute mainy93=56.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=63.
      compute avy91=35.
      compute avy92=35.
      compute avy93=35.
      compute mainy91=56.
      compute mainy92=56.
      compute mainy93=56.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=64.
      compute avy91=40.
      compute avy92=40.
      compute avy93=40.
      compute mainy91=54.
      compute mainy92=54.
      compute mainy93=54.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=65.
      compute avy91=39.
      compute avy92=39.
      compute avy93=39.
      compute mainy91=54.
      compute mainy92=54.
      compute mainy93=54.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=66.
      compute avy91=38.
      compute avy92=38.
      compute avy93=38.
      compute mainy91=48.
      compute mainy92=48.
      compute mainy93=48.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=67.
      compute avy91=37.
      compute avy92=37.
      compute avy93=37.
      compute mainy91=49.
      compute mainy92=49.
      compute mainy93=49.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=68.
      compute avy91=32.
      compute avy92=32.
      compute avy93=32.
      compute mainy91=57.
      compute mainy92=57.
      compute mainy93=57.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=69.
      compute avy91=36.
      compute avy92=36.
      compute avy93=36.
      compute mainy91=55.
      compute mainy92=55.
      compute mainy93=55.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=70.
      compute avy91=25.
      compute avy92=25.
      compute avy93=25.
      compute mainy91=35.
      compute mainy92=35.
      compute mainy93=35.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=71.
      compute avy91=29.
      compute avy92=29.
      compute avy93=29.
      compute mainy91=48.
      compute mainy92=48.
      compute mainy93=48.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=72.
      compute avy91=24.
      compute avy92=24.
      compute avy93=24.
      compute mainy91=37.
      compute mainy92=37.
      compute mainy93=37.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=73.
      compute avy91=23.
      compute avy92=23.
      compute avy93=23.
      compute mainy91=33.
      compute mainy92=33.
      compute mainy93=33.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=74.
      compute avy91=26.
      compute avy92=26.
      compute avy93=26.
      compute mainy91=40.
      compute mainy92=40.
      compute mainy93=40.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=75 or main31=39.
      compute avy91=27.
      compute avy92=27.
      compute avy93=27.
      compute mainy91=39.
      compute mainy92=39.
      compute mainy93=39.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=76.
      compute avy91=25.
      compute avy92=25.
      compute avy93=25.
      compute mainy91=40.
      compute mainy92=40.
      compute mainy93=40.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=77 or main31=38.
      compute avy91=28.
      compute avy92=28.
      compute avy93=28.
      compute mainy91=39.
      compute mainy92=39.
      compute mainy93=39.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=78.
      compute avy91=22.
      compute avy92=22.
      compute avy93=22.
      compute mainy91=34.
      compute mainy92=34.
      compute mainy93=34.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=79.
      compute avy91=4.
      compute avy92=4.
      compute avy93=4.
      compute mainy91=17.
      compute mainy92=17.
      compute mainy93=17.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=80.
      compute avy91=18.
      compute avy92=18.
      compute avy93=18.
      compute mainy91=38.
      compute mainy92=38.
      compute mainy93=38.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=81.
      compute avy91=19.
      compute avy92=19.
      compute avy93=19.
      compute mainy91=42.
      compute mainy92=42.
      compute mainy93=42.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=82.
      compute avy91=20.
      compute avy92=20.
      compute avy93=20.
      compute mainy91=36.
      compute mainy92=36.
      compute mainy93=36.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=83.
      compute avy91=21.
      compute avy92=21.
      compute avy93=21.
      compute mainy91=43.
      compute mainy92=43.
      compute mainy93=43.
      compute mtravy91=3.
      compute mtravy92=3.
      compute mtravy93=3.
   Else if main31=84.
      compute avy91=18.
      compute avy92=18.
      compute avy93=18.
      compute mainy91=45.
      compute mainy92=45.
      compute mainy93=45.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=85 or main31=86.
      compute avy91=18.
      compute avy92=18.
      compute avy93=18.
      compute mainy91=38.
      compute mainy92=38.
      compute mainy93=38.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=89.
      compute avy91=17.
      compute avy92=17.
      compute avy93=17.
      compute mainy91=68.
      compute mainy92=68.
      compute mainy93=68.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=90.
      compute avy91=17.
      compute avy92=17.
      compute avy93=17.
      compute mainy91=62.
      compute mainy92=62.
      compute mainy93=62.
      compute mtravy91=5.
      compute mtravy92=5.
      compute mtravy93=5.
   Else if main31=91.
      compute avy91=40.
      compute avy92=40.
      compute avy93=40.
      compute mainy91=51.
      compute mainy92=51.
      compute mainy93=51.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=92.
      compute avy91=31.
      compute avy92=31.
      compute avy93=31.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=59.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   Else if main31=93.
      compute avy91=41.
      compute avy92=41.
      compute avy93=41.
      compute mainy91=41.
      compute mainy92=41.
      compute mainy93=41.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=-7.
   End if.
Else if mtmark31=1.
   Do if main31=2 and (main32=42 or main32=79).
      compute avy91=16.
      compute avy92=36.
      compute avy93=5.
      compute mainy91=2.
      compute mainy92=55.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=2 and (main32=41 or main32=44).
      compute avy91=16.
      compute avy92=36.
      compute avy93=5.
      compute mainy91=2.
      compute mainy92=55.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=2 and (main32=36 or main32=57).
      compute avy91=16.
      compute avy92=36.
      compute avy93=12.
      compute mainy91=2.
      compute mainy92=55.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=2.
      compute avy91=16.
      compute avy92=36.
      compute avy93=17.
      compute mainy91=2.
      compute mainy92=55.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31=3 or main31=4) and (main32=42 or main32=79).
      compute avy91=16.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=2.
      compute mainy92=4.
      compute mainy93=64.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=5. 
   Else if (main31=3 or main31=4) and (main32=41 or main32=44).
      compute avy91=16.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=2.
      compute mainy92=4.
      compute mainy93=63.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=5. 
   Else if (main31=3 or main31=4) and (main32=36 or main32=57).
      compute avy91=16.
      compute avy92=13.
      compute avy93=12.
      compute mainy91=2.
      compute mainy92=4.
      compute mainy93=67.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=5. 
   Else if (main31=3 or main31=4).
      compute avy91=16.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=2.
      compute mainy92=4.
      compute mainy93=63.
      compute mtravy91=-7. 
      compute mtravy92=-7. 
      compute mtravy93=5.
   Else if main31=6 and (main32=41 or main32=44).
      compute avy91=13.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=1.
      compute mainy92=1.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=6 and (main32=42 or main32=79).
      compute avy91=13.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=1.
      compute mainy92=1.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=6 and (main32=36 or main32=57).
      compute avy91=13.
      compute avy92=13.
      compute avy93=12.
      compute mainy91=1.
      compute mainy92=1.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=6.
      compute avy91=13.
      compute avy92=13.
      compute avy93=17.
      compute mainy91=1.
      compute mainy92=1.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>10 and main31<15) and (main32=42 or main32=79).
      compute avy91=30.
      compute avy92=30.
      compute avy93=5.
      compute mainy91=58.
      compute mainy92=58.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>10 and main31<15) and (main32=41 or main32=44).
      compute avy91=30.
      compute avy92=30.
      compute avy93=5.
      compute mainy91=58.
      compute mainy92=58.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>10 and main31<15) and (main32=36 or main32=57).
      compute avy91=30.
      compute avy92=30.
      compute avy93=12.
      compute mainy91=58.
      compute mainy92=58.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31>10 and main31<15.
      compute avy91=30.
      compute avy92=30.
      compute avy93=17.
      compute mainy91=58.
      compute mainy92=58.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>19 and main31<30) and (main32=41 or main32=44).
      compute avy91=31.
      compute avy92=31.
      compute avy93=5.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>19 and main31<30) and (main32=42 or main32=79).
      compute avy91=31.
      compute avy92=31.
      compute avy93=5.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>19 and main31<30) and (main32=36 or main32=57).
      compute avy91=31.
      compute avy92=31.
      compute avy93=12.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31>19 and main31<30.
      compute avy91=31.
      compute avy92=31.
      compute avy93=17.
      compute mainy91=59.
      compute mainy92=59.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>29 and main31<34) and sec31=45.
      compute avy91=13.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=1.
   Else if (main31>29 and main31<34) and (main32=42 or main32=79).
      compute avy91=13.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>29 and main31<34) and (main32=57 or main32=36).
      compute avy91=13.
      compute avy92=13.
      compute avy93=12.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>29 and main31<34) and (main32=41 or main32=44 or main32=47).
      compute avy91=13.
      compute avy92=13.
      compute avy93=5.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if (main31>29 and main31<34).
      compute avy91=13.
      compute avy92=13.
      compute avy93=17.
      compute mainy91=4.
      compute mainy92=4.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=36.
      compute avy91=14.
      compute avy92=14.
      compute avy93=12.
      compute mainy91=25.
      compute mainy92=25.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=41.
      compute avy91=1.
      compute avy92=1.
      compute avy93=5.
      compute mainy91=7.
      compute mainy92=7.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      Do if sec31=45.
         compute mtravy93=5.
      Else.
         compute mtravy93=5.
      End if.
   Else if main31=42.
      compute avy91=4.
      compute avy92=4.
      compute avy93=5.
      compute mainy91=15.
      compute mainy92=15.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=43 and (main32=42 or main32=79).
      compute avy91=2.
      compute avy92=2.
      compute avy93=5.
      compute mainy91=8.
      compute mainy92=8.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
     compute mtravy93=5.
   Else if main31=43.
      compute avy91=2.
      compute avy92=2.
      compute avy93=5.
      compute mainy91=8.
      compute mainy92=8.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
     compute mtravy93=5.
   Else if main31=44.
      compute avy91=3.
      compute avy92=3.
      compute avy93=5.
      compute mainy91=9.
      compute mainy92=9.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=50 and (main32=41 or main32=44).
      compute avy91=8.
      compute avy92=8.
      compute avy93=5.
      compute mainy91=21.
      compute mainy92=21.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=50 and (main32=42 or main32=79).
      compute avy91=8.
      compute avy92=8.
      compute avy93=5.
      compute mainy91=21.
      compute mainy92=21.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=50 and (main32=57 or main32=36).
      compute avy91=8.
      compute avy92=8.
      compute avy93=12.
      compute mainy91=21.
      compute mainy92=21.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=50.
      compute avy91=8.
      compute avy92=8.
      compute avy93=17.
      compute mainy91=21.
      compute mainy92=21.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=51 and (main32=41 or main32=44 or main32=45).
      compute avy91=11.
      compute avy92=11.
      compute avy93=5.
      compute mainy91=28.
      compute mainy92=28.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=51 and (main32=42 or main32=79).
      compute avy91=11.
      compute avy92=11.
      compute avy93=5.
      compute mainy91=28.
      compute mainy92=28.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=51 and (main32=57 or main32=36).
      compute avy91=11.
      compute avy92=11.
      compute avy93=12.
      compute mainy91=28.
      compute mainy92=28.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=51.
      compute avy91=11.
      compute avy92=11.
      compute avy93=17.
      compute mainy91=28.
      compute mainy92=28.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=53 and (main32=42 or main32=79).
      compute avy91=6.
      compute avy92=6.
      compute avy93=5.
      compute mainy91=18.
      compute mainy92=18.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=53 and (main32=36 or main32=57).
      compute avy91=6.
      compute avy92=6.
      compute avy93=12.
      compute mainy91=18.
      compute mainy92=18.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=53 and (main32=41 or main32=44).
      compute avy91=6.
      compute avy92=6.
      compute avy93=5.
      compute mainy91=18.
      compute mainy92=18.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=53.
      compute avy91=6.
      compute avy92=6.
      compute avy93=17.
      compute mainy91=18.
      compute mainy92=18.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=54 and (main32=36 or main32=57).
      compute avy91=7.
      compute avy92=7.
      compute avy93=12.
      compute mainy91=20.
      compute mainy92=20.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=54 and (main32=41 or main32=44 or main32=47).
      compute avy91=7.
      compute avy92=7.
      compute avy93=5.
      compute mainy91=20.
      compute mainy92=20.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=54 and (main32=42 or main32=79).
      compute avy91=7.
      compute avy92=7.
      compute avy93=5.
      compute mainy91=20.
      compute mainy92=20.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=54.
      compute avy91=7.
      compute avy92=7.
      compute avy93=17.
      compute mainy91=20.
      compute mainy92=20.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=55 and (main32=57 or main32=36).
      compute avy91=8.
      compute avy92=8.
      compute avy93=12.
      compute mainy91=22.
      compute mainy92=22.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=55 and (main32=42 or main32=79).
      compute avy91=8.
      compute avy92=8.
      compute avy93=5.
      compute mainy91=22.
      compute mainy92=22.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=55.
      compute avy91=8.
      compute avy92=8.
      compute avy93=17.
      compute mainy91=22.
      compute mainy92=22.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=56 and (main32=41 or main32=44).
      compute avy91=8.
      compute avy92=8.
      compute avy93=5.
      compute mainy91=27.
      compute mainy92=27.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=56 and (main32=42 or main32=79).
      compute avy91=8.
      compute avy92=8.
      compute avy93=5.
      compute mainy91=27.
      compute mainy92=27.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=56 and (main32=36 or main32=57).
      compute avy91=8.
      compute avy92=8.
      compute avy93=12.
      compute mainy91=27.
      compute mainy92=27.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=56.
      compute avy91=8.
      compute avy92=8.
      compute avy93=17.
      compute mainy91=27.
      compute mainy92=27.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=57 and (main32=41 or main32=44).
      compute avy91=10.
      compute avy92=10.
      compute avy93=5.
      compute mainy91=24.
      compute mainy92=24.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=57 and (main32=42 or main32=79).
      compute avy91=10.
      compute avy92=10.
      compute avy93=5.
      compute mainy91=24.
      compute mainy92=24.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=57 and (main32=36 or main32=57).
      compute avy91=10.
      compute avy92=10.
      compute avy93=12.
      compute mainy91=24.
      compute mainy92=24.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=57.
      compute avy91=10.
      compute avy92=10.
      compute avy93=17.
      compute mainy91=24.
      compute mainy92=24.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=59.
      compute avy91=7.
      compute avy92=7.
      compute avy93=12.
      compute mainy91=23.
      compute mainy92=23.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=66.
      compute avy91=38.
      compute avy92=38.
      compute avy93=12.
      compute mainy91=48.
      compute mainy92=48.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=69 and (main32=41 or main32=44).
      compute avy91=36.
      compute avy92=36.
      compute avy93=5.
      compute mainy91=55.
      compute mainy92=55.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=69 and (main32=36 or main32=57).
      compute avy91=36.
      compute avy92=36.
      compute avy93=12.
      compute mainy91=55.
      compute mainy92=55.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=69.
      compute avy91=36.
      compute avy92=36.
      compute avy93=17.
      compute mainy91=55.
      compute mainy92=55.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=71 and main32=42.
      compute avy91=29.
      compute avy92=29.
      compute avy93=5.
      compute mainy91=48.
      compute mainy92=48.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=71 and main32=41.
      compute avy91=29.
      compute avy92=29.
      compute avy93=5.
      compute mainy91=48.
      compute mainy92=48.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=75.
      compute avy91=27.
      compute avy92=27.
      compute avy93=17.
      compute mainy91=39.
      compute mainy92=39.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=77.
      compute avy91=28.
      compute avy92=28.
      compute avy93=17.
      compute mainy91=39.
      compute mainy92=39.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=78 and (main31=41 or main31=44).
      compute avy91=22.
      compute avy92=22.
      compute avy93=5.
      compute mainy91=34.
      compute mainy92=34.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=78.
      compute avy91=22.
      compute avy92=22.
      compute avy93=17.
      compute mainy91=34.
      compute mainy92=34.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=79.
      compute avy91=4.
      compute avy92=4.
      compute avy93=5.
      compute mainy91=17.
      compute mainy92=17.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=82.
      compute avy91=20.
      compute avy92=20.
      compute avy93=17.
      compute mainy91=36.
      compute mainy92=36.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=84.
      compute avy91=18.
      compute avy92=18.
      compute avy93=17.
      compute mainy91=45.
      compute mainy92=45.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=85 or main31=86.
      compute avy91=18.
      compute avy92=18.
      compute avy93=17.
      compute mainy91=38.
      compute mainy92=38.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=91 and (main32=36 or main32=57).
      compute avy91=40.
      compute avy92=40.
      compute avy93=12.
      compute mainy91=51.
      compute mainy92=51.
      compute mainy93=67.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=91 and (main32=41 or main32=44).
      compute avy91=40.
      compute avy92=40.
      compute avy93=5.
      compute mainy91=51.
      compute mainy92=51.
      compute mainy93=63.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=91 and (main32=42 or main32=79).
      compute avy91=40.
      compute avy92=40.
      compute avy93=5.
      compute mainy91=51.
      compute mainy92=51.
      compute mainy93=64.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   Else if main31=91.
      compute avy91=40.
      compute avy92=40.
      compute avy93=17.
      compute mainy91=51.
      compute mainy92=51.
      compute mainy93=68.
      compute mtravy91=-7.
      compute mtravy92=-7.
      compute mtravy93=5.
   End if.
End if.

Do if main31=1 and main32=1 and mtmark31=0.
   compute avy91=16.
   compute avy92=16.
   compute avy93=16.
   compute mainy91=2.
   compute mainy92=2.
   compute mainy93=2.
   compute mtravy91=-7. 
   compute mtravy92=-7. 
   compute mtravy93=-7. 
Else if main31=2 and main32=2 and mtmark31=0.
   compute avy91=16.
   compute avy92=16.
   compute avy93=16.
   compute mainy91=2.
   compute mainy92=2.
   compute mainy93=2.
   compute mtravy91=-7.
   compute mtravy92=-7.
   compute mtravy93=-7.
End if.

freq avy91 avy92 avy93 mainy91 mainy92 mainy93 mtravy91 mtravy92 mtravy93.

*set values for the 32st time slot.
freq mtmark32.
*1126 missing travel cases in time slot 32.

temp.
select if mtmark32=1.
cro main32 by main33.

if main32=83 or main33=83 or main32=63 or main33=63 mtmark32=0.
if main32=34 or main32=38 or main32=62 or main32=67 or main32=81 mtmark32=0.
if main33=34 or main33=38 or main33=62 or main33=67 or main33=81 mtmark32=0.
if main32=main33 mtmark32=0.
if main32=1 or main32=61 or main33=61 or main33=72 or main33=50 mtmark32=0.
if main32=59 and main33>57 mtmark32=0.
if main32=60 or main32=64 or main32=66 or main32=68 or main32=70 or 
   main32=71 or main32=72 or main32=73 or main32=35 or main32=52 or 
   main32=65 or main32=74 or main32=80 or main32=82 or main32=99 or
   main32=76 or main32=49 mtmark32=0.
if main32=84 and main32=52 mtmark12=0.
*errors fixed, 725 cases remain.

temp.
select if sec32=45.
cro main32 by main33 by mtmark32.

Do if mtmark32=0.
   Do if main32>95.
      compute avy94=41.
      compute avy95=41.
      compute avy96=41.
      compute mainy94=69.
      compute mainy95=69.
      compute mainy96=69.
      compute mtravy94=-8.
      compute mtravy95=-8.
      compute mtravy96=-8.
   Else if main32=1.
      compute avy94=16.
      compute avy95=16.
      compute avy96=13.
      compute mainy94=2.
      compute mainy95=2.
      compute mainy96=4.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=-7. 
   Else if main32=2.
      compute avy94=16.
      compute avy95=16.
      compute avy96=36.
      compute mainy94=2.
      compute mainy95=2.
      compute mainy96=55.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=3 or main32=4.
      compute avy94=16.
      compute avy95=16.
      compute avy96=16.
      compute mainy94=2.
      compute mainy95=2.
      compute mainy96=2.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=-7. 
   Else if main32=5.
      compute avy94=16.
      compute avy95=16.
      compute avy96=16.
      compute mainy94=3.
      compute mainy95=3.
      compute mainy96=3.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=6.
      compute avy94=13.
      compute avy95=13.
      compute avy96=13.
      compute mainy94=1.
      compute mainy95=1.
      compute mainy96=1.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32>6 and main32<20.
      compute avy94=30.
      compute avy95=30.
      compute avy96=30.
      compute mainy94=58.
      compute mainy95=58.
      compute mainy96=58.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32>19 and main32<30.
      compute avy94=31.
      compute avy95=31.
      compute avy96=31.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=59.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32>29 and main32<34.
      compute avy94=13.
      compute avy95=13.
      compute avy96=13.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=4.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=34 and sec32=45.
      compute avy94=15.
      compute avy95=15.
      compute avy96=5.
      compute mainy94=6.
      compute mainy95=6.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=1.
   Else if main32=34 or main32=35 or ((main32=38 or main32=39) and loc32=1).
      compute avy94=15.
      compute avy95=15.
      compute avy96=15.
      compute mainy94=6.
      compute mainy95=6.
      compute mainy96=6.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=36.
      compute avy94=14.
      compute avy95=14.
      compute avy96=14.
      compute mainy94=25.
      compute mainy95=25.
      compute mainy96=25.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=37.
      compute avy94=12.
      compute avy95=12.
      compute avy96=12.
      compute mainy94=67.
      compute mainy95=67.
      compute mainy96=67.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=40.
      compute avy94=1.
      compute avy95=1.
      compute avy96=1.
      compute mainy94=13.
      compute mainy95=13.
      compute mainy96=13.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=41 and sec32=45.
      compute avy94=1.
      compute avy95=1.
      compute avy96=5.
      compute mainy94=7.
      compute mainy95=7.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=1.
   Else if main32=41.
      compute avy94=1.
      compute avy95=1.
      compute avy96=1.
      compute mainy94=7.
      compute mainy95=7.
      compute mainy96=7.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=42.
      compute avy94=4.
      compute avy95=4.
      compute avy96=4.
      compute mainy94=15.
      compute mainy95=15.
      compute mainy96=15.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=43.
      compute avy94=2.
      compute avy95=2.
      compute avy96=2.
      compute mainy94=8.
      compute mainy95=8.
      compute mainy96=8.
      compute mtravy94=-7.
      compute mtravy95=-7.
     compute mtravy96=-7.
   Else if main32=44.
      compute avy94=3.
      compute avy95=3.
      compute avy96=3.
      compute mainy94=9.
      compute mainy95=9.
      compute mainy96=9.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=45 and (main33=42 or main33=79).
      compute avy94=5.
      compute avy95=5.
      compute avy96=5.
      compute mainy94=64.
      compute mainy95=64.
      compute mainy96=64.
      compute mtravy94=1.
      compute mtravy95=1.
      compute mtravy96=1.
   Else if (main32=46 or main32=47) and (main33=42 or main33=79).
      compute avy94=5.
      compute avy95=5.
      compute avy96=5.
      compute mainy94=64.
      compute mainy95=64.
      compute mainy96=64.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=45.
      compute avy94=5.
      compute avy95=5.
      compute avy96=5.
      compute mainy94=63.
      compute mainy95=63.
      compute mainy96=63.
      compute mtravy94=1.
      compute mtravy95=1.
      compute mtravy96=1.
   Else if main32=46 or main32=47.
      compute avy94=5.
      compute avy95=5.
      compute avy96=5.
      compute mainy94=63.
      compute mainy95=63.
      compute mainy96=63.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=48.
      compute avy94=5.
      compute avy95=5.
      compute avy96=5.
      compute mainy94=11.
      compute mainy95=11.
      compute mainy96=11.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=49.
      compute avy94=1.
      compute avy95=1.
      compute avy96=1.
      compute mainy94=5.
      compute mainy95=5.
      compute mainy96=5.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=50.
      compute avy94=8.
      compute avy95=8.
      compute avy96=8.
      compute mainy94=21.
      compute mainy95=21.
      compute mainy96=21.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=51.
      compute avy94=11.
      compute avy95=11.
      compute avy96=11.
      compute mainy94=28.
      compute mainy95=28.
      compute mainy96=28.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=52.
      compute avy94=11.
      compute avy95=11.
      compute avy96=11.
      compute mainy94=30.
      compute mainy95=30.
      compute mainy96=30.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=53.
      compute avy94=6.
      compute avy95=6.
      compute avy96=6.
      compute mainy94=18.
      compute mainy95=18.
      compute mainy96=18.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=54.
      compute avy94=7.
      compute avy95=7.
      compute avy96=7.
      compute mainy94=20.
      compute mainy95=20.
      compute mainy96=20.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=55.
      compute avy94=8.
      compute avy95=8.
      compute avy96=8.
      compute mainy94=22.
      compute mainy95=22.
      compute mainy96=22.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=56.
      compute avy94=8.
      compute avy95=8.
      compute avy96=8.
      compute mainy94=27.
      compute mainy95=27.
      compute mainy96=27.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=57.
      compute avy94=10.
      compute avy95=10.
      compute avy96=10.
      compute mainy94=24.
      compute mainy95=24.
      compute mainy96=24.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=58.
      compute avy94=12.
      compute avy95=12.
      compute avy96=12.
      compute mainy94=66.
      compute mainy95=66.
      compute mainy96=66.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=59.
      compute avy94=7.
      compute avy95=7.
      compute avy96=13.
      compute mainy94=23.
      compute mainy95=23.
      compute mainy96=4.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=60.
      compute avy94=9.
      compute avy95=9.
      compute avy96=9.
      compute mainy94=46.
      compute mainy95=46.
      compute mainy96=46.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=61.
      compute avy94=33.
      compute avy95=33.
      compute avy96=33.
      compute mainy94=16.
      compute mainy95=16.
      compute mainy96=16.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=62.
      compute avy94=34.
      compute avy95=34.
      compute avy96=34.
      compute mainy94=56.
      compute mainy95=56.
      compute mainy96=56.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=63.
      compute avy94=35.
      compute avy95=35.
      compute avy96=35.
      compute mainy94=56.
      compute mainy95=56.
      compute mainy96=56.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=64.
      compute avy94=40.
      compute avy95=40.
      compute avy96=40.
      compute mainy94=54.
      compute mainy95=54.
      compute mainy96=54.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=65.
      compute avy94=39.
      compute avy95=39.
      compute avy96=39.
      compute mainy94=54.
      compute mainy95=54.
      compute mainy96=54.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=66.
      compute avy94=38.
      compute avy95=38.
      compute avy96=38.
      compute mainy94=48.
      compute mainy95=48.
      compute mainy96=48.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=67.
      compute avy94=37.
      compute avy95=37.
      compute avy96=37.
      compute mainy94=49.
      compute mainy95=49.
      compute mainy96=49.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=68.
      compute avy94=32.
      compute avy95=32.
      compute avy96=32.
      compute mainy94=57.
      compute mainy95=57.
      compute mainy96=57.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=69.
      compute avy94=36.
      compute avy95=36.
      compute avy96=36.
      compute mainy94=55.
      compute mainy95=55.
      compute mainy96=55.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=70.
      compute avy94=25.
      compute avy95=25.
      compute avy96=25.
      compute mainy94=35.
      compute mainy95=35.
      compute mainy96=35.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=71.
      compute avy94=29.
      compute avy95=29.
      compute avy96=29.
      compute mainy94=48.
      compute mainy95=48.
      compute mainy96=48.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=72.
      compute avy94=24.
      compute avy95=24.
      compute avy96=24.
      compute mainy94=37.
      compute mainy95=37.
      compute mainy96=37.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=73.
      compute avy94=23.
      compute avy95=23.
      compute avy96=23.
      compute mainy94=33.
      compute mainy95=33.
      compute mainy96=33.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=74.
      compute avy94=26.
      compute avy95=26.
      compute avy96=26.
      compute mainy94=40.
      compute mainy95=40.
      compute mainy96=40.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=75 or main32=39.
      compute avy94=27.
      compute avy95=27.
      compute avy96=27.
      compute mainy94=39.
      compute mainy95=39.
      compute mainy96=39.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=76.
      compute avy94=25.
      compute avy95=25.
      compute avy96=25.
      compute mainy94=40.
      compute mainy95=40.
      compute mainy96=40.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=77 or main32=38.
      compute avy94=28.
      compute avy95=28.
      compute avy96=28.
      compute mainy94=39.
      compute mainy95=39.
      compute mainy96=39.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=78.
      compute avy94=22.
      compute avy95=22.
      compute avy96=22.
      compute mainy94=34.
      compute mainy95=34.
      compute mainy96=34.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=79.
      compute avy94=4.
      compute avy95=4.
      compute avy96=4.
      compute mainy94=17.
      compute mainy95=17.
      compute mainy96=17.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=80.
      compute avy94=18.
      compute avy95=18.
      compute avy96=18.
      compute mainy94=38.
      compute mainy95=38.
      compute mainy96=38.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=81.
      compute avy94=19.
      compute avy95=19.
      compute avy96=19.
      compute mainy94=42.
      compute mainy95=42.
      compute mainy96=42.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=82.
      compute avy94=20.
      compute avy95=20.
      compute avy96=20.
      compute mainy94=36.
      compute mainy95=36.
      compute mainy96=36.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=83.
      compute avy94=21.
      compute avy95=21.
      compute avy96=21.
      compute mainy94=43.
      compute mainy95=43.
      compute mainy96=43.
      compute mtravy94=3.
      compute mtravy95=3.
      compute mtravy96=3.
   Else if main32=84.
      compute avy94=18.
      compute avy95=18.
      compute avy96=18.
      compute mainy94=45.
      compute mainy95=45.
      compute mainy96=45.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=85 or main32=86.
      compute avy94=18.
      compute avy95=18.
      compute avy96=18.
      compute mainy94=38.
      compute mainy95=38.
      compute mainy96=38.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=89.
      compute avy94=17.
      compute avy95=17.
      compute avy96=17.
      compute mainy94=68.
      compute mainy95=68.
      compute mainy96=68.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=90.
      compute avy94=17.
      compute avy95=17.
      compute avy96=17.
      compute mainy94=62.
      compute mainy95=62.
      compute mainy96=62.
      compute mtravy94=5.
      compute mtravy95=5.
      compute mtravy96=5.
   Else if main32=91.
      compute avy94=40.
      compute avy95=40.
      compute avy96=40.
      compute mainy94=51.
      compute mainy95=51.
      compute mainy96=51.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=92.
      compute avy94=31.
      compute avy95=31.
      compute avy96=31.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=59.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   Else if main32=93.
      compute avy94=41.
      compute avy95=41.
      compute avy96=41.
      compute mainy94=41.
      compute mainy95=41.
      compute mainy96=41.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=-7.
   End if.
Else if mtmark32=1.
   Do if main32=2 and (main33=42 or main33=79).
      compute avy94=16.
      compute avy95=36.
      compute avy96=5.
      compute mainy94=2.
      compute mainy95=55.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=2 and (main33=41 or main33=44).
      compute avy94=16.
      compute avy95=36.
      compute avy96=5.
      compute mainy94=2.
      compute mainy95=55.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=2 and (main33=36 or main33=57).
      compute avy94=16.
      compute avy95=36.
      compute avy96=12.
      compute mainy94=2.
      compute mainy95=55.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=2.
      compute avy94=16.
      compute avy95=36.
      compute avy96=17.
      compute mainy94=2.
      compute mainy95=55.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32=3 or main32=4) and (main33=42 or main33=79).
      compute avy94=16.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=2.
      compute mainy95=4.
      compute mainy96=64.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=5. 
   Else if (main32=3 or main32=4) and (main33=41 or main33=44).
      compute avy94=16.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=2.
      compute mainy95=4.
      compute mainy96=63.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=5. 
   Else if (main32=3 or main32=4) and (main33=36 or main33=57).
      compute avy94=16.
      compute avy95=13.
      compute avy96=12.
      compute mainy94=2.
      compute mainy95=4.
      compute mainy96=67.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=5. 
   Else if (main32=3 or main32=4).
      compute avy94=16.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=2.
      compute mainy95=4.
      compute mainy96=63.
      compute mtravy94=-7. 
      compute mtravy95=-7. 
      compute mtravy96=5.
   Else if main32=6 and (main33=41 or main33=44).
      compute avy94=13.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=1.
      compute mainy95=1.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=6 and (main33=42 or main33=79).
      compute avy94=13.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=1.
      compute mainy95=1.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=6 and (main33=36 or main33=57).
      compute avy94=13.
      compute avy95=13.
      compute avy96=12.
      compute mainy94=1.
      compute mainy95=1.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=6.
      compute avy94=13.
      compute avy95=13.
      compute avy96=17.
      compute mainy94=1.
      compute mainy95=1.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>10 and main32<15) and (main33=42 or main33=79).
      compute avy94=30.
      compute avy95=30.
      compute avy96=5.
      compute mainy94=58.
      compute mainy95=58.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>10 and main32<15) and (main33=41 or main33=44).
      compute avy94=30.
      compute avy95=30.
      compute avy96=5.
      compute mainy94=58.
      compute mainy95=58.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>10 and main32<15) and (main33=36 or main33=57).
      compute avy94=30.
      compute avy95=30.
      compute avy96=12.
      compute mainy94=58.
      compute mainy95=58.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32>10 and main32<15.
      compute avy94=30.
      compute avy95=30.
      compute avy96=17.
      compute mainy94=58.
      compute mainy95=58.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>19 and main32<30) and (main33=41 or main33=44).
      compute avy94=31.
      compute avy95=31.
      compute avy96=5.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>19 and main32<30) and (main33=42 or main33=79).
      compute avy94=31.
      compute avy95=31.
      compute avy96=5.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>19 and main32<30) and (main33=36 or main33=57).
      compute avy94=31.
      compute avy95=31.
      compute avy96=12.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32>19 and main32<30.
      compute avy94=31.
      compute avy95=31.
      compute avy96=17.
      compute mainy94=59.
      compute mainy95=59.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>29 and main32<34) and sec32=45.
      compute avy94=13.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=1.
   Else if (main32>29 and main32<34) and (main33=42 or main33=79).
      compute avy94=13.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>29 and main32<34) and (main33=57 or main33=36).
      compute avy94=13.
      compute avy95=13.
      compute avy96=12.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>29 and main32<34) and (main33=41 or main33=44 or main33=47).
      compute avy94=13.
      compute avy95=13.
      compute avy96=5.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if (main32>29 and main32<34).
      compute avy94=13.
      compute avy95=13.
      compute avy96=17.
      compute mainy94=4.
      compute mainy95=4.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=36.
      compute avy94=14.
      compute avy95=14.
      compute avy96=12.
      compute mainy94=25.
      compute mainy95=25.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=41.
      compute avy94=1.
      compute avy95=1.
      compute avy96=5.
      compute mainy94=7.
      compute mainy95=7.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      Do if sec32=45.
         compute mtravy96=5.
      Else.
         compute mtravy96=5.
      End if.
   Else if main32=42.
      compute avy94=4.
      compute avy95=4.
      compute avy96=5.
      compute mainy94=15.
      compute mainy95=15.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=43 and (main33=42 or main33=79).
      compute avy94=2.
      compute avy95=2.
      compute avy96=5.
      compute mainy94=8.
      compute mainy95=8.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
     compute mtravy96=5.
   Else if main32=43.
      compute avy94=2.
      compute avy95=2.
      compute avy96=5.
      compute mainy94=8.
      compute mainy95=8.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
     compute mtravy96=5.
   Else if main32=44.
      compute avy94=3.
      compute avy95=3.
      compute avy96=5.
      compute mainy94=9.
      compute mainy95=9.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=50 and (main33=41 or main33=44).
      compute avy94=8.
      compute avy95=8.
      compute avy96=5.
      compute mainy94=21.
      compute mainy95=21.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=50 and (main33=42 or main33=79).
      compute avy94=8.
      compute avy95=8.
      compute avy96=5.
      compute mainy94=21.
      compute mainy95=21.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=50 and (main33=57 or main33=36).
      compute avy94=8.
      compute avy95=8.
      compute avy96=12.
      compute mainy94=21.
      compute mainy95=21.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=50.
      compute avy94=8.
      compute avy95=8.
      compute avy96=17.
      compute mainy94=21.
      compute mainy95=21.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=51 and (main33=41 or main33=44 or main33=45).
      compute avy94=11.
      compute avy95=11.
      compute avy96=5.
      compute mainy94=28.
      compute mainy95=28.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=51 and (main33=42 or main33=79).
      compute avy94=11.
      compute avy95=11.
      compute avy96=5.
      compute mainy94=28.
      compute mainy95=28.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=51 and (main33=57 or main33=36).
      compute avy94=11.
      compute avy95=11.
      compute avy96=12.
      compute mainy94=28.
      compute mainy95=28.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=51.
      compute avy94=11.
      compute avy95=11.
      compute avy96=17.
      compute mainy94=28.
      compute mainy95=28.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=53 and (main33=42 or main33=79).
      compute avy94=6.
      compute avy95=6.
      compute avy96=5.
      compute mainy94=18.
      compute mainy95=18.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=53 and (main33=36 or main33=57).
      compute avy94=6.
      compute avy95=6.
      compute avy96=12.
      compute mainy94=18.
      compute mainy95=18.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=53 and (main33=41 or main33=44).
      compute avy94=6.
      compute avy95=6.
      compute avy96=5.
      compute mainy94=18.
      compute mainy95=18.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=53.
      compute avy94=6.
      compute avy95=6.
      compute avy96=17.
      compute mainy94=18.
      compute mainy95=18.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=54 and (main33=36 or main33=57).
      compute avy94=7.
      compute avy95=7.
      compute avy96=12.
      compute mainy94=20.
      compute mainy95=20.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=54 and (main33=41 or main33=44 or main33=47).
      compute avy94=7.
      compute avy95=7.
      compute avy96=5.
      compute mainy94=20.
      compute mainy95=20.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=54 and (main33=42 or main33=79).
      compute avy94=7.
      compute avy95=7.
      compute avy96=5.
      compute mainy94=20.
      compute mainy95=20.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=54.
      compute avy94=7.
      compute avy95=7.
      compute avy96=17.
      compute mainy94=20.
      compute mainy95=20.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=55 and (main33=57 or main33=36).
      compute avy94=8.
      compute avy95=8.
      compute avy96=12.
      compute mainy94=22.
      compute mainy95=22.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=55 and (main33=42 or main33=79).
      compute avy94=8.
      compute avy95=8.
      compute avy96=5.
      compute mainy94=22.
      compute mainy95=22.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=55.
      compute avy94=8.
      compute avy95=8.
      compute avy96=17.
      compute mainy94=22.
      compute mainy95=22.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=56 and (main33=41 or main33=44).
      compute avy94=8.
      compute avy95=8.
      compute avy96=5.
      compute mainy94=27.
      compute mainy95=27.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=56 and (main33=42 or main33=79).
      compute avy94=8.
      compute avy95=8.
      compute avy96=5.
      compute mainy94=27.
      compute mainy95=27.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=56 and (main33=36 or main33=57).
      compute avy94=8.
      compute avy95=8.
      compute avy96=12.
      compute mainy94=27.
      compute mainy95=27.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=56.
      compute avy94=8.
      compute avy95=8.
      compute avy96=17.
      compute mainy94=27.
      compute mainy95=27.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=57 and (main33=41 or main33=44).
      compute avy94=10.
      compute avy95=10.
      compute avy96=5.
      compute mainy94=24.
      compute mainy95=24.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=57 and (main33=42 or main33=79).
      compute avy94=10.
      compute avy95=10.
      compute avy96=5.
      compute mainy94=24.
      compute mainy95=24.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=57 and (main33=36 or main33=57).
      compute avy94=10.
      compute avy95=10.
      compute avy96=12.
      compute mainy94=24.
      compute mainy95=24.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=57.
      compute avy94=10.
      compute avy95=10.
      compute avy96=17.
      compute mainy94=24.
      compute mainy95=24.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=59.
      compute avy94=7.
      compute avy95=7.
      compute avy96=12.
      compute mainy94=23.
      compute mainy95=23.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=66.
      compute avy94=38.
      compute avy95=38.
      compute avy96=12.
      compute mainy94=48.
      compute mainy95=48.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=69 and (main33=41 or main33=44).
      compute avy94=36.
      compute avy95=36.
      compute avy96=5.
      compute mainy94=55.
      compute mainy95=55.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=69 and (main33=36 or main33=57).
      compute avy94=36.
      compute avy95=36.
      compute avy96=12.
      compute mainy94=55.
      compute mainy95=55.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=69.
      compute avy94=36.
      compute avy95=36.
      compute avy96=17.
      compute mainy94=55.
      compute mainy95=55.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=71 and main33=42.
      compute avy94=29.
      compute avy95=29.
      compute avy96=5.
      compute mainy94=48.
      compute mainy95=48.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=71 and main33=41.
      compute avy94=29.
      compute avy95=29.
      compute avy96=5.
      compute mainy94=48.
      compute mainy95=48.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=75.
      compute avy94=27.
      compute avy95=27.
      compute avy96=17.
      compute mainy94=39.
      compute mainy95=39.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=77.
      compute avy94=28.
      compute avy95=28.
      compute avy96=17.
      compute mainy94=39.
      compute mainy95=39.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=78 and (main32=41 or main32=44).
      compute avy94=22.
      compute avy95=22.
      compute avy96=5.
      compute mainy94=34.
      compute mainy95=34.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=78.
      compute avy94=22.
      compute avy95=22.
      compute avy96=17.
      compute mainy94=34.
      compute mainy95=34.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=79.
      compute avy94=4.
      compute avy95=4.
      compute avy96=5.
      compute mainy94=17.
      compute mainy95=17.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=82.
      compute avy94=20.
      compute avy95=20.
      compute avy96=17.
      compute mainy94=36.
      compute mainy95=36.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=84.
      compute avy94=18.
      compute avy95=18.
      compute avy96=17.
      compute mainy94=45.
      compute mainy95=45.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=85 or main32=86.
      compute avy94=18.
      compute avy95=18.
      compute avy96=17.
      compute mainy94=38.
      compute mainy95=38.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=91 and (main33=36 or main33=57).
      compute avy94=40.
      compute avy95=40.
      compute avy96=12.
      compute mainy94=51.
      compute mainy95=51.
      compute mainy96=67.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=91 and (main33=41 or main33=44).
      compute avy94=40.
      compute avy95=40.
      compute avy96=5.
      compute mainy94=51.
      compute mainy95=51.
      compute mainy96=63.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=91 and (main33=42 or main33=79).
      compute avy94=40.
      compute avy95=40.
      compute avy96=5.
      compute mainy94=51.
      compute mainy95=51.
      compute mainy96=64.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   Else if main32=91.
      compute avy94=40.
      compute avy95=40.
      compute avy96=17.
      compute mainy94=51.
      compute mainy95=51.
      compute mainy96=68.
      compute mtravy94=-7.
      compute mtravy95=-7.
      compute mtravy96=5.
   End if.
End if.

Do if main32=1 and main33=1 and mtmark32=0.
   compute avy94=16.
   compute avy95=16.
   compute avy96=16.
   compute mainy94=2.
   compute mainy95=2.
   compute mainy96=2.
   compute mtravy94=-7. 
   compute mtravy95=-7. 
   compute mtravy96=-7. 
Else if main32=2 and main33=2 and mtmark32=0.
   compute avy94=16.
   compute avy95=16.
   compute avy96=16.
   compute mainy94=2.
   compute mainy95=2.
   compute mainy96=2.
   compute mtravy94=-7.
   compute mtravy95=-7.
   compute mtravy96=-7.
End if.

freq avy94 avy95 avy96 mainy94 mainy95 mainy96 mtravy94 mtravy95 mtravy96.

*set values for the 33rd time slot.
freq mtmark33.
*808 missing travel cases in time slot 33.

temp.
select if mtmark33=1.
cro main33 by main34.

if main33=83 or main34=83 or main33=63 or main34=63 mtmark33=0.
if main33=34 or main33=38 or main33=62 or main33=67 or main33=81 mtmark33=0.
if main34=34 or main34=38 or main34=62 or main34=67 or main34=81 mtmark33=0.
if main33=main34 mtmark33=0.
if main33=1 or main33=61 or main34=61 or main34=72 or main34=50 mtmark33=0.
if main33=59 and main34>57 mtmark33=0.
if main33=60 or main33=64 or main33=66 or main33=68 or main33=70 or 
   main33=71 or main33=72 or main33=73 or main33=35 or main33=52 or 
   main33=65 or main33=74 or main33=80 or main33=82 or main33=99 or
   main33=76 or main33=49 or main33=52 or main33=71 mtmark33=0.
if main33=84 and main33=52 mtmark12=0.
*errors fixed, 455 cases remain.

temp.
select if sec33=45.
cro main33 by main34 by mtmark33.

Do if mtmark33=0.
   Do if main33>95.
      compute avy97=41.
      compute avy98=41.
      compute avy99=41.
      compute mainy97=69.
      compute mainy98=69.
      compute mainy99=69.
      compute mtravy97=-8.
      compute mtravy98=-8.
      compute mtravy99=-8.
   Else if main33=1.
      compute avy97=16.
      compute avy98=16.
      compute avy99=13.
      compute mainy97=2.
      compute mainy98=2.
      compute mainy99=4.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=-7. 
   Else if main33=2.
      compute avy97=16.
      compute avy98=16.
      compute avy99=36.
      compute mainy97=2.
      compute mainy98=2.
      compute mainy99=55.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=3 or main33=4.
      compute avy97=16.
      compute avy98=16.
      compute avy99=16.
      compute mainy97=2.
      compute mainy98=2.
      compute mainy99=2.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=-7. 
   Else if main33=5.
      compute avy97=16.
      compute avy98=16.
      compute avy99=16.
      compute mainy97=3.
      compute mainy98=3.
      compute mainy99=3.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=6.
      compute avy97=13.
      compute avy98=13.
      compute avy99=13.
      compute mainy97=1.
      compute mainy98=1.
      compute mainy99=1.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33>6 and main33<20.
      compute avy97=30.
      compute avy98=30.
      compute avy99=30.
      compute mainy97=58.
      compute mainy98=58.
      compute mainy99=58.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33>19 and main33<30.
      compute avy97=31.
      compute avy98=31.
      compute avy99=31.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=59.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33>29 and main33<34.
      compute avy97=13.
      compute avy98=13.
      compute avy99=13.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=4.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=34 and sec33=45.
      compute avy97=15.
      compute avy98=15.
      compute avy99=5.
      compute mainy97=6.
      compute mainy98=6.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=1.
   Else if main33=34 or main33=35 or ((main33=38 or main33=39) and loc33=1).
      compute avy97=15.
      compute avy98=15.
      compute avy99=15.
      compute mainy97=6.
      compute mainy98=6.
      compute mainy99=6.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=36.
      compute avy97=14.
      compute avy98=14.
      compute avy99=14.
      compute mainy97=25.
      compute mainy98=25.
      compute mainy99=25.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=37.
      compute avy97=12.
      compute avy98=12.
      compute avy99=12.
      compute mainy97=67.
      compute mainy98=67.
      compute mainy99=67.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=40.
      compute avy97=1.
      compute avy98=1.
      compute avy99=1.
      compute mainy97=13.
      compute mainy98=13.
      compute mainy99=13.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=41 and sec33=45.
      compute avy97=1.
      compute avy98=1.
      compute avy99=5.
      compute mainy97=7.
      compute mainy98=7.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=1.
   Else if main33=41.
      compute avy97=1.
      compute avy98=1.
      compute avy99=1.
      compute mainy97=7.
      compute mainy98=7.
      compute mainy99=7.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=42.
      compute avy97=4.
      compute avy98=4.
      compute avy99=4.
      compute mainy97=15.
      compute mainy98=15.
      compute mainy99=15.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=43.
      compute avy97=2.
      compute avy98=2.
      compute avy99=2.
      compute mainy97=8.
      compute mainy98=8.
      compute mainy99=8.
      compute mtravy97=-7.
      compute mtravy98=-7.
     compute mtravy99=-7.
   Else if main33=44.
      compute avy97=3.
      compute avy98=3.
      compute avy99=3.
      compute mainy97=9.
      compute mainy98=9.
      compute mainy99=9.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=45 and (main34=42 or main34=79).
      compute avy97=5.
      compute avy98=5.
      compute avy99=5.
      compute mainy97=64.
      compute mainy98=64.
      compute mainy99=64.
      compute mtravy97=1.
      compute mtravy98=1.
      compute mtravy99=1.
   Else if (main33=46 or main33=47) and (main34=42 or main34=79).
      compute avy97=5.
      compute avy98=5.
      compute avy99=5.
      compute mainy97=64.
      compute mainy98=64.
      compute mainy99=64.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=45.
      compute avy97=5.
      compute avy98=5.
      compute avy99=5.
      compute mainy97=63.
      compute mainy98=63.
      compute mainy99=63.
      compute mtravy97=1.
      compute mtravy98=1.
      compute mtravy99=1.
   Else if main33=46 or main33=47.
      compute avy97=5.
      compute avy98=5.
      compute avy99=5.
      compute mainy97=63.
      compute mainy98=63.
      compute mainy99=63.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=48.
      compute avy97=5.
      compute avy98=5.
      compute avy99=5.
      compute mainy97=11.
      compute mainy98=11.
      compute mainy99=11.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=49.
      compute avy97=1.
      compute avy98=1.
      compute avy99=1.
      compute mainy97=5.
      compute mainy98=5.
      compute mainy99=5.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=50.
      compute avy97=8.
      compute avy98=8.
      compute avy99=8.
      compute mainy97=21.
      compute mainy98=21.
      compute mainy99=21.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=51.
      compute avy97=11.
      compute avy98=11.
      compute avy99=11.
      compute mainy97=28.
      compute mainy98=28.
      compute mainy99=28.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=52.
      compute avy97=11.
      compute avy98=11.
      compute avy99=11.
      compute mainy97=30.
      compute mainy98=30.
      compute mainy99=30.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=53.
      compute avy97=6.
      compute avy98=6.
      compute avy99=6.
      compute mainy97=18.
      compute mainy98=18.
      compute mainy99=18.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=54.
      compute avy97=7.
      compute avy98=7.
      compute avy99=7.
      compute mainy97=20.
      compute mainy98=20.
      compute mainy99=20.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=55.
      compute avy97=8.
      compute avy98=8.
      compute avy99=8.
      compute mainy97=22.
      compute mainy98=22.
      compute mainy99=22.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=56.
      compute avy97=8.
      compute avy98=8.
      compute avy99=8.
      compute mainy97=27.
      compute mainy98=27.
      compute mainy99=27.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=57.
      compute avy97=10.
      compute avy98=10.
      compute avy99=10.
      compute mainy97=24.
      compute mainy98=24.
      compute mainy99=24.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=58.
      compute avy97=12.
      compute avy98=12.
      compute avy99=12.
      compute mainy97=66.
      compute mainy98=66.
      compute mainy99=66.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=59.
      compute avy97=7.
      compute avy98=7.
      compute avy99=13.
      compute mainy97=23.
      compute mainy98=23.
      compute mainy99=4.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=60.
      compute avy97=9.
      compute avy98=9.
      compute avy99=9.
      compute mainy97=46.
      compute mainy98=46.
      compute mainy99=46.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=61.
      compute avy97=33.
      compute avy98=33.
      compute avy99=33.
      compute mainy97=16.
      compute mainy98=16.
      compute mainy99=16.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=62.
      compute avy97=34.
      compute avy98=34.
      compute avy99=34.
      compute mainy97=56.
      compute mainy98=56.
      compute mainy99=56.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=63.
      compute avy97=35.
      compute avy98=35.
      compute avy99=35.
      compute mainy97=56.
      compute mainy98=56.
      compute mainy99=56.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=64.
      compute avy97=40.
      compute avy98=40.
      compute avy99=40.
      compute mainy97=54.
      compute mainy98=54.
      compute mainy99=54.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=65.
      compute avy97=39.
      compute avy98=39.
      compute avy99=39.
      compute mainy97=54.
      compute mainy98=54.
      compute mainy99=54.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=66.
      compute avy97=38.
      compute avy98=38.
      compute avy99=38.
      compute mainy97=48.
      compute mainy98=48.
      compute mainy99=48.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=67.
      compute avy97=37.
      compute avy98=37.
      compute avy99=37.
      compute mainy97=49.
      compute mainy98=49.
      compute mainy99=49.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=68.
      compute avy97=32.
      compute avy98=32.
      compute avy99=32.
      compute mainy97=57.
      compute mainy98=57.
      compute mainy99=57.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=69.
      compute avy97=36.
      compute avy98=36.
      compute avy99=36.
      compute mainy97=55.
      compute mainy98=55.
      compute mainy99=55.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=70.
      compute avy97=25.
      compute avy98=25.
      compute avy99=25.
      compute mainy97=35.
      compute mainy98=35.
      compute mainy99=35.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=71.
      compute avy97=29.
      compute avy98=29.
      compute avy99=29.
      compute mainy97=48.
      compute mainy98=48.
      compute mainy99=48.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=72.
      compute avy97=24.
      compute avy98=24.
      compute avy99=24.
      compute mainy97=37.
      compute mainy98=37.
      compute mainy99=37.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=73.
      compute avy97=23.
      compute avy98=23.
      compute avy99=23.
      compute mainy97=33.
      compute mainy98=33.
      compute mainy99=33.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=74.
      compute avy97=26.
      compute avy98=26.
      compute avy99=26.
      compute mainy97=40.
      compute mainy98=40.
      compute mainy99=40.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=75 or main33=39.
      compute avy97=27.
      compute avy98=27.
      compute avy99=27.
      compute mainy97=39.
      compute mainy98=39.
      compute mainy99=39.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=76.
      compute avy97=25.
      compute avy98=25.
      compute avy99=25.
      compute mainy97=40.
      compute mainy98=40.
      compute mainy99=40.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=77 or main33=38.
      compute avy97=28.
      compute avy98=28.
      compute avy99=28.
      compute mainy97=39.
      compute mainy98=39.
      compute mainy99=39.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=78.
      compute avy97=22.
      compute avy98=22.
      compute avy99=22.
      compute mainy97=34.
      compute mainy98=34.
      compute mainy99=34.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=79.
      compute avy97=4.
      compute avy98=4.
      compute avy99=4.
      compute mainy97=17.
      compute mainy98=17.
      compute mainy99=17.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=80.
      compute avy97=18.
      compute avy98=18.
      compute avy99=18.
      compute mainy97=38.
      compute mainy98=38.
      compute mainy99=38.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=81.
      compute avy97=19.
      compute avy98=19.
      compute avy99=19.
      compute mainy97=42.
      compute mainy98=42.
      compute mainy99=42.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=82.
      compute avy97=20.
      compute avy98=20.
      compute avy99=20.
      compute mainy97=36.
      compute mainy98=36.
      compute mainy99=36.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=83.
      compute avy97=21.
      compute avy98=21.
      compute avy99=21.
      compute mainy97=43.
      compute mainy98=43.
      compute mainy99=43.
      compute mtravy97=3.
      compute mtravy98=3.
      compute mtravy99=3.
   Else if main33=84.
      compute avy97=18.
      compute avy98=18.
      compute avy99=18.
      compute mainy97=45.
      compute mainy98=45.
      compute mainy99=45.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=85 or main33=86.
      compute avy97=18.
      compute avy98=18.
      compute avy99=18.
      compute mainy97=38.
      compute mainy98=38.
      compute mainy99=38.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=89.
      compute avy97=17.
      compute avy98=17.
      compute avy99=17.
      compute mainy97=68.
      compute mainy98=68.
      compute mainy99=68.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=90.
      compute avy97=17.
      compute avy98=17.
      compute avy99=17.
      compute mainy97=62.
      compute mainy98=62.
      compute mainy99=62.
      compute mtravy97=5.
      compute mtravy98=5.
      compute mtravy99=5.
   Else if main33=91.
      compute avy97=40.
      compute avy98=40.
      compute avy99=40.
      compute mainy97=51.
      compute mainy98=51.
      compute mainy99=51.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=92.
      compute avy97=31.
      compute avy98=31.
      compute avy99=31.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=59.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   Else if main33=93.
      compute avy97=41.
      compute avy98=41.
      compute avy99=41.
      compute mainy97=41.
      compute mainy98=41.
      compute mainy99=41.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=-7.
   End if.
Else if mtmark33=1.
   Do if main33=2 and (main34=42 or main34=79).
      compute avy97=16.
      compute avy98=36.
      compute avy99=5.
      compute mainy97=2.
      compute mainy98=55.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=2 and (main34=41 or main34=44).
      compute avy97=16.
      compute avy98=36.
      compute avy99=5.
      compute mainy97=2.
      compute mainy98=55.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=2 and (main34=36 or main34=57).
      compute avy97=16.
      compute avy98=36.
      compute avy99=12.
      compute mainy97=2.
      compute mainy98=55.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=2.
      compute avy97=16.
      compute avy98=36.
      compute avy99=17.
      compute mainy97=2.
      compute mainy98=55.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33=3 or main33=4) and (main34=42 or main34=79).
      compute avy97=16.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=2.
      compute mainy98=4.
      compute mainy99=64.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=5. 
   Else if (main33=3 or main33=4) and (main34=41 or main34=44).
      compute avy97=16.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=2.
      compute mainy98=4.
      compute mainy99=63.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=5. 
   Else if (main33=3 or main33=4) and (main34=36 or main34=57).
      compute avy97=16.
      compute avy98=13.
      compute avy99=12.
      compute mainy97=2.
      compute mainy98=4.
      compute mainy99=67.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=5. 
   Else if (main33=3 or main33=4).
      compute avy97=16.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=2.
      compute mainy98=4.
      compute mainy99=63.
      compute mtravy97=-7. 
      compute mtravy98=-7. 
      compute mtravy99=5.
   Else if main33=6 and (main34=41 or main34=44).
      compute avy97=13.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=1.
      compute mainy98=1.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=6 and (main34=42 or main34=79).
      compute avy97=13.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=1.
      compute mainy98=1.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=6 and (main34=36 or main34=57).
      compute avy97=13.
      compute avy98=13.
      compute avy99=12.
      compute mainy97=1.
      compute mainy98=1.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=6.
      compute avy97=13.
      compute avy98=13.
      compute avy99=17.
      compute mainy97=1.
      compute mainy98=1.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>10 and main33<15) and (main34=42 or main34=79).
      compute avy97=30.
      compute avy98=30.
      compute avy99=5.
      compute mainy97=58.
      compute mainy98=58.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>10 and main33<15) and (main34=41 or main34=44).
      compute avy97=30.
      compute avy98=30.
      compute avy99=5.
      compute mainy97=58.
      compute mainy98=58.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>10 and main33<15) and (main34=36 or main34=57).
      compute avy97=30.
      compute avy98=30.
      compute avy99=12.
      compute mainy97=58.
      compute mainy98=58.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33>10 and main33<15.
      compute avy97=30.
      compute avy98=30.
      compute avy99=17.
      compute mainy97=58.
      compute mainy98=58.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>19 and main33<30) and (main34=41 or main34=44).
      compute avy97=31.
      compute avy98=31.
      compute avy99=5.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>19 and main33<30) and (main34=42 or main34=79).
      compute avy97=31.
      compute avy98=31.
      compute avy99=5.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>19 and main33<30) and (main34=36 or main34=57).
      compute avy97=31.
      compute avy98=31.
      compute avy99=12.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33>19 and main33<30.
      compute avy97=31.
      compute avy98=31.
      compute avy99=17.
      compute mainy97=59.
      compute mainy98=59.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>29 and main33<34) and sec33=45.
      compute avy97=13.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=1.
   Else if (main33>29 and main33<34) and (main34=42 or main34=79).
      compute avy97=13.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>29 and main33<34) and (main34=57 or main34=36).
      compute avy97=13.
      compute avy98=13.
      compute avy99=12.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>29 and main33<34) and (main34=41 or main34=44 or main34=47).
      compute avy97=13.
      compute avy98=13.
      compute avy99=5.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if (main33>29 and main33<34).
      compute avy97=13.
      compute avy98=13.
      compute avy99=17.
      compute mainy97=4.
      compute mainy98=4.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=36.
      compute avy97=14.
      compute avy98=14.
      compute avy99=12.
      compute mainy97=25.
      compute mainy98=25.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=41.
      compute avy97=1.
      compute avy98=1.
      compute avy99=5.
      compute mainy97=7.
      compute mainy98=7.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      Do if sec33=45.
         compute mtravy99=5.
      Else.
         compute mtravy99=5.
      End if.
   Else if main33=42.
      compute avy97=4.
      compute avy98=4.
      compute avy99=5.
      compute mainy97=15.
      compute mainy98=15.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=43 and (main34=42 or main34=79).
      compute avy97=2.
      compute avy98=2.
      compute avy99=5.
      compute mainy97=8.
      compute mainy98=8.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
     compute mtravy99=5.
   Else if main33=43.
      compute avy97=2.
      compute avy98=2.
      compute avy99=5.
      compute mainy97=8.
      compute mainy98=8.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
     compute mtravy99=5.
   Else if main33=44.
      compute avy97=3.
      compute avy98=3.
      compute avy99=5.
      compute mainy97=9.
      compute mainy98=9.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=50 and (main34=41 or main34=44).
      compute avy97=8.
      compute avy98=8.
      compute avy99=5.
      compute mainy97=21.
      compute mainy98=21.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=50 and (main34=42 or main34=79).
      compute avy97=8.
      compute avy98=8.
      compute avy99=5.
      compute mainy97=21.
      compute mainy98=21.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=50 and (main34=57 or main34=36).
      compute avy97=8.
      compute avy98=8.
      compute avy99=12.
      compute mainy97=21.
      compute mainy98=21.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=50.
      compute avy97=8.
      compute avy98=8.
      compute avy99=17.
      compute mainy97=21.
      compute mainy98=21.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=51 and (main34=41 or main34=44 or main34=45).
      compute avy97=11.
      compute avy98=11.
      compute avy99=5.
      compute mainy97=28.
      compute mainy98=28.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=51 and (main34=42 or main34=79).
      compute avy97=11.
      compute avy98=11.
      compute avy99=5.
      compute mainy97=28.
      compute mainy98=28.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=51 and (main34=57 or main34=36).
      compute avy97=11.
      compute avy98=11.
      compute avy99=12.
      compute mainy97=28.
      compute mainy98=28.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=51.
      compute avy97=11.
      compute avy98=11.
      compute avy99=17.
      compute mainy97=28.
      compute mainy98=28.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=53 and (main34=42 or main34=79).
      compute avy97=6.
      compute avy98=6.
      compute avy99=5.
      compute mainy97=18.
      compute mainy98=18.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=53 and (main34=36 or main34=57).
      compute avy97=6.
      compute avy98=6.
      compute avy99=12.
      compute mainy97=18.
      compute mainy98=18.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=53 and (main34=41 or main34=44).
      compute avy97=6.
      compute avy98=6.
      compute avy99=5.
      compute mainy97=18.
      compute mainy98=18.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=53.
      compute avy97=6.
      compute avy98=6.
      compute avy99=17.
      compute mainy97=18.
      compute mainy98=18.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=54 and (main34=36 or main34=57).
      compute avy97=7.
      compute avy98=7.
      compute avy99=12.
      compute mainy97=20.
      compute mainy98=20.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=54 and (main34=41 or main34=44 or main34=47).
      compute avy97=7.
      compute avy98=7.
      compute avy99=5.
      compute mainy97=20.
      compute mainy98=20.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=54 and (main34=42 or main34=79).
      compute avy97=7.
      compute avy98=7.
      compute avy99=5.
      compute mainy97=20.
      compute mainy98=20.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=54.
      compute avy97=7.
      compute avy98=7.
      compute avy99=17.
      compute mainy97=20.
      compute mainy98=20.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=55 and (main34=57 or main34=36).
      compute avy97=8.
      compute avy98=8.
      compute avy99=12.
      compute mainy97=22.
      compute mainy98=22.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=55 and (main34=42 or main34=79).
      compute avy97=8.
      compute avy98=8.
      compute avy99=5.
      compute mainy97=22.
      compute mainy98=22.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=55.
      compute avy97=8.
      compute avy98=8.
      compute avy99=17.
      compute mainy97=22.
      compute mainy98=22.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=56 and (main34=41 or main34=44).
      compute avy97=8.
      compute avy98=8.
      compute avy99=5.
      compute mainy97=27.
      compute mainy98=27.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=56 and (main34=42 or main34=79).
      compute avy97=8.
      compute avy98=8.
      compute avy99=5.
      compute mainy97=27.
      compute mainy98=27.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=56 and (main34=36 or main34=57).
      compute avy97=8.
      compute avy98=8.
      compute avy99=12.
      compute mainy97=27.
      compute mainy98=27.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=56.
      compute avy97=8.
      compute avy98=8.
      compute avy99=17.
      compute mainy97=27.
      compute mainy98=27.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=57 and (main34=41 or main34=44).
      compute avy97=10.
      compute avy98=10.
      compute avy99=5.
      compute mainy97=24.
      compute mainy98=24.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=57 and (main34=42 or main34=79).
      compute avy97=10.
      compute avy98=10.
      compute avy99=5.
      compute mainy97=24.
      compute mainy98=24.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=57 and (main34=36 or main34=57).
      compute avy97=10.
      compute avy98=10.
      compute avy99=12.
      compute mainy97=24.
      compute mainy98=24.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=57.
      compute avy97=10.
      compute avy98=10.
      compute avy99=17.
      compute mainy97=24.
      compute mainy98=24.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=59.
      compute avy97=7.
      compute avy98=7.
      compute avy99=12.
      compute mainy97=23.
      compute mainy98=23.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=66.
      compute avy97=38.
      compute avy98=38.
      compute avy99=12.
      compute mainy97=48.
      compute mainy98=48.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=69 and (main34=41 or main34=44).
      compute avy97=36.
      compute avy98=36.
      compute avy99=5.
      compute mainy97=55.
      compute mainy98=55.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=69 and (main34=36 or main34=57).
      compute avy97=36.
      compute avy98=36.
      compute avy99=12.
      compute mainy97=55.
      compute mainy98=55.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=69.
      compute avy97=36.
      compute avy98=36.
      compute avy99=17.
      compute mainy97=55.
      compute mainy98=55.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=71 and main34=42.
      compute avy97=29.
      compute avy98=29.
      compute avy99=5.
      compute mainy97=48.
      compute mainy98=48.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=71 and main34=41.
      compute avy97=29.
      compute avy98=29.
      compute avy99=5.
      compute mainy97=48.
      compute mainy98=48.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=75.
      compute avy97=27.
      compute avy98=27.
      compute avy99=17.
      compute mainy97=39.
      compute mainy98=39.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=77.
      compute avy97=28.
      compute avy98=28.
      compute avy99=17.
      compute mainy97=39.
      compute mainy98=39.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=78 and (main33=41 or main33=44).
      compute avy97=22.
      compute avy98=22.
      compute avy99=5.
      compute mainy97=34.
      compute mainy98=34.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=78.
      compute avy97=22.
      compute avy98=22.
      compute avy99=17.
      compute mainy97=34.
      compute mainy98=34.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=79.
      compute avy97=4.
      compute avy98=4.
      compute avy99=5.
      compute mainy97=17.
      compute mainy98=17.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=82.
      compute avy97=20.
      compute avy98=20.
      compute avy99=17.
      compute mainy97=36.
      compute mainy98=36.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=84.
      compute avy97=18.
      compute avy98=18.
      compute avy99=17.
      compute mainy97=45.
      compute mainy98=45.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=85 or main33=86.
      compute avy97=18.
      compute avy98=18.
      compute avy99=17.
      compute mainy97=38.
      compute mainy98=38.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=91 and (main34=36 or main34=57).
      compute avy97=40.
      compute avy98=40.
      compute avy99=12.
      compute mainy97=51.
      compute mainy98=51.
      compute mainy99=67.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=91 and (main34=41 or main34=44).
      compute avy97=40.
      compute avy98=40.
      compute avy99=5.
      compute mainy97=51.
      compute mainy98=51.
      compute mainy99=63.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=91 and (main34=42 or main34=79).
      compute avy97=40.
      compute avy98=40.
      compute avy99=5.
      compute mainy97=51.
      compute mainy98=51.
      compute mainy99=64.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   Else if main33=91.
      compute avy97=40.
      compute avy98=40.
      compute avy99=17.
      compute mainy97=51.
      compute mainy98=51.
      compute mainy99=68.
      compute mtravy97=-7.
      compute mtravy98=-7.
      compute mtravy99=5.
   End if.
End if.

Do if main33=1 and main34=1 and mtmark33=0.
   compute avy97=16.
   compute avy98=16.
   compute avy99=16.
   compute mainy97=2.
   compute mainy98=2.
   compute mainy99=2.
   compute mtravy97=-7. 
   compute mtravy98=-7. 
   compute mtravy99=-7. 
Else if main33=2 and main34=2 and mtmark33=0.
   compute avy97=16.
   compute avy98=16.
   compute avy99=16.
   compute mainy97=2.
   compute mainy98=2.
   compute mainy99=2.
   compute mtravy97=-7.
   compute mtravy98=-7.
   compute mtravy99=-7.
End if.

freq avy97 avy98 avy99 mainy97 mainy98 mainy99 mtravy97 mtravy98 mtravy99.

*set values for the 34th time slot.
freq mtmark34.
*861 missing travel cases in time slot 34.

temp.
select if mtmark34=1.
cro main34 by main35.

if main34=83 or main35=83 or main34=63 or main35=63 mtmark34=0.
if main34=34 or main34=38 or main34=62 or main34=67 or main34=81 mtmark34=0.
if main35=34 or main35=38 or main35=62 or main35=67 or main35=81 mtmark34=0.
if main34=main35 mtmark34=0.
if main34=1 or main34=61 or main35=61 or main35=72 or main35=50 mtmark34=0.
if main34=59 and main35>57 mtmark34=0.
if main34=60 or main34=64 or main34=66 or main34=68 or main34=70 or 
   main34=71 or main34=72 or main34=73 or main34=35 or main34=52 or 
   main34=65 or main34=74 or main34=80 or main34=82 or main34=99 or
   main34=76 or main34=49 or main34=52 or main34=71 mtmark34=0.
if main34=84 and main34=52 mtmark12=0.
*errors fixed, 423 cases remain.

temp.
select if sec34=45.
cro main34 by main35 by mtmark34.

Do if mtmark34=0.
   Do if main34>95.
      compute avy100=41.
      compute avy101=41.
      compute avy102=41.
      compute mainy100=69.
      compute mainy101=69.
      compute mainy102=69.
      compute mtravy100=-8.
      compute mtravy101=-8.
      compute mtravy102=-8.
   Else if main34=1.
      compute avy100=16.
      compute avy101=16.
      compute avy102=13.
      compute mainy100=2.
      compute mainy101=2.
      compute mainy102=4.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=-7. 
   Else if main34=2.
      compute avy100=16.
      compute avy101=16.
      compute avy102=36.
      compute mainy100=2.
      compute mainy101=2.
      compute mainy102=55.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=3 or main34=4.
      compute avy100=16.
      compute avy101=16.
      compute avy102=16.
      compute mainy100=2.
      compute mainy101=2.
      compute mainy102=2.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=-7. 
   Else if main34=5.
      compute avy100=16.
      compute avy101=16.
      compute avy102=16.
      compute mainy100=3.
      compute mainy101=3.
      compute mainy102=3.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=6.
      compute avy100=13.
      compute avy101=13.
      compute avy102=13.
      compute mainy100=1.
      compute mainy101=1.
      compute mainy102=1.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34>6 and main34<20.
      compute avy100=30.
      compute avy101=30.
      compute avy102=30.
      compute mainy100=58.
      compute mainy101=58.
      compute mainy102=58.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34>19 and main34<30.
      compute avy100=31.
      compute avy101=31.
      compute avy102=31.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=59.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34>29 and main34<34.
      compute avy100=13.
      compute avy101=13.
      compute avy102=13.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=4.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=34 and sec34=45.
      compute avy100=15.
      compute avy101=15.
      compute avy102=5.
      compute mainy100=6.
      compute mainy101=6.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=1.
   Else if main34=34 or main34=35 or ((main34=38 or main34=39) and loc34=1).
      compute avy100=15.
      compute avy101=15.
      compute avy102=15.
      compute mainy100=6.
      compute mainy101=6.
      compute mainy102=6.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=36.
      compute avy100=14.
      compute avy101=14.
      compute avy102=14.
      compute mainy100=25.
      compute mainy101=25.
      compute mainy102=25.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=37.
      compute avy100=12.
      compute avy101=12.
      compute avy102=12.
      compute mainy100=67.
      compute mainy101=67.
      compute mainy102=67.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=40.
      compute avy100=1.
      compute avy101=1.
      compute avy102=1.
      compute mainy100=13.
      compute mainy101=13.
      compute mainy102=13.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=41 and sec34=45.
      compute avy100=1.
      compute avy101=1.
      compute avy102=5.
      compute mainy100=7.
      compute mainy101=7.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=1.
   Else if main34=41.
      compute avy100=1.
      compute avy101=1.
      compute avy102=1.
      compute mainy100=7.
      compute mainy101=7.
      compute mainy102=7.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=42.
      compute avy100=4.
      compute avy101=4.
      compute avy102=4.
      compute mainy100=15.
      compute mainy101=15.
      compute mainy102=15.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=43.
      compute avy100=2.
      compute avy101=2.
      compute avy102=2.
      compute mainy100=8.
      compute mainy101=8.
      compute mainy102=8.
      compute mtravy100=-7.
      compute mtravy101=-7.
     compute mtravy102=-7.
   Else if main34=44.
      compute avy100=3.
      compute avy101=3.
      compute avy102=3.
      compute mainy100=9.
      compute mainy101=9.
      compute mainy102=9.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=45 and (main35=42 or main35=79).
      compute avy100=5.
      compute avy101=5.
      compute avy102=5.
      compute mainy100=64.
      compute mainy101=64.
      compute mainy102=64.
      compute mtravy100=1.
      compute mtravy101=1.
      compute mtravy102=1.
   Else if (main34=46 or main34=47) and (main35=42 or main35=79).
      compute avy100=5.
      compute avy101=5.
      compute avy102=5.
      compute mainy100=64.
      compute mainy101=64.
      compute mainy102=64.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=45.
      compute avy100=5.
      compute avy101=5.
      compute avy102=5.
      compute mainy100=63.
      compute mainy101=63.
      compute mainy102=63.
      compute mtravy100=1.
      compute mtravy101=1.
      compute mtravy102=1.
   Else if main34=46 or main34=47.
      compute avy100=5.
      compute avy101=5.
      compute avy102=5.
      compute mainy100=63.
      compute mainy101=63.
      compute mainy102=63.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=48.
      compute avy100=5.
      compute avy101=5.
      compute avy102=5.
      compute mainy100=11.
      compute mainy101=11.
      compute mainy102=11.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=49.
      compute avy100=1.
      compute avy101=1.
      compute avy102=1.
      compute mainy100=5.
      compute mainy101=5.
      compute mainy102=5.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=50.
      compute avy100=8.
      compute avy101=8.
      compute avy102=8.
      compute mainy100=21.
      compute mainy101=21.
      compute mainy102=21.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=51.
      compute avy100=11.
      compute avy101=11.
      compute avy102=11.
      compute mainy100=28.
      compute mainy101=28.
      compute mainy102=28.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=52.
      compute avy100=11.
      compute avy101=11.
      compute avy102=11.
      compute mainy100=30.
      compute mainy101=30.
      compute mainy102=30.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=53.
      compute avy100=6.
      compute avy101=6.
      compute avy102=6.
      compute mainy100=18.
      compute mainy101=18.
      compute mainy102=18.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=54.
      compute avy100=7.
      compute avy101=7.
      compute avy102=7.
      compute mainy100=20.
      compute mainy101=20.
      compute mainy102=20.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=55.
      compute avy100=8.
      compute avy101=8.
      compute avy102=8.
      compute mainy100=22.
      compute mainy101=22.
      compute mainy102=22.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=56.
      compute avy100=8.
      compute avy101=8.
      compute avy102=8.
      compute mainy100=27.
      compute mainy101=27.
      compute mainy102=27.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=57.
      compute avy100=10.
      compute avy101=10.
      compute avy102=10.
      compute mainy100=24.
      compute mainy101=24.
      compute mainy102=24.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=58.
      compute avy100=12.
      compute avy101=12.
      compute avy102=12.
      compute mainy100=66.
      compute mainy101=66.
      compute mainy102=66.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=59.
      compute avy100=7.
      compute avy101=7.
      compute avy102=13.
      compute mainy100=23.
      compute mainy101=23.
      compute mainy102=4.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=60.
      compute avy100=9.
      compute avy101=9.
      compute avy102=9.
      compute mainy100=46.
      compute mainy101=46.
      compute mainy102=46.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=61.
      compute avy100=33.
      compute avy101=33.
      compute avy102=33.
      compute mainy100=16.
      compute mainy101=16.
      compute mainy102=16.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=62.
      compute avy100=34.
      compute avy101=34.
      compute avy102=34.
      compute mainy100=56.
      compute mainy101=56.
      compute mainy102=56.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=63.
      compute avy100=35.
      compute avy101=35.
      compute avy102=35.
      compute mainy100=56.
      compute mainy101=56.
      compute mainy102=56.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=64.
      compute avy100=40.
      compute avy101=40.
      compute avy102=40.
      compute mainy100=54.
      compute mainy101=54.
      compute mainy102=54.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=65.
      compute avy100=39.
      compute avy101=39.
      compute avy102=39.
      compute mainy100=54.
      compute mainy101=54.
      compute mainy102=54.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=66.
      compute avy100=38.
      compute avy101=38.
      compute avy102=38.
      compute mainy100=48.
      compute mainy101=48.
      compute mainy102=48.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=67.
      compute avy100=37.
      compute avy101=37.
      compute avy102=37.
      compute mainy100=49.
      compute mainy101=49.
      compute mainy102=49.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=68.
      compute avy100=32.
      compute avy101=32.
      compute avy102=32.
      compute mainy100=57.
      compute mainy101=57.
      compute mainy102=57.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=69.
      compute avy100=36.
      compute avy101=36.
      compute avy102=36.
      compute mainy100=55.
      compute mainy101=55.
      compute mainy102=55.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=70.
      compute avy100=25.
      compute avy101=25.
      compute avy102=25.
      compute mainy100=35.
      compute mainy101=35.
      compute mainy102=35.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=71.
      compute avy100=29.
      compute avy101=29.
      compute avy102=29.
      compute mainy100=48.
      compute mainy101=48.
      compute mainy102=48.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=72.
      compute avy100=24.
      compute avy101=24.
      compute avy102=24.
      compute mainy100=37.
      compute mainy101=37.
      compute mainy102=37.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=73.
      compute avy100=23.
      compute avy101=23.
      compute avy102=23.
      compute mainy100=33.
      compute mainy101=33.
      compute mainy102=33.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=74.
      compute avy100=26.
      compute avy101=26.
      compute avy102=26.
      compute mainy100=40.
      compute mainy101=40.
      compute mainy102=40.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=75 or main34=39.
      compute avy100=27.
      compute avy101=27.
      compute avy102=27.
      compute mainy100=39.
      compute mainy101=39.
      compute mainy102=39.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=76.
      compute avy100=25.
      compute avy101=25.
      compute avy102=25.
      compute mainy100=40.
      compute mainy101=40.
      compute mainy102=40.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=77 or main34=38.
      compute avy100=28.
      compute avy101=28.
      compute avy102=28.
      compute mainy100=39.
      compute mainy101=39.
      compute mainy102=39.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=78.
      compute avy100=22.
      compute avy101=22.
      compute avy102=22.
      compute mainy100=34.
      compute mainy101=34.
      compute mainy102=34.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=79 and sec34=45.
      compute avy100=4.
      compute avy101=4.
      compute avy102=5.
      compute mainy100=17.
      compute mainy101=17.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=1.
   Else if main34=79.
      compute avy100=4.
      compute avy101=4.
      compute avy102=4.
      compute mainy100=17.
      compute mainy101=17.
      compute mainy102=17.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=80.
      compute avy100=18.
      compute avy101=18.
      compute avy102=18.
      compute mainy100=38.
      compute mainy101=38.
      compute mainy102=38.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=81.
      compute avy100=19.
      compute avy101=19.
      compute avy102=19.
      compute mainy100=42.
      compute mainy101=42.
      compute mainy102=42.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=82.
      compute avy100=20.
      compute avy101=20.
      compute avy102=20.
      compute mainy100=36.
      compute mainy101=36.
      compute mainy102=36.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=83.
      compute avy100=21.
      compute avy101=21.
      compute avy102=21.
      compute mainy100=43.
      compute mainy101=43.
      compute mainy102=43.
      compute mtravy100=3.
      compute mtravy101=3.
      compute mtravy102=3.
   Else if main34=84.
      compute avy100=18.
      compute avy101=18.
      compute avy102=18.
      compute mainy100=45.
      compute mainy101=45.
      compute mainy102=45.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=85 or main34=86.
      compute avy100=18.
      compute avy101=18.
      compute avy102=18.
      compute mainy100=38.
      compute mainy101=38.
      compute mainy102=38.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=89.
      compute avy100=17.
      compute avy101=17.
      compute avy102=17.
      compute mainy100=68.
      compute mainy101=68.
      compute mainy102=68.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=90.
      compute avy100=17.
      compute avy101=17.
      compute avy102=17.
      compute mainy100=62.
      compute mainy101=62.
      compute mainy102=62.
      compute mtravy100=5.
      compute mtravy101=5.
      compute mtravy102=5.
   Else if main34=91.
      compute avy100=40.
      compute avy101=40.
      compute avy102=40.
      compute mainy100=51.
      compute mainy101=51.
      compute mainy102=51.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=92.
      compute avy100=31.
      compute avy101=31.
      compute avy102=31.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=59.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   Else if main34=93.
      compute avy100=41.
      compute avy101=41.
      compute avy102=41.
      compute mainy100=41.
      compute mainy101=41.
      compute mainy102=41.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=-7.
   End if.
Else if mtmark34=1.
   Do if main34=2 and (main35=42 or main35=79).
      compute avy100=16.
      compute avy101=36.
      compute avy102=5.
      compute mainy100=2.
      compute mainy101=55.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=2 and (main35=41 or main35=44).
      compute avy100=16.
      compute avy101=36.
      compute avy102=5.
      compute mainy100=2.
      compute mainy101=55.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=2 and (main35=36 or main35=57).
      compute avy100=16.
      compute avy101=36.
      compute avy102=12.
      compute mainy100=2.
      compute mainy101=55.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=2.
      compute avy100=16.
      compute avy101=36.
      compute avy102=17.
      compute mainy100=2.
      compute mainy101=55.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34=3 or main34=4) and (main35=42 or main35=79).
      compute avy100=16.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=2.
      compute mainy101=4.
      compute mainy102=64.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=5. 
   Else if (main34=3 or main34=4) and (main35=41 or main35=44).
      compute avy100=16.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=2.
      compute mainy101=4.
      compute mainy102=63.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=5. 
   Else if (main34=3 or main34=4) and (main35=36 or main35=57).
      compute avy100=16.
      compute avy101=13.
      compute avy102=12.
      compute mainy100=2.
      compute mainy101=4.
      compute mainy102=67.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=5. 
   Else if (main34=3 or main34=4).
      compute avy100=16.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=2.
      compute mainy101=4.
      compute mainy102=63.
      compute mtravy100=-7. 
      compute mtravy101=-7. 
      compute mtravy102=5.
   Else if main34=6 and (main35=41 or main35=44).
      compute avy100=13.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=1.
      compute mainy101=1.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=6 and (main35=42 or main35=79).
      compute avy100=13.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=1.
      compute mainy101=1.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=6 and (main35=36 or main35=57).
      compute avy100=13.
      compute avy101=13.
      compute avy102=12.
      compute mainy100=1.
      compute mainy101=1.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=6.
      compute avy100=13.
      compute avy101=13.
      compute avy102=17.
      compute mainy100=1.
      compute mainy101=1.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>10 and main34<15) and (main35=42 or main35=79).
      compute avy100=30.
      compute avy101=30.
      compute avy102=5.
      compute mainy100=58.
      compute mainy101=58.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>10 and main34<15) and (main35=41 or main35=44).
      compute avy100=30.
      compute avy101=30.
      compute avy102=5.
      compute mainy100=58.
      compute mainy101=58.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>10 and main34<15) and (main35=36 or main35=57).
      compute avy100=30.
      compute avy101=30.
      compute avy102=12.
      compute mainy100=58.
      compute mainy101=58.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34>10 and main34<15.
      compute avy100=30.
      compute avy101=30.
      compute avy102=17.
      compute mainy100=58.
      compute mainy101=58.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>19 and main34<30) and (main35=41 or main35=44).
      compute avy100=31.
      compute avy101=31.
      compute avy102=5.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>19 and main34<30) and (main35=42 or main35=79).
      compute avy100=31.
      compute avy101=31.
      compute avy102=5.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>19 and main34<30) and (main35=36 or main35=57).
      compute avy100=31.
      compute avy101=31.
      compute avy102=12.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34>19 and main34<30.
      compute avy100=31.
      compute avy101=31.
      compute avy102=17.
      compute mainy100=59.
      compute mainy101=59.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>29 and main34<34) and sec34=45.
      compute avy100=13.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=1.
   Else if (main34>29 and main34<34) and (main35=42 or main35=79).
      compute avy100=13.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>29 and main34<34) and (main35=57 or main35=36).
      compute avy100=13.
      compute avy101=13.
      compute avy102=12.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>29 and main34<34) and (main35=41 or main35=44 or main35=47).
      compute avy100=13.
      compute avy101=13.
      compute avy102=5.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if (main34>29 and main34<34).
      compute avy100=13.
      compute avy101=13.
      compute avy102=17.
      compute mainy100=4.
      compute mainy101=4.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=36.
      compute avy100=14.
      compute avy101=14.
      compute avy102=12.
      compute mainy100=25.
      compute mainy101=25.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=41.
      compute avy100=1.
      compute avy101=1.
      compute avy102=5.
      compute mainy100=7.
      compute mainy101=7.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      Do if sec34=45.
         compute mtravy102=5.
      Else.
         compute mtravy102=5.
      End if.
   Else if main34=42.
      compute avy100=4.
      compute avy101=4.
      compute avy102=5.
      compute mainy100=15.
      compute mainy101=15.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=43 and (main35=42 or main35=79).
      compute avy100=2.
      compute avy101=2.
      compute avy102=5.
      compute mainy100=8.
      compute mainy101=8.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
     compute mtravy102=5.
   Else if main34=43.
      compute avy100=2.
      compute avy101=2.
      compute avy102=5.
      compute mainy100=8.
      compute mainy101=8.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
     compute mtravy102=5.
   Else if main34=44.
      compute avy100=3.
      compute avy101=3.
      compute avy102=5.
      compute mainy100=9.
      compute mainy101=9.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=50 and (main35=41 or main35=44).
      compute avy100=8.
      compute avy101=8.
      compute avy102=5.
      compute mainy100=21.
      compute mainy101=21.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=50 and (main35=42 or main35=79).
      compute avy100=8.
      compute avy101=8.
      compute avy102=5.
      compute mainy100=21.
      compute mainy101=21.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=50 and (main35=57 or main35=36).
      compute avy100=8.
      compute avy101=8.
      compute avy102=12.
      compute mainy100=21.
      compute mainy101=21.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=50.
      compute avy100=8.
      compute avy101=8.
      compute avy102=17.
      compute mainy100=21.
      compute mainy101=21.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=51 and (main35=41 or main35=44 or main35=45).
      compute avy100=11.
      compute avy101=11.
      compute avy102=5.
      compute mainy100=28.
      compute mainy101=28.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=51 and (main35=42 or main35=79).
      compute avy100=11.
      compute avy101=11.
      compute avy102=5.
      compute mainy100=28.
      compute mainy101=28.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=51 and (main35=57 or main35=36).
      compute avy100=11.
      compute avy101=11.
      compute avy102=12.
      compute mainy100=28.
      compute mainy101=28.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=51.
      compute avy100=11.
      compute avy101=11.
      compute avy102=17.
      compute mainy100=28.
      compute mainy101=28.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=53 and (main35=42 or main35=79).
      compute avy100=6.
      compute avy101=6.
      compute avy102=5.
      compute mainy100=18.
      compute mainy101=18.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=53 and (main35=36 or main35=57).
      compute avy100=6.
      compute avy101=6.
      compute avy102=12.
      compute mainy100=18.
      compute mainy101=18.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=53 and (main35=41 or main35=44).
      compute avy100=6.
      compute avy101=6.
      compute avy102=5.
      compute mainy100=18.
      compute mainy101=18.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=53.
      compute avy100=6.
      compute avy101=6.
      compute avy102=17.
      compute mainy100=18.
      compute mainy101=18.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=54 and (main35=36 or main35=57).
      compute avy100=7.
      compute avy101=7.
      compute avy102=12.
      compute mainy100=20.
      compute mainy101=20.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=54 and (main35=41 or main35=44 or main35=47).
      compute avy100=7.
      compute avy101=7.
      compute avy102=5.
      compute mainy100=20.
      compute mainy101=20.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=54 and (main35=42 or main35=79).
      compute avy100=7.
      compute avy101=7.
      compute avy102=5.
      compute mainy100=20.
      compute mainy101=20.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=54.
      compute avy100=7.
      compute avy101=7.
      compute avy102=17.
      compute mainy100=20.
      compute mainy101=20.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=55 and (main35=57 or main35=36).
      compute avy100=8.
      compute avy101=8.
      compute avy102=12.
      compute mainy100=22.
      compute mainy101=22.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=55 and (main35=42 or main35=79).
      compute avy100=8.
      compute avy101=8.
      compute avy102=5.
      compute mainy100=22.
      compute mainy101=22.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=55.
      compute avy100=8.
      compute avy101=8.
      compute avy102=17.
      compute mainy100=22.
      compute mainy101=22.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=56 and (main35=41 or main35=44).
      compute avy100=8.
      compute avy101=8.
      compute avy102=5.
      compute mainy100=27.
      compute mainy101=27.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=56 and (main35=42 or main35=79).
      compute avy100=8.
      compute avy101=8.
      compute avy102=5.
      compute mainy100=27.
      compute mainy101=27.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=56 and (main35=36 or main35=57).
      compute avy100=8.
      compute avy101=8.
      compute avy102=12.
      compute mainy100=27.
      compute mainy101=27.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=56.
      compute avy100=8.
      compute avy101=8.
      compute avy102=17.
      compute mainy100=27.
      compute mainy101=27.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=57 and (main35=41 or main35=44).
      compute avy100=10.
      compute avy101=10.
      compute avy102=5.
      compute mainy100=24.
      compute mainy101=24.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=57 and (main35=42 or main35=79).
      compute avy100=10.
      compute avy101=10.
      compute avy102=5.
      compute mainy100=24.
      compute mainy101=24.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=57 and (main35=36 or main35=57).
      compute avy100=10.
      compute avy101=10.
      compute avy102=12.
      compute mainy100=24.
      compute mainy101=24.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=57.
      compute avy100=10.
      compute avy101=10.
      compute avy102=17.
      compute mainy100=24.
      compute mainy101=24.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=59.
      compute avy100=7.
      compute avy101=7.
      compute avy102=12.
      compute mainy100=23.
      compute mainy101=23.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=66.
      compute avy100=38.
      compute avy101=38.
      compute avy102=12.
      compute mainy100=48.
      compute mainy101=48.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=69 and (main35=41 or main35=44).
      compute avy100=36.
      compute avy101=36.
      compute avy102=5.
      compute mainy100=55.
      compute mainy101=55.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=69 and (main35=36 or main35=57).
      compute avy100=36.
      compute avy101=36.
      compute avy102=12.
      compute mainy100=55.
      compute mainy101=55.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=69.
      compute avy100=36.
      compute avy101=36.
      compute avy102=17.
      compute mainy100=55.
      compute mainy101=55.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=71 and main35=42.
      compute avy100=29.
      compute avy101=29.
      compute avy102=5.
      compute mainy100=48.
      compute mainy101=48.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=71 and main35=41.
      compute avy100=29.
      compute avy101=29.
      compute avy102=5.
      compute mainy100=48.
      compute mainy101=48.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=75.
      compute avy100=27.
      compute avy101=27.
      compute avy102=17.
      compute mainy100=39.
      compute mainy101=39.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=77.
      compute avy100=28.
      compute avy101=28.
      compute avy102=17.
      compute mainy100=39.
      compute mainy101=39.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=78 and (main34=41 or main34=44).
      compute avy100=22.
      compute avy101=22.
      compute avy102=5.
      compute mainy100=34.
      compute mainy101=34.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=78.
      compute avy100=22.
      compute avy101=22.
      compute avy102=17.
      compute mainy100=34.
      compute mainy101=34.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=79.
      compute avy100=4.
      compute avy101=4.
      compute avy102=5.
      compute mainy100=17.
      compute mainy101=17.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=82.
      compute avy100=20.
      compute avy101=20.
      compute avy102=17.
      compute mainy100=36.
      compute mainy101=36.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=84.
      compute avy100=18.
      compute avy101=18.
      compute avy102=17.
      compute mainy100=45.
      compute mainy101=45.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=85 or main34=86.
      compute avy100=18.
      compute avy101=18.
      compute avy102=17.
      compute mainy100=38.
      compute mainy101=38.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=91 and (main35=36 or main35=57).
      compute avy100=40.
      compute avy101=40.
      compute avy102=12.
      compute mainy100=51.
      compute mainy101=51.
      compute mainy102=67.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=91 and (main35=41 or main35=44).
      compute avy100=40.
      compute avy101=40.
      compute avy102=5.
      compute mainy100=51.
      compute mainy101=51.
      compute mainy102=63.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=91 and (main35=42 or main35=79).
      compute avy100=40.
      compute avy101=40.
      compute avy102=5.
      compute mainy100=51.
      compute mainy101=51.
      compute mainy102=64.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   Else if main34=91.
      compute avy100=40.
      compute avy101=40.
      compute avy102=17.
      compute mainy100=51.
      compute mainy101=51.
      compute mainy102=68.
      compute mtravy100=-7.
      compute mtravy101=-7.
      compute mtravy102=5.
   End if.
End if.

Do if main34=1 and main35=1 and mtmark34=0.
   compute avy100=16.
   compute avy101=16.
   compute avy102=16.
   compute mainy100=2.
   compute mainy101=2.
   compute mainy102=2.
   compute mtravy100=-7. 
   compute mtravy101=-7. 
   compute mtravy102=-7. 
Else if main34=2 and main35=2 and mtmark34=0.
   compute avy100=16.
   compute avy101=16.
   compute avy102=16.
   compute mainy100=2.
   compute mainy101=2.
   compute mainy102=2.
   compute mtravy100=-7.
   compute mtravy101=-7.
   compute mtravy102=-7.
End if.

freq avy100 avy101 avy102 mainy100 mainy101 mainy102 mtravy100 mtravy101 mtravy102.

*set values for the 35th time slot.
freq mtmark35.
*574 missing travel cases in time slot 35.

temp.
select if mtmark35=1.
cro main35 by main36.

if main35=83 or main36=83 or main35=63 or main36=63 mtmark35=0.
if main35=34 or main35=38 or main35=62 or main35=67 or main35=81 mtmark35=0.
if main36=34 or main36=38 or main36=62 or main36=67 or main36=81 mtmark35=0.
if main35=main36 mtmark35=0.
if main35=1 or main35=61 or main36=61 or main36=72 or main36=50 mtmark35=0.
if main35=59 and main36>57 mtmark35=0.
if main35=60 or main35=64 or main35=66 or main35=68 or main35=70 or 
   main35=71 or main35=72 or main35=73 or main35=35 or main35=52 or 
   main35=65 or main35=74 or main35=80 or main35=82 or main35=99 or
   main35=76 or main35=49 or main35=52 or main35=71 mtmark35=0.
if main35=84 and main35=52 mtmark12=0.
*errors fixed, 210 cases remain.

temp.
select if sec35=45.
cro main35 by main36 by mtmark35.

Do if mtmark35=0.
   Do if main35>95.
      compute avy103=41.
      compute avy104=41.
      compute avy105=41.
      compute mainy103=69.
      compute mainy104=69.
      compute mainy105=69.
      compute mtravy103=-8.
      compute mtravy104=-8.
      compute mtravy105=-8.
   Else if main35=1.
      compute avy103=16.
      compute avy104=16.
      compute avy105=13.
      compute mainy103=2.
      compute mainy104=2.
      compute mainy105=4.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=-7. 
   Else if main35=2.
      compute avy103=16.
      compute avy104=16.
      compute avy105=36.
      compute mainy103=2.
      compute mainy104=2.
      compute mainy105=55.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=3 or main35=4.
      compute avy103=16.
      compute avy104=16.
      compute avy105=16.
      compute mainy103=2.
      compute mainy104=2.
      compute mainy105=2.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=-7. 
   Else if main35=5.
      compute avy103=16.
      compute avy104=16.
      compute avy105=16.
      compute mainy103=3.
      compute mainy104=3.
      compute mainy105=3.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=6.
      compute avy103=13.
      compute avy104=13.
      compute avy105=13.
      compute mainy103=1.
      compute mainy104=1.
      compute mainy105=1.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35>6 and main35<20.
      compute avy103=30.
      compute avy104=30.
      compute avy105=30.
      compute mainy103=58.
      compute mainy104=58.
      compute mainy105=58.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35>19 and main35<30.
      compute avy103=31.
      compute avy104=31.
      compute avy105=31.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=59.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35>29 and main35<34.
      compute avy103=13.
      compute avy104=13.
      compute avy105=13.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=4.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=34 and sec35=45.
      compute avy103=15.
      compute avy104=15.
      compute avy105=5.
      compute mainy103=6.
      compute mainy104=6.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=1.
   Else if main35=34 or main35=35 or ((main35=38 or main35=39) and loc35=1).
      compute avy103=15.
      compute avy104=15.
      compute avy105=15.
      compute mainy103=6.
      compute mainy104=6.
      compute mainy105=6.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=36.
      compute avy103=14.
      compute avy104=14.
      compute avy105=14.
      compute mainy103=25.
      compute mainy104=25.
      compute mainy105=25.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=37.
      compute avy103=12.
      compute avy104=12.
      compute avy105=12.
      compute mainy103=67.
      compute mainy104=67.
      compute mainy105=67.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=40.
      compute avy103=1.
      compute avy104=1.
      compute avy105=1.
      compute mainy103=13.
      compute mainy104=13.
      compute mainy105=13.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=41 and sec35=45.
      compute avy103=1.
      compute avy104=1.
      compute avy105=5.
      compute mainy103=7.
      compute mainy104=7.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=1.
   Else if main35=41.
      compute avy103=1.
      compute avy104=1.
      compute avy105=1.
      compute mainy103=7.
      compute mainy104=7.
      compute mainy105=7.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=42.
      compute avy103=4.
      compute avy104=4.
      compute avy105=4.
      compute mainy103=15.
      compute mainy104=15.
      compute mainy105=15.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=43.
      compute avy103=2.
      compute avy104=2.
      compute avy105=2.
      compute mainy103=8.
      compute mainy104=8.
      compute mainy105=8.
      compute mtravy103=-7.
      compute mtravy104=-7.
     compute mtravy105=-7.
   Else if main35=44.
      compute avy103=3.
      compute avy104=3.
      compute avy105=3.
      compute mainy103=9.
      compute mainy104=9.
      compute mainy105=9.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=45 and (main36=42 or main36=79).
      compute avy103=5.
      compute avy104=5.
      compute avy105=5.
      compute mainy103=64.
      compute mainy104=64.
      compute mainy105=64.
      compute mtravy103=1.
      compute mtravy104=1.
      compute mtravy105=1.
   Else if (main35=46 or main35=47) and (main36=42 or main36=79).
      compute avy103=5.
      compute avy104=5.
      compute avy105=5.
      compute mainy103=64.
      compute mainy104=64.
      compute mainy105=64.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=45.
      compute avy103=5.
      compute avy104=5.
      compute avy105=5.
      compute mainy103=63.
      compute mainy104=63.
      compute mainy105=63.
      compute mtravy103=1.
      compute mtravy104=1.
      compute mtravy105=1.
   Else if main35=46 or main35=47.
      compute avy103=5.
      compute avy104=5.
      compute avy105=5.
      compute mainy103=63.
      compute mainy104=63.
      compute mainy105=63.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=48.
      compute avy103=5.
      compute avy104=5.
      compute avy105=5.
      compute mainy103=11.
      compute mainy104=11.
      compute mainy105=11.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=49.
      compute avy103=1.
      compute avy104=1.
      compute avy105=1.
      compute mainy103=5.
      compute mainy104=5.
      compute mainy105=5.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=50.
      compute avy103=8.
      compute avy104=8.
      compute avy105=8.
      compute mainy103=21.
      compute mainy104=21.
      compute mainy105=21.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=51.
      compute avy103=11.
      compute avy104=11.
      compute avy105=11.
      compute mainy103=28.
      compute mainy104=28.
      compute mainy105=28.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=52.
      compute avy103=11.
      compute avy104=11.
      compute avy105=11.
      compute mainy103=30.
      compute mainy104=30.
      compute mainy105=30.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=53.
      compute avy103=6.
      compute avy104=6.
      compute avy105=6.
      compute mainy103=18.
      compute mainy104=18.
      compute mainy105=18.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=54.
      compute avy103=7.
      compute avy104=7.
      compute avy105=7.
      compute mainy103=20.
      compute mainy104=20.
      compute mainy105=20.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=55.
      compute avy103=8.
      compute avy104=8.
      compute avy105=8.
      compute mainy103=22.
      compute mainy104=22.
      compute mainy105=22.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=56.
      compute avy103=8.
      compute avy104=8.
      compute avy105=8.
      compute mainy103=27.
      compute mainy104=27.
      compute mainy105=27.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=57.
      compute avy103=10.
      compute avy104=10.
      compute avy105=10.
      compute mainy103=24.
      compute mainy104=24.
      compute mainy105=24.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=58.
      compute avy103=12.
      compute avy104=12.
      compute avy105=12.
      compute mainy103=66.
      compute mainy104=66.
      compute mainy105=66.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=59.
      compute avy103=7.
      compute avy104=7.
      compute avy105=13.
      compute mainy103=23.
      compute mainy104=23.
      compute mainy105=4.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=60.
      compute avy103=9.
      compute avy104=9.
      compute avy105=9.
      compute mainy103=46.
      compute mainy104=46.
      compute mainy105=46.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=61.
      compute avy103=33.
      compute avy104=33.
      compute avy105=33.
      compute mainy103=16.
      compute mainy104=16.
      compute mainy105=16.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=62.
      compute avy103=34.
      compute avy104=34.
      compute avy105=34.
      compute mainy103=56.
      compute mainy104=56.
      compute mainy105=56.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=63.
      compute avy103=35.
      compute avy104=35.
      compute avy105=35.
      compute mainy103=56.
      compute mainy104=56.
      compute mainy105=56.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=64.
      compute avy103=40.
      compute avy104=40.
      compute avy105=40.
      compute mainy103=54.
      compute mainy104=54.
      compute mainy105=54.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=65.
      compute avy103=39.
      compute avy104=39.
      compute avy105=39.
      compute mainy103=54.
      compute mainy104=54.
      compute mainy105=54.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=66.
      compute avy103=38.
      compute avy104=38.
      compute avy105=38.
      compute mainy103=48.
      compute mainy104=48.
      compute mainy105=48.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=67.
      compute avy103=37.
      compute avy104=37.
      compute avy105=37.
      compute mainy103=49.
      compute mainy104=49.
      compute mainy105=49.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=68.
      compute avy103=32.
      compute avy104=32.
      compute avy105=32.
      compute mainy103=57.
      compute mainy104=57.
      compute mainy105=57.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=69.
      compute avy103=36.
      compute avy104=36.
      compute avy105=36.
      compute mainy103=55.
      compute mainy104=55.
      compute mainy105=55.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=70.
      compute avy103=25.
      compute avy104=25.
      compute avy105=25.
      compute mainy103=35.
      compute mainy104=35.
      compute mainy105=35.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=71.
      compute avy103=29.
      compute avy104=29.
      compute avy105=29.
      compute mainy103=48.
      compute mainy104=48.
      compute mainy105=48.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=72.
      compute avy103=24.
      compute avy104=24.
      compute avy105=24.
      compute mainy103=37.
      compute mainy104=37.
      compute mainy105=37.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=73.
      compute avy103=23.
      compute avy104=23.
      compute avy105=23.
      compute mainy103=33.
      compute mainy104=33.
      compute mainy105=33.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=74.
      compute avy103=26.
      compute avy104=26.
      compute avy105=26.
      compute mainy103=40.
      compute mainy104=40.
      compute mainy105=40.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=75 or main35=39.
      compute avy103=27.
      compute avy104=27.
      compute avy105=27.
      compute mainy103=39.
      compute mainy104=39.
      compute mainy105=39.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=76.
      compute avy103=25.
      compute avy104=25.
      compute avy105=25.
      compute mainy103=40.
      compute mainy104=40.
      compute mainy105=40.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=77 or main35=38.
      compute avy103=28.
      compute avy104=28.
      compute avy105=28.
      compute mainy103=39.
      compute mainy104=39.
      compute mainy105=39.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=78.
      compute avy103=22.
      compute avy104=22.
      compute avy105=22.
      compute mainy103=34.
      compute mainy104=34.
      compute mainy105=34.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=79.
      compute avy103=4.
      compute avy104=4.
      compute avy105=4.
      compute mainy103=17.
      compute mainy104=17.
      compute mainy105=17.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=80.
      compute avy103=18.
      compute avy104=18.
      compute avy105=18.
      compute mainy103=38.
      compute mainy104=38.
      compute mainy105=38.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=81.
      compute avy103=19.
      compute avy104=19.
      compute avy105=19.
      compute mainy103=42.
      compute mainy104=42.
      compute mainy105=42.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=82.
      compute avy103=20.
      compute avy104=20.
      compute avy105=20.
      compute mainy103=36.
      compute mainy104=36.
      compute mainy105=36.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=83.
      compute avy103=21.
      compute avy104=21.
      compute avy105=21.
      compute mainy103=43.
      compute mainy104=43.
      compute mainy105=43.
      compute mtravy103=3.
      compute mtravy104=3.
      compute mtravy105=3.
   Else if main35=84.
      compute avy103=18.
      compute avy104=18.
      compute avy105=18.
      compute mainy103=45.
      compute mainy104=45.
      compute mainy105=45.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=85 or main35=86.
      compute avy103=18.
      compute avy104=18.
      compute avy105=18.
      compute mainy103=38.
      compute mainy104=38.
      compute mainy105=38.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=89.
      compute avy103=17.
      compute avy104=17.
      compute avy105=17.
      compute mainy103=68.
      compute mainy104=68.
      compute mainy105=68.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=90.
      compute avy103=17.
      compute avy104=17.
      compute avy105=17.
      compute mainy103=62.
      compute mainy104=62.
      compute mainy105=62.
      compute mtravy103=5.
      compute mtravy104=5.
      compute mtravy105=5.
   Else if main35=91.
      compute avy103=40.
      compute avy104=40.
      compute avy105=40.
      compute mainy103=51.
      compute mainy104=51.
      compute mainy105=51.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=92.
      compute avy103=31.
      compute avy104=31.
      compute avy105=31.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=59.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   Else if main35=93.
      compute avy103=41.
      compute avy104=41.
      compute avy105=41.
      compute mainy103=41.
      compute mainy104=41.
      compute mainy105=41.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=-7.
   End if.
Else if mtmark35=1.
   Do if main35=2 and (main36=42 or main36=79).
      compute avy103=16.
      compute avy104=36.
      compute avy105=5.
      compute mainy103=2.
      compute mainy104=55.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=2 and (main36=41 or main36=44).
      compute avy103=16.
      compute avy104=36.
      compute avy105=5.
      compute mainy103=2.
      compute mainy104=55.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=2 and (main36=36 or main36=57).
      compute avy103=16.
      compute avy104=36.
      compute avy105=12.
      compute mainy103=2.
      compute mainy104=55.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=2.
      compute avy103=16.
      compute avy104=36.
      compute avy105=17.
      compute mainy103=2.
      compute mainy104=55.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35=3 or main35=4) and (main36=42 or main36=79).
      compute avy103=16.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=2.
      compute mainy104=4.
      compute mainy105=64.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=5. 
   Else if (main35=3 or main35=4) and (main36=41 or main36=44).
      compute avy103=16.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=2.
      compute mainy104=4.
      compute mainy105=63.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=5. 
   Else if (main35=3 or main35=4) and (main36=36 or main36=57).
      compute avy103=16.
      compute avy104=13.
      compute avy105=12.
      compute mainy103=2.
      compute mainy104=4.
      compute mainy105=67.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=5. 
   Else if (main35=3 or main35=4).
      compute avy103=16.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=2.
      compute mainy104=4.
      compute mainy105=63.
      compute mtravy103=-7. 
      compute mtravy104=-7. 
      compute mtravy105=5.
   Else if main35=6 and (main36=41 or main36=44).
      compute avy103=13.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=1.
      compute mainy104=1.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=6 and (main36=42 or main36=79).
      compute avy103=13.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=1.
      compute mainy104=1.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=6 and (main36=36 or main36=57).
      compute avy103=13.
      compute avy104=13.
      compute avy105=12.
      compute mainy103=1.
      compute mainy104=1.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=6.
      compute avy103=13.
      compute avy104=13.
      compute avy105=17.
      compute mainy103=1.
      compute mainy104=1.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>10 and main35<15) and (main36=42 or main36=79).
      compute avy103=30.
      compute avy104=30.
      compute avy105=5.
      compute mainy103=58.
      compute mainy104=58.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>10 and main35<15) and (main36=41 or main36=44).
      compute avy103=30.
      compute avy104=30.
      compute avy105=5.
      compute mainy103=58.
      compute mainy104=58.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>10 and main35<15) and (main36=36 or main36=57).
      compute avy103=30.
      compute avy104=30.
      compute avy105=12.
      compute mainy103=58.
      compute mainy104=58.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35>10 and main35<15.
      compute avy103=30.
      compute avy104=30.
      compute avy105=17.
      compute mainy103=58.
      compute mainy104=58.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>19 and main35<30) and (main36=41 or main36=44).
      compute avy103=31.
      compute avy104=31.
      compute avy105=5.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>19 and main35<30) and (main36=42 or main36=79).
      compute avy103=31.
      compute avy104=31.
      compute avy105=5.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>19 and main35<30) and (main36=36 or main36=57).
      compute avy103=31.
      compute avy104=31.
      compute avy105=12.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35>19 and main35<30.
      compute avy103=31.
      compute avy104=31.
      compute avy105=17.
      compute mainy103=59.
      compute mainy104=59.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>29 and main35<34) and sec35=45.
      compute avy103=13.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=1.
   Else if (main35>29 and main35<34) and (main36=42 or main36=79).
      compute avy103=13.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>29 and main35<34) and (main36=57 or main36=36).
      compute avy103=13.
      compute avy104=13.
      compute avy105=12.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>29 and main35<34) and (main36=41 or main36=44 or main36=47).
      compute avy103=13.
      compute avy104=13.
      compute avy105=5.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if (main35>29 and main35<34).
      compute avy103=13.
      compute avy104=13.
      compute avy105=17.
      compute mainy103=4.
      compute mainy104=4.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=36.
      compute avy103=14.
      compute avy104=14.
      compute avy105=12.
      compute mainy103=25.
      compute mainy104=25.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=40.
      compute avy103=1.
      compute avy104=1.
      compute avy105=5.
      compute mainy103=13.
      compute mainy104=13.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=41.
      compute avy103=1.
      compute avy104=1.
      compute avy105=5.
      compute mainy103=7.
      compute mainy104=7.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      Do if sec35=45.
         compute mtravy105=5.
      Else.
         compute mtravy105=5.
      End if.
   Else if main35=42.
      compute avy103=4.
      compute avy104=4.
      compute avy105=5.
      compute mainy103=15.
      compute mainy104=15.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=43 and (main36=42 or main36=79).
      compute avy103=2.
      compute avy104=2.
      compute avy105=5.
      compute mainy103=8.
      compute mainy104=8.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
     compute mtravy105=5.
   Else if main35=43.
      compute avy103=2.
      compute avy104=2.
      compute avy105=5.
      compute mainy103=8.
      compute mainy104=8.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
     compute mtravy105=5.
   Else if main35=44.
      compute avy103=3.
      compute avy104=3.
      compute avy105=5.
      compute mainy103=9.
      compute mainy104=9.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=50 and (main36=41 or main36=44).
      compute avy103=8.
      compute avy104=8.
      compute avy105=5.
      compute mainy103=21.
      compute mainy104=21.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=50 and (main36=42 or main36=79).
      compute avy103=8.
      compute avy104=8.
      compute avy105=5.
      compute mainy103=21.
      compute mainy104=21.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=50 and (main36=57 or main36=36).
      compute avy103=8.
      compute avy104=8.
      compute avy105=12.
      compute mainy103=21.
      compute mainy104=21.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=50.
      compute avy103=8.
      compute avy104=8.
      compute avy105=17.
      compute mainy103=21.
      compute mainy104=21.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=51 and (main36=41 or main36=44 or main36=45).
      compute avy103=11.
      compute avy104=11.
      compute avy105=5.
      compute mainy103=28.
      compute mainy104=28.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=51 and (main36=42 or main36=79).
      compute avy103=11.
      compute avy104=11.
      compute avy105=5.
      compute mainy103=28.
      compute mainy104=28.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=51 and (main36=57 or main36=36).
      compute avy103=11.
      compute avy104=11.
      compute avy105=12.
      compute mainy103=28.
      compute mainy104=28.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=51.
      compute avy103=11.
      compute avy104=11.
      compute avy105=17.
      compute mainy103=28.
      compute mainy104=28.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=53 and (main36=42 or main36=79).
      compute avy103=6.
      compute avy104=6.
      compute avy105=5.
      compute mainy103=18.
      compute mainy104=18.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=53 and (main36=36 or main36=57).
      compute avy103=6.
      compute avy104=6.
      compute avy105=12.
      compute mainy103=18.
      compute mainy104=18.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=53 and (main36=41 or main36=44).
      compute avy103=6.
      compute avy104=6.
      compute avy105=5.
      compute mainy103=18.
      compute mainy104=18.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=53.
      compute avy103=6.
      compute avy104=6.
      compute avy105=17.
      compute mainy103=18.
      compute mainy104=18.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=54 and (main36=36 or main36=57).
      compute avy103=7.
      compute avy104=7.
      compute avy105=12.
      compute mainy103=20.
      compute mainy104=20.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=54 and (main36=41 or main36=44 or main36=47).
      compute avy103=7.
      compute avy104=7.
      compute avy105=5.
      compute mainy103=20.
      compute mainy104=20.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=54 and (main36=42 or main36=79).
      compute avy103=7.
      compute avy104=7.
      compute avy105=5.
      compute mainy103=20.
      compute mainy104=20.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=54.
      compute avy103=7.
      compute avy104=7.
      compute avy105=17.
      compute mainy103=20.
      compute mainy104=20.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=55 and (main36=57 or main36=36).
      compute avy103=8.
      compute avy104=8.
      compute avy105=12.
      compute mainy103=22.
      compute mainy104=22.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=55 and (main36=42 or main36=79).
      compute avy103=8.
      compute avy104=8.
      compute avy105=5.
      compute mainy103=22.
      compute mainy104=22.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=55.
      compute avy103=8.
      compute avy104=8.
      compute avy105=17.
      compute mainy103=22.
      compute mainy104=22.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=56 and (main36=41 or main36=44).
      compute avy103=8.
      compute avy104=8.
      compute avy105=5.
      compute mainy103=27.
      compute mainy104=27.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=56 and (main36=42 or main36=79).
      compute avy103=8.
      compute avy104=8.
      compute avy105=5.
      compute mainy103=27.
      compute mainy104=27.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=56 and (main36=36 or main36=57).
      compute avy103=8.
      compute avy104=8.
      compute avy105=12.
      compute mainy103=27.
      compute mainy104=27.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=56.
      compute avy103=8.
      compute avy104=8.
      compute avy105=17.
      compute mainy103=27.
      compute mainy104=27.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=57 and (main36=41 or main36=44).
      compute avy103=10.
      compute avy104=10.
      compute avy105=5.
      compute mainy103=24.
      compute mainy104=24.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=57 and (main36=42 or main36=79).
      compute avy103=10.
      compute avy104=10.
      compute avy105=5.
      compute mainy103=24.
      compute mainy104=24.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=57 and (main36=36 or main36=57).
      compute avy103=10.
      compute avy104=10.
      compute avy105=12.
      compute mainy103=24.
      compute mainy104=24.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=57.
      compute avy103=10.
      compute avy104=10.
      compute avy105=17.
      compute mainy103=24.
      compute mainy104=24.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=59.
      compute avy103=7.
      compute avy104=7.
      compute avy105=12.
      compute mainy103=23.
      compute mainy104=23.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=66.
      compute avy103=38.
      compute avy104=38.
      compute avy105=12.
      compute mainy103=48.
      compute mainy104=48.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=69 and (main36=41 or main36=44).
      compute avy103=36.
      compute avy104=36.
      compute avy105=5.
      compute mainy103=55.
      compute mainy104=55.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=69 and (main36=36 or main36=57).
      compute avy103=36.
      compute avy104=36.
      compute avy105=12.
      compute mainy103=55.
      compute mainy104=55.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=69.
      compute avy103=36.
      compute avy104=36.
      compute avy105=17.
      compute mainy103=55.
      compute mainy104=55.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=71 and main36=42.
      compute avy103=29.
      compute avy104=29.
      compute avy105=5.
      compute mainy103=48.
      compute mainy104=48.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=71 and main36=41.
      compute avy103=29.
      compute avy104=29.
      compute avy105=5.
      compute mainy103=48.
      compute mainy104=48.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=75.
      compute avy103=27.
      compute avy104=27.
      compute avy105=17.
      compute mainy103=39.
      compute mainy104=39.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=77.
      compute avy103=28.
      compute avy104=28.
      compute avy105=17.
      compute mainy103=39.
      compute mainy104=39.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=78 and (main35=41 or main35=44).
      compute avy103=22.
      compute avy104=22.
      compute avy105=5.
      compute mainy103=34.
      compute mainy104=34.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=78.
      compute avy103=22.
      compute avy104=22.
      compute avy105=17.
      compute mainy103=34.
      compute mainy104=34.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=79.
      compute avy103=4.
      compute avy104=4.
      compute avy105=5.
      compute mainy103=17.
      compute mainy104=17.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=82.
      compute avy103=20.
      compute avy104=20.
      compute avy105=17.
      compute mainy103=36.
      compute mainy104=36.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=84.
      compute avy103=18.
      compute avy104=18.
      compute avy105=17.
      compute mainy103=45.
      compute mainy104=45.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=85 or main35=86.
      compute avy103=18.
      compute avy104=18.
      compute avy105=17.
      compute mainy103=38.
      compute mainy104=38.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=91 and (main36=36 or main36=57).
      compute avy103=40.
      compute avy104=40.
      compute avy105=12.
      compute mainy103=51.
      compute mainy104=51.
      compute mainy105=67.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=91 and (main36=41 or main36=44).
      compute avy103=40.
      compute avy104=40.
      compute avy105=5.
      compute mainy103=51.
      compute mainy104=51.
      compute mainy105=63.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=91 and (main36=42 or main36=79).
      compute avy103=40.
      compute avy104=40.
      compute avy105=5.
      compute mainy103=51.
      compute mainy104=51.
      compute mainy105=64.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   Else if main35=91.
      compute avy103=40.
      compute avy104=40.
      compute avy105=17.
      compute mainy103=51.
      compute mainy104=51.
      compute mainy105=68.
      compute mtravy103=-7.
      compute mtravy104=-7.
      compute mtravy105=5.
   End if.
End if.

Do if main35=1 and main36=1 and mtmark35=0.
   compute avy103=16.
   compute avy104=16.
   compute avy105=16.
   compute mainy103=2.
   compute mainy104=2.
   compute mainy105=2.
   compute mtravy103=-7. 
   compute mtravy104=-7. 
   compute mtravy105=-7. 
Else if main35=2 and main36=2 and mtmark35=0.
   compute avy103=16.
   compute avy104=16.
   compute avy105=16.
   compute mainy103=2.
   compute mainy104=2.
   compute mainy105=2.
   compute mtravy103=-7.
   compute mtravy104=-7.
   compute mtravy105=-7.
End if.

freq avy103 avy104 avy105 mainy103 mainy104 mainy105 mtravy103 mtravy104 mtravy105.

*set values for the 36th time slot.
freq mtmark36.
*759 missing travel cases in time slot 36.

temp.
select if mtmark36=1.
cro main36 by main37.

if main36=83 or main37=83 or main36=63 or main37=63 mtmark36=0.
if main36=34 or main36=38 or main36=62 or main36=67 or main36=81 mtmark36=0.
if main37=34 or main37=38 or main37=62 or main37=67 or main37=81 mtmark36=0.
if main36=main37 mtmark36=0.
if main36=1 or main36=61 or main37=61 or main37=72 or main37=50 mtmark36=0.
if main36=59 and main37>57 mtmark36=0.
if main36=60 or main36=64 or main36=66 or main36=68 or main36=70 or 
   main36=71 or main36=72 or main36=73 or main36=35 or main36=52 or 
   main36=65 or main36=74 or main36=80 or main36=82 or main36=99 or
   main36=76 or main36=49 or main36=52 or main36=71 mtmark36=0.
if main36=84 and main36=52 mtmark12=0.
*errors fixed, 221 cases remain.

temp.
select if sec36=45.
cro main36 by main37 by mtmark36.

Do if mtmark36=0.
   Do if main36>95.
      compute avy106=41.
      compute avy107=41.
      compute avy108=41.
      compute mainy106=69.
      compute mainy107=69.
      compute mainy108=69.
      compute mtravy106=-8.
      compute mtravy107=-8.
      compute mtravy108=-8.
   Else if main36=1.
      compute avy106=16.
      compute avy107=16.
      compute avy108=13.
      compute mainy106=2.
      compute mainy107=2.
      compute mainy108=4.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=-7. 
   Else if main36=2.
      compute avy106=16.
      compute avy107=16.
      compute avy108=36.
      compute mainy106=2.
      compute mainy107=2.
      compute mainy108=55.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=3 or main36=4.
      compute avy106=16.
      compute avy107=16.
      compute avy108=16.
      compute mainy106=2.
      compute mainy107=2.
      compute mainy108=2.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=-7. 
   Else if main36=5.
      compute avy106=16.
      compute avy107=16.
      compute avy108=16.
      compute mainy106=3.
      compute mainy107=3.
      compute mainy108=3.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=6.
      compute avy106=13.
      compute avy107=13.
      compute avy108=13.
      compute mainy106=1.
      compute mainy107=1.
      compute mainy108=1.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36>6 and main36<20.
      compute avy106=30.
      compute avy107=30.
      compute avy108=30.
      compute mainy106=58.
      compute mainy107=58.
      compute mainy108=58.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36>19 and main36<30.
      compute avy106=31.
      compute avy107=31.
      compute avy108=31.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=59.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36>29 and main36<34.
      compute avy106=13.
      compute avy107=13.
      compute avy108=13.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=4.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=34 and sec36=45.
      compute avy106=15.
      compute avy107=15.
      compute avy108=5.
      compute mainy106=6.
      compute mainy107=6.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=1.
   Else if main36=34 or main36=35 or ((main36=38 or main36=39) and loc36=1).
      compute avy106=15.
      compute avy107=15.
      compute avy108=15.
      compute mainy106=6.
      compute mainy107=6.
      compute mainy108=6.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=36.
      compute avy106=14.
      compute avy107=14.
      compute avy108=14.
      compute mainy106=25.
      compute mainy107=25.
      compute mainy108=25.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=37.
      compute avy106=12.
      compute avy107=12.
      compute avy108=12.
      compute mainy106=67.
      compute mainy107=67.
      compute mainy108=67.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=40.
      compute avy106=1.
      compute avy107=1.
      compute avy108=1.
      compute mainy106=13.
      compute mainy107=13.
      compute mainy108=13.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=41 and sec36=45.
      compute avy106=1.
      compute avy107=1.
      compute avy108=5.
      compute mainy106=7.
      compute mainy107=7.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=1.
   Else if main36=41.
      compute avy106=1.
      compute avy107=1.
      compute avy108=1.
      compute mainy106=7.
      compute mainy107=7.
      compute mainy108=7.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=42.
      compute avy106=4.
      compute avy107=4.
      compute avy108=4.
      compute mainy106=15.
      compute mainy107=15.
      compute mainy108=15.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=43.
      compute avy106=2.
      compute avy107=2.
      compute avy108=2.
      compute mainy106=8.
      compute mainy107=8.
      compute mainy108=8.
      compute mtravy106=-7.
      compute mtravy107=-7.
     compute mtravy108=-7.
   Else if main36=44.
      compute avy106=3.
      compute avy107=3.
      compute avy108=3.
      compute mainy106=9.
      compute mainy107=9.
      compute mainy108=9.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=45 and (main37=42 or main37=79).
      compute avy106=5.
      compute avy107=5.
      compute avy108=5.
      compute mainy106=64.
      compute mainy107=64.
      compute mainy108=64.
      compute mtravy106=1.
      compute mtravy107=1.
      compute mtravy108=1.
   Else if (main36=46 or main36=47) and (main37=42 or main37=79).
      compute avy106=5.
      compute avy107=5.
      compute avy108=5.
      compute mainy106=64.
      compute mainy107=64.
      compute mainy108=64.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=45.
      compute avy106=5.
      compute avy107=5.
      compute avy108=5.
      compute mainy106=63.
      compute mainy107=63.
      compute mainy108=63.
      compute mtravy106=1.
      compute mtravy107=1.
      compute mtravy108=1.
   Else if main36=46 or main36=47.
      compute avy106=5.
      compute avy107=5.
      compute avy108=5.
      compute mainy106=63.
      compute mainy107=63.
      compute mainy108=63.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=48.
      compute avy106=5.
      compute avy107=5.
      compute avy108=5.
      compute mainy106=11.
      compute mainy107=11.
      compute mainy108=11.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=49.
      compute avy106=1.
      compute avy107=1.
      compute avy108=1.
      compute mainy106=5.
      compute mainy107=5.
      compute mainy108=5.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=50.
      compute avy106=8.
      compute avy107=8.
      compute avy108=8.
      compute mainy106=21.
      compute mainy107=21.
      compute mainy108=21.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=51.
      compute avy106=11.
      compute avy107=11.
      compute avy108=11.
      compute mainy106=28.
      compute mainy107=28.
      compute mainy108=28.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=52.
      compute avy106=11.
      compute avy107=11.
      compute avy108=11.
      compute mainy106=30.
      compute mainy107=30.
      compute mainy108=30.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=53.
      compute avy106=6.
      compute avy107=6.
      compute avy108=6.
      compute mainy106=18.
      compute mainy107=18.
      compute mainy108=18.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=54.
      compute avy106=7.
      compute avy107=7.
      compute avy108=7.
      compute mainy106=20.
      compute mainy107=20.
      compute mainy108=20.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=55.
      compute avy106=8.
      compute avy107=8.
      compute avy108=8.
      compute mainy106=22.
      compute mainy107=22.
      compute mainy108=22.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=56.
      compute avy106=8.
      compute avy107=8.
      compute avy108=8.
      compute mainy106=27.
      compute mainy107=27.
      compute mainy108=27.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=57.
      compute avy106=10.
      compute avy107=10.
      compute avy108=10.
      compute mainy106=24.
      compute mainy107=24.
      compute mainy108=24.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=58.
      compute avy106=12.
      compute avy107=12.
      compute avy108=12.
      compute mainy106=66.
      compute mainy107=66.
      compute mainy108=66.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=59.
      compute avy106=7.
      compute avy107=7.
      compute avy108=13.
      compute mainy106=23.
      compute mainy107=23.
      compute mainy108=4.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=60.
      compute avy106=9.
      compute avy107=9.
      compute avy108=9.
      compute mainy106=46.
      compute mainy107=46.
      compute mainy108=46.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=61.
      compute avy106=33.
      compute avy107=33.
      compute avy108=33.
      compute mainy106=16.
      compute mainy107=16.
      compute mainy108=16.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=62.
      compute avy106=34.
      compute avy107=34.
      compute avy108=34.
      compute mainy106=56.
      compute mainy107=56.
      compute mainy108=56.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=63.
      compute avy106=35.
      compute avy107=35.
      compute avy108=35.
      compute mainy106=56.
      compute mainy107=56.
      compute mainy108=56.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=64.
      compute avy106=40.
      compute avy107=40.
      compute avy108=40.
      compute mainy106=54.
      compute mainy107=54.
      compute mainy108=54.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=65.
      compute avy106=39.
      compute avy107=39.
      compute avy108=39.
      compute mainy106=54.
      compute mainy107=54.
      compute mainy108=54.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=66.
      compute avy106=38.
      compute avy107=38.
      compute avy108=38.
      compute mainy106=48.
      compute mainy107=48.
      compute mainy108=48.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=67.
      compute avy106=37.
      compute avy107=37.
      compute avy108=37.
      compute mainy106=49.
      compute mainy107=49.
      compute mainy108=49.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=68.
      compute avy106=32.
      compute avy107=32.
      compute avy108=32.
      compute mainy106=57.
      compute mainy107=57.
      compute mainy108=57.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=69.
      compute avy106=36.
      compute avy107=36.
      compute avy108=36.
      compute mainy106=55.
      compute mainy107=55.
      compute mainy108=55.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=70.
      compute avy106=25.
      compute avy107=25.
      compute avy108=25.
      compute mainy106=35.
      compute mainy107=35.
      compute mainy108=35.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=71.
      compute avy106=29.
      compute avy107=29.
      compute avy108=29.
      compute mainy106=48.
      compute mainy107=48.
      compute mainy108=48.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=72.
      compute avy106=24.
      compute avy107=24.
      compute avy108=24.
      compute mainy106=37.
      compute mainy107=37.
      compute mainy108=37.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=73.
      compute avy106=23.
      compute avy107=23.
      compute avy108=23.
      compute mainy106=33.
      compute mainy107=33.
      compute mainy108=33.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=74.
      compute avy106=26.
      compute avy107=26.
      compute avy108=26.
      compute mainy106=40.
      compute mainy107=40.
      compute mainy108=40.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=75 or main36=39.
      compute avy106=27.
      compute avy107=27.
      compute avy108=27.
      compute mainy106=39.
      compute mainy107=39.
      compute mainy108=39.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=76.
      compute avy106=25.
      compute avy107=25.
      compute avy108=25.
      compute mainy106=40.
      compute mainy107=40.
      compute mainy108=40.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=77 or main36=38.
      compute avy106=28.
      compute avy107=28.
      compute avy108=28.
      compute mainy106=39.
      compute mainy107=39.
      compute mainy108=39.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=78.
      compute avy106=22.
      compute avy107=22.
      compute avy108=22.
      compute mainy106=34.
      compute mainy107=34.
      compute mainy108=34.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=79.
      compute avy106=4.
      compute avy107=4.
      compute avy108=4.
      compute mainy106=17.
      compute mainy107=17.
      compute mainy108=17.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=80.
      compute avy106=18.
      compute avy107=18.
      compute avy108=18.
      compute mainy106=38.
      compute mainy107=38.
      compute mainy108=38.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=81.
      compute avy106=19.
      compute avy107=19.
      compute avy108=19.
      compute mainy106=42.
      compute mainy107=42.
      compute mainy108=42.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=82.
      compute avy106=20.
      compute avy107=20.
      compute avy108=20.
      compute mainy106=36.
      compute mainy107=36.
      compute mainy108=36.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=83.
      compute avy106=21.
      compute avy107=21.
      compute avy108=21.
      compute mainy106=43.
      compute mainy107=43.
      compute mainy108=43.
      compute mtravy106=3.
      compute mtravy107=3.
      compute mtravy108=3.
   Else if main36=84.
      compute avy106=18.
      compute avy107=18.
      compute avy108=18.
      compute mainy106=45.
      compute mainy107=45.
      compute mainy108=45.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=85 or main36=86.
      compute avy106=18.
      compute avy107=18.
      compute avy108=18.
      compute mainy106=38.
      compute mainy107=38.
      compute mainy108=38.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=89.
      compute avy106=17.
      compute avy107=17.
      compute avy108=17.
      compute mainy106=68.
      compute mainy107=68.
      compute mainy108=68.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=90.
      compute avy106=17.
      compute avy107=17.
      compute avy108=17.
      compute mainy106=62.
      compute mainy107=62.
      compute mainy108=62.
      compute mtravy106=5.
      compute mtravy107=5.
      compute mtravy108=5.
   Else if main36=91.
      compute avy106=40.
      compute avy107=40.
      compute avy108=40.
      compute mainy106=51.
      compute mainy107=51.
      compute mainy108=51.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=92.
      compute avy106=31.
      compute avy107=31.
      compute avy108=31.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=59.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   Else if main36=93.
      compute avy106=41.
      compute avy107=41.
      compute avy108=41.
      compute mainy106=41.
      compute mainy107=41.
      compute mainy108=41.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=-7.
   End if.
Else if mtmark36=1.
   Do if main36=2 and (main37=42 or main37=79).
      compute avy106=16.
      compute avy107=36.
      compute avy108=5.
      compute mainy106=2.
      compute mainy107=55.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=2 and (main37=41 or main37=44).
      compute avy106=16.
      compute avy107=36.
      compute avy108=5.
      compute mainy106=2.
      compute mainy107=55.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=2 and (main37=36 or main37=57).
      compute avy106=16.
      compute avy107=36.
      compute avy108=12.
      compute mainy106=2.
      compute mainy107=55.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=2.
      compute avy106=16.
      compute avy107=36.
      compute avy108=17.
      compute mainy106=2.
      compute mainy107=55.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36=3 or main36=4) and (main37=42 or main37=79).
      compute avy106=16.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=2.
      compute mainy107=4.
      compute mainy108=64.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=5. 
   Else if (main36=3 or main36=4) and (main37=41 or main37=44).
      compute avy106=16.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=2.
      compute mainy107=4.
      compute mainy108=63.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=5. 
   Else if (main36=3 or main36=4) and (main37=36 or main37=57).
      compute avy106=16.
      compute avy107=13.
      compute avy108=12.
      compute mainy106=2.
      compute mainy107=4.
      compute mainy108=67.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=5. 
   Else if (main36=3 or main36=4).
      compute avy106=16.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=2.
      compute mainy107=4.
      compute mainy108=63.
      compute mtravy106=-7. 
      compute mtravy107=-7. 
      compute mtravy108=5.
   Else if main36=6 and (main37=41 or main37=44).
      compute avy106=13.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=1.
      compute mainy107=1.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=6 and (main37=42 or main37=79).
      compute avy106=13.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=1.
      compute mainy107=1.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=6 and (main37=36 or main37=57).
      compute avy106=13.
      compute avy107=13.
      compute avy108=12.
      compute mainy106=1.
      compute mainy107=1.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=6.
      compute avy106=13.
      compute avy107=13.
      compute avy108=17.
      compute mainy106=1.
      compute mainy107=1.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>10 and main36<15) and (main37=42 or main37=79).
      compute avy106=30.
      compute avy107=30.
      compute avy108=5.
      compute mainy106=58.
      compute mainy107=58.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>10 and main36<15) and (main37=41 or main37=44).
      compute avy106=30.
      compute avy107=30.
      compute avy108=5.
      compute mainy106=58.
      compute mainy107=58.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>10 and main36<15) and (main37=36 or main37=57).
      compute avy106=30.
      compute avy107=30.
      compute avy108=12.
      compute mainy106=58.
      compute mainy107=58.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36>10 and main36<15.
      compute avy106=30.
      compute avy107=30.
      compute avy108=17.
      compute mainy106=58.
      compute mainy107=58.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>19 and main36<30) and (main37=41 or main37=44).
      compute avy106=31.
      compute avy107=31.
      compute avy108=5.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>19 and main36<30) and (main37=42 or main37=79).
      compute avy106=31.
      compute avy107=31.
      compute avy108=5.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>19 and main36<30) and (main37=36 or main37=57).
      compute avy106=31.
      compute avy107=31.
      compute avy108=12.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36>19 and main36<30.
      compute avy106=31.
      compute avy107=31.
      compute avy108=17.
      compute mainy106=59.
      compute mainy107=59.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>29 and main36<34) and sec36=45.
      compute avy106=13.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=1.
   Else if (main36>29 and main36<34) and (main37=42 or main37=79).
      compute avy106=13.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>29 and main36<34) and (main37=57 or main37=36).
      compute avy106=13.
      compute avy107=13.
      compute avy108=12.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>29 and main36<34) and (main37=41 or main37=44 or main37=47).
      compute avy106=13.
      compute avy107=13.
      compute avy108=5.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if (main36>29 and main36<34).
      compute avy106=13.
      compute avy107=13.
      compute avy108=17.
      compute mainy106=4.
      compute mainy107=4.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=36.
      compute avy106=14.
      compute avy107=14.
      compute avy108=12.
      compute mainy106=25.
      compute mainy107=25.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=40.
      compute avy106=1.
      compute avy107=1.
      compute avy108=5.
      compute mainy106=13.
      compute mainy107=13.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=41.
      compute avy106=1.
      compute avy107=1.
      compute avy108=5.
      compute mainy106=7.
      compute mainy107=7.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      Do if sec36=45.
         compute mtravy108=5.
      Else.
         compute mtravy108=5.
      End if.
   Else if main36=42.
      compute avy106=4.
      compute avy107=4.
      compute avy108=5.
      compute mainy106=15.
      compute mainy107=15.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=43 and (main37=42 or main37=79).
      compute avy106=2.
      compute avy107=2.
      compute avy108=5.
      compute mainy106=8.
      compute mainy107=8.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
     compute mtravy108=5.
   Else if main36=43.
      compute avy106=2.
      compute avy107=2.
      compute avy108=5.
      compute mainy106=8.
      compute mainy107=8.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
     compute mtravy108=5.
   Else if main36=44.
      compute avy106=3.
      compute avy107=3.
      compute avy108=5.
      compute mainy106=9.
      compute mainy107=9.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=50 and (main37=41 or main37=44).
      compute avy106=8.
      compute avy107=8.
      compute avy108=5.
      compute mainy106=21.
      compute mainy107=21.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=50 and (main37=42 or main37=79).
      compute avy106=8.
      compute avy107=8.
      compute avy108=5.
      compute mainy106=21.
      compute mainy107=21.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=50 and (main37=57 or main37=36).
      compute avy106=8.
      compute avy107=8.
      compute avy108=12.
      compute mainy106=21.
      compute mainy107=21.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=50.
      compute avy106=8.
      compute avy107=8.
      compute avy108=17.
      compute mainy106=21.
      compute mainy107=21.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=51 and (main37=41 or main37=44 or main37=45).
      compute avy106=11.
      compute avy107=11.
      compute avy108=5.
      compute mainy106=28.
      compute mainy107=28.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=51 and (main37=42 or main37=79).
      compute avy106=11.
      compute avy107=11.
      compute avy108=5.
      compute mainy106=28.
      compute mainy107=28.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=51 and (main37=57 or main37=36).
      compute avy106=11.
      compute avy107=11.
      compute avy108=12.
      compute mainy106=28.
      compute mainy107=28.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=51.
      compute avy106=11.
      compute avy107=11.
      compute avy108=17.
      compute mainy106=28.
      compute mainy107=28.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=53 and (main37=42 or main37=79).
      compute avy106=6.
      compute avy107=6.
      compute avy108=5.
      compute mainy106=18.
      compute mainy107=18.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=53 and (main37=36 or main37=57).
      compute avy106=6.
      compute avy107=6.
      compute avy108=12.
      compute mainy106=18.
      compute mainy107=18.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=53 and (main37=41 or main37=44).
      compute avy106=6.
      compute avy107=6.
      compute avy108=5.
      compute mainy106=18.
      compute mainy107=18.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=53.
      compute avy106=6.
      compute avy107=6.
      compute avy108=17.
      compute mainy106=18.
      compute mainy107=18.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=54 and (main37=36 or main37=57).
      compute avy106=7.
      compute avy107=7.
      compute avy108=12.
      compute mainy106=20.
      compute mainy107=20.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=54 and (main37=41 or main37=44 or main37=47).
      compute avy106=7.
      compute avy107=7.
      compute avy108=5.
      compute mainy106=20.
      compute mainy107=20.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=54 and (main37=42 or main37=79).
      compute avy106=7.
      compute avy107=7.
      compute avy108=5.
      compute mainy106=20.
      compute mainy107=20.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=54.
      compute avy106=7.
      compute avy107=7.
      compute avy108=17.
      compute mainy106=20.
      compute mainy107=20.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=55 and (main37=57 or main37=36).
      compute avy106=8.
      compute avy107=8.
      compute avy108=12.
      compute mainy106=22.
      compute mainy107=22.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=55 and (main37=42 or main37=79).
      compute avy106=8.
      compute avy107=8.
      compute avy108=5.
      compute mainy106=22.
      compute mainy107=22.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=55.
      compute avy106=8.
      compute avy107=8.
      compute avy108=17.
      compute mainy106=22.
      compute mainy107=22.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=56 and (main37=41 or main37=44).
      compute avy106=8.
      compute avy107=8.
      compute avy108=5.
      compute mainy106=27.
      compute mainy107=27.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=56 and (main37=42 or main37=79).
      compute avy106=8.
      compute avy107=8.
      compute avy108=5.
      compute mainy106=27.
      compute mainy107=27.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=56 and (main37=36 or main37=57).
      compute avy106=8.
      compute avy107=8.
      compute avy108=12.
      compute mainy106=27.
      compute mainy107=27.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=56.
      compute avy106=8.
      compute avy107=8.
      compute avy108=17.
      compute mainy106=27.
      compute mainy107=27.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=57 and (main37=41 or main37=44).
      compute avy106=10.
      compute avy107=10.
      compute avy108=5.
      compute mainy106=24.
      compute mainy107=24.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=57 and (main37=42 or main37=79).
      compute avy106=10.
      compute avy107=10.
      compute avy108=5.
      compute mainy106=24.
      compute mainy107=24.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=57 and (main37=36 or main37=57).
      compute avy106=10.
      compute avy107=10.
      compute avy108=12.
      compute mainy106=24.
      compute mainy107=24.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=57.
      compute avy106=10.
      compute avy107=10.
      compute avy108=17.
      compute mainy106=24.
      compute mainy107=24.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=59.
      compute avy106=7.
      compute avy107=7.
      compute avy108=12.
      compute mainy106=23.
      compute mainy107=23.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=66.
      compute avy106=38.
      compute avy107=38.
      compute avy108=12.
      compute mainy106=48.
      compute mainy107=48.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=69 and (main37=41 or main37=44).
      compute avy106=36.
      compute avy107=36.
      compute avy108=5.
      compute mainy106=55.
      compute mainy107=55.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=69 and (main37=36 or main37=57).
      compute avy106=36.
      compute avy107=36.
      compute avy108=12.
      compute mainy106=55.
      compute mainy107=55.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=69.
      compute avy106=36.
      compute avy107=36.
      compute avy108=17.
      compute mainy106=55.
      compute mainy107=55.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=71 and main37=42.
      compute avy106=29.
      compute avy107=29.
      compute avy108=5.
      compute mainy106=48.
      compute mainy107=48.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=71 and main37=41.
      compute avy106=29.
      compute avy107=29.
      compute avy108=5.
      compute mainy106=48.
      compute mainy107=48.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=75.
      compute avy106=27.
      compute avy107=27.
      compute avy108=17.
      compute mainy106=39.
      compute mainy107=39.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=77.
      compute avy106=28.
      compute avy107=28.
      compute avy108=17.
      compute mainy106=39.
      compute mainy107=39.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=78 and (main36=41 or main36=44).
      compute avy106=22.
      compute avy107=22.
      compute avy108=5.
      compute mainy106=34.
      compute mainy107=34.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=78.
      compute avy106=22.
      compute avy107=22.
      compute avy108=17.
      compute mainy106=34.
      compute mainy107=34.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=79.
      compute avy106=4.
      compute avy107=4.
      compute avy108=5.
      compute mainy106=17.
      compute mainy107=17.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=82.
      compute avy106=20.
      compute avy107=20.
      compute avy108=17.
      compute mainy106=36.
      compute mainy107=36.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=84.
      compute avy106=18.
      compute avy107=18.
      compute avy108=17.
      compute mainy106=45.
      compute mainy107=45.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=85 or main36=86.
      compute avy106=18.
      compute avy107=18.
      compute avy108=17.
      compute mainy106=38.
      compute mainy107=38.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=91 and (main37=36 or main37=57).
      compute avy106=40.
      compute avy107=40.
      compute avy108=12.
      compute mainy106=51.
      compute mainy107=51.
      compute mainy108=67.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=91 and (main37=41 or main37=44).
      compute avy106=40.
      compute avy107=40.
      compute avy108=5.
      compute mainy106=51.
      compute mainy107=51.
      compute mainy108=63.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=91 and (main37=42 or main37=79).
      compute avy106=40.
      compute avy107=40.
      compute avy108=5.
      compute mainy106=51.
      compute mainy107=51.
      compute mainy108=64.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   Else if main36=91.
      compute avy106=40.
      compute avy107=40.
      compute avy108=17.
      compute mainy106=51.
      compute mainy107=51.
      compute mainy108=68.
      compute mtravy106=-7.
      compute mtravy107=-7.
      compute mtravy108=5.
   End if.
End if.

Do if main36=1 and main37=1 and mtmark36=0.
   compute avy106=16.
   compute avy107=16.
   compute avy108=16.
   compute mainy106=2.
   compute mainy107=2.
   compute mainy108=2.
   compute mtravy106=-7. 
   compute mtravy107=-7. 
   compute mtravy108=-7. 
Else if main36=2 and main37=2 and mtmark36=0.
   compute avy106=16.
   compute avy107=16.
   compute avy108=16.
   compute mainy106=2.
   compute mainy107=2.
   compute mainy108=2.
   compute mtravy106=-7.
   compute mtravy107=-7.
   compute mtravy108=-7.
End if.

freq avy106 avy107 avy108 mainy106 mainy107 mainy108 mtravy106 mtravy107 mtravy108.

*set values for the 37th time slot.
freq mtmark37.
*731 missing travel cases in time slot 37.

temp.
select if mtmark37=1.
cro main37 by main38.

if main37=83 or main38=83 or main37=63 or main38=63 mtmark37=0.
if main37=34 or main37=38 or main37=62 or main37=67 or main37=81 mtmark37=0.
if main38=34 or main38=38 or main38=62 or main38=67 or main38=81 mtmark37=0.
if main37=main38 mtmark37=0.
if main37=1 or main37=61 or main38=61 or main38=72 or main38=50 mtmark37=0.
if main37=59 and main38>57 mtmark37=0.
if main37=60 or main37=64 or main37=66 or main37=68 or main37=70 or 
   main37=71 or main37=72 or main37=73 or main37=35 or main37=52 or 
   main37=65 or main37=74 or main37=80 or main37=82 or main37=99 or
   main37=76 or main37=49 or main37=52 or main37=71 mtmark37=0.
if main37=84 and main37=52 mtmark12=0.
*errors fixed, 156 cases remain.

temp.
select if sec37=45.
cro main37 by main38 by mtmark37.

Do if mtmark37=0.
   Do if main37>95.
      compute avy109=41.
      compute avy110=41.
      compute avy111=41.
      compute mainy109=69.
      compute mainy110=69.
      compute mainy111=69.
      compute mtravy109=-8.
      compute mtravy110=-8.
      compute mtravy111=-8.
   Else if main37=1.
      compute avy109=16.
      compute avy110=16.
      compute avy111=13.
      compute mainy109=2.
      compute mainy110=2.
      compute mainy111=4.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=-7. 
   Else if main37=2.
      compute avy109=16.
      compute avy110=16.
      compute avy111=36.
      compute mainy109=2.
      compute mainy110=2.
      compute mainy111=55.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=3 or main37=4.
      compute avy109=16.
      compute avy110=16.
      compute avy111=16.
      compute mainy109=2.
      compute mainy110=2.
      compute mainy111=2.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=-7. 
   Else if main37=5.
      compute avy109=16.
      compute avy110=16.
      compute avy111=16.
      compute mainy109=3.
      compute mainy110=3.
      compute mainy111=3.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=6.
      compute avy109=13.
      compute avy110=13.
      compute avy111=13.
      compute mainy109=1.
      compute mainy110=1.
      compute mainy111=1.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37>6 and main37<20.
      compute avy109=30.
      compute avy110=30.
      compute avy111=30.
      compute mainy109=58.
      compute mainy110=58.
      compute mainy111=58.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37>19 and main37<30.
      compute avy109=31.
      compute avy110=31.
      compute avy111=31.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=59.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37>29 and main37<34.
      compute avy109=13.
      compute avy110=13.
      compute avy111=13.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=4.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=34 and sec37=45.
      compute avy109=15.
      compute avy110=15.
      compute avy111=5.
      compute mainy109=6.
      compute mainy110=6.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=1.
   Else if main37=34 or main37=35 or ((main37=38 or main37=39) and loc37=1).
      compute avy109=15.
      compute avy110=15.
      compute avy111=15.
      compute mainy109=6.
      compute mainy110=6.
      compute mainy111=6.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=36.
      compute avy109=14.
      compute avy110=14.
      compute avy111=14.
      compute mainy109=25.
      compute mainy110=25.
      compute mainy111=25.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=37.
      compute avy109=12.
      compute avy110=12.
      compute avy111=12.
      compute mainy109=67.
      compute mainy110=67.
      compute mainy111=67.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=40.
      compute avy109=1.
      compute avy110=1.
      compute avy111=1.
      compute mainy109=13.
      compute mainy110=13.
      compute mainy111=13.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=41 and sec37=45.
      compute avy109=1.
      compute avy110=1.
      compute avy111=5.
      compute mainy109=7.
      compute mainy110=7.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=1.
   Else if main37=41.
      compute avy109=1.
      compute avy110=1.
      compute avy111=1.
      compute mainy109=7.
      compute mainy110=7.
      compute mainy111=7.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=42.
      compute avy109=4.
      compute avy110=4.
      compute avy111=4.
      compute mainy109=15.
      compute mainy110=15.
      compute mainy111=15.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=43.
      compute avy109=2.
      compute avy110=2.
      compute avy111=2.
      compute mainy109=8.
      compute mainy110=8.
      compute mainy111=8.
      compute mtravy109=-7.
      compute mtravy110=-7.
     compute mtravy111=-7.
   Else if main37=44.
      compute avy109=3.
      compute avy110=3.
      compute avy111=3.
      compute mainy109=9.
      compute mainy110=9.
      compute mainy111=9.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=45 and (main38=42 or main38=79).
      compute avy109=5.
      compute avy110=5.
      compute avy111=5.
      compute mainy109=64.
      compute mainy110=64.
      compute mainy111=64.
      compute mtravy109=1.
      compute mtravy110=1.
      compute mtravy111=1.
   Else if (main37=46 or main37=47) and (main38=42 or main38=79).
      compute avy109=5.
      compute avy110=5.
      compute avy111=5.
      compute mainy109=64.
      compute mainy110=64.
      compute mainy111=64.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=45.
      compute avy109=5.
      compute avy110=5.
      compute avy111=5.
      compute mainy109=63.
      compute mainy110=63.
      compute mainy111=63.
      compute mtravy109=1.
      compute mtravy110=1.
      compute mtravy111=1.
   Else if main37=46 or main37=47.
      compute avy109=5.
      compute avy110=5.
      compute avy111=5.
      compute mainy109=63.
      compute mainy110=63.
      compute mainy111=63.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=48.
      compute avy109=5.
      compute avy110=5.
      compute avy111=5.
      compute mainy109=11.
      compute mainy110=11.
      compute mainy111=11.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=49.
      compute avy109=1.
      compute avy110=1.
      compute avy111=1.
      compute mainy109=5.
      compute mainy110=5.
      compute mainy111=5.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=50.
      compute avy109=8.
      compute avy110=8.
      compute avy111=8.
      compute mainy109=21.
      compute mainy110=21.
      compute mainy111=21.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=51.
      compute avy109=11.
      compute avy110=11.
      compute avy111=11.
      compute mainy109=28.
      compute mainy110=28.
      compute mainy111=28.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=52.
      compute avy109=11.
      compute avy110=11.
      compute avy111=11.
      compute mainy109=30.
      compute mainy110=30.
      compute mainy111=30.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=53.
      compute avy109=6.
      compute avy110=6.
      compute avy111=6.
      compute mainy109=18.
      compute mainy110=18.
      compute mainy111=18.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=54.
      compute avy109=7.
      compute avy110=7.
      compute avy111=7.
      compute mainy109=20.
      compute mainy110=20.
      compute mainy111=20.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=55.
      compute avy109=8.
      compute avy110=8.
      compute avy111=8.
      compute mainy109=22.
      compute mainy110=22.
      compute mainy111=22.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=56.
      compute avy109=8.
      compute avy110=8.
      compute avy111=8.
      compute mainy109=27.
      compute mainy110=27.
      compute mainy111=27.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=57.
      compute avy109=10.
      compute avy110=10.
      compute avy111=10.
      compute mainy109=24.
      compute mainy110=24.
      compute mainy111=24.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=58.
      compute avy109=12.
      compute avy110=12.
      compute avy111=12.
      compute mainy109=66.
      compute mainy110=66.
      compute mainy111=66.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=59.
      compute avy109=7.
      compute avy110=7.
      compute avy111=13.
      compute mainy109=23.
      compute mainy110=23.
      compute mainy111=4.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=60.
      compute avy109=9.
      compute avy110=9.
      compute avy111=9.
      compute mainy109=46.
      compute mainy110=46.
      compute mainy111=46.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=61.
      compute avy109=33.
      compute avy110=33.
      compute avy111=33.
      compute mainy109=16.
      compute mainy110=16.
      compute mainy111=16.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=62.
      compute avy109=34.
      compute avy110=34.
      compute avy111=34.
      compute mainy109=56.
      compute mainy110=56.
      compute mainy111=56.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=63.
      compute avy109=35.
      compute avy110=35.
      compute avy111=35.
      compute mainy109=56.
      compute mainy110=56.
      compute mainy111=56.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=64.
      compute avy109=40.
      compute avy110=40.
      compute avy111=40.
      compute mainy109=54.
      compute mainy110=54.
      compute mainy111=54.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=65.
      compute avy109=39.
      compute avy110=39.
      compute avy111=39.
      compute mainy109=54.
      compute mainy110=54.
      compute mainy111=54.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=66.
      compute avy109=38.
      compute avy110=38.
      compute avy111=38.
      compute mainy109=48.
      compute mainy110=48.
      compute mainy111=48.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=67.
      compute avy109=37.
      compute avy110=37.
      compute avy111=37.
      compute mainy109=49.
      compute mainy110=49.
      compute mainy111=49.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=68.
      compute avy109=32.
      compute avy110=32.
      compute avy111=32.
      compute mainy109=57.
      compute mainy110=57.
      compute mainy111=57.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=69.
      compute avy109=36.
      compute avy110=36.
      compute avy111=36.
      compute mainy109=55.
      compute mainy110=55.
      compute mainy111=55.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=70.
      compute avy109=25.
      compute avy110=25.
      compute avy111=25.
      compute mainy109=35.
      compute mainy110=35.
      compute mainy111=35.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=71.
      compute avy109=29.
      compute avy110=29.
      compute avy111=29.
      compute mainy109=48.
      compute mainy110=48.
      compute mainy111=48.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=72.
      compute avy109=24.
      compute avy110=24.
      compute avy111=24.
      compute mainy109=37.
      compute mainy110=37.
      compute mainy111=37.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=73.
      compute avy109=23.
      compute avy110=23.
      compute avy111=23.
      compute mainy109=33.
      compute mainy110=33.
      compute mainy111=33.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=74.
      compute avy109=26.
      compute avy110=26.
      compute avy111=26.
      compute mainy109=40.
      compute mainy110=40.
      compute mainy111=40.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=75 or main37=39.
      compute avy109=27.
      compute avy110=27.
      compute avy111=27.
      compute mainy109=39.
      compute mainy110=39.
      compute mainy111=39.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=76.
      compute avy109=25.
      compute avy110=25.
      compute avy111=25.
      compute mainy109=40.
      compute mainy110=40.
      compute mainy111=40.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=77 or main37=38.
      compute avy109=28.
      compute avy110=28.
      compute avy111=28.
      compute mainy109=39.
      compute mainy110=39.
      compute mainy111=39.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=78.
      compute avy109=22.
      compute avy110=22.
      compute avy111=22.
      compute mainy109=34.
      compute mainy110=34.
      compute mainy111=34.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=79.
      compute avy109=4.
      compute avy110=4.
      compute avy111=4.
      compute mainy109=17.
      compute mainy110=17.
      compute mainy111=17.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=80.
      compute avy109=18.
      compute avy110=18.
      compute avy111=18.
      compute mainy109=38.
      compute mainy110=38.
      compute mainy111=38.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=81.
      compute avy109=19.
      compute avy110=19.
      compute avy111=19.
      compute mainy109=42.
      compute mainy110=42.
      compute mainy111=42.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=82.
      compute avy109=20.
      compute avy110=20.
      compute avy111=20.
      compute mainy109=36.
      compute mainy110=36.
      compute mainy111=36.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=83.
      compute avy109=21.
      compute avy110=21.
      compute avy111=21.
      compute mainy109=43.
      compute mainy110=43.
      compute mainy111=43.
      compute mtravy109=3.
      compute mtravy110=3.
      compute mtravy111=3.
   Else if main37=84.
      compute avy109=18.
      compute avy110=18.
      compute avy111=18.
      compute mainy109=45.
      compute mainy110=45.
      compute mainy111=45.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=85 or main37=86.
      compute avy109=18.
      compute avy110=18.
      compute avy111=18.
      compute mainy109=38.
      compute mainy110=38.
      compute mainy111=38.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=89.
      compute avy109=17.
      compute avy110=17.
      compute avy111=17.
      compute mainy109=68.
      compute mainy110=68.
      compute mainy111=68.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=90.
      compute avy109=17.
      compute avy110=17.
      compute avy111=17.
      compute mainy109=62.
      compute mainy110=62.
      compute mainy111=62.
      compute mtravy109=5.
      compute mtravy110=5.
      compute mtravy111=5.
   Else if main37=91.
      compute avy109=40.
      compute avy110=40.
      compute avy111=40.
      compute mainy109=51.
      compute mainy110=51.
      compute mainy111=51.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=92.
      compute avy109=31.
      compute avy110=31.
      compute avy111=31.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=59.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   Else if main37=93.
      compute avy109=41.
      compute avy110=41.
      compute avy111=41.
      compute mainy109=41.
      compute mainy110=41.
      compute mainy111=41.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=-7.
   End if.
Else if mtmark37=1.
   Do if main37=2 and (main38=42 or main38=79).
      compute avy109=16.
      compute avy110=36.
      compute avy111=5.
      compute mainy109=2.
      compute mainy110=55.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=2 and (main38=41 or main38=44).
      compute avy109=16.
      compute avy110=36.
      compute avy111=5.
      compute mainy109=2.
      compute mainy110=55.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=2 and (main38=36 or main38=57).
      compute avy109=16.
      compute avy110=36.
      compute avy111=12.
      compute mainy109=2.
      compute mainy110=55.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=2.
      compute avy109=16.
      compute avy110=36.
      compute avy111=17.
      compute mainy109=2.
      compute mainy110=55.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37=3 or main37=4) and (main38=42 or main38=79).
      compute avy109=16.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=2.
      compute mainy110=4.
      compute mainy111=64.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=5. 
   Else if (main37=3 or main37=4) and (main38=41 or main38=44).
      compute avy109=16.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=2.
      compute mainy110=4.
      compute mainy111=63.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=5. 
   Else if (main37=3 or main37=4) and (main38=36 or main38=57).
      compute avy109=16.
      compute avy110=13.
      compute avy111=12.
      compute mainy109=2.
      compute mainy110=4.
      compute mainy111=67.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=5. 
   Else if (main37=3 or main37=4).
      compute avy109=16.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=2.
      compute mainy110=4.
      compute mainy111=63.
      compute mtravy109=-7. 
      compute mtravy110=-7. 
      compute mtravy111=5.
   Else if main37=6 and (main38=41 or main38=44).
      compute avy109=13.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=1.
      compute mainy110=1.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=6 and (main38=42 or main38=79).
      compute avy109=13.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=1.
      compute mainy110=1.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=6 and (main38=36 or main38=57).
      compute avy109=13.
      compute avy110=13.
      compute avy111=12.
      compute mainy109=1.
      compute mainy110=1.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=6.
      compute avy109=13.
      compute avy110=13.
      compute avy111=17.
      compute mainy109=1.
      compute mainy110=1.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>10 and main37<15) and (main38=42 or main38=79).
      compute avy109=30.
      compute avy110=30.
      compute avy111=5.
      compute mainy109=58.
      compute mainy110=58.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>10 and main37<15) and (main38=41 or main38=44).
      compute avy109=30.
      compute avy110=30.
      compute avy111=5.
      compute mainy109=58.
      compute mainy110=58.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>10 and main37<15) and (main38=36 or main38=57).
      compute avy109=30.
      compute avy110=30.
      compute avy111=12.
      compute mainy109=58.
      compute mainy110=58.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37>10 and main37<15.
      compute avy109=30.
      compute avy110=30.
      compute avy111=17.
      compute mainy109=58.
      compute mainy110=58.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>19 and main37<30) and (main38=41 or main38=44).
      compute avy109=31.
      compute avy110=31.
      compute avy111=5.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>19 and main37<30) and (main38=42 or main38=79).
      compute avy109=31.
      compute avy110=31.
      compute avy111=5.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>19 and main37<30) and (main38=36 or main38=57).
      compute avy109=31.
      compute avy110=31.
      compute avy111=12.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37>19 and main37<30.
      compute avy109=31.
      compute avy110=31.
      compute avy111=17.
      compute mainy109=59.
      compute mainy110=59.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>29 and main37<34) and sec37=45.
      compute avy109=13.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=1.
   Else if (main37>29 and main37<34) and (main38=42 or main38=79).
      compute avy109=13.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>29 and main37<34) and (main38=57 or main38=36).
      compute avy109=13.
      compute avy110=13.
      compute avy111=12.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>29 and main37<34) and (main38=41 or main38=44 or main38=47).
      compute avy109=13.
      compute avy110=13.
      compute avy111=5.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if (main37>29 and main37<34).
      compute avy109=13.
      compute avy110=13.
      compute avy111=17.
      compute mainy109=4.
      compute mainy110=4.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=36.
      compute avy109=14.
      compute avy110=14.
      compute avy111=12.
      compute mainy109=25.
      compute mainy110=25.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=40.
      compute avy109=1.
      compute avy110=1.
      compute avy111=5.
      compute mainy109=13.
      compute mainy110=13.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=41.
      compute avy109=1.
      compute avy110=1.
      compute avy111=5.
      compute mainy109=7.
      compute mainy110=7.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      Do if sec37=45.
         compute mtravy111=5.
      Else.
         compute mtravy111=5.
      End if.
   Else if main37=42.
      compute avy109=4.
      compute avy110=4.
      compute avy111=5.
      compute mainy109=15.
      compute mainy110=15.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=43 and (main38=42 or main38=79).
      compute avy109=2.
      compute avy110=2.
      compute avy111=5.
      compute mainy109=8.
      compute mainy110=8.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
     compute mtravy111=5.
   Else if main37=43.
      compute avy109=2.
      compute avy110=2.
      compute avy111=5.
      compute mainy109=8.
      compute mainy110=8.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
     compute mtravy111=5.
   Else if main37=44.
      compute avy109=3.
      compute avy110=3.
      compute avy111=5.
      compute mainy109=9.
      compute mainy110=9.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=50 and (main38=41 or main38=44).
      compute avy109=8.
      compute avy110=8.
      compute avy111=5.
      compute mainy109=21.
      compute mainy110=21.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=50 and (main38=42 or main38=79).
      compute avy109=8.
      compute avy110=8.
      compute avy111=5.
      compute mainy109=21.
      compute mainy110=21.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=50 and (main38=57 or main38=36).
      compute avy109=8.
      compute avy110=8.
      compute avy111=12.
      compute mainy109=21.
      compute mainy110=21.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=50.
      compute avy109=8.
      compute avy110=8.
      compute avy111=17.
      compute mainy109=21.
      compute mainy110=21.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=51 and (main38=41 or main38=44 or main38=45).
      compute avy109=11.
      compute avy110=11.
      compute avy111=5.
      compute mainy109=28.
      compute mainy110=28.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=51 and (main38=42 or main38=79).
      compute avy109=11.
      compute avy110=11.
      compute avy111=5.
      compute mainy109=28.
      compute mainy110=28.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=51 and (main38=57 or main38=36).
      compute avy109=11.
      compute avy110=11.
      compute avy111=12.
      compute mainy109=28.
      compute mainy110=28.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=51.
      compute avy109=11.
      compute avy110=11.
      compute avy111=17.
      compute mainy109=28.
      compute mainy110=28.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=53 and (main38=42 or main38=79).
      compute avy109=6.
      compute avy110=6.
      compute avy111=5.
      compute mainy109=18.
      compute mainy110=18.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=53 and (main38=36 or main38=57).
      compute avy109=6.
      compute avy110=6.
      compute avy111=12.
      compute mainy109=18.
      compute mainy110=18.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=53 and (main38=41 or main38=44).
      compute avy109=6.
      compute avy110=6.
      compute avy111=5.
      compute mainy109=18.
      compute mainy110=18.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=53.
      compute avy109=6.
      compute avy110=6.
      compute avy111=17.
      compute mainy109=18.
      compute mainy110=18.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=54 and (main38=36 or main38=57).
      compute avy109=7.
      compute avy110=7.
      compute avy111=12.
      compute mainy109=20.
      compute mainy110=20.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=54 and (main38=41 or main38=44 or main38=47).
      compute avy109=7.
      compute avy110=7.
      compute avy111=5.
      compute mainy109=20.
      compute mainy110=20.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=54 and (main38=42 or main38=79).
      compute avy109=7.
      compute avy110=7.
      compute avy111=5.
      compute mainy109=20.
      compute mainy110=20.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=54.
      compute avy109=7.
      compute avy110=7.
      compute avy111=17.
      compute mainy109=20.
      compute mainy110=20.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=55 and (main38=57 or main38=36).
      compute avy109=8.
      compute avy110=8.
      compute avy111=12.
      compute mainy109=22.
      compute mainy110=22.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=55 and (main38=42 or main38=79).
      compute avy109=8.
      compute avy110=8.
      compute avy111=5.
      compute mainy109=22.
      compute mainy110=22.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=55.
      compute avy109=8.
      compute avy110=8.
      compute avy111=17.
      compute mainy109=22.
      compute mainy110=22.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=56 and (main38=41 or main38=44).
      compute avy109=8.
      compute avy110=8.
      compute avy111=5.
      compute mainy109=27.
      compute mainy110=27.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=56 and (main38=42 or main38=79).
      compute avy109=8.
      compute avy110=8.
      compute avy111=5.
      compute mainy109=27.
      compute mainy110=27.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=56 and (main38=36 or main38=57).
      compute avy109=8.
      compute avy110=8.
      compute avy111=12.
      compute mainy109=27.
      compute mainy110=27.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=56.
      compute avy109=8.
      compute avy110=8.
      compute avy111=17.
      compute mainy109=27.
      compute mainy110=27.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=57 and (main38=41 or main38=44).
      compute avy109=10.
      compute avy110=10.
      compute avy111=5.
      compute mainy109=24.
      compute mainy110=24.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=57 and (main38=42 or main38=79).
      compute avy109=10.
      compute avy110=10.
      compute avy111=5.
      compute mainy109=24.
      compute mainy110=24.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=57 and (main38=36 or main38=57).
      compute avy109=10.
      compute avy110=10.
      compute avy111=12.
      compute mainy109=24.
      compute mainy110=24.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=57.
      compute avy109=10.
      compute avy110=10.
      compute avy111=17.
      compute mainy109=24.
      compute mainy110=24.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=59.
      compute avy109=7.
      compute avy110=7.
      compute avy111=12.
      compute mainy109=23.
      compute mainy110=23.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=66.
      compute avy109=38.
      compute avy110=38.
      compute avy111=12.
      compute mainy109=48.
      compute mainy110=48.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=69 and (main38=41 or main38=44).
      compute avy109=36.
      compute avy110=36.
      compute avy111=5.
      compute mainy109=55.
      compute mainy110=55.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=69 and (main38=36 or main38=57).
      compute avy109=36.
      compute avy110=36.
      compute avy111=12.
      compute mainy109=55.
      compute mainy110=55.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=69.
      compute avy109=36.
      compute avy110=36.
      compute avy111=17.
      compute mainy109=55.
      compute mainy110=55.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=71 and main38=42.
      compute avy109=29.
      compute avy110=29.
      compute avy111=5.
      compute mainy109=48.
      compute mainy110=48.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=71 and main38=41.
      compute avy109=29.
      compute avy110=29.
      compute avy111=5.
      compute mainy109=48.
      compute mainy110=48.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=75.
      compute avy109=27.
      compute avy110=27.
      compute avy111=17.
      compute mainy109=39.
      compute mainy110=39.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=77.
      compute avy109=28.
      compute avy110=28.
      compute avy111=17.
      compute mainy109=39.
      compute mainy110=39.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=78 and (main37=41 or main37=44).
      compute avy109=22.
      compute avy110=22.
      compute avy111=5.
      compute mainy109=34.
      compute mainy110=34.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=78.
      compute avy109=22.
      compute avy110=22.
      compute avy111=17.
      compute mainy109=34.
      compute mainy110=34.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=79.
      compute avy109=4.
      compute avy110=4.
      compute avy111=5.
      compute mainy109=17.
      compute mainy110=17.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=82.
      compute avy109=20.
      compute avy110=20.
      compute avy111=17.
      compute mainy109=36.
      compute mainy110=36.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=84.
      compute avy109=18.
      compute avy110=18.
      compute avy111=17.
      compute mainy109=45.
      compute mainy110=45.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=85 or main37=86.
      compute avy109=18.
      compute avy110=18.
      compute avy111=17.
      compute mainy109=38.
      compute mainy110=38.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=91 and (main38=36 or main38=57).
      compute avy109=40.
      compute avy110=40.
      compute avy111=12.
      compute mainy109=51.
      compute mainy110=51.
      compute mainy111=67.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=91 and (main38=41 or main38=44).
      compute avy109=40.
      compute avy110=40.
      compute avy111=5.
      compute mainy109=51.
      compute mainy110=51.
      compute mainy111=63.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=91 and (main38=42 or main38=79).
      compute avy109=40.
      compute avy110=40.
      compute avy111=5.
      compute mainy109=51.
      compute mainy110=51.
      compute mainy111=64.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   Else if main37=91.
      compute avy109=40.
      compute avy110=40.
      compute avy111=17.
      compute mainy109=51.
      compute mainy110=51.
      compute mainy111=68.
      compute mtravy109=-7.
      compute mtravy110=-7.
      compute mtravy111=5.
   End if.
End if.

Do if main37=1 and main38=1 and mtmark37=0.
   compute avy109=16.
   compute avy110=16.
   compute avy111=16.
   compute mainy109=2.
   compute mainy110=2.
   compute mainy111=2.
   compute mtravy109=-7. 
   compute mtravy110=-7. 
   compute mtravy111=-7. 
Else if main37=2 and main38=2 and mtmark37=0.
   compute avy109=16.
   compute avy110=16.
   compute avy111=16.
   compute mainy109=2.
   compute mainy110=2.
   compute mainy111=2.
   compute mtravy109=-7.
   compute mtravy110=-7.
   compute mtravy111=-7.
End if.

freq avy109 avy110 avy111 mainy109 mainy110 mainy111 mtravy109 mtravy110 mtravy111.

*set values for the 38th time slot.
freq mtmark38.
*807 missing travel cases in time slot 38.

temp.
select if mtmark38=1.
cro main38 by main39.

if main38=83 or main39=83 or main38=63 or main39=63 mtmark38=0.
if main38=34 or main38=38 or main38=62 or main38=67 or main38=81 mtmark38=0.
if main39=34 or main39=38 or main39=62 or main39=67 or main39=81 mtmark38=0.
if main38=main39 mtmark38=0.
if main38=1 or main38=61 or main39=61 or main39=72 or main39=50 mtmark38=0.
if main38=59 and main39>57 mtmark38=0.
if main38=60 or main38=64 or main38=66 or main38=68 or main38=70 or 
   main38=71 or main38=72 or main38=73 or main38=35 or main38=52 or 
   main38=65 or main38=74 or main38=80 or main38=82 or main38=99 or
   main38=76 or main38=49 or main38=52 or main38=71 mtmark38=0.
if main38=84 and main38=52 mtmark12=0.
*errors fixed, 189 cases remain.

temp.
select if sec38=45.
cro main38 by main39 by mtmark38.

Do if mtmark38=0.
   Do if main38>95.
      compute avy112=41.
      compute avy113=41.
      compute avy114=41.
      compute mainy112=69.
      compute mainy113=69.
      compute mainy114=69.
      compute mtravy112=-8.
      compute mtravy113=-8.
      compute mtravy114=-8.
   Else if main38=1.
      compute avy112=16.
      compute avy113=16.
      compute avy114=13.
      compute mainy112=2.
      compute mainy113=2.
      compute mainy114=4.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=-7. 
   Else if main38=2.
      compute avy112=16.
      compute avy113=16.
      compute avy114=36.
      compute mainy112=2.
      compute mainy113=2.
      compute mainy114=55.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=3 or main38=4.
      compute avy112=16.
      compute avy113=16.
      compute avy114=16.
      compute mainy112=2.
      compute mainy113=2.
      compute mainy114=2.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=-7. 
   Else if main38=5.
      compute avy112=16.
      compute avy113=16.
      compute avy114=16.
      compute mainy112=3.
      compute mainy113=3.
      compute mainy114=3.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=6.
      compute avy112=13.
      compute avy113=13.
      compute avy114=13.
      compute mainy112=1.
      compute mainy113=1.
      compute mainy114=1.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38>6 and main38<20.
      compute avy112=30.
      compute avy113=30.
      compute avy114=30.
      compute mainy112=58.
      compute mainy113=58.
      compute mainy114=58.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38>19 and main38<30.
      compute avy112=31.
      compute avy113=31.
      compute avy114=31.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=59.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38>29 and main38<34.
      compute avy112=13.
      compute avy113=13.
      compute avy114=13.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=4.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=34 and sec38=45.
      compute avy112=15.
      compute avy113=15.
      compute avy114=5.
      compute mainy112=6.
      compute mainy113=6.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=1.
   Else if main38=34 or main38=35 or ((main38=38 or main38=39) and loc38=1).
      compute avy112=15.
      compute avy113=15.
      compute avy114=15.
      compute mainy112=6.
      compute mainy113=6.
      compute mainy114=6.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=36.
      compute avy112=14.
      compute avy113=14.
      compute avy114=14.
      compute mainy112=25.
      compute mainy113=25.
      compute mainy114=25.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=37.
      compute avy112=12.
      compute avy113=12.
      compute avy114=12.
      compute mainy112=67.
      compute mainy113=67.
      compute mainy114=67.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=40.
      compute avy112=1.
      compute avy113=1.
      compute avy114=1.
      compute mainy112=13.
      compute mainy113=13.
      compute mainy114=13.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=41 and sec38=45.
      compute avy112=1.
      compute avy113=1.
      compute avy114=5.
      compute mainy112=7.
      compute mainy113=7.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=1.
   Else if main38=41.
      compute avy112=1.
      compute avy113=1.
      compute avy114=1.
      compute mainy112=7.
      compute mainy113=7.
      compute mainy114=7.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=42.
      compute avy112=4.
      compute avy113=4.
      compute avy114=4.
      compute mainy112=15.
      compute mainy113=15.
      compute mainy114=15.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=43.
      compute avy112=2.
      compute avy113=2.
      compute avy114=2.
      compute mainy112=8.
      compute mainy113=8.
      compute mainy114=8.
      compute mtravy112=-7.
      compute mtravy113=-7.
     compute mtravy114=-7.
   Else if main38=44.
      compute avy112=3.
      compute avy113=3.
      compute avy114=3.
      compute mainy112=9.
      compute mainy113=9.
      compute mainy114=9.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=45 and (main39=42 or main39=79).
      compute avy112=5.
      compute avy113=5.
      compute avy114=5.
      compute mainy112=64.
      compute mainy113=64.
      compute mainy114=64.
      compute mtravy112=1.
      compute mtravy113=1.
      compute mtravy114=1.
   Else if (main38=46 or main38=47) and (main39=42 or main39=79).
      compute avy112=5.
      compute avy113=5.
      compute avy114=5.
      compute mainy112=64.
      compute mainy113=64.
      compute mainy114=64.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=45.
      compute avy112=5.
      compute avy113=5.
      compute avy114=5.
      compute mainy112=63.
      compute mainy113=63.
      compute mainy114=63.
      compute mtravy112=1.
      compute mtravy113=1.
      compute mtravy114=1.
   Else if main38=46 or main38=47.
      compute avy112=5.
      compute avy113=5.
      compute avy114=5.
      compute mainy112=63.
      compute mainy113=63.
      compute mainy114=63.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=48.
      compute avy112=5.
      compute avy113=5.
      compute avy114=5.
      compute mainy112=11.
      compute mainy113=11.
      compute mainy114=11.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=49.
      compute avy112=1.
      compute avy113=1.
      compute avy114=1.
      compute mainy112=5.
      compute mainy113=5.
      compute mainy114=5.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=50.
      compute avy112=8.
      compute avy113=8.
      compute avy114=8.
      compute mainy112=21.
      compute mainy113=21.
      compute mainy114=21.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=51.
      compute avy112=11.
      compute avy113=11.
      compute avy114=11.
      compute mainy112=28.
      compute mainy113=28.
      compute mainy114=28.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=52.
      compute avy112=11.
      compute avy113=11.
      compute avy114=11.
      compute mainy112=30.
      compute mainy113=30.
      compute mainy114=30.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=53.
      compute avy112=6.
      compute avy113=6.
      compute avy114=6.
      compute mainy112=18.
      compute mainy113=18.
      compute mainy114=18.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=54.
      compute avy112=7.
      compute avy113=7.
      compute avy114=7.
      compute mainy112=20.
      compute mainy113=20.
      compute mainy114=20.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=55.
      compute avy112=8.
      compute avy113=8.
      compute avy114=8.
      compute mainy112=22.
      compute mainy113=22.
      compute mainy114=22.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=56.
      compute avy112=8.
      compute avy113=8.
      compute avy114=8.
      compute mainy112=27.
      compute mainy113=27.
      compute mainy114=27.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=57.
      compute avy112=10.
      compute avy113=10.
      compute avy114=10.
      compute mainy112=24.
      compute mainy113=24.
      compute mainy114=24.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=58.
      compute avy112=12.
      compute avy113=12.
      compute avy114=12.
      compute mainy112=66.
      compute mainy113=66.
      compute mainy114=66.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=59.
      compute avy112=7.
      compute avy113=7.
      compute avy114=13.
      compute mainy112=23.
      compute mainy113=23.
      compute mainy114=4.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=60.
      compute avy112=9.
      compute avy113=9.
      compute avy114=9.
      compute mainy112=46.
      compute mainy113=46.
      compute mainy114=46.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=61.
      compute avy112=33.
      compute avy113=33.
      compute avy114=33.
      compute mainy112=16.
      compute mainy113=16.
      compute mainy114=16.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=62.
      compute avy112=34.
      compute avy113=34.
      compute avy114=34.
      compute mainy112=56.
      compute mainy113=56.
      compute mainy114=56.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=63.
      compute avy112=35.
      compute avy113=35.
      compute avy114=35.
      compute mainy112=56.
      compute mainy113=56.
      compute mainy114=56.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=64.
      compute avy112=40.
      compute avy113=40.
      compute avy114=40.
      compute mainy112=54.
      compute mainy113=54.
      compute mainy114=54.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=65.
      compute avy112=39.
      compute avy113=39.
      compute avy114=39.
      compute mainy112=54.
      compute mainy113=54.
      compute mainy114=54.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=66.
      compute avy112=38.
      compute avy113=38.
      compute avy114=38.
      compute mainy112=48.
      compute mainy113=48.
      compute mainy114=48.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=67.
      compute avy112=37.
      compute avy113=37.
      compute avy114=37.
      compute mainy112=49.
      compute mainy113=49.
      compute mainy114=49.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=68.
      compute avy112=32.
      compute avy113=32.
      compute avy114=32.
      compute mainy112=57.
      compute mainy113=57.
      compute mainy114=57.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=69.
      compute avy112=36.
      compute avy113=36.
      compute avy114=36.
      compute mainy112=55.
      compute mainy113=55.
      compute mainy114=55.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=70.
      compute avy112=25.
      compute avy113=25.
      compute avy114=25.
      compute mainy112=35.
      compute mainy113=35.
      compute mainy114=35.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=71.
      compute avy112=29.
      compute avy113=29.
      compute avy114=29.
      compute mainy112=48.
      compute mainy113=48.
      compute mainy114=48.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=72.
      compute avy112=24.
      compute avy113=24.
      compute avy114=24.
      compute mainy112=37.
      compute mainy113=37.
      compute mainy114=37.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=73.
      compute avy112=23.
      compute avy113=23.
      compute avy114=23.
      compute mainy112=33.
      compute mainy113=33.
      compute mainy114=33.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=74.
      compute avy112=26.
      compute avy113=26.
      compute avy114=26.
      compute mainy112=40.
      compute mainy113=40.
      compute mainy114=40.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=75 and sec38=45.
      compute avy112=27.
      compute avy113=27.
      compute avy114=5.
      compute mainy112=39.
      compute mainy113=39.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=1.
   Else if main38=75 or main38=39.
      compute avy112=27.
      compute avy113=27.
      compute avy114=27.
      compute mainy112=39.
      compute mainy113=39.
      compute mainy114=39.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=76.
      compute avy112=25.
      compute avy113=25.
      compute avy114=25.
      compute mainy112=40.
      compute mainy113=40.
      compute mainy114=40.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=77 or main38=38.
      compute avy112=28.
      compute avy113=28.
      compute avy114=28.
      compute mainy112=39.
      compute mainy113=39.
      compute mainy114=39.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=78.
      compute avy112=22.
      compute avy113=22.
      compute avy114=22.
      compute mainy112=34.
      compute mainy113=34.
      compute mainy114=34.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=79.
      compute avy112=4.
      compute avy113=4.
      compute avy114=4.
      compute mainy112=17.
      compute mainy113=17.
      compute mainy114=17.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=80.
      compute avy112=18.
      compute avy113=18.
      compute avy114=18.
      compute mainy112=38.
      compute mainy113=38.
      compute mainy114=38.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=81.
      compute avy112=19.
      compute avy113=19.
      compute avy114=19.
      compute mainy112=42.
      compute mainy113=42.
      compute mainy114=42.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=82.
      compute avy112=20.
      compute avy113=20.
      compute avy114=20.
      compute mainy112=36.
      compute mainy113=36.
      compute mainy114=36.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=83.
      compute avy112=21.
      compute avy113=21.
      compute avy114=21.
      compute mainy112=43.
      compute mainy113=43.
      compute mainy114=43.
      compute mtravy112=3.
      compute mtravy113=3.
      compute mtravy114=3.
   Else if main38=84.
      compute avy112=18.
      compute avy113=18.
      compute avy114=18.
      compute mainy112=45.
      compute mainy113=45.
      compute mainy114=45.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=85 or main38=86.
      compute avy112=18.
      compute avy113=18.
      compute avy114=18.
      compute mainy112=38.
      compute mainy113=38.
      compute mainy114=38.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=89.
      compute avy112=17.
      compute avy113=17.
      compute avy114=17.
      compute mainy112=68.
      compute mainy113=68.
      compute mainy114=68.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=90.
      compute avy112=17.
      compute avy113=17.
      compute avy114=17.
      compute mainy112=62.
      compute mainy113=62.
      compute mainy114=62.
      compute mtravy112=5.
      compute mtravy113=5.
      compute mtravy114=5.
   Else if main38=91.
      compute avy112=40.
      compute avy113=40.
      compute avy114=40.
      compute mainy112=51.
      compute mainy113=51.
      compute mainy114=51.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=92.
      compute avy112=31.
      compute avy113=31.
      compute avy114=31.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=59.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   Else if main38=93.
      compute avy112=41.
      compute avy113=41.
      compute avy114=41.
      compute mainy112=41.
      compute mainy113=41.
      compute mainy114=41.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=-7.
   End if.
Else if mtmark38=1.
   Do if main38=2 and (main39=42 or main39=79).
      compute avy112=16.
      compute avy113=36.
      compute avy114=5.
      compute mainy112=2.
      compute mainy113=55.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=2 and (main39=41 or main39=44).
      compute avy112=16.
      compute avy113=36.
      compute avy114=5.
      compute mainy112=2.
      compute mainy113=55.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=2 and (main39=36 or main39=57).
      compute avy112=16.
      compute avy113=36.
      compute avy114=12.
      compute mainy112=2.
      compute mainy113=55.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=2.
      compute avy112=16.
      compute avy113=36.
      compute avy114=17.
      compute mainy112=2.
      compute mainy113=55.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38=3 or main38=4) and (main39=42 or main39=79).
      compute avy112=16.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=2.
      compute mainy113=4.
      compute mainy114=64.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=5. 
   Else if (main38=3 or main38=4) and (main39=41 or main39=44).
      compute avy112=16.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=2.
      compute mainy113=4.
      compute mainy114=63.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=5. 
   Else if (main38=3 or main38=4) and (main39=36 or main39=57).
      compute avy112=16.
      compute avy113=13.
      compute avy114=12.
      compute mainy112=2.
      compute mainy113=4.
      compute mainy114=67.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=5. 
   Else if (main38=3 or main38=4).
      compute avy112=16.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=2.
      compute mainy113=4.
      compute mainy114=63.
      compute mtravy112=-7. 
      compute mtravy113=-7. 
      compute mtravy114=5.
   Else if main38=6 and (main39=41 or main39=44).
      compute avy112=13.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=1.
      compute mainy113=1.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=6 and (main39=42 or main39=79).
      compute avy112=13.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=1.
      compute mainy113=1.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=6 and (main39=36 or main39=57).
      compute avy112=13.
      compute avy113=13.
      compute avy114=12.
      compute mainy112=1.
      compute mainy113=1.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=6.
      compute avy112=13.
      compute avy113=13.
      compute avy114=17.
      compute mainy112=1.
      compute mainy113=1.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>10 and main38<15) and (main39=42 or main39=79).
      compute avy112=30.
      compute avy113=30.
      compute avy114=5.
      compute mainy112=58.
      compute mainy113=58.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>10 and main38<15) and (main39=41 or main39=44).
      compute avy112=30.
      compute avy113=30.
      compute avy114=5.
      compute mainy112=58.
      compute mainy113=58.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>10 and main38<15) and (main39=36 or main39=57).
      compute avy112=30.
      compute avy113=30.
      compute avy114=12.
      compute mainy112=58.
      compute mainy113=58.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38>10 and main38<15.
      compute avy112=30.
      compute avy113=30.
      compute avy114=17.
      compute mainy112=58.
      compute mainy113=58.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>19 and main38<30) and (main39=41 or main39=44).
      compute avy112=31.
      compute avy113=31.
      compute avy114=5.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>19 and main38<30) and (main39=42 or main39=79).
      compute avy112=31.
      compute avy113=31.
      compute avy114=5.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>19 and main38<30) and (main39=36 or main39=57).
      compute avy112=31.
      compute avy113=31.
      compute avy114=12.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38>19 and main38<30.
      compute avy112=31.
      compute avy113=31.
      compute avy114=17.
      compute mainy112=59.
      compute mainy113=59.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>29 and main38<34) and sec38=45.
      compute avy112=13.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=1.
   Else if (main38>29 and main38<34) and (main39=42 or main39=79).
      compute avy112=13.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>29 and main38<34) and (main39=57 or main39=36).
      compute avy112=13.
      compute avy113=13.
      compute avy114=12.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>29 and main38<34) and (main39=41 or main39=44 or main39=47).
      compute avy112=13.
      compute avy113=13.
      compute avy114=5.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if (main38>29 and main38<34).
      compute avy112=13.
      compute avy113=13.
      compute avy114=17.
      compute mainy112=4.
      compute mainy113=4.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=36.
      compute avy112=14.
      compute avy113=14.
      compute avy114=12.
      compute mainy112=25.
      compute mainy113=25.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=40.
      compute avy112=1.
      compute avy113=1.
      compute avy114=5.
      compute mainy112=13.
      compute mainy113=13.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=41.
      compute avy112=1.
      compute avy113=1.
      compute avy114=5.
      compute mainy112=7.
      compute mainy113=7.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      Do if sec38=45.
         compute mtravy114=5.
      Else.
         compute mtravy114=5.
      End if.
   Else if main38=42.
      compute avy112=4.
      compute avy113=4.
      compute avy114=5.
      compute mainy112=15.
      compute mainy113=15.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=43 and (main39=42 or main39=79).
      compute avy112=2.
      compute avy113=2.
      compute avy114=5.
      compute mainy112=8.
      compute mainy113=8.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
     compute mtravy114=5.
   Else if main38=43.
      compute avy112=2.
      compute avy113=2.
      compute avy114=5.
      compute mainy112=8.
      compute mainy113=8.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
     compute mtravy114=5.
   Else if main38=44.
      compute avy112=3.
      compute avy113=3.
      compute avy114=5.
      compute mainy112=9.
      compute mainy113=9.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=50 and (main39=41 or main39=44).
      compute avy112=8.
      compute avy113=8.
      compute avy114=5.
      compute mainy112=21.
      compute mainy113=21.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=50 and (main39=42 or main39=79).
      compute avy112=8.
      compute avy113=8.
      compute avy114=5.
      compute mainy112=21.
      compute mainy113=21.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=50 and (main39=57 or main39=36).
      compute avy112=8.
      compute avy113=8.
      compute avy114=12.
      compute mainy112=21.
      compute mainy113=21.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=50.
      compute avy112=8.
      compute avy113=8.
      compute avy114=17.
      compute mainy112=21.
      compute mainy113=21.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=51 and (main39=41 or main39=44 or main39=45).
      compute avy112=11.
      compute avy113=11.
      compute avy114=5.
      compute mainy112=28.
      compute mainy113=28.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=51 and (main39=42 or main39=79).
      compute avy112=11.
      compute avy113=11.
      compute avy114=5.
      compute mainy112=28.
      compute mainy113=28.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=51 and (main39=57 or main39=36).
      compute avy112=11.
      compute avy113=11.
      compute avy114=12.
      compute mainy112=28.
      compute mainy113=28.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=51.
      compute avy112=11.
      compute avy113=11.
      compute avy114=17.
      compute mainy112=28.
      compute mainy113=28.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=53 and (main39=42 or main39=79).
      compute avy112=6.
      compute avy113=6.
      compute avy114=5.
      compute mainy112=18.
      compute mainy113=18.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=53 and (main39=36 or main39=57).
      compute avy112=6.
      compute avy113=6.
      compute avy114=12.
      compute mainy112=18.
      compute mainy113=18.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=53 and (main39=41 or main39=44).
      compute avy112=6.
      compute avy113=6.
      compute avy114=5.
      compute mainy112=18.
      compute mainy113=18.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=53.
      compute avy112=6.
      compute avy113=6.
      compute avy114=17.
      compute mainy112=18.
      compute mainy113=18.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=54 and (main39=36 or main39=57).
      compute avy112=7.
      compute avy113=7.
      compute avy114=12.
      compute mainy112=20.
      compute mainy113=20.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=54 and (main39=41 or main39=44 or main39=47).
      compute avy112=7.
      compute avy113=7.
      compute avy114=5.
      compute mainy112=20.
      compute mainy113=20.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=54 and (main39=42 or main39=79).
      compute avy112=7.
      compute avy113=7.
      compute avy114=5.
      compute mainy112=20.
      compute mainy113=20.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=54.
      compute avy112=7.
      compute avy113=7.
      compute avy114=17.
      compute mainy112=20.
      compute mainy113=20.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=55 and (main39=57 or main39=36).
      compute avy112=8.
      compute avy113=8.
      compute avy114=12.
      compute mainy112=22.
      compute mainy113=22.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=55 and (main39=42 or main39=79).
      compute avy112=8.
      compute avy113=8.
      compute avy114=5.
      compute mainy112=22.
      compute mainy113=22.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=55.
      compute avy112=8.
      compute avy113=8.
      compute avy114=17.
      compute mainy112=22.
      compute mainy113=22.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=56 and (main39=41 or main39=44).
      compute avy112=8.
      compute avy113=8.
      compute avy114=5.
      compute mainy112=27.
      compute mainy113=27.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=56 and (main39=42 or main39=79).
      compute avy112=8.
      compute avy113=8.
      compute avy114=5.
      compute mainy112=27.
      compute mainy113=27.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=56 and (main39=36 or main39=57).
      compute avy112=8.
      compute avy113=8.
      compute avy114=12.
      compute mainy112=27.
      compute mainy113=27.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=56.
      compute avy112=8.
      compute avy113=8.
      compute avy114=17.
      compute mainy112=27.
      compute mainy113=27.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=57 and (main39=41 or main39=44).
      compute avy112=10.
      compute avy113=10.
      compute avy114=5.
      compute mainy112=24.
      compute mainy113=24.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=57 and (main39=42 or main39=79).
      compute avy112=10.
      compute avy113=10.
      compute avy114=5.
      compute mainy112=24.
      compute mainy113=24.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=57 and (main39=36 or main39=57).
      compute avy112=10.
      compute avy113=10.
      compute avy114=12.
      compute mainy112=24.
      compute mainy113=24.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=57.
      compute avy112=10.
      compute avy113=10.
      compute avy114=17.
      compute mainy112=24.
      compute mainy113=24.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=59.
      compute avy112=7.
      compute avy113=7.
      compute avy114=12.
      compute mainy112=23.
      compute mainy113=23.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=66.
      compute avy112=38.
      compute avy113=38.
      compute avy114=12.
      compute mainy112=48.
      compute mainy113=48.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=69 and (main39=41 or main39=44).
      compute avy112=36.
      compute avy113=36.
      compute avy114=5.
      compute mainy112=55.
      compute mainy113=55.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=69 and (main39=36 or main39=57).
      compute avy112=36.
      compute avy113=36.
      compute avy114=12.
      compute mainy112=55.
      compute mainy113=55.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=69.
      compute avy112=36.
      compute avy113=36.
      compute avy114=17.
      compute mainy112=55.
      compute mainy113=55.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=71 and main39=42.
      compute avy112=29.
      compute avy113=29.
      compute avy114=5.
      compute mainy112=48.
      compute mainy113=48.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=71 and main39=41.
      compute avy112=29.
      compute avy113=29.
      compute avy114=5.
      compute mainy112=48.
      compute mainy113=48.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=75.
      compute avy112=27.
      compute avy113=27.
      compute avy114=17.
      compute mainy112=39.
      compute mainy113=39.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=77.
      compute avy112=28.
      compute avy113=28.
      compute avy114=17.
      compute mainy112=39.
      compute mainy113=39.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=78 and (main38=41 or main38=44).
      compute avy112=22.
      compute avy113=22.
      compute avy114=5.
      compute mainy112=34.
      compute mainy113=34.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=78.
      compute avy112=22.
      compute avy113=22.
      compute avy114=17.
      compute mainy112=34.
      compute mainy113=34.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=79.
      compute avy112=4.
      compute avy113=4.
      compute avy114=5.
      compute mainy112=17.
      compute mainy113=17.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=82.
      compute avy112=20.
      compute avy113=20.
      compute avy114=17.
      compute mainy112=36.
      compute mainy113=36.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=84.
      compute avy112=18.
      compute avy113=18.
      compute avy114=17.
      compute mainy112=45.
      compute mainy113=45.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=85 or main38=86.
      compute avy112=18.
      compute avy113=18.
      compute avy114=17.
      compute mainy112=38.
      compute mainy113=38.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=91 and (main39=36 or main39=57).
      compute avy112=40.
      compute avy113=40.
      compute avy114=12.
      compute mainy112=51.
      compute mainy113=51.
      compute mainy114=67.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=91 and (main39=41 or main39=44).
      compute avy112=40.
      compute avy113=40.
      compute avy114=5.
      compute mainy112=51.
      compute mainy113=51.
      compute mainy114=63.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=91 and (main39=42 or main39=79).
      compute avy112=40.
      compute avy113=40.
      compute avy114=5.
      compute mainy112=51.
      compute mainy113=51.
      compute mainy114=64.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   Else if main38=91.
      compute avy112=40.
      compute avy113=40.
      compute avy114=17.
      compute mainy112=51.
      compute mainy113=51.
      compute mainy114=68.
      compute mtravy112=-7.
      compute mtravy113=-7.
      compute mtravy114=5.
   End if.
End if.

Do if main38=1 and main39=1 and mtmark38=0.
   compute avy112=16.
   compute avy113=16.
   compute avy114=16.
   compute mainy112=2.
   compute mainy113=2.
   compute mainy114=2.
   compute mtravy112=-7. 
   compute mtravy113=-7. 
   compute mtravy114=-7. 
Else if main38=2 and main39=2 and mtmark38=0.
   compute avy112=16.
   compute avy113=16.
   compute avy114=16.
   compute mainy112=2.
   compute mainy113=2.
   compute mainy114=2.
   compute mtravy112=-7.
   compute mtravy113=-7.
   compute mtravy114=-7.
End if.

freq avy112 avy113 avy114 mainy112 mainy113 mainy114 mtravy112 mtravy113 mtravy114.

*set values for the 39th time slot.
freq mtmark39.
*369 missing travel cases in time slot 39.

temp.
select if mtmark39=1.
cro main39 by main40.

if main39=83 or main40=83 or main39=63 or main40=63 mtmark39=0.
if main39=34 or main39=38 or main39=62 or main39=67 or main39=81 mtmark39=0.
if main40=34 or main40=38 or main40=62 or main40=67 or main40=81 mtmark39=0.
if main39=main40 mtmark39=0.
if main39=1 or main39=61 or main40=61 or main40=72 or main40=50 mtmark39=0.
if main39=59 and main40>57 mtmark39=0.
if main39=60 or main39=64 or main39=66 or main39=68 or main39=70 or 
   main39=71 or main39=72 or main39=73 or main39=35 or main39=52 or 
   main39=65 or main39=74 or main39=80 or main39=82 or main39=99 or
   main39=76 or main39=49 or main39=52 or main39=71 mtmark39=0.
if main39=84 and main39=52 mtmark12=0.
*errors fixed, 75 cases remain.

temp.
select if sec39=45.
cro main39 by main40 by mtmark39.

Do if mtmark39=0.
   Do if main39>95.
      compute avy115=41.
      compute avy116=41.
      compute avy117=41.
      compute mainy115=69.
      compute mainy116=69.
      compute mainy117=69.
      compute mtravy115=-8.
      compute mtravy116=-8.
      compute mtravy117=-8.
   Else if main39=1.
      compute avy115=16.
      compute avy116=16.
      compute avy117=13.
      compute mainy115=2.
      compute mainy116=2.
      compute mainy117=4.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=-7. 
   Else if main39=2.
      compute avy115=16.
      compute avy116=16.
      compute avy117=36.
      compute mainy115=2.
      compute mainy116=2.
      compute mainy117=55.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=3 or main39=4.
      compute avy115=16.
      compute avy116=16.
      compute avy117=16.
      compute mainy115=2.
      compute mainy116=2.
      compute mainy117=2.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=-7. 
   Else if main39=5.
      compute avy115=16.
      compute avy116=16.
      compute avy117=16.
      compute mainy115=3.
      compute mainy116=3.
      compute mainy117=3.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=6.
      compute avy115=13.
      compute avy116=13.
      compute avy117=13.
      compute mainy115=1.
      compute mainy116=1.
      compute mainy117=1.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39>6 and main39<20.
      compute avy115=30.
      compute avy116=30.
      compute avy117=30.
      compute mainy115=58.
      compute mainy116=58.
      compute mainy117=58.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39>19 and main39<30.
      compute avy115=31.
      compute avy116=31.
      compute avy117=31.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=59.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39>29 and main39<34.
      compute avy115=13.
      compute avy116=13.
      compute avy117=13.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=4.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=34 and sec39=45.
      compute avy115=15.
      compute avy116=15.
      compute avy117=5.
      compute mainy115=6.
      compute mainy116=6.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=1.
   Else if main39=34 or main39=35 or ((main39=38 or main39=39) and loc39=1).
      compute avy115=15.
      compute avy116=15.
      compute avy117=15.
      compute mainy115=6.
      compute mainy116=6.
      compute mainy117=6.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=36.
      compute avy115=14.
      compute avy116=14.
      compute avy117=14.
      compute mainy115=25.
      compute mainy116=25.
      compute mainy117=25.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=37.
      compute avy115=12.
      compute avy116=12.
      compute avy117=12.
      compute mainy115=67.
      compute mainy116=67.
      compute mainy117=67.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=40.
      compute avy115=1.
      compute avy116=1.
      compute avy117=1.
      compute mainy115=13.
      compute mainy116=13.
      compute mainy117=13.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=41 and sec39=45.
      compute avy115=1.
      compute avy116=1.
      compute avy117=5.
      compute mainy115=7.
      compute mainy116=7.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=1.
   Else if main39=41.
      compute avy115=1.
      compute avy116=1.
      compute avy117=1.
      compute mainy115=7.
      compute mainy116=7.
      compute mainy117=7.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=42.
      compute avy115=4.
      compute avy116=4.
      compute avy117=4.
      compute mainy115=15.
      compute mainy116=15.
      compute mainy117=15.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=43.
      compute avy115=2.
      compute avy116=2.
      compute avy117=2.
      compute mainy115=8.
      compute mainy116=8.
      compute mainy117=8.
      compute mtravy115=-7.
      compute mtravy116=-7.
     compute mtravy117=-7.
   Else if main39=44.
      compute avy115=3.
      compute avy116=3.
      compute avy117=3.
      compute mainy115=9.
      compute mainy116=9.
      compute mainy117=9.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=45 and (main40=42 or main40=79).
      compute avy115=5.
      compute avy116=5.
      compute avy117=5.
      compute mainy115=64.
      compute mainy116=64.
      compute mainy117=64.
      compute mtravy115=1.
      compute mtravy116=1.
      compute mtravy117=1.
   Else if (main39=46 or main39=47) and (main40=42 or main40=79).
      compute avy115=5.
      compute avy116=5.
      compute avy117=5.
      compute mainy115=64.
      compute mainy116=64.
      compute mainy117=64.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=45.
      compute avy115=5.
      compute avy116=5.
      compute avy117=5.
      compute mainy115=63.
      compute mainy116=63.
      compute mainy117=63.
      compute mtravy115=1.
      compute mtravy116=1.
      compute mtravy117=1.
   Else if main39=46 or main39=47.
      compute avy115=5.
      compute avy116=5.
      compute avy117=5.
      compute mainy115=63.
      compute mainy116=63.
      compute mainy117=63.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=48.
      compute avy115=5.
      compute avy116=5.
      compute avy117=5.
      compute mainy115=11.
      compute mainy116=11.
      compute mainy117=11.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=49.
      compute avy115=1.
      compute avy116=1.
      compute avy117=1.
      compute mainy115=5.
      compute mainy116=5.
      compute mainy117=5.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=50.
      compute avy115=8.
      compute avy116=8.
      compute avy117=8.
      compute mainy115=21.
      compute mainy116=21.
      compute mainy117=21.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=51.
      compute avy115=11.
      compute avy116=11.
      compute avy117=11.
      compute mainy115=28.
      compute mainy116=28.
      compute mainy117=28.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=52.
      compute avy115=11.
      compute avy116=11.
      compute avy117=11.
      compute mainy115=30.
      compute mainy116=30.
      compute mainy117=30.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=53.
      compute avy115=6.
      compute avy116=6.
      compute avy117=6.
      compute mainy115=18.
      compute mainy116=18.
      compute mainy117=18.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=54.
      compute avy115=7.
      compute avy116=7.
      compute avy117=7.
      compute mainy115=20.
      compute mainy116=20.
      compute mainy117=20.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=55.
      compute avy115=8.
      compute avy116=8.
      compute avy117=8.
      compute mainy115=22.
      compute mainy116=22.
      compute mainy117=22.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=56.
      compute avy115=8.
      compute avy116=8.
      compute avy117=8.
      compute mainy115=27.
      compute mainy116=27.
      compute mainy117=27.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=57.
      compute avy115=10.
      compute avy116=10.
      compute avy117=10.
      compute mainy115=24.
      compute mainy116=24.
      compute mainy117=24.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=58.
      compute avy115=12.
      compute avy116=12.
      compute avy117=12.
      compute mainy115=66.
      compute mainy116=66.
      compute mainy117=66.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=59.
      compute avy115=7.
      compute avy116=7.
      compute avy117=13.
      compute mainy115=23.
      compute mainy116=23.
      compute mainy117=4.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=60.
      compute avy115=9.
      compute avy116=9.
      compute avy117=9.
      compute mainy115=46.
      compute mainy116=46.
      compute mainy117=46.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=61.
      compute avy115=33.
      compute avy116=33.
      compute avy117=33.
      compute mainy115=16.
      compute mainy116=16.
      compute mainy117=16.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=62.
      compute avy115=34.
      compute avy116=34.
      compute avy117=34.
      compute mainy115=56.
      compute mainy116=56.
      compute mainy117=56.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=63.
      compute avy115=35.
      compute avy116=35.
      compute avy117=35.
      compute mainy115=56.
      compute mainy116=56.
      compute mainy117=56.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=64.
      compute avy115=40.
      compute avy116=40.
      compute avy117=40.
      compute mainy115=54.
      compute mainy116=54.
      compute mainy117=54.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=65.
      compute avy115=39.
      compute avy116=39.
      compute avy117=39.
      compute mainy115=54.
      compute mainy116=54.
      compute mainy117=54.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=66.
      compute avy115=38.
      compute avy116=38.
      compute avy117=38.
      compute mainy115=48.
      compute mainy116=48.
      compute mainy117=48.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=67.
      compute avy115=37.
      compute avy116=37.
      compute avy117=37.
      compute mainy115=49.
      compute mainy116=49.
      compute mainy117=49.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=68.
      compute avy115=32.
      compute avy116=32.
      compute avy117=32.
      compute mainy115=57.
      compute mainy116=57.
      compute mainy117=57.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=69.
      compute avy115=36.
      compute avy116=36.
      compute avy117=36.
      compute mainy115=55.
      compute mainy116=55.
      compute mainy117=55.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=70.
      compute avy115=25.
      compute avy116=25.
      compute avy117=25.
      compute mainy115=35.
      compute mainy116=35.
      compute mainy117=35.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=71.
      compute avy115=29.
      compute avy116=29.
      compute avy117=29.
      compute mainy115=48.
      compute mainy116=48.
      compute mainy117=48.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=72.
      compute avy115=24.
      compute avy116=24.
      compute avy117=24.
      compute mainy115=37.
      compute mainy116=37.
      compute mainy117=37.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=73.
      compute avy115=23.
      compute avy116=23.
      compute avy117=23.
      compute mainy115=33.
      compute mainy116=33.
      compute mainy117=33.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=74.
      compute avy115=26.
      compute avy116=26.
      compute avy117=26.
      compute mainy115=40.
      compute mainy116=40.
      compute mainy117=40.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=75 or main39=39.
      compute avy115=27.
      compute avy116=27.
      compute avy117=27.
      compute mainy115=39.
      compute mainy116=39.
      compute mainy117=39.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=76.
      compute avy115=25.
      compute avy116=25.
      compute avy117=25.
      compute mainy115=40.
      compute mainy116=40.
      compute mainy117=40.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=77 or main39=38.
      compute avy115=28.
      compute avy116=28.
      compute avy117=28.
      compute mainy115=39.
      compute mainy116=39.
      compute mainy117=39.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=78.
      compute avy115=22.
      compute avy116=22.
      compute avy117=22.
      compute mainy115=34.
      compute mainy116=34.
      compute mainy117=34.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=79.
      compute avy115=4.
      compute avy116=4.
      compute avy117=4.
      compute mainy115=17.
      compute mainy116=17.
      compute mainy117=17.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=80.
      compute avy115=18.
      compute avy116=18.
      compute avy117=18.
      compute mainy115=38.
      compute mainy116=38.
      compute mainy117=38.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=81.
      compute avy115=19.
      compute avy116=19.
      compute avy117=19.
      compute mainy115=42.
      compute mainy116=42.
      compute mainy117=42.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=82.
      compute avy115=20.
      compute avy116=20.
      compute avy117=20.
      compute mainy115=36.
      compute mainy116=36.
      compute mainy117=36.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=83.
      compute avy115=21.
      compute avy116=21.
      compute avy117=21.
      compute mainy115=43.
      compute mainy116=43.
      compute mainy117=43.
      compute mtravy115=3.
      compute mtravy116=3.
      compute mtravy117=3.
   Else if main39=84.
      compute avy115=18.
      compute avy116=18.
      compute avy117=18.
      compute mainy115=45.
      compute mainy116=45.
      compute mainy117=45.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=85 or main39=86.
      compute avy115=18.
      compute avy116=18.
      compute avy117=18.
      compute mainy115=38.
      compute mainy116=38.
      compute mainy117=38.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=89.
      compute avy115=17.
      compute avy116=17.
      compute avy117=17.
      compute mainy115=68.
      compute mainy116=68.
      compute mainy117=68.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=90.
      compute avy115=17.
      compute avy116=17.
      compute avy117=17.
      compute mainy115=62.
      compute mainy116=62.
      compute mainy117=62.
      compute mtravy115=5.
      compute mtravy116=5.
      compute mtravy117=5.
   Else if main39=91.
      compute avy115=40.
      compute avy116=40.
      compute avy117=40.
      compute mainy115=51.
      compute mainy116=51.
      compute mainy117=51.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=92.
      compute avy115=31.
      compute avy116=31.
      compute avy117=31.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=59.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   Else if main39=93.
      compute avy115=41.
      compute avy116=41.
      compute avy117=41.
      compute mainy115=41.
      compute mainy116=41.
      compute mainy117=41.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=-7.
   End if.
Else if mtmark39=1.
   Do if main39=2 and (main40=42 or main40=79).
      compute avy115=16.
      compute avy116=36.
      compute avy117=5.
      compute mainy115=2.
      compute mainy116=55.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=2 and (main40=41 or main40=44).
      compute avy115=16.
      compute avy116=36.
      compute avy117=5.
      compute mainy115=2.
      compute mainy116=55.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=2 and (main40=36 or main40=57).
      compute avy115=16.
      compute avy116=36.
      compute avy117=12.
      compute mainy115=2.
      compute mainy116=55.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=2.
      compute avy115=16.
      compute avy116=36.
      compute avy117=17.
      compute mainy115=2.
      compute mainy116=55.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39=3 or main39=4) and (main40=42 or main40=79).
      compute avy115=16.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=2.
      compute mainy116=4.
      compute mainy117=64.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=5. 
   Else if (main39=3 or main39=4) and (main40=41 or main40=44).
      compute avy115=16.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=2.
      compute mainy116=4.
      compute mainy117=63.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=5. 
   Else if (main39=3 or main39=4) and (main40=36 or main40=57).
      compute avy115=16.
      compute avy116=13.
      compute avy117=12.
      compute mainy115=2.
      compute mainy116=4.
      compute mainy117=67.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=5. 
   Else if (main39=3 or main39=4).
      compute avy115=16.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=2.
      compute mainy116=4.
      compute mainy117=63.
      compute mtravy115=-7. 
      compute mtravy116=-7. 
      compute mtravy117=5.
   Else if main39=6 and (main40=41 or main40=44).
      compute avy115=13.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=1.
      compute mainy116=1.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=6 and (main40=42 or main40=79).
      compute avy115=13.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=1.
      compute mainy116=1.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=6 and (main40=36 or main40=57).
      compute avy115=13.
      compute avy116=13.
      compute avy117=12.
      compute mainy115=1.
      compute mainy116=1.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=6.
      compute avy115=13.
      compute avy116=13.
      compute avy117=17.
      compute mainy115=1.
      compute mainy116=1.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>10 and main39<15) and (main40=42 or main40=79).
      compute avy115=30.
      compute avy116=30.
      compute avy117=5.
      compute mainy115=58.
      compute mainy116=58.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>10 and main39<15) and (main40=41 or main40=44).
      compute avy115=30.
      compute avy116=30.
      compute avy117=5.
      compute mainy115=58.
      compute mainy116=58.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>10 and main39<15) and (main40=36 or main40=57).
      compute avy115=30.
      compute avy116=30.
      compute avy117=12.
      compute mainy115=58.
      compute mainy116=58.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39>10 and main39<15.
      compute avy115=30.
      compute avy116=30.
      compute avy117=17.
      compute mainy115=58.
      compute mainy116=58.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>19 and main39<30) and (main40=41 or main40=44).
      compute avy115=31.
      compute avy116=31.
      compute avy117=5.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>19 and main39<30) and (main40=42 or main40=79).
      compute avy115=31.
      compute avy116=31.
      compute avy117=5.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>19 and main39<30) and (main40=36 or main40=57).
      compute avy115=31.
      compute avy116=31.
      compute avy117=12.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39>19 and main39<30.
      compute avy115=31.
      compute avy116=31.
      compute avy117=17.
      compute mainy115=59.
      compute mainy116=59.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>29 and main39<34) and sec39=45.
      compute avy115=13.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=1.
   Else if (main39>29 and main39<34) and (main40=42 or main40=79).
      compute avy115=13.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>29 and main39<34) and (main40=57 or main40=36).
      compute avy115=13.
      compute avy116=13.
      compute avy117=12.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>29 and main39<34) and (main40=41 or main40=44 or main40=47).
      compute avy115=13.
      compute avy116=13.
      compute avy117=5.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if (main39>29 and main39<34).
      compute avy115=13.
      compute avy116=13.
      compute avy117=17.
      compute mainy115=4.
      compute mainy116=4.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=36.
      compute avy115=14.
      compute avy116=14.
      compute avy117=12.
      compute mainy115=25.
      compute mainy116=25.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=40.
      compute avy115=1.
      compute avy116=1.
      compute avy117=5.
      compute mainy115=13.
      compute mainy116=13.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=41.
      compute avy115=1.
      compute avy116=1.
      compute avy117=5.
      compute mainy115=7.
      compute mainy116=7.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      Do if sec39=45.
         compute mtravy117=5.
      Else.
         compute mtravy117=5.
      End if.
   Else if main39=42.
      compute avy115=4.
      compute avy116=4.
      compute avy117=5.
      compute mainy115=15.
      compute mainy116=15.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=43 and (main40=42 or main40=79).
      compute avy115=2.
      compute avy116=2.
      compute avy117=5.
      compute mainy115=8.
      compute mainy116=8.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
     compute mtravy117=5.
   Else if main39=43.
      compute avy115=2.
      compute avy116=2.
      compute avy117=5.
      compute mainy115=8.
      compute mainy116=8.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
     compute mtravy117=5.
   Else if main39=44.
      compute avy115=3.
      compute avy116=3.
      compute avy117=5.
      compute mainy115=9.
      compute mainy116=9.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=50 and (main40=41 or main40=44).
      compute avy115=8.
      compute avy116=8.
      compute avy117=5.
      compute mainy115=21.
      compute mainy116=21.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=50 and (main40=42 or main40=79).
      compute avy115=8.
      compute avy116=8.
      compute avy117=5.
      compute mainy115=21.
      compute mainy116=21.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=50 and (main40=57 or main40=36).
      compute avy115=8.
      compute avy116=8.
      compute avy117=12.
      compute mainy115=21.
      compute mainy116=21.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=50.
      compute avy115=8.
      compute avy116=8.
      compute avy117=17.
      compute mainy115=21.
      compute mainy116=21.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=51 and (main40=41 or main40=44 or main40=45).
      compute avy115=11.
      compute avy116=11.
      compute avy117=5.
      compute mainy115=28.
      compute mainy116=28.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=51 and (main40=42 or main40=79).
      compute avy115=11.
      compute avy116=11.
      compute avy117=5.
      compute mainy115=28.
      compute mainy116=28.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=51 and (main40=57 or main40=36).
      compute avy115=11.
      compute avy116=11.
      compute avy117=12.
      compute mainy115=28.
      compute mainy116=28.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=51.
      compute avy115=11.
      compute avy116=11.
      compute avy117=17.
      compute mainy115=28.
      compute mainy116=28.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=53 and (main40=42 or main40=79).
      compute avy115=6.
      compute avy116=6.
      compute avy117=5.
      compute mainy115=18.
      compute mainy116=18.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=53 and (main40=36 or main40=57).
      compute avy115=6.
      compute avy116=6.
      compute avy117=12.
      compute mainy115=18.
      compute mainy116=18.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=53 and (main40=41 or main40=44).
      compute avy115=6.
      compute avy116=6.
      compute avy117=5.
      compute mainy115=18.
      compute mainy116=18.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=53.
      compute avy115=6.
      compute avy116=6.
      compute avy117=17.
      compute mainy115=18.
      compute mainy116=18.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=54 and (main40=36 or main40=57).
      compute avy115=7.
      compute avy116=7.
      compute avy117=12.
      compute mainy115=20.
      compute mainy116=20.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=54 and (main40=41 or main40=44 or main40=47).
      compute avy115=7.
      compute avy116=7.
      compute avy117=5.
      compute mainy115=20.
      compute mainy116=20.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=54 and (main40=42 or main40=79).
      compute avy115=7.
      compute avy116=7.
      compute avy117=5.
      compute mainy115=20.
      compute mainy116=20.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=54.
      compute avy115=7.
      compute avy116=7.
      compute avy117=17.
      compute mainy115=20.
      compute mainy116=20.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=55 and (main40=57 or main40=36).
      compute avy115=8.
      compute avy116=8.
      compute avy117=12.
      compute mainy115=22.
      compute mainy116=22.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=55 and (main40=42 or main40=79).
      compute avy115=8.
      compute avy116=8.
      compute avy117=5.
      compute mainy115=22.
      compute mainy116=22.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=55.
      compute avy115=8.
      compute avy116=8.
      compute avy117=17.
      compute mainy115=22.
      compute mainy116=22.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=56 and (main40=41 or main40=44).
      compute avy115=8.
      compute avy116=8.
      compute avy117=5.
      compute mainy115=27.
      compute mainy116=27.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=56 and (main40=42 or main40=79).
      compute avy115=8.
      compute avy116=8.
      compute avy117=5.
      compute mainy115=27.
      compute mainy116=27.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=56 and (main40=36 or main40=57).
      compute avy115=8.
      compute avy116=8.
      compute avy117=12.
      compute mainy115=27.
      compute mainy116=27.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=56.
      compute avy115=8.
      compute avy116=8.
      compute avy117=17.
      compute mainy115=27.
      compute mainy116=27.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=57 and (main40=41 or main40=44).
      compute avy115=10.
      compute avy116=10.
      compute avy117=5.
      compute mainy115=24.
      compute mainy116=24.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=57 and (main40=42 or main40=79).
      compute avy115=10.
      compute avy116=10.
      compute avy117=5.
      compute mainy115=24.
      compute mainy116=24.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=57 and (main40=36 or main40=57).
      compute avy115=10.
      compute avy116=10.
      compute avy117=12.
      compute mainy115=24.
      compute mainy116=24.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=57.
      compute avy115=10.
      compute avy116=10.
      compute avy117=17.
      compute mainy115=24.
      compute mainy116=24.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=59.
      compute avy115=7.
      compute avy116=7.
      compute avy117=12.
      compute mainy115=23.
      compute mainy116=23.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=66.
      compute avy115=38.
      compute avy116=38.
      compute avy117=12.
      compute mainy115=48.
      compute mainy116=48.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=69 and (main40=41 or main40=44).
      compute avy115=36.
      compute avy116=36.
      compute avy117=5.
      compute mainy115=55.
      compute mainy116=55.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=69 and (main40=36 or main40=57).
      compute avy115=36.
      compute avy116=36.
      compute avy117=12.
      compute mainy115=55.
      compute mainy116=55.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=69.
      compute avy115=36.
      compute avy116=36.
      compute avy117=17.
      compute mainy115=55.
      compute mainy116=55.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=71 and main40=42.
      compute avy115=29.
      compute avy116=29.
      compute avy117=5.
      compute mainy115=48.
      compute mainy116=48.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=71 and main40=41.
      compute avy115=29.
      compute avy116=29.
      compute avy117=5.
      compute mainy115=48.
      compute mainy116=48.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=75.
      compute avy115=27.
      compute avy116=27.
      compute avy117=17.
      compute mainy115=39.
      compute mainy116=39.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=77.
      compute avy115=28.
      compute avy116=28.
      compute avy117=17.
      compute mainy115=39.
      compute mainy116=39.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=78 and (main39=41 or main39=44).
      compute avy115=22.
      compute avy116=22.
      compute avy117=5.
      compute mainy115=34.
      compute mainy116=34.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=78.
      compute avy115=22.
      compute avy116=22.
      compute avy117=17.
      compute mainy115=34.
      compute mainy116=34.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=79.
      compute avy115=4.
      compute avy116=4.
      compute avy117=5.
      compute mainy115=17.
      compute mainy116=17.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=82.
      compute avy115=20.
      compute avy116=20.
      compute avy117=17.
      compute mainy115=36.
      compute mainy116=36.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=84.
      compute avy115=18.
      compute avy116=18.
      compute avy117=17.
      compute mainy115=45.
      compute mainy116=45.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=85 or main39=86.
      compute avy115=18.
      compute avy116=18.
      compute avy117=17.
      compute mainy115=38.
      compute mainy116=38.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=91 and (main40=36 or main40=57).
      compute avy115=40.
      compute avy116=40.
      compute avy117=12.
      compute mainy115=51.
      compute mainy116=51.
      compute mainy117=67.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=91 and (main40=41 or main40=44).
      compute avy115=40.
      compute avy116=40.
      compute avy117=5.
      compute mainy115=51.
      compute mainy116=51.
      compute mainy117=63.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=91 and (main40=42 or main40=79).
      compute avy115=40.
      compute avy116=40.
      compute avy117=5.
      compute mainy115=51.
      compute mainy116=51.
      compute mainy117=64.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   Else if main39=91.
      compute avy115=40.
      compute avy116=40.
      compute avy117=17.
      compute mainy115=51.
      compute mainy116=51.
      compute mainy117=68.
      compute mtravy115=-7.
      compute mtravy116=-7.
      compute mtravy117=5.
   End if.
End if.

Do if main39=1 and main40=1 and mtmark39=0.
   compute avy115=16.
   compute avy116=16.
   compute avy117=16.
   compute mainy115=2.
   compute mainy116=2.
   compute mainy117=2.
   compute mtravy115=-7. 
   compute mtravy116=-7. 
   compute mtravy117=-7. 
Else if main39=2 and main40=2 and mtmark39=0.
   compute avy115=16.
   compute avy116=16.
   compute avy117=16.
   compute mainy115=2.
   compute mainy116=2.
   compute mainy117=2.
   compute mtravy115=-7.
   compute mtravy116=-7.
   compute mtravy117=-7.
End if.

freq avy115 avy116 avy117 mainy115 mainy116 mainy117 mtravy115 mtravy116 mtravy117.

*set values for the 40th time slot.
freq mtmark40.
*210 missing travel cases in time slot 40.

temp.
select if mtmark40=1.
cro main40 by main41.

if main40=83 or main41=83 or main40=63 or main41=63 mtmark40=0.
if main40=34 or main40=38 or main40=62 or main40=67 or main40=81 mtmark40=0.
if main41=34 or main41=38 or main41=62 or main41=67 or main41=81 mtmark40=0.
if main40=main41 mtmark40=0.
if main40=1 or main40=61 or main41=61 or main41=72 or main41=50 mtmark40=0.
if main40=59 and main41>57 mtmark40=0.
if main40=60 or main40=64 or main40=66 or main40=68 or main40=70 or 
   main40=71 or main40=72 or main40=73 or main40=35 or main40=52 or 
   main40=65 or main40=74 or main40=80 or main40=82 or main40=99 or
   main40=76 or main40=49 or main40=52 or main40=71 mtmark40=0.
if main40=84 and main40=52 mtmark12=0.
*errors fixed, 44 cases remain.

temp.
select if sec40=45.
cro main40 by main41 by mtmark40.

Do if mtmark40=0.
   Do if main40>95.
      compute avy118=41.
      compute avy119=41.
      compute avy120=41.
      compute mainy118=69.
      compute mainy119=69.
      compute mainy120=69.
      compute mtravy118=-8.
      compute mtravy119=-8.
      compute mtravy120=-8.
   Else if main40=1.
      compute avy118=16.
      compute avy119=16.
      compute avy120=13.
      compute mainy118=2.
      compute mainy119=2.
      compute mainy120=4.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=-7. 
   Else if main40=2.
      compute avy118=16.
      compute avy119=16.
      compute avy120=36.
      compute mainy118=2.
      compute mainy119=2.
      compute mainy120=55.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=3 or main40=4.
      compute avy118=16.
      compute avy119=16.
      compute avy120=16.
      compute mainy118=2.
      compute mainy119=2.
      compute mainy120=2.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=-7. 
   Else if main40=5.
      compute avy118=16.
      compute avy119=16.
      compute avy120=16.
      compute mainy118=3.
      compute mainy119=3.
      compute mainy120=3.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=6.
      compute avy118=13.
      compute avy119=13.
      compute avy120=13.
      compute mainy118=1.
      compute mainy119=1.
      compute mainy120=1.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40>6 and main40<20.
      compute avy118=30.
      compute avy119=30.
      compute avy120=30.
      compute mainy118=58.
      compute mainy119=58.
      compute mainy120=58.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40>19 and main40<30.
      compute avy118=31.
      compute avy119=31.
      compute avy120=31.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=59.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40>29 and main40<34.
      compute avy118=13.
      compute avy119=13.
      compute avy120=13.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=4.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=34 and sec40=45.
      compute avy118=15.
      compute avy119=15.
      compute avy120=5.
      compute mainy118=6.
      compute mainy119=6.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=1.
   Else if main40=34 or main40=35 or ((main40=38 or main40=39) and loc40=1).
      compute avy118=15.
      compute avy119=15.
      compute avy120=15.
      compute mainy118=6.
      compute mainy119=6.
      compute mainy120=6.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=36.
      compute avy118=14.
      compute avy119=14.
      compute avy120=14.
      compute mainy118=25.
      compute mainy119=25.
      compute mainy120=25.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=37.
      compute avy118=12.
      compute avy119=12.
      compute avy120=12.
      compute mainy118=67.
      compute mainy119=67.
      compute mainy120=67.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=40.
      compute avy118=1.
      compute avy119=1.
      compute avy120=1.
      compute mainy118=13.
      compute mainy119=13.
      compute mainy120=13.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=41 and sec40=45.
      compute avy118=1.
      compute avy119=1.
      compute avy120=5.
      compute mainy118=7.
      compute mainy119=7.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=1.
   Else if main40=41.
      compute avy118=1.
      compute avy119=1.
      compute avy120=1.
      compute mainy118=7.
      compute mainy119=7.
      compute mainy120=7.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=42.
      compute avy118=4.
      compute avy119=4.
      compute avy120=4.
      compute mainy118=15.
      compute mainy119=15.
      compute mainy120=15.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=43.
      compute avy118=2.
      compute avy119=2.
      compute avy120=2.
      compute mainy118=8.
      compute mainy119=8.
      compute mainy120=8.
      compute mtravy118=-7.
      compute mtravy119=-7.
     compute mtravy120=-7.
   Else if main40=44.
      compute avy118=3.
      compute avy119=3.
      compute avy120=3.
      compute mainy118=9.
      compute mainy119=9.
      compute mainy120=9.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=45 and (main41=42 or main41=79).
      compute avy118=5.
      compute avy119=5.
      compute avy120=5.
      compute mainy118=64.
      compute mainy119=64.
      compute mainy120=64.
      compute mtravy118=1.
      compute mtravy119=1.
      compute mtravy120=1.
   Else if (main40=46 or main40=47) and (main41=42 or main41=79).
      compute avy118=5.
      compute avy119=5.
      compute avy120=5.
      compute mainy118=64.
      compute mainy119=64.
      compute mainy120=64.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=45.
      compute avy118=5.
      compute avy119=5.
      compute avy120=5.
      compute mainy118=63.
      compute mainy119=63.
      compute mainy120=63.
      compute mtravy118=1.
      compute mtravy119=1.
      compute mtravy120=1.
   Else if main40=46 or main40=47.
      compute avy118=5.
      compute avy119=5.
      compute avy120=5.
      compute mainy118=63.
      compute mainy119=63.
      compute mainy120=63.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=48.
      compute avy118=5.
      compute avy119=5.
      compute avy120=5.
      compute mainy118=11.
      compute mainy119=11.
      compute mainy120=11.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=49.
      compute avy118=1.
      compute avy119=1.
      compute avy120=1.
      compute mainy118=5.
      compute mainy119=5.
      compute mainy120=5.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=50.
      compute avy118=8.
      compute avy119=8.
      compute avy120=8.
      compute mainy118=21.
      compute mainy119=21.
      compute mainy120=21.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=51.
      compute avy118=11.
      compute avy119=11.
      compute avy120=11.
      compute mainy118=28.
      compute mainy119=28.
      compute mainy120=28.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=52.
      compute avy118=11.
      compute avy119=11.
      compute avy120=11.
      compute mainy118=30.
      compute mainy119=30.
      compute mainy120=30.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=53.
      compute avy118=6.
      compute avy119=6.
      compute avy120=6.
      compute mainy118=18.
      compute mainy119=18.
      compute mainy120=18.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=54.
      compute avy118=7.
      compute avy119=7.
      compute avy120=7.
      compute mainy118=20.
      compute mainy119=20.
      compute mainy120=20.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=55.
      compute avy118=8.
      compute avy119=8.
      compute avy120=8.
      compute mainy118=22.
      compute mainy119=22.
      compute mainy120=22.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=56.
      compute avy118=8.
      compute avy119=8.
      compute avy120=8.
      compute mainy118=27.
      compute mainy119=27.
      compute mainy120=27.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=57.
      compute avy118=10.
      compute avy119=10.
      compute avy120=10.
      compute mainy118=24.
      compute mainy119=24.
      compute mainy120=24.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=58.
      compute avy118=12.
      compute avy119=12.
      compute avy120=12.
      compute mainy118=66.
      compute mainy119=66.
      compute mainy120=66.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=59.
      compute avy118=7.
      compute avy119=7.
      compute avy120=13.
      compute mainy118=23.
      compute mainy119=23.
      compute mainy120=4.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=60.
      compute avy118=9.
      compute avy119=9.
      compute avy120=9.
      compute mainy118=46.
      compute mainy119=46.
      compute mainy120=46.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=61.
      compute avy118=33.
      compute avy119=33.
      compute avy120=33.
      compute mainy118=16.
      compute mainy119=16.
      compute mainy120=16.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=62.
      compute avy118=34.
      compute avy119=34.
      compute avy120=34.
      compute mainy118=56.
      compute mainy119=56.
      compute mainy120=56.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=63.
      compute avy118=35.
      compute avy119=35.
      compute avy120=35.
      compute mainy118=56.
      compute mainy119=56.
      compute mainy120=56.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=64.
      compute avy118=40.
      compute avy119=40.
      compute avy120=40.
      compute mainy118=54.
      compute mainy119=54.
      compute mainy120=54.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=65.
      compute avy118=39.
      compute avy119=39.
      compute avy120=39.
      compute mainy118=54.
      compute mainy119=54.
      compute mainy120=54.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=66.
      compute avy118=38.
      compute avy119=38.
      compute avy120=38.
      compute mainy118=48.
      compute mainy119=48.
      compute mainy120=48.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=67.
      compute avy118=37.
      compute avy119=37.
      compute avy120=37.
      compute mainy118=49.
      compute mainy119=49.
      compute mainy120=49.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=68.
      compute avy118=32.
      compute avy119=32.
      compute avy120=32.
      compute mainy118=57.
      compute mainy119=57.
      compute mainy120=57.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=69.
      compute avy118=36.
      compute avy119=36.
      compute avy120=36.
      compute mainy118=55.
      compute mainy119=55.
      compute mainy120=55.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=70.
      compute avy118=25.
      compute avy119=25.
      compute avy120=25.
      compute mainy118=35.
      compute mainy119=35.
      compute mainy120=35.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=71.
      compute avy118=29.
      compute avy119=29.
      compute avy120=29.
      compute mainy118=48.
      compute mainy119=48.
      compute mainy120=48.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=72.
      compute avy118=24.
      compute avy119=24.
      compute avy120=24.
      compute mainy118=37.
      compute mainy119=37.
      compute mainy120=37.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=73.
      compute avy118=23.
      compute avy119=23.
      compute avy120=23.
      compute mainy118=33.
      compute mainy119=33.
      compute mainy120=33.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=74.
      compute avy118=26.
      compute avy119=26.
      compute avy120=26.
      compute mainy118=40.
      compute mainy119=40.
      compute mainy120=40.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=75 or main40=39.
      compute avy118=27.
      compute avy119=27.
      compute avy120=27.
      compute mainy118=39.
      compute mainy119=39.
      compute mainy120=39.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=76.
      compute avy118=25.
      compute avy119=25.
      compute avy120=25.
      compute mainy118=40.
      compute mainy119=40.
      compute mainy120=40.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=77 or main40=38.
      compute avy118=28.
      compute avy119=28.
      compute avy120=28.
      compute mainy118=39.
      compute mainy119=39.
      compute mainy120=39.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=78.
      compute avy118=22.
      compute avy119=22.
      compute avy120=22.
      compute mainy118=34.
      compute mainy119=34.
      compute mainy120=34.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=79.
      compute avy118=4.
      compute avy119=4.
      compute avy120=4.
      compute mainy118=17.
      compute mainy119=17.
      compute mainy120=17.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=80.
      compute avy118=18.
      compute avy119=18.
      compute avy120=18.
      compute mainy118=38.
      compute mainy119=38.
      compute mainy120=38.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=81.
      compute avy118=19.
      compute avy119=19.
      compute avy120=19.
      compute mainy118=42.
      compute mainy119=42.
      compute mainy120=42.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=82.
      compute avy118=20.
      compute avy119=20.
      compute avy120=20.
      compute mainy118=36.
      compute mainy119=36.
      compute mainy120=36.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=83.
      compute avy118=21.
      compute avy119=21.
      compute avy120=21.
      compute mainy118=43.
      compute mainy119=43.
      compute mainy120=43.
      compute mtravy118=3.
      compute mtravy119=3.
      compute mtravy120=3.
   Else if main40=84.
      compute avy118=18.
      compute avy119=18.
      compute avy120=18.
      compute mainy118=45.
      compute mainy119=45.
      compute mainy120=45.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=85 or main40=86.
      compute avy118=18.
      compute avy119=18.
      compute avy120=18.
      compute mainy118=38.
      compute mainy119=38.
      compute mainy120=38.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=89.
      compute avy118=17.
      compute avy119=17.
      compute avy120=17.
      compute mainy118=68.
      compute mainy119=68.
      compute mainy120=68.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=90.
      compute avy118=17.
      compute avy119=17.
      compute avy120=17.
      compute mainy118=62.
      compute mainy119=62.
      compute mainy120=62.
      compute mtravy118=5.
      compute mtravy119=5.
      compute mtravy120=5.
   Else if main40=91.
      compute avy118=40.
      compute avy119=40.
      compute avy120=40.
      compute mainy118=51.
      compute mainy119=51.
      compute mainy120=51.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=92.
      compute avy118=31.
      compute avy119=31.
      compute avy120=31.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=59.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   Else if main40=93.
      compute avy118=41.
      compute avy119=41.
      compute avy120=41.
      compute mainy118=41.
      compute mainy119=41.
      compute mainy120=41.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=-7.
   End if.
Else if mtmark40=1.
   Do if main40=2 and (main41=42 or main41=79).
      compute avy118=16.
      compute avy119=36.
      compute avy120=5.
      compute mainy118=2.
      compute mainy119=55.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=2 and (main41=41 or main41=44).
      compute avy118=16.
      compute avy119=36.
      compute avy120=5.
      compute mainy118=2.
      compute mainy119=55.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=2 and (main41=36 or main41=57).
      compute avy118=16.
      compute avy119=36.
      compute avy120=12.
      compute mainy118=2.
      compute mainy119=55.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=2.
      compute avy118=16.
      compute avy119=36.
      compute avy120=17.
      compute mainy118=2.
      compute mainy119=55.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40=3 or main40=4) and (main41=42 or main41=79).
      compute avy118=16.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=2.
      compute mainy119=4.
      compute mainy120=64.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=5. 
   Else if (main40=3 or main40=4) and (main41=41 or main41=44).
      compute avy118=16.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=2.
      compute mainy119=4.
      compute mainy120=63.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=5. 
   Else if (main40=3 or main40=4) and (main41=36 or main41=57).
      compute avy118=16.
      compute avy119=13.
      compute avy120=12.
      compute mainy118=2.
      compute mainy119=4.
      compute mainy120=67.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=5. 
   Else if (main40=3 or main40=4).
      compute avy118=16.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=2.
      compute mainy119=4.
      compute mainy120=63.
      compute mtravy118=-7. 
      compute mtravy119=-7. 
      compute mtravy120=5.
   Else if main40=6 and (main41=41 or main41=44).
      compute avy118=13.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=1.
      compute mainy119=1.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=6 and (main41=42 or main41=79).
      compute avy118=13.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=1.
      compute mainy119=1.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=6 and (main41=36 or main41=57).
      compute avy118=13.
      compute avy119=13.
      compute avy120=12.
      compute mainy118=1.
      compute mainy119=1.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=6.
      compute avy118=13.
      compute avy119=13.
      compute avy120=17.
      compute mainy118=1.
      compute mainy119=1.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>10 and main40<15) and (main41=42 or main41=79).
      compute avy118=30.
      compute avy119=30.
      compute avy120=5.
      compute mainy118=58.
      compute mainy119=58.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>10 and main40<15) and (main41=41 or main41=44).
      compute avy118=30.
      compute avy119=30.
      compute avy120=5.
      compute mainy118=58.
      compute mainy119=58.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>10 and main40<15) and (main41=36 or main41=57).
      compute avy118=30.
      compute avy119=30.
      compute avy120=12.
      compute mainy118=58.
      compute mainy119=58.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40>10 and main40<15.
      compute avy118=30.
      compute avy119=30.
      compute avy120=17.
      compute mainy118=58.
      compute mainy119=58.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>19 and main40<30) and (main41=41 or main41=44).
      compute avy118=31.
      compute avy119=31.
      compute avy120=5.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>19 and main40<30) and (main41=42 or main41=79).
      compute avy118=31.
      compute avy119=31.
      compute avy120=5.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>19 and main40<30) and (main41=36 or main41=57).
      compute avy118=31.
      compute avy119=31.
      compute avy120=12.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40>19 and main40<30.
      compute avy118=31.
      compute avy119=31.
      compute avy120=17.
      compute mainy118=59.
      compute mainy119=59.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>29 and main40<34) and sec40=45.
      compute avy118=13.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=1.
   Else if (main40>29 and main40<34) and (main41=42 or main41=79).
      compute avy118=13.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>29 and main40<34) and (main41=57 or main41=36).
      compute avy118=13.
      compute avy119=13.
      compute avy120=12.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>29 and main40<34) and (main41=41 or main41=44 or main41=47).
      compute avy118=13.
      compute avy119=13.
      compute avy120=5.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if (main40>29 and main40<34).
      compute avy118=13.
      compute avy119=13.
      compute avy120=17.
      compute mainy118=4.
      compute mainy119=4.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=36.
      compute avy118=14.
      compute avy119=14.
      compute avy120=12.
      compute mainy118=25.
      compute mainy119=25.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=40.
      compute avy118=1.
      compute avy119=1.
      compute avy120=5.
      compute mainy118=13.
      compute mainy119=13.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=41.
      compute avy118=1.
      compute avy119=1.
      compute avy120=5.
      compute mainy118=7.
      compute mainy119=7.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      Do if sec40=45.
         compute mtravy120=5.
      Else.
         compute mtravy120=5.
      End if.
   Else if main40=42.
      compute avy118=4.
      compute avy119=4.
      compute avy120=5.
      compute mainy118=15.
      compute mainy119=15.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=43 and (main41=42 or main41=79).
      compute avy118=2.
      compute avy119=2.
      compute avy120=5.
      compute mainy118=8.
      compute mainy119=8.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
     compute mtravy120=5.
   Else if main40=43.
      compute avy118=2.
      compute avy119=2.
      compute avy120=5.
      compute mainy118=8.
      compute mainy119=8.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
     compute mtravy120=5.
   Else if main40=44.
      compute avy118=3.
      compute avy119=3.
      compute avy120=5.
      compute mainy118=9.
      compute mainy119=9.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=50 and (main41=41 or main41=44).
      compute avy118=8.
      compute avy119=8.
      compute avy120=5.
      compute mainy118=21.
      compute mainy119=21.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=50 and (main41=42 or main41=79).
      compute avy118=8.
      compute avy119=8.
      compute avy120=5.
      compute mainy118=21.
      compute mainy119=21.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=50 and (main41=57 or main41=36).
      compute avy118=8.
      compute avy119=8.
      compute avy120=12.
      compute mainy118=21.
      compute mainy119=21.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=50.
      compute avy118=8.
      compute avy119=8.
      compute avy120=17.
      compute mainy118=21.
      compute mainy119=21.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=51 and (main41=41 or main41=44 or main41=45).
      compute avy118=11.
      compute avy119=11.
      compute avy120=5.
      compute mainy118=28.
      compute mainy119=28.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=51 and (main41=42 or main41=79).
      compute avy118=11.
      compute avy119=11.
      compute avy120=5.
      compute mainy118=28.
      compute mainy119=28.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=51 and (main41=57 or main41=36).
      compute avy118=11.
      compute avy119=11.
      compute avy120=12.
      compute mainy118=28.
      compute mainy119=28.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=51.
      compute avy118=11.
      compute avy119=11.
      compute avy120=17.
      compute mainy118=28.
      compute mainy119=28.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=53 and (main41=42 or main41=79).
      compute avy118=6.
      compute avy119=6.
      compute avy120=5.
      compute mainy118=18.
      compute mainy119=18.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=53 and (main41=36 or main41=57).
      compute avy118=6.
      compute avy119=6.
      compute avy120=12.
      compute mainy118=18.
      compute mainy119=18.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=53 and (main41=41 or main41=44).
      compute avy118=6.
      compute avy119=6.
      compute avy120=5.
      compute mainy118=18.
      compute mainy119=18.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=53.
      compute avy118=6.
      compute avy119=6.
      compute avy120=17.
      compute mainy118=18.
      compute mainy119=18.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=54 and (main41=36 or main41=57).
      compute avy118=7.
      compute avy119=7.
      compute avy120=12.
      compute mainy118=20.
      compute mainy119=20.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=54 and (main41=41 or main41=44 or main41=47).
      compute avy118=7.
      compute avy119=7.
      compute avy120=5.
      compute mainy118=20.
      compute mainy119=20.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=54 and (main41=42 or main41=79).
      compute avy118=7.
      compute avy119=7.
      compute avy120=5.
      compute mainy118=20.
      compute mainy119=20.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=54.
      compute avy118=7.
      compute avy119=7.
      compute avy120=17.
      compute mainy118=20.
      compute mainy119=20.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=55 and (main41=57 or main41=36).
      compute avy118=8.
      compute avy119=8.
      compute avy120=12.
      compute mainy118=22.
      compute mainy119=22.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=55 and (main41=42 or main41=79).
      compute avy118=8.
      compute avy119=8.
      compute avy120=5.
      compute mainy118=22.
      compute mainy119=22.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=55.
      compute avy118=8.
      compute avy119=8.
      compute avy120=17.
      compute mainy118=22.
      compute mainy119=22.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=56 and (main41=41 or main41=44).
      compute avy118=8.
      compute avy119=8.
      compute avy120=5.
      compute mainy118=27.
      compute mainy119=27.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=56 and (main41=42 or main41=79).
      compute avy118=8.
      compute avy119=8.
      compute avy120=5.
      compute mainy118=27.
      compute mainy119=27.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=56 and (main41=36 or main41=57).
      compute avy118=8.
      compute avy119=8.
      compute avy120=12.
      compute mainy118=27.
      compute mainy119=27.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=56.
      compute avy118=8.
      compute avy119=8.
      compute avy120=17.
      compute mainy118=27.
      compute mainy119=27.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=57 and (main41=41 or main41=44).
      compute avy118=10.
      compute avy119=10.
      compute avy120=5.
      compute mainy118=24.
      compute mainy119=24.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=57 and (main41=42 or main41=79).
      compute avy118=10.
      compute avy119=10.
      compute avy120=5.
      compute mainy118=24.
      compute mainy119=24.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=57 and (main41=36 or main41=57).
      compute avy118=10.
      compute avy119=10.
      compute avy120=12.
      compute mainy118=24.
      compute mainy119=24.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=57.
      compute avy118=10.
      compute avy119=10.
      compute avy120=17.
      compute mainy118=24.
      compute mainy119=24.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=59.
      compute avy118=7.
      compute avy119=7.
      compute avy120=12.
      compute mainy118=23.
      compute mainy119=23.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=66.
      compute avy118=38.
      compute avy119=38.
      compute avy120=12.
      compute mainy118=48.
      compute mainy119=48.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=69 and (main41=41 or main41=44).
      compute avy118=36.
      compute avy119=36.
      compute avy120=5.
      compute mainy118=55.
      compute mainy119=55.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=69 and (main41=36 or main41=57).
      compute avy118=36.
      compute avy119=36.
      compute avy120=12.
      compute mainy118=55.
      compute mainy119=55.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=69.
      compute avy118=36.
      compute avy119=36.
      compute avy120=17.
      compute mainy118=55.
      compute mainy119=55.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=71 and main41=42.
      compute avy118=29.
      compute avy119=29.
      compute avy120=5.
      compute mainy118=48.
      compute mainy119=48.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=71 and main41=41.
      compute avy118=29.
      compute avy119=29.
      compute avy120=5.
      compute mainy118=48.
      compute mainy119=48.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=75.
      compute avy118=27.
      compute avy119=27.
      compute avy120=17.
      compute mainy118=39.
      compute mainy119=39.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=77.
      compute avy118=28.
      compute avy119=28.
      compute avy120=17.
      compute mainy118=39.
      compute mainy119=39.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=78 and (main40=41 or main40=44).
      compute avy118=22.
      compute avy119=22.
      compute avy120=5.
      compute mainy118=34.
      compute mainy119=34.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=78.
      compute avy118=22.
      compute avy119=22.
      compute avy120=17.
      compute mainy118=34.
      compute mainy119=34.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=79.
      compute avy118=4.
      compute avy119=4.
      compute avy120=5.
      compute mainy118=17.
      compute mainy119=17.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=82.
      compute avy118=20.
      compute avy119=20.
      compute avy120=17.
      compute mainy118=36.
      compute mainy119=36.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=84.
      compute avy118=18.
      compute avy119=18.
      compute avy120=17.
      compute mainy118=45.
      compute mainy119=45.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=85 or main40=86.
      compute avy118=18.
      compute avy119=18.
      compute avy120=17.
      compute mainy118=38.
      compute mainy119=38.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=91 and (main41=36 or main41=57).
      compute avy118=40.
      compute avy119=40.
      compute avy120=12.
      compute mainy118=51.
      compute mainy119=51.
      compute mainy120=67.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=91 and (main41=41 or main41=44).
      compute avy118=40.
      compute avy119=40.
      compute avy120=5.
      compute mainy118=51.
      compute mainy119=51.
      compute mainy120=63.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=91 and (main41=42 or main41=79).
      compute avy118=40.
      compute avy119=40.
      compute avy120=5.
      compute mainy118=51.
      compute mainy119=51.
      compute mainy120=64.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   Else if main40=91.
      compute avy118=40.
      compute avy119=40.
      compute avy120=17.
      compute mainy118=51.
      compute mainy119=51.
      compute mainy120=68.
      compute mtravy118=-7.
      compute mtravy119=-7.
      compute mtravy120=5.
   End if.
End if.

Do if main40=1 and main41=1 and mtmark40=0.
   compute avy118=16.
   compute avy119=16.
   compute avy120=16.
   compute mainy118=2.
   compute mainy119=2.
   compute mainy120=2.
   compute mtravy118=-7. 
   compute mtravy119=-7. 
   compute mtravy120=-7. 
Else if main40=2 and main41=2 and mtmark40=0.
   compute avy118=16.
   compute avy119=16.
   compute avy120=16.
   compute mainy118=2.
   compute mainy119=2.
   compute mainy120=2.
   compute mtravy118=-7.
   compute mtravy119=-7.
   compute mtravy120=-7.
End if.

freq avy118 avy119 avy120 mainy118 mainy119 mainy120 mtravy118 mtravy119 mtravy120.

*set values for the 41st time slot.
freq mtmark41.
*89 missing travel cases in time slot 41.

temp.
select if mtmark41=1.
cro main41 by main42.

if main41=83 or main42=83 or main41=63 or main42=63 mtmark41=0.
if main41=34 or main41=38 or main41=62 or main41=67 or main41=81 mtmark41=0.
if main42=34 or main42=38 or main42=62 or main42=67 or main42=81 mtmark41=0.
if main41=main42 mtmark41=0.
if main41=1 or main41=61 or main42=61 or main42=72 or main42=50 mtmark41=0.
if main41=59 and main42>57 mtmark41=0.
if main41=60 or main41=64 or main41=66 or main41=68 or main41=70 or 
   main41=71 or main41=72 or main41=73 or main41=35 or main41=52 or 
   main41=65 or main41=74 or main41=80 or main41=82 or main41=99 or
   main41=76 or main41=49 or main41=52 or main41=71 mtmark41=0.
if main41=84 and main41=52 mtmark12=0.
*errors fixed, 13 cases remain.

temp.
select if sec41=45.
cro main41 by main42 by mtmark41.

Do if mtmark41=0.
   Do if main41>95.
      compute avy121=41.
      compute avy122=41.
      compute avy123=41.
      compute mainy121=69.
      compute mainy122=69.
      compute mainy123=69.
      compute mtravy121=-8.
      compute mtravy122=-8.
      compute mtravy123=-8.
   Else if main41=1.
      compute avy121=16.
      compute avy122=16.
      compute avy123=13.
      compute mainy121=2.
      compute mainy122=2.
      compute mainy123=4.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=-7. 
   Else if main41=2.
      compute avy121=16.
      compute avy122=16.
      compute avy123=36.
      compute mainy121=2.
      compute mainy122=2.
      compute mainy123=55.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=3 or main41=4.
      compute avy121=16.
      compute avy122=16.
      compute avy123=16.
      compute mainy121=2.
      compute mainy122=2.
      compute mainy123=2.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=-7. 
   Else if main41=5.
      compute avy121=16.
      compute avy122=16.
      compute avy123=16.
      compute mainy121=3.
      compute mainy122=3.
      compute mainy123=3.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=6.
      compute avy121=13.
      compute avy122=13.
      compute avy123=13.
      compute mainy121=1.
      compute mainy122=1.
      compute mainy123=1.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41>6 and main41<20.
      compute avy121=30.
      compute avy122=30.
      compute avy123=30.
      compute mainy121=58.
      compute mainy122=58.
      compute mainy123=58.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41>19 and main41<30.
      compute avy121=31.
      compute avy122=31.
      compute avy123=31.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=59.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41>29 and main41<34.
      compute avy121=13.
      compute avy122=13.
      compute avy123=13.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=4.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=34 and sec41=45.
      compute avy121=15.
      compute avy122=15.
      compute avy123=5.
      compute mainy121=6.
      compute mainy122=6.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=1.
   Else if main41=34 or main41=35 or ((main41=38 or main41=39) and loc41=1).
      compute avy121=15.
      compute avy122=15.
      compute avy123=15.
      compute mainy121=6.
      compute mainy122=6.
      compute mainy123=6.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=36.
      compute avy121=14.
      compute avy122=14.
      compute avy123=14.
      compute mainy121=25.
      compute mainy122=25.
      compute mainy123=25.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=37.
      compute avy121=12.
      compute avy122=12.
      compute avy123=12.
      compute mainy121=67.
      compute mainy122=67.
      compute mainy123=67.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=40.
      compute avy121=1.
      compute avy122=1.
      compute avy123=1.
      compute mainy121=13.
      compute mainy122=13.
      compute mainy123=13.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=41 and sec41=45.
      compute avy121=1.
      compute avy122=1.
      compute avy123=5.
      compute mainy121=7.
      compute mainy122=7.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=1.
   Else if main41=41.
      compute avy121=1.
      compute avy122=1.
      compute avy123=1.
      compute mainy121=7.
      compute mainy122=7.
      compute mainy123=7.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=42.
      compute avy121=4.
      compute avy122=4.
      compute avy123=4.
      compute mainy121=15.
      compute mainy122=15.
      compute mainy123=15.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=43.
      compute avy121=2.
      compute avy122=2.
      compute avy123=2.
      compute mainy121=8.
      compute mainy122=8.
      compute mainy123=8.
      compute mtravy121=-7.
      compute mtravy122=-7.
     compute mtravy123=-7.
   Else if main41=44.
      compute avy121=3.
      compute avy122=3.
      compute avy123=3.
      compute mainy121=9.
      compute mainy122=9.
      compute mainy123=9.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=45 and (main42=42 or main42=79).
      compute avy121=5.
      compute avy122=5.
      compute avy123=5.
      compute mainy121=64.
      compute mainy122=64.
      compute mainy123=64.
      compute mtravy121=1.
      compute mtravy122=1.
      compute mtravy123=1.
   Else if (main41=46 or main41=47) and (main42=42 or main42=79).
      compute avy121=5.
      compute avy122=5.
      compute avy123=5.
      compute mainy121=64.
      compute mainy122=64.
      compute mainy123=64.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=45.
      compute avy121=5.
      compute avy122=5.
      compute avy123=5.
      compute mainy121=63.
      compute mainy122=63.
      compute mainy123=63.
      compute mtravy121=1.
      compute mtravy122=1.
      compute mtravy123=1.
   Else if main41=46 or main41=47.
      compute avy121=5.
      compute avy122=5.
      compute avy123=5.
      compute mainy121=63.
      compute mainy122=63.
      compute mainy123=63.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=48.
      compute avy121=5.
      compute avy122=5.
      compute avy123=5.
      compute mainy121=11.
      compute mainy122=11.
      compute mainy123=11.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=49.
      compute avy121=1.
      compute avy122=1.
      compute avy123=1.
      compute mainy121=5.
      compute mainy122=5.
      compute mainy123=5.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=50.
      compute avy121=8.
      compute avy122=8.
      compute avy123=8.
      compute mainy121=21.
      compute mainy122=21.
      compute mainy123=21.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=51.
      compute avy121=11.
      compute avy122=11.
      compute avy123=11.
      compute mainy121=28.
      compute mainy122=28.
      compute mainy123=28.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=52.
      compute avy121=11.
      compute avy122=11.
      compute avy123=11.
      compute mainy121=30.
      compute mainy122=30.
      compute mainy123=30.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=53.
      compute avy121=6.
      compute avy122=6.
      compute avy123=6.
      compute mainy121=18.
      compute mainy122=18.
      compute mainy123=18.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=54.
      compute avy121=7.
      compute avy122=7.
      compute avy123=7.
      compute mainy121=20.
      compute mainy122=20.
      compute mainy123=20.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=55.
      compute avy121=8.
      compute avy122=8.
      compute avy123=8.
      compute mainy121=22.
      compute mainy122=22.
      compute mainy123=22.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=56.
      compute avy121=8.
      compute avy122=8.
      compute avy123=8.
      compute mainy121=27.
      compute mainy122=27.
      compute mainy123=27.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=57.
      compute avy121=10.
      compute avy122=10.
      compute avy123=10.
      compute mainy121=24.
      compute mainy122=24.
      compute mainy123=24.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=58.
      compute avy121=12.
      compute avy122=12.
      compute avy123=12.
      compute mainy121=66.
      compute mainy122=66.
      compute mainy123=66.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=59.
      compute avy121=7.
      compute avy122=7.
      compute avy123=13.
      compute mainy121=23.
      compute mainy122=23.
      compute mainy123=4.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=60.
      compute avy121=9.
      compute avy122=9.
      compute avy123=9.
      compute mainy121=46.
      compute mainy122=46.
      compute mainy123=46.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=61.
      compute avy121=33.
      compute avy122=33.
      compute avy123=33.
      compute mainy121=16.
      compute mainy122=16.
      compute mainy123=16.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=62.
      compute avy121=34.
      compute avy122=34.
      compute avy123=34.
      compute mainy121=56.
      compute mainy122=56.
      compute mainy123=56.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=63.
      compute avy121=35.
      compute avy122=35.
      compute avy123=35.
      compute mainy121=56.
      compute mainy122=56.
      compute mainy123=56.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=64.
      compute avy121=40.
      compute avy122=40.
      compute avy123=40.
      compute mainy121=54.
      compute mainy122=54.
      compute mainy123=54.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=65.
      compute avy121=39.
      compute avy122=39.
      compute avy123=39.
      compute mainy121=54.
      compute mainy122=54.
      compute mainy123=54.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=66.
      compute avy121=38.
      compute avy122=38.
      compute avy123=38.
      compute mainy121=48.
      compute mainy122=48.
      compute mainy123=48.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=67.
      compute avy121=37.
      compute avy122=37.
      compute avy123=37.
      compute mainy121=49.
      compute mainy122=49.
      compute mainy123=49.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=68.
      compute avy121=32.
      compute avy122=32.
      compute avy123=32.
      compute mainy121=57.
      compute mainy122=57.
      compute mainy123=57.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=69.
      compute avy121=36.
      compute avy122=36.
      compute avy123=36.
      compute mainy121=55.
      compute mainy122=55.
      compute mainy123=55.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=70.
      compute avy121=25.
      compute avy122=25.
      compute avy123=25.
      compute mainy121=35.
      compute mainy122=35.
      compute mainy123=35.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=71.
      compute avy121=29.
      compute avy122=29.
      compute avy123=29.
      compute mainy121=48.
      compute mainy122=48.
      compute mainy123=48.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=72.
      compute avy121=24.
      compute avy122=24.
      compute avy123=24.
      compute mainy121=37.
      compute mainy122=37.
      compute mainy123=37.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=73.
      compute avy121=23.
      compute avy122=23.
      compute avy123=23.
      compute mainy121=33.
      compute mainy122=33.
      compute mainy123=33.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=74.
      compute avy121=26.
      compute avy122=26.
      compute avy123=26.
      compute mainy121=40.
      compute mainy122=40.
      compute mainy123=40.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=75 or main41=39.
      compute avy121=27.
      compute avy122=27.
      compute avy123=27.
      compute mainy121=39.
      compute mainy122=39.
      compute mainy123=39.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=76.
      compute avy121=25.
      compute avy122=25.
      compute avy123=25.
      compute mainy121=40.
      compute mainy122=40.
      compute mainy123=40.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=77 or main41=38.
      compute avy121=28.
      compute avy122=28.
      compute avy123=28.
      compute mainy121=39.
      compute mainy122=39.
      compute mainy123=39.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=78.
      compute avy121=22.
      compute avy122=22.
      compute avy123=22.
      compute mainy121=34.
      compute mainy122=34.
      compute mainy123=34.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=79.
      compute avy121=4.
      compute avy122=4.
      compute avy123=4.
      compute mainy121=17.
      compute mainy122=17.
      compute mainy123=17.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=80.
      compute avy121=18.
      compute avy122=18.
      compute avy123=18.
      compute mainy121=38.
      compute mainy122=38.
      compute mainy123=38.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=81.
      compute avy121=19.
      compute avy122=19.
      compute avy123=19.
      compute mainy121=42.
      compute mainy122=42.
      compute mainy123=42.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=82.
      compute avy121=20.
      compute avy122=20.
      compute avy123=20.
      compute mainy121=36.
      compute mainy122=36.
      compute mainy123=36.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=83.
      compute avy121=21.
      compute avy122=21.
      compute avy123=21.
      compute mainy121=43.
      compute mainy122=43.
      compute mainy123=43.
      compute mtravy121=3.
      compute mtravy122=3.
      compute mtravy123=3.
   Else if main41=84.
      compute avy121=18.
      compute avy122=18.
      compute avy123=18.
      compute mainy121=45.
      compute mainy122=45.
      compute mainy123=45.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=85 or main41=86.
      compute avy121=18.
      compute avy122=18.
      compute avy123=18.
      compute mainy121=38.
      compute mainy122=38.
      compute mainy123=38.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=89.
      compute avy121=17.
      compute avy122=17.
      compute avy123=17.
      compute mainy121=68.
      compute mainy122=68.
      compute mainy123=68.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=90.
      compute avy121=17.
      compute avy122=17.
      compute avy123=17.
      compute mainy121=62.
      compute mainy122=62.
      compute mainy123=62.
      compute mtravy121=5.
      compute mtravy122=5.
      compute mtravy123=5.
   Else if main41=91.
      compute avy121=40.
      compute avy122=40.
      compute avy123=40.
      compute mainy121=51.
      compute mainy122=51.
      compute mainy123=51.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=92.
      compute avy121=31.
      compute avy122=31.
      compute avy123=31.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=59.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   Else if main41=93.
      compute avy121=41.
      compute avy122=41.
      compute avy123=41.
      compute mainy121=41.
      compute mainy122=41.
      compute mainy123=41.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=-7.
   End if.
Else if mtmark41=1.
   Do if main41=2 and (main42=42 or main42=79).
      compute avy121=16.
      compute avy122=36.
      compute avy123=5.
      compute mainy121=2.
      compute mainy122=55.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=2 and (main42=41 or main42=44).
      compute avy121=16.
      compute avy122=36.
      compute avy123=5.
      compute mainy121=2.
      compute mainy122=55.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=2 and (main42=36 or main42=57).
      compute avy121=16.
      compute avy122=36.
      compute avy123=12.
      compute mainy121=2.
      compute mainy122=55.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=2.
      compute avy121=16.
      compute avy122=36.
      compute avy123=17.
      compute mainy121=2.
      compute mainy122=55.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41=3 or main41=4) and (main42=42 or main42=79).
      compute avy121=16.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=2.
      compute mainy122=4.
      compute mainy123=64.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=5. 
   Else if (main41=3 or main41=4) and (main42=41 or main42=44).
      compute avy121=16.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=2.
      compute mainy122=4.
      compute mainy123=63.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=5. 
   Else if (main41=3 or main41=4) and (main42=36 or main42=57).
      compute avy121=16.
      compute avy122=13.
      compute avy123=12.
      compute mainy121=2.
      compute mainy122=4.
      compute mainy123=67.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=5. 
   Else if (main41=3 or main41=4).
      compute avy121=16.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=2.
      compute mainy122=4.
      compute mainy123=63.
      compute mtravy121=-7. 
      compute mtravy122=-7. 
      compute mtravy123=5.
   Else if main41=6 and (main42=41 or main42=44).
      compute avy121=13.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=1.
      compute mainy122=1.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=6 and (main42=42 or main42=79).
      compute avy121=13.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=1.
      compute mainy122=1.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=6 and (main42=36 or main42=57).
      compute avy121=13.
      compute avy122=13.
      compute avy123=12.
      compute mainy121=1.
      compute mainy122=1.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=6.
      compute avy121=13.
      compute avy122=13.
      compute avy123=17.
      compute mainy121=1.
      compute mainy122=1.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>10 and main41<15) and (main42=42 or main42=79).
      compute avy121=30.
      compute avy122=30.
      compute avy123=5.
      compute mainy121=58.
      compute mainy122=58.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>10 and main41<15) and (main42=41 or main42=44).
      compute avy121=30.
      compute avy122=30.
      compute avy123=5.
      compute mainy121=58.
      compute mainy122=58.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>10 and main41<15) and (main42=36 or main42=57).
      compute avy121=30.
      compute avy122=30.
      compute avy123=12.
      compute mainy121=58.
      compute mainy122=58.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41>10 and main41<15.
      compute avy121=30.
      compute avy122=30.
      compute avy123=17.
      compute mainy121=58.
      compute mainy122=58.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>19 and main41<30) and (main42=41 or main42=44).
      compute avy121=31.
      compute avy122=31.
      compute avy123=5.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>19 and main41<30) and (main42=42 or main42=79).
      compute avy121=31.
      compute avy122=31.
      compute avy123=5.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>19 and main41<30) and (main42=36 or main42=57).
      compute avy121=31.
      compute avy122=31.
      compute avy123=12.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41>19 and main41<30.
      compute avy121=31.
      compute avy122=31.
      compute avy123=17.
      compute mainy121=59.
      compute mainy122=59.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>29 and main41<34) and sec41=45.
      compute avy121=13.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=1.
   Else if (main41>29 and main41<34) and (main42=42 or main42=79).
      compute avy121=13.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>29 and main41<34) and (main42=57 or main42=36).
      compute avy121=13.
      compute avy122=13.
      compute avy123=12.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>29 and main41<34) and (main42=41 or main42=44 or main42=47).
      compute avy121=13.
      compute avy122=13.
      compute avy123=5.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if (main41>29 and main41<34).
      compute avy121=13.
      compute avy122=13.
      compute avy123=17.
      compute mainy121=4.
      compute mainy122=4.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=36.
      compute avy121=14.
      compute avy122=14.
      compute avy123=12.
      compute mainy121=25.
      compute mainy122=25.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=40.
      compute avy121=1.
      compute avy122=1.
      compute avy123=5.
      compute mainy121=13.
      compute mainy122=13.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=41.
      compute avy121=1.
      compute avy122=1.
      compute avy123=5.
      compute mainy121=7.
      compute mainy122=7.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      Do if sec41=45.
         compute mtravy123=5.
      Else.
         compute mtravy123=5.
      End if.
   Else if main41=42.
      compute avy121=4.
      compute avy122=4.
      compute avy123=5.
      compute mainy121=15.
      compute mainy122=15.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=43 and (main42=42 or main42=79).
      compute avy121=2.
      compute avy122=2.
      compute avy123=5.
      compute mainy121=8.
      compute mainy122=8.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
     compute mtravy123=5.
   Else if main41=43.
      compute avy121=2.
      compute avy122=2.
      compute avy123=5.
      compute mainy121=8.
      compute mainy122=8.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
     compute mtravy123=5.
   Else if main41=44.
      compute avy121=3.
      compute avy122=3.
      compute avy123=5.
      compute mainy121=9.
      compute mainy122=9.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=50 and (main42=41 or main42=44).
      compute avy121=8.
      compute avy122=8.
      compute avy123=5.
      compute mainy121=21.
      compute mainy122=21.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=50 and (main42=42 or main42=79).
      compute avy121=8.
      compute avy122=8.
      compute avy123=5.
      compute mainy121=21.
      compute mainy122=21.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=50 and (main42=57 or main42=36).
      compute avy121=8.
      compute avy122=8.
      compute avy123=12.
      compute mainy121=21.
      compute mainy122=21.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=50.
      compute avy121=8.
      compute avy122=8.
      compute avy123=17.
      compute mainy121=21.
      compute mainy122=21.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=51 and (main42=41 or main42=44 or main42=45).
      compute avy121=11.
      compute avy122=11.
      compute avy123=5.
      compute mainy121=28.
      compute mainy122=28.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=51 and (main42=42 or main42=79).
      compute avy121=11.
      compute avy122=11.
      compute avy123=5.
      compute mainy121=28.
      compute mainy122=28.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=51 and (main42=57 or main42=36).
      compute avy121=11.
      compute avy122=11.
      compute avy123=12.
      compute mainy121=28.
      compute mainy122=28.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=51.
      compute avy121=11.
      compute avy122=11.
      compute avy123=17.
      compute mainy121=28.
      compute mainy122=28.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=53 and (main42=42 or main42=79).
      compute avy121=6.
      compute avy122=6.
      compute avy123=5.
      compute mainy121=18.
      compute mainy122=18.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=53 and (main42=36 or main42=57).
      compute avy121=6.
      compute avy122=6.
      compute avy123=12.
      compute mainy121=18.
      compute mainy122=18.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=53 and (main42=41 or main42=44).
      compute avy121=6.
      compute avy122=6.
      compute avy123=5.
      compute mainy121=18.
      compute mainy122=18.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=53.
      compute avy121=6.
      compute avy122=6.
      compute avy123=17.
      compute mainy121=18.
      compute mainy122=18.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=54 and (main42=36 or main42=57).
      compute avy121=7.
      compute avy122=7.
      compute avy123=12.
      compute mainy121=20.
      compute mainy122=20.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=54 and (main42=41 or main42=44 or main42=47).
      compute avy121=7.
      compute avy122=7.
      compute avy123=5.
      compute mainy121=20.
      compute mainy122=20.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=54 and (main42=42 or main42=79).
      compute avy121=7.
      compute avy122=7.
      compute avy123=5.
      compute mainy121=20.
      compute mainy122=20.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=54.
      compute avy121=7.
      compute avy122=7.
      compute avy123=17.
      compute mainy121=20.
      compute mainy122=20.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=55 and (main42=57 or main42=36).
      compute avy121=8.
      compute avy122=8.
      compute avy123=12.
      compute mainy121=22.
      compute mainy122=22.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=55 and (main42=42 or main42=79).
      compute avy121=8.
      compute avy122=8.
      compute avy123=5.
      compute mainy121=22.
      compute mainy122=22.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=55.
      compute avy121=8.
      compute avy122=8.
      compute avy123=17.
      compute mainy121=22.
      compute mainy122=22.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=56 and (main42=41 or main42=44).
      compute avy121=8.
      compute avy122=8.
      compute avy123=5.
      compute mainy121=27.
      compute mainy122=27.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=56 and (main42=42 or main42=79).
      compute avy121=8.
      compute avy122=8.
      compute avy123=5.
      compute mainy121=27.
      compute mainy122=27.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=56 and (main42=36 or main42=57).
      compute avy121=8.
      compute avy122=8.
      compute avy123=12.
      compute mainy121=27.
      compute mainy122=27.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=56.
      compute avy121=8.
      compute avy122=8.
      compute avy123=17.
      compute mainy121=27.
      compute mainy122=27.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=57 and (main42=41 or main42=44).
      compute avy121=10.
      compute avy122=10.
      compute avy123=5.
      compute mainy121=24.
      compute mainy122=24.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=57 and (main42=42 or main42=79).
      compute avy121=10.
      compute avy122=10.
      compute avy123=5.
      compute mainy121=24.
      compute mainy122=24.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=57 and (main42=36 or main42=57).
      compute avy121=10.
      compute avy122=10.
      compute avy123=12.
      compute mainy121=24.
      compute mainy122=24.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=57.
      compute avy121=10.
      compute avy122=10.
      compute avy123=17.
      compute mainy121=24.
      compute mainy122=24.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=59.
      compute avy121=7.
      compute avy122=7.
      compute avy123=12.
      compute mainy121=23.
      compute mainy122=23.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=66.
      compute avy121=38.
      compute avy122=38.
      compute avy123=12.
      compute mainy121=48.
      compute mainy122=48.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=69 and (main42=41 or main42=44).
      compute avy121=36.
      compute avy122=36.
      compute avy123=5.
      compute mainy121=55.
      compute mainy122=55.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=69 and (main42=36 or main42=57).
      compute avy121=36.
      compute avy122=36.
      compute avy123=12.
      compute mainy121=55.
      compute mainy122=55.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=69.
      compute avy121=36.
      compute avy122=36.
      compute avy123=17.
      compute mainy121=55.
      compute mainy122=55.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=71 and main42=42.
      compute avy121=29.
      compute avy122=29.
      compute avy123=5.
      compute mainy121=48.
      compute mainy122=48.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=71 and main42=41.
      compute avy121=29.
      compute avy122=29.
      compute avy123=5.
      compute mainy121=48.
      compute mainy122=48.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=75.
      compute avy121=27.
      compute avy122=27.
      compute avy123=17.
      compute mainy121=39.
      compute mainy122=39.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=77.
      compute avy121=28.
      compute avy122=28.
      compute avy123=17.
      compute mainy121=39.
      compute mainy122=39.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=78 and (main41=41 or main41=44).
      compute avy121=22.
      compute avy122=22.
      compute avy123=5.
      compute mainy121=34.
      compute mainy122=34.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=78.
      compute avy121=22.
      compute avy122=22.
      compute avy123=17.
      compute mainy121=34.
      compute mainy122=34.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=79.
      compute avy121=4.
      compute avy122=4.
      compute avy123=5.
      compute mainy121=17.
      compute mainy122=17.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=82.
      compute avy121=20.
      compute avy122=20.
      compute avy123=17.
      compute mainy121=36.
      compute mainy122=36.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=84.
      compute avy121=18.
      compute avy122=18.
      compute avy123=17.
      compute mainy121=45.
      compute mainy122=45.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=85 or main41=86.
      compute avy121=18.
      compute avy122=18.
      compute avy123=17.
      compute mainy121=38.
      compute mainy122=38.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=91 and (main42=36 or main42=57).
      compute avy121=40.
      compute avy122=40.
      compute avy123=12.
      compute mainy121=51.
      compute mainy122=51.
      compute mainy123=67.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=91 and (main42=41 or main42=44).
      compute avy121=40.
      compute avy122=40.
      compute avy123=5.
      compute mainy121=51.
      compute mainy122=51.
      compute mainy123=63.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=91 and (main42=42 or main42=79).
      compute avy121=40.
      compute avy122=40.
      compute avy123=5.
      compute mainy121=51.
      compute mainy122=51.
      compute mainy123=64.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   Else if main41=91.
      compute avy121=40.
      compute avy122=40.
      compute avy123=17.
      compute mainy121=51.
      compute mainy122=51.
      compute mainy123=68.
      compute mtravy121=-7.
      compute mtravy122=-7.
      compute mtravy123=5.
   End if.
End if.

Do if main41=1 and main42=1 and mtmark41=0.
   compute avy121=16.
   compute avy122=16.
   compute avy123=16.
   compute mainy121=2.
   compute mainy122=2.
   compute mainy123=2.
   compute mtravy121=-7. 
   compute mtravy122=-7. 
   compute mtravy123=-7. 
Else if main41=2 and main42=2 and mtmark41=0.
   compute avy121=16.
   compute avy122=16.
   compute avy123=16.
   compute mainy121=2.
   compute mainy122=2.
   compute mainy123=2.
   compute mtravy121=-7.
   compute mtravy122=-7.
   compute mtravy123=-7.
End if.

freq avy121 avy122 avy123 mainy121 mainy122 mainy123 mtravy121 mtravy122 mtravy123.

*set values for the 42nd time slot.
freq mtmark42.
*61 missing travel cases in time slot 42.

temp.
select if mtmark42=1.
cro main42 by main43.

if main42=83 or main43=83 or main42=63 or main43=63 mtmark42=0.
if main42=34 or main42=38 or main42=62 or main42=67 or main42=81 mtmark42=0.
if main43=34 or main43=38 or main43=62 or main43=67 or main43=81 mtmark42=0.
if main42=main43 mtmark42=0.
if main42=1 or main42=61 or main43=61 or main43=72 or main43=50 mtmark42=0.
if main42=59 and main43>57 mtmark42=0.
if main42=60 or main42=64 or main42=66 or main42=68 or main42=70 or 
   main42=71 or main42=72 or main42=73 or main42=35 or main42=52 or 
   main42=65 or main42=74 or main42=80 or main42=82 or main42=99 or
   main42=76 or main42=49 or main42=52 or main42=71 mtmark42=0.
if main42=84 and main42=52 mtmark12=0.
*errors fixed, 6 cases remain.

temp.
select if sec42=45.
cro main42 by main43 by mtmark42.

Do if mtmark42=0.
   Do if main42>95.
      compute avy124=41.
      compute avy125=41.
      compute avy126=41.
      compute mainy124=69.
      compute mainy125=69.
      compute mainy126=69.
      compute mtravy124=-8.
      compute mtravy125=-8.
      compute mtravy126=-8.
   Else if main42=1.
      compute avy124=16.
      compute avy125=16.
      compute avy126=13.
      compute mainy124=2.
      compute mainy125=2.
      compute mainy126=4.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=-7. 
   Else if main42=2.
      compute avy124=16.
      compute avy125=16.
      compute avy126=36.
      compute mainy124=2.
      compute mainy125=2.
      compute mainy126=55.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=3 or main42=4.
      compute avy124=16.
      compute avy125=16.
      compute avy126=16.
      compute mainy124=2.
      compute mainy125=2.
      compute mainy126=2.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=-7. 
   Else if main42=5.
      compute avy124=16.
      compute avy125=16.
      compute avy126=16.
      compute mainy124=3.
      compute mainy125=3.
      compute mainy126=3.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=6.
      compute avy124=13.
      compute avy125=13.
      compute avy126=13.
      compute mainy124=1.
      compute mainy125=1.
      compute mainy126=1.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42>6 and main42<20.
      compute avy124=30.
      compute avy125=30.
      compute avy126=30.
      compute mainy124=58.
      compute mainy125=58.
      compute mainy126=58.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42>19 and main42<30.
      compute avy124=31.
      compute avy125=31.
      compute avy126=31.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=59.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42>29 and main42<34.
      compute avy124=13.
      compute avy125=13.
      compute avy126=13.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=4.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=34 and sec42=45.
      compute avy124=15.
      compute avy125=15.
      compute avy126=5.
      compute mainy124=6.
      compute mainy125=6.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=1.
   Else if main42=34 or main42=35 or ((main42=38 or main42=39) and loc42=1).
      compute avy124=15.
      compute avy125=15.
      compute avy126=15.
      compute mainy124=6.
      compute mainy125=6.
      compute mainy126=6.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=36.
      compute avy124=14.
      compute avy125=14.
      compute avy126=14.
      compute mainy124=25.
      compute mainy125=25.
      compute mainy126=25.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=37.
      compute avy124=12.
      compute avy125=12.
      compute avy126=12.
      compute mainy124=67.
      compute mainy125=67.
      compute mainy126=67.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=40.
      compute avy124=1.
      compute avy125=1.
      compute avy126=1.
      compute mainy124=13.
      compute mainy125=13.
      compute mainy126=13.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=41 and sec42=45.
      compute avy124=1.
      compute avy125=1.
      compute avy126=5.
      compute mainy124=7.
      compute mainy125=7.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=1.
   Else if main42=41.
      compute avy124=1.
      compute avy125=1.
      compute avy126=1.
      compute mainy124=7.
      compute mainy125=7.
      compute mainy126=7.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=42.
      compute avy124=4.
      compute avy125=4.
      compute avy126=4.
      compute mainy124=15.
      compute mainy125=15.
      compute mainy126=15.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=43.
      compute avy124=2.
      compute avy125=2.
      compute avy126=2.
      compute mainy124=8.
      compute mainy125=8.
      compute mainy126=8.
      compute mtravy124=-7.
      compute mtravy125=-7.
     compute mtravy126=-7.
   Else if main42=44.
      compute avy124=3.
      compute avy125=3.
      compute avy126=3.
      compute mainy124=9.
      compute mainy125=9.
      compute mainy126=9.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=45 and (main43=42 or main43=79).
      compute avy124=5.
      compute avy125=5.
      compute avy126=5.
      compute mainy124=64.
      compute mainy125=64.
      compute mainy126=64.
      compute mtravy124=1.
      compute mtravy125=1.
      compute mtravy126=1.
   Else if (main42=46 or main42=47) and (main43=42 or main43=79).
      compute avy124=5.
      compute avy125=5.
      compute avy126=5.
      compute mainy124=64.
      compute mainy125=64.
      compute mainy126=64.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=45.
      compute avy124=5.
      compute avy125=5.
      compute avy126=5.
      compute mainy124=63.
      compute mainy125=63.
      compute mainy126=63.
      compute mtravy124=1.
      compute mtravy125=1.
      compute mtravy126=1.
   Else if main42=46 or main42=47.
      compute avy124=5.
      compute avy125=5.
      compute avy126=5.
      compute mainy124=63.
      compute mainy125=63.
      compute mainy126=63.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=48.
      compute avy124=5.
      compute avy125=5.
      compute avy126=5.
      compute mainy124=11.
      compute mainy125=11.
      compute mainy126=11.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=49.
      compute avy124=1.
      compute avy125=1.
      compute avy126=1.
      compute mainy124=5.
      compute mainy125=5.
      compute mainy126=5.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=50.
      compute avy124=8.
      compute avy125=8.
      compute avy126=8.
      compute mainy124=21.
      compute mainy125=21.
      compute mainy126=21.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=51.
      compute avy124=11.
      compute avy125=11.
      compute avy126=11.
      compute mainy124=28.
      compute mainy125=28.
      compute mainy126=28.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=52.
      compute avy124=11.
      compute avy125=11.
      compute avy126=11.
      compute mainy124=30.
      compute mainy125=30.
      compute mainy126=30.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=53.
      compute avy124=6.
      compute avy125=6.
      compute avy126=6.
      compute mainy124=18.
      compute mainy125=18.
      compute mainy126=18.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=54.
      compute avy124=7.
      compute avy125=7.
      compute avy126=7.
      compute mainy124=20.
      compute mainy125=20.
      compute mainy126=20.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=55.
      compute avy124=8.
      compute avy125=8.
      compute avy126=8.
      compute mainy124=22.
      compute mainy125=22.
      compute mainy126=22.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=56.
      compute avy124=8.
      compute avy125=8.
      compute avy126=8.
      compute mainy124=27.
      compute mainy125=27.
      compute mainy126=27.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=57.
      compute avy124=10.
      compute avy125=10.
      compute avy126=10.
      compute mainy124=24.
      compute mainy125=24.
      compute mainy126=24.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=58.
      compute avy124=12.
      compute avy125=12.
      compute avy126=12.
      compute mainy124=66.
      compute mainy125=66.
      compute mainy126=66.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=59.
      compute avy124=7.
      compute avy125=7.
      compute avy126=13.
      compute mainy124=23.
      compute mainy125=23.
      compute mainy126=4.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=60.
      compute avy124=9.
      compute avy125=9.
      compute avy126=9.
      compute mainy124=46.
      compute mainy125=46.
      compute mainy126=46.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=61.
      compute avy124=33.
      compute avy125=33.
      compute avy126=33.
      compute mainy124=16.
      compute mainy125=16.
      compute mainy126=16.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=62.
      compute avy124=34.
      compute avy125=34.
      compute avy126=34.
      compute mainy124=56.
      compute mainy125=56.
      compute mainy126=56.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=63.
      compute avy124=35.
      compute avy125=35.
      compute avy126=35.
      compute mainy124=56.
      compute mainy125=56.
      compute mainy126=56.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=64.
      compute avy124=40.
      compute avy125=40.
      compute avy126=40.
      compute mainy124=54.
      compute mainy125=54.
      compute mainy126=54.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=65.
      compute avy124=39.
      compute avy125=39.
      compute avy126=39.
      compute mainy124=54.
      compute mainy125=54.
      compute mainy126=54.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=66.
      compute avy124=38.
      compute avy125=38.
      compute avy126=38.
      compute mainy124=48.
      compute mainy125=48.
      compute mainy126=48.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=67.
      compute avy124=37.
      compute avy125=37.
      compute avy126=37.
      compute mainy124=49.
      compute mainy125=49.
      compute mainy126=49.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=68.
      compute avy124=32.
      compute avy125=32.
      compute avy126=32.
      compute mainy124=57.
      compute mainy125=57.
      compute mainy126=57.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=69.
      compute avy124=36.
      compute avy125=36.
      compute avy126=36.
      compute mainy124=55.
      compute mainy125=55.
      compute mainy126=55.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=70.
      compute avy124=25.
      compute avy125=25.
      compute avy126=25.
      compute mainy124=35.
      compute mainy125=35.
      compute mainy126=35.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=71.
      compute avy124=29.
      compute avy125=29.
      compute avy126=29.
      compute mainy124=48.
      compute mainy125=48.
      compute mainy126=48.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=72.
      compute avy124=24.
      compute avy125=24.
      compute avy126=24.
      compute mainy124=37.
      compute mainy125=37.
      compute mainy126=37.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=73.
      compute avy124=23.
      compute avy125=23.
      compute avy126=23.
      compute mainy124=33.
      compute mainy125=33.
      compute mainy126=33.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=74.
      compute avy124=26.
      compute avy125=26.
      compute avy126=26.
      compute mainy124=40.
      compute mainy125=40.
      compute mainy126=40.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=75 or main42=39.
      compute avy124=27.
      compute avy125=27.
      compute avy126=27.
      compute mainy124=39.
      compute mainy125=39.
      compute mainy126=39.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=76.
      compute avy124=25.
      compute avy125=25.
      compute avy126=25.
      compute mainy124=40.
      compute mainy125=40.
      compute mainy126=40.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=77 or main42=38.
      compute avy124=28.
      compute avy125=28.
      compute avy126=28.
      compute mainy124=39.
      compute mainy125=39.
      compute mainy126=39.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=78.
      compute avy124=22.
      compute avy125=22.
      compute avy126=22.
      compute mainy124=34.
      compute mainy125=34.
      compute mainy126=34.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=79.
      compute avy124=4.
      compute avy125=4.
      compute avy126=4.
      compute mainy124=17.
      compute mainy125=17.
      compute mainy126=17.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=80.
      compute avy124=18.
      compute avy125=18.
      compute avy126=18.
      compute mainy124=38.
      compute mainy125=38.
      compute mainy126=38.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=81.
      compute avy124=19.
      compute avy125=19.
      compute avy126=19.
      compute mainy124=42.
      compute mainy125=42.
      compute mainy126=42.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=82.
      compute avy124=20.
      compute avy125=20.
      compute avy126=20.
      compute mainy124=36.
      compute mainy125=36.
      compute mainy126=36.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=83.
      compute avy124=21.
      compute avy125=21.
      compute avy126=21.
      compute mainy124=43.
      compute mainy125=43.
      compute mainy126=43.
      compute mtravy124=3.
      compute mtravy125=3.
      compute mtravy126=3.
   Else if main42=84.
      compute avy124=18.
      compute avy125=18.
      compute avy126=18.
      compute mainy124=45.
      compute mainy125=45.
      compute mainy126=45.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=85 or main42=86.
      compute avy124=18.
      compute avy125=18.
      compute avy126=18.
      compute mainy124=38.
      compute mainy125=38.
      compute mainy126=38.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=89.
      compute avy124=17.
      compute avy125=17.
      compute avy126=17.
      compute mainy124=68.
      compute mainy125=68.
      compute mainy126=68.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=90.
      compute avy124=17.
      compute avy125=17.
      compute avy126=17.
      compute mainy124=62.
      compute mainy125=62.
      compute mainy126=62.
      compute mtravy124=5.
      compute mtravy125=5.
      compute mtravy126=5.
   Else if main42=91.
      compute avy124=40.
      compute avy125=40.
      compute avy126=40.
      compute mainy124=51.
      compute mainy125=51.
      compute mainy126=51.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=92.
      compute avy124=31.
      compute avy125=31.
      compute avy126=31.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=59.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   Else if main42=93.
      compute avy124=41.
      compute avy125=41.
      compute avy126=41.
      compute mainy124=41.
      compute mainy125=41.
      compute mainy126=41.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=-7.
   End if.
Else if mtmark42=1.
   Do if main42=2 and (main43=42 or main43=79).
      compute avy124=16.
      compute avy125=36.
      compute avy126=5.
      compute mainy124=2.
      compute mainy125=55.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=2 and (main43=41 or main43=44).
      compute avy124=16.
      compute avy125=36.
      compute avy126=5.
      compute mainy124=2.
      compute mainy125=55.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=2 and (main43=36 or main43=57).
      compute avy124=16.
      compute avy125=36.
      compute avy126=12.
      compute mainy124=2.
      compute mainy125=55.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=2.
      compute avy124=16.
      compute avy125=36.
      compute avy126=17.
      compute mainy124=2.
      compute mainy125=55.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42=3 or main42=4) and (main43=42 or main43=79).
      compute avy124=16.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=2.
      compute mainy125=4.
      compute mainy126=64.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=5. 
   Else if (main42=3 or main42=4) and (main43=41 or main43=44).
      compute avy124=16.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=2.
      compute mainy125=4.
      compute mainy126=63.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=5. 
   Else if (main42=3 or main42=4) and (main43=36 or main43=57).
      compute avy124=16.
      compute avy125=13.
      compute avy126=12.
      compute mainy124=2.
      compute mainy125=4.
      compute mainy126=67.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=5. 
   Else if (main42=3 or main42=4).
      compute avy124=16.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=2.
      compute mainy125=4.
      compute mainy126=63.
      compute mtravy124=-7. 
      compute mtravy125=-7. 
      compute mtravy126=5.
   Else if main42=6 and (main43=41 or main43=44).
      compute avy124=13.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=1.
      compute mainy125=1.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=6 and (main43=42 or main43=79).
      compute avy124=13.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=1.
      compute mainy125=1.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=6 and (main43=36 or main43=57).
      compute avy124=13.
      compute avy125=13.
      compute avy126=12.
      compute mainy124=1.
      compute mainy125=1.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=6.
      compute avy124=13.
      compute avy125=13.
      compute avy126=17.
      compute mainy124=1.
      compute mainy125=1.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>10 and main42<15) and (main43=42 or main43=79).
      compute avy124=30.
      compute avy125=30.
      compute avy126=5.
      compute mainy124=58.
      compute mainy125=58.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>10 and main42<15) and (main43=41 or main43=44).
      compute avy124=30.
      compute avy125=30.
      compute avy126=5.
      compute mainy124=58.
      compute mainy125=58.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>10 and main42<15) and (main43=36 or main43=57).
      compute avy124=30.
      compute avy125=30.
      compute avy126=12.
      compute mainy124=58.
      compute mainy125=58.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42>10 and main42<15.
      compute avy124=30.
      compute avy125=30.
      compute avy126=17.
      compute mainy124=58.
      compute mainy125=58.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>19 and main42<30) and (main43=41 or main43=44).
      compute avy124=31.
      compute avy125=31.
      compute avy126=5.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>19 and main42<30) and (main43=42 or main43=79).
      compute avy124=31.
      compute avy125=31.
      compute avy126=5.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>19 and main42<30) and (main43=36 or main43=57).
      compute avy124=31.
      compute avy125=31.
      compute avy126=12.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42>19 and main42<30.
      compute avy124=31.
      compute avy125=31.
      compute avy126=17.
      compute mainy124=59.
      compute mainy125=59.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>29 and main42<34) and sec42=45.
      compute avy124=13.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=1.
   Else if (main42>29 and main42<34) and (main43=42 or main43=79).
      compute avy124=13.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>29 and main42<34) and (main43=57 or main43=36).
      compute avy124=13.
      compute avy125=13.
      compute avy126=12.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>29 and main42<34) and (main43=41 or main43=44 or main43=47).
      compute avy124=13.
      compute avy125=13.
      compute avy126=5.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if (main42>29 and main42<34).
      compute avy124=13.
      compute avy125=13.
      compute avy126=17.
      compute mainy124=4.
      compute mainy125=4.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=36.
      compute avy124=14.
      compute avy125=14.
      compute avy126=12.
      compute mainy124=25.
      compute mainy125=25.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=40.
      compute avy124=1.
      compute avy125=1.
      compute avy126=5.
      compute mainy124=13.
      compute mainy125=13.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=41.
      compute avy124=1.
      compute avy125=1.
      compute avy126=5.
      compute mainy124=7.
      compute mainy125=7.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      Do if sec42=45.
         compute mtravy126=5.
      Else.
         compute mtravy126=5.
      End if.
   Else if main42=42.
      compute avy124=4.
      compute avy125=4.
      compute avy126=5.
      compute mainy124=15.
      compute mainy125=15.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=43 and (main43=42 or main43=79).
      compute avy124=2.
      compute avy125=2.
      compute avy126=5.
      compute mainy124=8.
      compute mainy125=8.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
     compute mtravy126=5.
   Else if main42=43.
      compute avy124=2.
      compute avy125=2.
      compute avy126=5.
      compute mainy124=8.
      compute mainy125=8.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
     compute mtravy126=5.
   Else if main42=44.
      compute avy124=3.
      compute avy125=3.
      compute avy126=5.
      compute mainy124=9.
      compute mainy125=9.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=50 and (main43=41 or main43=44).
      compute avy124=8.
      compute avy125=8.
      compute avy126=5.
      compute mainy124=21.
      compute mainy125=21.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=50 and (main43=42 or main43=79).
      compute avy124=8.
      compute avy125=8.
      compute avy126=5.
      compute mainy124=21.
      compute mainy125=21.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=50 and (main43=57 or main43=36).
      compute avy124=8.
      compute avy125=8.
      compute avy126=12.
      compute mainy124=21.
      compute mainy125=21.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=50.
      compute avy124=8.
      compute avy125=8.
      compute avy126=17.
      compute mainy124=21.
      compute mainy125=21.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=51 and (main43=41 or main43=44 or main43=45).
      compute avy124=11.
      compute avy125=11.
      compute avy126=5.
      compute mainy124=28.
      compute mainy125=28.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=51 and (main43=42 or main43=79).
      compute avy124=11.
      compute avy125=11.
      compute avy126=5.
      compute mainy124=28.
      compute mainy125=28.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=51 and (main43=57 or main43=36).
      compute avy124=11.
      compute avy125=11.
      compute avy126=12.
      compute mainy124=28.
      compute mainy125=28.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=51.
      compute avy124=11.
      compute avy125=11.
      compute avy126=17.
      compute mainy124=28.
      compute mainy125=28.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=53 and (main43=42 or main43=79).
      compute avy124=6.
      compute avy125=6.
      compute avy126=5.
      compute mainy124=18.
      compute mainy125=18.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=53 and (main43=36 or main43=57).
      compute avy124=6.
      compute avy125=6.
      compute avy126=12.
      compute mainy124=18.
      compute mainy125=18.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=53 and (main43=41 or main43=44).
      compute avy124=6.
      compute avy125=6.
      compute avy126=5.
      compute mainy124=18.
      compute mainy125=18.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=53.
      compute avy124=6.
      compute avy125=6.
      compute avy126=17.
      compute mainy124=18.
      compute mainy125=18.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=54 and (main43=36 or main43=57).
      compute avy124=7.
      compute avy125=7.
      compute avy126=12.
      compute mainy124=20.
      compute mainy125=20.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=54 and (main43=41 or main43=44 or main43=47).
      compute avy124=7.
      compute avy125=7.
      compute avy126=5.
      compute mainy124=20.
      compute mainy125=20.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=54 and (main43=42 or main43=79).
      compute avy124=7.
      compute avy125=7.
      compute avy126=5.
      compute mainy124=20.
      compute mainy125=20.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=54.
      compute avy124=7.
      compute avy125=7.
      compute avy126=17.
      compute mainy124=20.
      compute mainy125=20.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=55 and (main43=57 or main43=36).
      compute avy124=8.
      compute avy125=8.
      compute avy126=12.
      compute mainy124=22.
      compute mainy125=22.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=55 and (main43=42 or main43=79).
      compute avy124=8.
      compute avy125=8.
      compute avy126=5.
      compute mainy124=22.
      compute mainy125=22.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=55.
      compute avy124=8.
      compute avy125=8.
      compute avy126=17.
      compute mainy124=22.
      compute mainy125=22.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=56 and (main43=41 or main43=44).
      compute avy124=8.
      compute avy125=8.
      compute avy126=5.
      compute mainy124=27.
      compute mainy125=27.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=56 and (main43=42 or main43=79).
      compute avy124=8.
      compute avy125=8.
      compute avy126=5.
      compute mainy124=27.
      compute mainy125=27.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=56 and (main43=36 or main43=57).
      compute avy124=8.
      compute avy125=8.
      compute avy126=12.
      compute mainy124=27.
      compute mainy125=27.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=56.
      compute avy124=8.
      compute avy125=8.
      compute avy126=17.
      compute mainy124=27.
      compute mainy125=27.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=57 and (main43=41 or main43=44).
      compute avy124=10.
      compute avy125=10.
      compute avy126=5.
      compute mainy124=24.
      compute mainy125=24.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=57 and (main43=42 or main43=79).
      compute avy124=10.
      compute avy125=10.
      compute avy126=5.
      compute mainy124=24.
      compute mainy125=24.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=57 and (main43=36 or main43=57).
      compute avy124=10.
      compute avy125=10.
      compute avy126=12.
      compute mainy124=24.
      compute mainy125=24.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=57.
      compute avy124=10.
      compute avy125=10.
      compute avy126=17.
      compute mainy124=24.
      compute mainy125=24.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=59.
      compute avy124=7.
      compute avy125=7.
      compute avy126=12.
      compute mainy124=23.
      compute mainy125=23.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=66.
      compute avy124=38.
      compute avy125=38.
      compute avy126=12.
      compute mainy124=48.
      compute mainy125=48.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=69 and (main43=41 or main43=44).
      compute avy124=36.
      compute avy125=36.
      compute avy126=5.
      compute mainy124=55.
      compute mainy125=55.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=69 and (main43=36 or main43=57).
      compute avy124=36.
      compute avy125=36.
      compute avy126=12.
      compute mainy124=55.
      compute mainy125=55.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=69.
      compute avy124=36.
      compute avy125=36.
      compute avy126=17.
      compute mainy124=55.
      compute mainy125=55.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=71 and main43=42.
      compute avy124=29.
      compute avy125=29.
      compute avy126=5.
      compute mainy124=48.
      compute mainy125=48.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=71 and main43=41.
      compute avy124=29.
      compute avy125=29.
      compute avy126=5.
      compute mainy124=48.
      compute mainy125=48.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=75.
      compute avy124=27.
      compute avy125=27.
      compute avy126=17.
      compute mainy124=39.
      compute mainy125=39.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=77.
      compute avy124=28.
      compute avy125=28.
      compute avy126=17.
      compute mainy124=39.
      compute mainy125=39.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=78 and (main42=41 or main42=44).
      compute avy124=22.
      compute avy125=22.
      compute avy126=5.
      compute mainy124=34.
      compute mainy125=34.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=78.
      compute avy124=22.
      compute avy125=22.
      compute avy126=17.
      compute mainy124=34.
      compute mainy125=34.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=79.
      compute avy124=4.
      compute avy125=4.
      compute avy126=5.
      compute mainy124=17.
      compute mainy125=17.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=82.
      compute avy124=20.
      compute avy125=20.
      compute avy126=17.
      compute mainy124=36.
      compute mainy125=36.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=84.
      compute avy124=18.
      compute avy125=18.
      compute avy126=17.
      compute mainy124=45.
      compute mainy125=45.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=85 or main42=86.
      compute avy124=18.
      compute avy125=18.
      compute avy126=17.
      compute mainy124=38.
      compute mainy125=38.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=91 and (main43=36 or main43=57).
      compute avy124=40.
      compute avy125=40.
      compute avy126=12.
      compute mainy124=51.
      compute mainy125=51.
      compute mainy126=67.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=91 and (main43=41 or main43=44).
      compute avy124=40.
      compute avy125=40.
      compute avy126=5.
      compute mainy124=51.
      compute mainy125=51.
      compute mainy126=63.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=91 and (main43=42 or main43=79).
      compute avy124=40.
      compute avy125=40.
      compute avy126=5.
      compute mainy124=51.
      compute mainy125=51.
      compute mainy126=64.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   Else if main42=91.
      compute avy124=40.
      compute avy125=40.
      compute avy126=17.
      compute mainy124=51.
      compute mainy125=51.
      compute mainy126=68.
      compute mtravy124=-7.
      compute mtravy125=-7.
      compute mtravy126=5.
   End if.
End if.

Do if main42=1 and main43=1 and mtmark42=0.
   compute avy124=16.
   compute avy125=16.
   compute avy126=16.
   compute mainy124=2.
   compute mainy125=2.
   compute mainy126=2.
   compute mtravy124=-7. 
   compute mtravy125=-7. 
   compute mtravy126=-7. 
Else if main42=2 and main43=2 and mtmark42=0.
   compute avy124=16.
   compute avy125=16.
   compute avy126=16.
   compute mainy124=2.
   compute mainy125=2.
   compute mainy126=2.
   compute mtravy124=-7.
   compute mtravy125=-7.
   compute mtravy126=-7.
End if.

freq avy124 avy125 avy126 mainy124 mainy125 mainy126 mtravy124 mtravy125 mtravy126.

*set values for the 43rd time slot.
freq mtmark43.
*58 missing travel cases in time slot 43.

temp.
select if mtmark43=1.
cro main43 by main44.

if main43=83 or main44=83 or main43=63 or main44=63 mtmark43=0.
if main43=34 or main43=38 or main43=62 or main43=67 or main43=81 mtmark43=0.
if main44=34 or main44=38 or main44=62 or main44=67 or main44=81 mtmark43=0.
if main43=main44 mtmark43=0.
if main43=1 or main43=61 or main44=61 or main44=72 or main44=50 mtmark43=0.
if main43=59 and main44>57 mtmark43=0.
if main43=60 or main43=64 or main43=66 or main43=68 or main43=70 or 
   main43=71 or main43=72 or main43=73 or main43=35 or main43=52 or 
   main43=65 or main43=74 or main43=80 or main43=82 or main43=99 or
   main43=76 or main43=49 or main43=52 or main43=71 mtmark43=0.
if main43=84 and main43=52 mtmark12=0.
*errors fixed, 8 cases remain.

temp.
select if sec43=45.
cro main43 by main44 by mtmark43.

Do if mtmark43=0.
   Do if main43>95.
      compute avy127=41.
      compute avy128=41.
      compute avy129=41.
      compute mainy127=69.
      compute mainy128=69.
      compute mainy129=69.
      compute mtravy127=-8.
      compute mtravy128=-8.
      compute mtravy129=-8.
   Else if main43=1.
      compute avy127=16.
      compute avy128=16.
      compute avy129=13.
      compute mainy127=2.
      compute mainy128=2.
      compute mainy129=4.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=-7. 
   Else if main43=2.
      compute avy127=16.
      compute avy128=16.
      compute avy129=36.
      compute mainy127=2.
      compute mainy128=2.
      compute mainy129=55.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=3 or main43=4.
      compute avy127=16.
      compute avy128=16.
      compute avy129=16.
      compute mainy127=2.
      compute mainy128=2.
      compute mainy129=2.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=-7. 
   Else if main43=5.
      compute avy127=16.
      compute avy128=16.
      compute avy129=16.
      compute mainy127=3.
      compute mainy128=3.
      compute mainy129=3.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=6.
      compute avy127=13.
      compute avy128=13.
      compute avy129=13.
      compute mainy127=1.
      compute mainy128=1.
      compute mainy129=1.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43>6 and main43<20.
      compute avy127=30.
      compute avy128=30.
      compute avy129=30.
      compute mainy127=58.
      compute mainy128=58.
      compute mainy129=58.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43>19 and main43<30.
      compute avy127=31.
      compute avy128=31.
      compute avy129=31.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=59.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43>29 and main43<34.
      compute avy127=13.
      compute avy128=13.
      compute avy129=13.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=4.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=34 and sec43=45.
      compute avy127=15.
      compute avy128=15.
      compute avy129=5.
      compute mainy127=6.
      compute mainy128=6.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=1.
   Else if main43=34 or main43=35 or ((main43=38 or main43=39) and loc43=1).
      compute avy127=15.
      compute avy128=15.
      compute avy129=15.
      compute mainy127=6.
      compute mainy128=6.
      compute mainy129=6.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=36.
      compute avy127=14.
      compute avy128=14.
      compute avy129=14.
      compute mainy127=25.
      compute mainy128=25.
      compute mainy129=25.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=37.
      compute avy127=12.
      compute avy128=12.
      compute avy129=12.
      compute mainy127=67.
      compute mainy128=67.
      compute mainy129=67.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=40.
      compute avy127=1.
      compute avy128=1.
      compute avy129=1.
      compute mainy127=13.
      compute mainy128=13.
      compute mainy129=13.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=41 and sec43=45.
      compute avy127=1.
      compute avy128=1.
      compute avy129=5.
      compute mainy127=7.
      compute mainy128=7.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=1.
   Else if main43=41.
      compute avy127=1.
      compute avy128=1.
      compute avy129=1.
      compute mainy127=7.
      compute mainy128=7.
      compute mainy129=7.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=42.
      compute avy127=4.
      compute avy128=4.
      compute avy129=4.
      compute mainy127=15.
      compute mainy128=15.
      compute mainy129=15.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=43.
      compute avy127=2.
      compute avy128=2.
      compute avy129=2.
      compute mainy127=8.
      compute mainy128=8.
      compute mainy129=8.
      compute mtravy127=-7.
      compute mtravy128=-7.
     compute mtravy129=-7.
   Else if main43=44.
      compute avy127=3.
      compute avy128=3.
      compute avy129=3.
      compute mainy127=9.
      compute mainy128=9.
      compute mainy129=9.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=45 and (main44=42 or main44=79).
      compute avy127=5.
      compute avy128=5.
      compute avy129=5.
      compute mainy127=64.
      compute mainy128=64.
      compute mainy129=64.
      compute mtravy127=1.
      compute mtravy128=1.
      compute mtravy129=1.
   Else if (main43=46 or main43=47) and (main44=42 or main44=79).
      compute avy127=5.
      compute avy128=5.
      compute avy129=5.
      compute mainy127=64.
      compute mainy128=64.
      compute mainy129=64.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=45.
      compute avy127=5.
      compute avy128=5.
      compute avy129=5.
      compute mainy127=63.
      compute mainy128=63.
      compute mainy129=63.
      compute mtravy127=1.
      compute mtravy128=1.
      compute mtravy129=1.
   Else if main43=46 or main43=47.
      compute avy127=5.
      compute avy128=5.
      compute avy129=5.
      compute mainy127=63.
      compute mainy128=63.
      compute mainy129=63.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=48.
      compute avy127=5.
      compute avy128=5.
      compute avy129=5.
      compute mainy127=11.
      compute mainy128=11.
      compute mainy129=11.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=49.
      compute avy127=1.
      compute avy128=1.
      compute avy129=1.
      compute mainy127=5.
      compute mainy128=5.
      compute mainy129=5.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=50.
      compute avy127=8.
      compute avy128=8.
      compute avy129=8.
      compute mainy127=21.
      compute mainy128=21.
      compute mainy129=21.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=51.
      compute avy127=11.
      compute avy128=11.
      compute avy129=11.
      compute mainy127=28.
      compute mainy128=28.
      compute mainy129=28.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=52.
      compute avy127=11.
      compute avy128=11.
      compute avy129=11.
      compute mainy127=30.
      compute mainy128=30.
      compute mainy129=30.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=53.
      compute avy127=6.
      compute avy128=6.
      compute avy129=6.
      compute mainy127=18.
      compute mainy128=18.
      compute mainy129=18.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=54.
      compute avy127=7.
      compute avy128=7.
      compute avy129=7.
      compute mainy127=20.
      compute mainy128=20.
      compute mainy129=20.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=55.
      compute avy127=8.
      compute avy128=8.
      compute avy129=8.
      compute mainy127=22.
      compute mainy128=22.
      compute mainy129=22.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=56.
      compute avy127=8.
      compute avy128=8.
      compute avy129=8.
      compute mainy127=27.
      compute mainy128=27.
      compute mainy129=27.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=57.
      compute avy127=10.
      compute avy128=10.
      compute avy129=10.
      compute mainy127=24.
      compute mainy128=24.
      compute mainy129=24.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=58.
      compute avy127=12.
      compute avy128=12.
      compute avy129=12.
      compute mainy127=66.
      compute mainy128=66.
      compute mainy129=66.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=59.
      compute avy127=7.
      compute avy128=7.
      compute avy129=13.
      compute mainy127=23.
      compute mainy128=23.
      compute mainy129=4.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=60.
      compute avy127=9.
      compute avy128=9.
      compute avy129=9.
      compute mainy127=46.
      compute mainy128=46.
      compute mainy129=46.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=61.
      compute avy127=33.
      compute avy128=33.
      compute avy129=33.
      compute mainy127=16.
      compute mainy128=16.
      compute mainy129=16.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=62.
      compute avy127=34.
      compute avy128=34.
      compute avy129=34.
      compute mainy127=56.
      compute mainy128=56.
      compute mainy129=56.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=63.
      compute avy127=35.
      compute avy128=35.
      compute avy129=35.
      compute mainy127=56.
      compute mainy128=56.
      compute mainy129=56.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=64.
      compute avy127=40.
      compute avy128=40.
      compute avy129=40.
      compute mainy127=54.
      compute mainy128=54.
      compute mainy129=54.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=65.
      compute avy127=39.
      compute avy128=39.
      compute avy129=39.
      compute mainy127=54.
      compute mainy128=54.
      compute mainy129=54.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=66.
      compute avy127=38.
      compute avy128=38.
      compute avy129=38.
      compute mainy127=48.
      compute mainy128=48.
      compute mainy129=48.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=67.
      compute avy127=37.
      compute avy128=37.
      compute avy129=37.
      compute mainy127=49.
      compute mainy128=49.
      compute mainy129=49.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=68.
      compute avy127=32.
      compute avy128=32.
      compute avy129=32.
      compute mainy127=57.
      compute mainy128=57.
      compute mainy129=57.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=69.
      compute avy127=36.
      compute avy128=36.
      compute avy129=36.
      compute mainy127=55.
      compute mainy128=55.
      compute mainy129=55.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=70.
      compute avy127=25.
      compute avy128=25.
      compute avy129=25.
      compute mainy127=35.
      compute mainy128=35.
      compute mainy129=35.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=71.
      compute avy127=29.
      compute avy128=29.
      compute avy129=29.
      compute mainy127=48.
      compute mainy128=48.
      compute mainy129=48.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=72.
      compute avy127=24.
      compute avy128=24.
      compute avy129=24.
      compute mainy127=37.
      compute mainy128=37.
      compute mainy129=37.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=73.
      compute avy127=23.
      compute avy128=23.
      compute avy129=23.
      compute mainy127=33.
      compute mainy128=33.
      compute mainy129=33.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=74.
      compute avy127=26.
      compute avy128=26.
      compute avy129=26.
      compute mainy127=40.
      compute mainy128=40.
      compute mainy129=40.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=75 or main43=39.
      compute avy127=27.
      compute avy128=27.
      compute avy129=27.
      compute mainy127=39.
      compute mainy128=39.
      compute mainy129=39.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=76.
      compute avy127=25.
      compute avy128=25.
      compute avy129=25.
      compute mainy127=40.
      compute mainy128=40.
      compute mainy129=40.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=77 or main43=38.
      compute avy127=28.
      compute avy128=28.
      compute avy129=28.
      compute mainy127=39.
      compute mainy128=39.
      compute mainy129=39.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=78.
      compute avy127=22.
      compute avy128=22.
      compute avy129=22.
      compute mainy127=34.
      compute mainy128=34.
      compute mainy129=34.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=79.
      compute avy127=4.
      compute avy128=4.
      compute avy129=4.
      compute mainy127=17.
      compute mainy128=17.
      compute mainy129=17.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=80.
      compute avy127=18.
      compute avy128=18.
      compute avy129=18.
      compute mainy127=38.
      compute mainy128=38.
      compute mainy129=38.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=81.
      compute avy127=19.
      compute avy128=19.
      compute avy129=19.
      compute mainy127=42.
      compute mainy128=42.
      compute mainy129=42.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=82.
      compute avy127=20.
      compute avy128=20.
      compute avy129=20.
      compute mainy127=36.
      compute mainy128=36.
      compute mainy129=36.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=83.
      compute avy127=21.
      compute avy128=21.
      compute avy129=21.
      compute mainy127=43.
      compute mainy128=43.
      compute mainy129=43.
      compute mtravy127=3.
      compute mtravy128=3.
      compute mtravy129=3.
   Else if main43=84.
      compute avy127=18.
      compute avy128=18.
      compute avy129=18.
      compute mainy127=45.
      compute mainy128=45.
      compute mainy129=45.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=85 or main43=86.
      compute avy127=18.
      compute avy128=18.
      compute avy129=18.
      compute mainy127=38.
      compute mainy128=38.
      compute mainy129=38.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=89.
      compute avy127=17.
      compute avy128=17.
      compute avy129=17.
      compute mainy127=68.
      compute mainy128=68.
      compute mainy129=68.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=90.
      compute avy127=17.
      compute avy128=17.
      compute avy129=17.
      compute mainy127=62.
      compute mainy128=62.
      compute mainy129=62.
      compute mtravy127=5.
      compute mtravy128=5.
      compute mtravy129=5.
   Else if main43=91.
      compute avy127=40.
      compute avy128=40.
      compute avy129=40.
      compute mainy127=51.
      compute mainy128=51.
      compute mainy129=51.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=92.
      compute avy127=31.
      compute avy128=31.
      compute avy129=31.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=59.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   Else if main43=93.
      compute avy127=41.
      compute avy128=41.
      compute avy129=41.
      compute mainy127=41.
      compute mainy128=41.
      compute mainy129=41.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=-7.
   End if.
Else if mtmark43=1.
   Do if main43=2 and (main44=42 or main44=79).
      compute avy127=16.
      compute avy128=36.
      compute avy129=5.
      compute mainy127=2.
      compute mainy128=55.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=2 and (main44=41 or main44=44).
      compute avy127=16.
      compute avy128=36.
      compute avy129=5.
      compute mainy127=2.
      compute mainy128=55.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=2 and (main44=36 or main44=57).
      compute avy127=16.
      compute avy128=36.
      compute avy129=12.
      compute mainy127=2.
      compute mainy128=55.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=2.
      compute avy127=16.
      compute avy128=36.
      compute avy129=17.
      compute mainy127=2.
      compute mainy128=55.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43=3 or main43=4) and (main44=42 or main44=79).
      compute avy127=16.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=2.
      compute mainy128=4.
      compute mainy129=64.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=5. 
   Else if (main43=3 or main43=4) and (main44=41 or main44=44).
      compute avy127=16.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=2.
      compute mainy128=4.
      compute mainy129=63.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=5. 
   Else if (main43=3 or main43=4) and (main44=36 or main44=57).
      compute avy127=16.
      compute avy128=13.
      compute avy129=12.
      compute mainy127=2.
      compute mainy128=4.
      compute mainy129=67.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=5. 
   Else if (main43=3 or main43=4).
      compute avy127=16.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=2.
      compute mainy128=4.
      compute mainy129=63.
      compute mtravy127=-7. 
      compute mtravy128=-7. 
      compute mtravy129=5.
   Else if main43=6 and (main44=41 or main44=44).
      compute avy127=13.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=1.
      compute mainy128=1.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=6 and (main44=42 or main44=79).
      compute avy127=13.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=1.
      compute mainy128=1.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=6 and (main44=36 or main44=57).
      compute avy127=13.
      compute avy128=13.
      compute avy129=12.
      compute mainy127=1.
      compute mainy128=1.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=6.
      compute avy127=13.
      compute avy128=13.
      compute avy129=17.
      compute mainy127=1.
      compute mainy128=1.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>10 and main43<15) and (main44=42 or main44=79).
      compute avy127=30.
      compute avy128=30.
      compute avy129=5.
      compute mainy127=58.
      compute mainy128=58.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>10 and main43<15) and (main44=41 or main44=44).
      compute avy127=30.
      compute avy128=30.
      compute avy129=5.
      compute mainy127=58.
      compute mainy128=58.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>10 and main43<15) and (main44=36 or main44=57).
      compute avy127=30.
      compute avy128=30.
      compute avy129=12.
      compute mainy127=58.
      compute mainy128=58.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43>10 and main43<15.
      compute avy127=30.
      compute avy128=30.
      compute avy129=17.
      compute mainy127=58.
      compute mainy128=58.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>19 and main43<30) and (main44=41 or main44=44).
      compute avy127=31.
      compute avy128=31.
      compute avy129=5.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>19 and main43<30) and (main44=42 or main44=79).
      compute avy127=31.
      compute avy128=31.
      compute avy129=5.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>19 and main43<30) and (main44=36 or main44=57).
      compute avy127=31.
      compute avy128=31.
      compute avy129=12.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43>19 and main43<30.
      compute avy127=31.
      compute avy128=31.
      compute avy129=17.
      compute mainy127=59.
      compute mainy128=59.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>29 and main43<34) and sec43=45.
      compute avy127=13.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=1.
   Else if (main43>29 and main43<34) and (main44=42 or main44=79).
      compute avy127=13.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>29 and main43<34) and (main44=57 or main44=36).
      compute avy127=13.
      compute avy128=13.
      compute avy129=12.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>29 and main43<34) and (main44=41 or main44=44 or main44=47).
      compute avy127=13.
      compute avy128=13.
      compute avy129=5.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if (main43>29 and main43<34).
      compute avy127=13.
      compute avy128=13.
      compute avy129=17.
      compute mainy127=4.
      compute mainy128=4.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=36.
      compute avy127=14.
      compute avy128=14.
      compute avy129=12.
      compute mainy127=25.
      compute mainy128=25.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=40.
      compute avy127=1.
      compute avy128=1.
      compute avy129=5.
      compute mainy127=13.
      compute mainy128=13.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=41.
      compute avy127=1.
      compute avy128=1.
      compute avy129=5.
      compute mainy127=7.
      compute mainy128=7.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      Do if sec43=45.
         compute mtravy129=5.
      Else.
         compute mtravy129=5.
      End if.
   Else if main43=42.
      compute avy127=4.
      compute avy128=4.
      compute avy129=5.
      compute mainy127=15.
      compute mainy128=15.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=43 and (main44=42 or main44=79).
      compute avy127=2.
      compute avy128=2.
      compute avy129=5.
      compute mainy127=8.
      compute mainy128=8.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
     compute mtravy129=5.
   Else if main43=43.
      compute avy127=2.
      compute avy128=2.
      compute avy129=5.
      compute mainy127=8.
      compute mainy128=8.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
     compute mtravy129=5.
   Else if main43=44.
      compute avy127=3.
      compute avy128=3.
      compute avy129=5.
      compute mainy127=9.
      compute mainy128=9.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=50 and (main44=41 or main44=44).
      compute avy127=8.
      compute avy128=8.
      compute avy129=5.
      compute mainy127=21.
      compute mainy128=21.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=50 and (main44=42 or main44=79).
      compute avy127=8.
      compute avy128=8.
      compute avy129=5.
      compute mainy127=21.
      compute mainy128=21.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=50 and (main44=57 or main44=36).
      compute avy127=8.
      compute avy128=8.
      compute avy129=12.
      compute mainy127=21.
      compute mainy128=21.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=50.
      compute avy127=8.
      compute avy128=8.
      compute avy129=17.
      compute mainy127=21.
      compute mainy128=21.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=51 and (main44=41 or main44=44 or main44=45).
      compute avy127=11.
      compute avy128=11.
      compute avy129=5.
      compute mainy127=28.
      compute mainy128=28.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=51 and (main44=42 or main44=79).
      compute avy127=11.
      compute avy128=11.
      compute avy129=5.
      compute mainy127=28.
      compute mainy128=28.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=51 and (main44=57 or main44=36).
      compute avy127=11.
      compute avy128=11.
      compute avy129=12.
      compute mainy127=28.
      compute mainy128=28.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=51.
      compute avy127=11.
      compute avy128=11.
      compute avy129=17.
      compute mainy127=28.
      compute mainy128=28.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=53 and (main44=42 or main44=79).
      compute avy127=6.
      compute avy128=6.
      compute avy129=5.
      compute mainy127=18.
      compute mainy128=18.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=53 and (main44=36 or main44=57).
      compute avy127=6.
      compute avy128=6.
      compute avy129=12.
      compute mainy127=18.
      compute mainy128=18.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=53 and (main44=41 or main44=44).
      compute avy127=6.
      compute avy128=6.
      compute avy129=5.
      compute mainy127=18.
      compute mainy128=18.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=53.
      compute avy127=6.
      compute avy128=6.
      compute avy129=17.
      compute mainy127=18.
      compute mainy128=18.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=54 and (main44=36 or main44=57).
      compute avy127=7.
      compute avy128=7.
      compute avy129=12.
      compute mainy127=20.
      compute mainy128=20.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=54 and (main44=41 or main44=44 or main44=47).
      compute avy127=7.
      compute avy128=7.
      compute avy129=5.
      compute mainy127=20.
      compute mainy128=20.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=54 and (main44=42 or main44=79).
      compute avy127=7.
      compute avy128=7.
      compute avy129=5.
      compute mainy127=20.
      compute mainy128=20.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=54.
      compute avy127=7.
      compute avy128=7.
      compute avy129=17.
      compute mainy127=20.
      compute mainy128=20.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=55 and (main44=57 or main44=36).
      compute avy127=8.
      compute avy128=8.
      compute avy129=12.
      compute mainy127=22.
      compute mainy128=22.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=55 and (main44=42 or main44=79).
      compute avy127=8.
      compute avy128=8.
      compute avy129=5.
      compute mainy127=22.
      compute mainy128=22.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=55.
      compute avy127=8.
      compute avy128=8.
      compute avy129=17.
      compute mainy127=22.
      compute mainy128=22.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=56 and (main44=41 or main44=44).
      compute avy127=8.
      compute avy128=8.
      compute avy129=5.
      compute mainy127=27.
      compute mainy128=27.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=56 and (main44=42 or main44=79).
      compute avy127=8.
      compute avy128=8.
      compute avy129=5.
      compute mainy127=27.
      compute mainy128=27.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=56 and (main44=36 or main44=57).
      compute avy127=8.
      compute avy128=8.
      compute avy129=12.
      compute mainy127=27.
      compute mainy128=27.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=56.
      compute avy127=8.
      compute avy128=8.
      compute avy129=17.
      compute mainy127=27.
      compute mainy128=27.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=57 and (main44=41 or main44=44).
      compute avy127=10.
      compute avy128=10.
      compute avy129=5.
      compute mainy127=24.
      compute mainy128=24.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=57 and (main44=42 or main44=79).
      compute avy127=10.
      compute avy128=10.
      compute avy129=5.
      compute mainy127=24.
      compute mainy128=24.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=57 and (main44=36 or main44=57).
      compute avy127=10.
      compute avy128=10.
      compute avy129=12.
      compute mainy127=24.
      compute mainy128=24.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=57.
      compute avy127=10.
      compute avy128=10.
      compute avy129=17.
      compute mainy127=24.
      compute mainy128=24.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=59.
      compute avy127=7.
      compute avy128=7.
      compute avy129=12.
      compute mainy127=23.
      compute mainy128=23.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=66.
      compute avy127=38.
      compute avy128=38.
      compute avy129=12.
      compute mainy127=48.
      compute mainy128=48.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=69 and (main44=41 or main44=44).
      compute avy127=36.
      compute avy128=36.
      compute avy129=5.
      compute mainy127=55.
      compute mainy128=55.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=69 and (main44=36 or main44=57).
      compute avy127=36.
      compute avy128=36.
      compute avy129=12.
      compute mainy127=55.
      compute mainy128=55.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=69.
      compute avy127=36.
      compute avy128=36.
      compute avy129=17.
      compute mainy127=55.
      compute mainy128=55.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=71 and main44=42.
      compute avy127=29.
      compute avy128=29.
      compute avy129=5.
      compute mainy127=48.
      compute mainy128=48.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=71 and main44=41.
      compute avy127=29.
      compute avy128=29.
      compute avy129=5.
      compute mainy127=48.
      compute mainy128=48.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=75.
      compute avy127=27.
      compute avy128=27.
      compute avy129=17.
      compute mainy127=39.
      compute mainy128=39.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=77.
      compute avy127=28.
      compute avy128=28.
      compute avy129=17.
      compute mainy127=39.
      compute mainy128=39.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=78 and (main43=41 or main43=44).
      compute avy127=22.
      compute avy128=22.
      compute avy129=5.
      compute mainy127=34.
      compute mainy128=34.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=78.
      compute avy127=22.
      compute avy128=22.
      compute avy129=17.
      compute mainy127=34.
      compute mainy128=34.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=79.
      compute avy127=4.
      compute avy128=4.
      compute avy129=5.
      compute mainy127=17.
      compute mainy128=17.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=82.
      compute avy127=20.
      compute avy128=20.
      compute avy129=17.
      compute mainy127=36.
      compute mainy128=36.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=84.
      compute avy127=18.
      compute avy128=18.
      compute avy129=17.
      compute mainy127=45.
      compute mainy128=45.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=85 or main43=86.
      compute avy127=18.
      compute avy128=18.
      compute avy129=17.
      compute mainy127=38.
      compute mainy128=38.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=91 and (main44=36 or main44=57).
      compute avy127=40.
      compute avy128=40.
      compute avy129=12.
      compute mainy127=51.
      compute mainy128=51.
      compute mainy129=67.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=91 and (main44=41 or main44=44).
      compute avy127=40.
      compute avy128=40.
      compute avy129=5.
      compute mainy127=51.
      compute mainy128=51.
      compute mainy129=63.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=91 and (main44=42 or main44=79).
      compute avy127=40.
      compute avy128=40.
      compute avy129=5.
      compute mainy127=51.
      compute mainy128=51.
      compute mainy129=64.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   Else if main43=91.
      compute avy127=40.
      compute avy128=40.
      compute avy129=17.
      compute mainy127=51.
      compute mainy128=51.
      compute mainy129=68.
      compute mtravy127=-7.
      compute mtravy128=-7.
      compute mtravy129=5.
   End if.
End if.

Do if main43=1 and main44=1 and mtmark43=0.
   compute avy127=16.
   compute avy128=16.
   compute avy129=16.
   compute mainy127=2.
   compute mainy128=2.
   compute mainy129=2.
   compute mtravy127=-7. 
   compute mtravy128=-7. 
   compute mtravy129=-7. 
Else if main43=2 and main44=2 and mtmark43=0.
   compute avy127=16.
   compute avy128=16.
   compute avy129=16.
   compute mainy127=2.
   compute mainy128=2.
   compute mainy129=2.
   compute mtravy127=-7.
   compute mtravy128=-7.
   compute mtravy129=-7.
End if.

freq avy127 avy128 avy129 mainy127 mainy128 mainy129 mtravy127 mtravy128 mtravy129.

*set values for the final time slots.
freq mtmark44 mtmark44 mtmark45 mtmark46 mtmark47 mtmark48.
*no missing travel cases in time slot 17.

temp.
select if sec44=45.
cro main44 by main45 by mtmark44.

temp.
select if sec44=46 or sec44=47.
cro main44 by main45 by mtmark44.

temp.
select if sec45=45.
cro main45 by main46 by mtmark45.

temp.
select if sec45=46 or sec45=47.
cro main45 by main46 by mtmark45.

temp.
select if sec46=45.
cro main46 by main47 by mtmark46.

temp.
select if sec46=46 or sec46=47.
cro main46 by main47 by mtmark46.

temp.
select if sec47=45.
cro main47 by main48 by mtmark47.

temp.
select if sec47=46 or sec47=47.
cro main47 by main48 by mtmark47.

temp.
select if sec48=45.
cro main48 by mtmark48.

temp.
select if sec48=46 or sec48=47.
cro main48 by mtmark48.
*no more missing travel cases.

Do if main44>95.
   compute avy130=41.
   compute avy131=41.
   compute avy132=41.
   compute mainy130=69.
   compute mainy131=69.
   compute mainy132=69.
   compute mtravy130=-8.
   compute mtravy131=-8.
   compute mtravy132=-8.
Else if main44=1.
   compute avy130=16.
   compute avy131=16.
   compute avy132=16.
   compute mainy130=2.
   compute mainy131=2.
   compute mainy132=2.
   compute mtravy130=-7. 
   compute mtravy131=-7. 
   compute mtravy132=-7. 
Else if main44=2.
   compute avy130=16.
   compute avy131=16.
   compute avy132=16.
   compute mainy130=2.
   compute mainy131=2.
   compute mainy132=2.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=3 or main44=4.
   compute avy130=16.
   compute avy131=16.
   compute avy132=16.
   compute mainy130=2.
   compute mainy131=2.
   compute mainy132=2.
   compute mtravy130=-7. 
   compute mtravy131=-7. 
   compute mtravy132=-7. 
Else if main44=5.
   compute avy130=16.
   compute avy131=16.
   compute avy132=16.
   compute mainy130=3.
   compute mainy131=3.
   compute mainy132=3.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=6.
   compute avy130=13.
   compute avy131=13.
   compute avy132=13.
   compute mainy130=1.
   compute mainy131=1.
   compute mainy132=1.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44>6 and main44<20.
   compute avy130=30.
   compute avy131=30.
   compute avy132=30.
   compute mainy130=58.
   compute mainy131=58.
   compute mainy132=58.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44>19 and main44<30.
   compute avy130=31.
   compute avy131=31.
   compute avy132=31.
   compute mainy130=59.
   compute mainy131=59.
   compute mainy132=59.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44>29 and main44<34.
   compute avy130=13.
   compute avy131=13.
   compute avy132=13.
   compute mainy130=4.
   compute mainy131=4.
   compute mainy132=4.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=34 or main44=35 or ((main44=38 or main44=39) and loc44=1).
   compute avy130=15.
   compute avy131=15.
   compute avy132=15.
   compute mainy130=6.
   compute mainy131=6.
   compute mainy132=6.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=36.
   compute avy130=14.
   compute avy131=14.
   compute avy132=14.
   compute mainy130=25.
   compute mainy131=25.
   compute mainy132=25.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=37.
   compute avy130=12.
   compute avy131=12.
   compute avy132=12.
   compute mainy130=67.
   compute mainy131=67.
   compute mainy132=67.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=40.
  compute avy130=1.
   compute avy131=1.
   compute avy132=1.
   compute mainy130=13.
   compute mainy131=13.
   compute mainy132=13.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=41.
   compute avy130=1.
   compute avy131=1.
   compute avy132=1.
   compute mainy130=7.
   compute mainy131=7.
   compute mainy132=7.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=42.
   compute avy130=4.
   compute avy131=4.
   compute avy132=4.
   compute mainy130=15.
   compute mainy131=15.
   compute mainy132=15.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=43.
   compute avy130=2.
   compute avy131=2.
   compute avy132=2.
   compute mainy130=8.
   compute mainy131=8.
   compute mainy132=8.
   compute mtravy130=-7.
   compute mtravy131=-7.
  compute mtravy132=-7.
Else if main44=44.
   compute avy130=3.
   compute avy131=3.
   compute avy132=3.
   compute mainy130=9.
   compute mainy131=9.
   compute mainy132=9.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=45 and (main45=42 or main45=79).
   compute avy130=5.
   compute avy131=5.
   compute avy132=5.
   compute mainy130=64.
   compute mainy131=64.
   compute mainy132=64.
   compute mtravy130=1.
   compute mtravy131=1.
   compute mtravy132=1.
Else if (main44=46 or main44=47) and (main45=42 or main45=79).
   compute avy130=5.
   compute avy131=5.
   compute avy132=5.
   compute mainy130=64.
   compute mainy131=64.
   compute mainy132=64.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=45.
   compute avy130=5.
   compute avy131=5.
   compute avy132=5.
   compute mainy130=63.
   compute mainy131=63.
   compute mainy132=63.
   compute mtravy130=1.
   compute mtravy131=1.
   compute mtravy132=1.
Else if main44=46 or main44=47.
   compute avy130=5.
   compute avy131=5.
   compute avy132=5.
   compute mainy130=63.
   compute mainy131=63.
   compute mainy132=63.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=48.
   compute avy130=5.
   compute avy131=5.
   compute avy132=5.
   compute mainy130=11.
   compute mainy131=11.
   compute mainy132=11.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=49.
   compute avy130=1.
   compute avy131=1.
   compute avy132=1.
   compute mainy130=5.
   compute mainy131=5.
   compute mainy132=5.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=50.
   compute avy130=8.
   compute avy131=8.
   compute avy132=8.
   compute mainy130=21.
   compute mainy131=21.
   compute mainy132=21.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=51.
   compute avy130=11.
   compute avy131=11.
   compute avy132=11.
   compute mainy130=28.
   compute mainy131=28.
   compute mainy132=28.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=52.
   compute avy130=11.
   compute avy131=11.
   compute avy132=11.
   compute mainy130=30.
   compute mainy131=30.
   compute mainy132=30.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=53.
   compute avy130=6.
   compute avy131=6.
   compute avy132=6.
   compute mainy130=18.
   compute mainy131=18.
   compute mainy132=18.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=54.
   compute avy130=7.
   compute avy131=7.
   compute avy132=7.
   compute mainy130=20.
   compute mainy131=20.
   compute mainy132=20.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=55.
   compute avy130=8.
   compute avy131=8.
   compute avy132=8.
   compute mainy130=22.
   compute mainy131=22.
   compute mainy132=22.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=56.
   compute avy130=8.
   compute avy131=8.
   compute avy132=8.
   compute mainy130=27.
   compute mainy131=27.
   compute mainy132=27.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=57.
   compute avy130=10.
   compute avy131=10.
   compute avy132=10.
   compute mainy130=24.
   compute mainy131=24.
   compute mainy132=24.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=58.
   compute avy130=12.
   compute avy131=12.
   compute avy132=12.
   compute mainy130=66.
   compute mainy131=66.
   compute mainy132=66.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=59.
   compute avy130=7.
   compute avy131=7.
   compute avy132=13.
   compute mainy130=23.
   compute mainy131=23.
   compute mainy132=4.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=60.
   compute avy130=9.
   compute avy131=9.
   compute avy132=9.
   compute mainy130=46.
   compute mainy131=46.
   compute mainy132=46.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=61.
   compute avy130=33.
   compute avy131=33.
   compute avy132=33.
   compute mainy130=16.
   compute mainy131=16.
   compute mainy132=16.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=62.
   compute avy130=34.
   compute avy131=34.
   compute avy132=34.
   compute mainy130=56.
   compute mainy131=56.
   compute mainy132=56.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=63.
   compute avy130=35.
   compute avy131=35.
   compute avy132=35.
   compute mainy130=56.
   compute mainy131=56.
   compute mainy132=56.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=64.
   compute avy130=40.
   compute avy131=40.
   compute avy132=40.
   compute mainy130=54.
   compute mainy131=54.
   compute mainy132=54.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=65.
   compute avy130=39.
   compute avy131=39.
   compute avy132=39.
   compute mainy130=54.
   compute mainy131=54.
   compute mainy132=54.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=66.
   compute avy130=38.
   compute avy131=38.
   compute avy132=38.
   compute mainy130=48.
   compute mainy131=48.
   compute mainy132=48.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=67.
   compute avy130=37.
   compute avy131=37.
   compute avy132=37.
   compute mainy130=49.
   compute mainy131=49.
   compute mainy132=49.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=68.
   compute avy130=32.
   compute avy131=32.
   compute avy132=32.
   compute mainy130=57.
   compute mainy131=57.
   compute mainy132=57.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=69.
   compute avy130=36.
   compute avy131=36.
   compute avy132=36.
   compute mainy130=55.
   compute mainy131=55.
   compute mainy132=55.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=70.
   compute avy130=25.
   compute avy131=25.
   compute avy132=25.
   compute mainy130=35.
   compute mainy131=35.
   compute mainy132=35.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=71.
   compute avy130=29.
   compute avy131=29.
   compute avy132=29.
   compute mainy130=48.
   compute mainy131=48.
   compute mainy132=48.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=72.
   compute avy130=24.
   compute avy131=24.
   compute avy132=24.
   compute mainy130=37.
   compute mainy131=37.
   compute mainy132=37.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=73.
   compute avy130=23.
   compute avy131=23.
   compute avy132=23.
   compute mainy130=33.
   compute mainy131=33.
   compute mainy132=33.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=74.
   compute avy130=26.
   compute avy131=26.
   compute avy132=26.
   compute mainy130=40.
   compute mainy131=40.
   compute mainy132=40.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=75 or main44=39.
   compute avy130=27.
   compute avy131=27.
   compute avy132=27.
   compute mainy130=39.
   compute mainy131=39.
   compute mainy132=39.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=76.
   compute avy130=25.
   compute avy131=25.
   compute avy132=25.
   compute mainy130=40.
   compute mainy131=40.
   compute mainy132=40.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=77 or main44=38.
   compute avy130=28.
   compute avy131=28.
   compute avy132=28.
   compute mainy130=39.
   compute mainy131=39.
   compute mainy132=39.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=78.
   compute avy130=22.
   compute avy131=22.
   compute avy132=22.
   compute mainy130=34.
   compute mainy131=34.
   compute mainy132=34.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=79.
   compute avy130=4.
   compute avy131=4.
   compute avy132=4.
   compute mainy130=17.
   compute mainy131=17.
   compute mainy132=17.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=80.
   compute avy130=18.
   compute avy131=18.
   compute avy132=18.
   compute mainy130=38.
   compute mainy131=38.
   compute mainy132=38.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=81.
   compute avy130=19.
   compute avy131=19.
   compute avy132=19.
   compute mainy130=42.
   compute mainy131=42.
   compute mainy132=42.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=82.
   compute avy130=20.
   compute avy131=20.
   compute avy132=20.
   compute mainy130=36.
   compute mainy131=36.
   compute mainy132=36.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=83.
   compute avy130=21.
   compute avy131=21.
   compute avy132=21.
   compute mainy130=43.
   compute mainy131=43.
   compute mainy132=43.
   compute mtravy130=3.
   compute mtravy131=3.
   compute mtravy132=3.
Else if main44=84.
   compute avy130=18.
   compute avy131=18.
   compute avy132=18.
   compute mainy130=45.
   compute mainy131=45.
   compute mainy132=45.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=85 or main44=86.
   compute avy130=18.
   compute avy131=18.
   compute avy132=18.
   compute mainy130=38.
   compute mainy131=38.
   compute mainy132=38.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=89.
   compute avy130=17.
   compute avy131=17.
   compute avy132=17.
   compute mainy130=68.
   compute mainy131=68.
   compute mainy132=68.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=90.
   compute avy130=17.
   compute avy131=17.
   compute avy132=17.
   compute mainy130=62.
   compute mainy131=62.
   compute mainy132=62.
   compute mtravy130=5.
   compute mtravy131=5.
   compute mtravy132=5.
Else if main44=91.
   compute avy130=40.
   compute avy131=40.
   compute avy132=40.
   compute mainy130=51.
   compute mainy131=51.
   compute mainy132=51.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=92.
   compute avy130=31.
   compute avy131=31.
   compute avy132=31.
   compute mainy130=59.
   compute mainy131=59.
   compute mainy132=59.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
Else if main44=93.
   compute avy130=41.
   compute avy131=41.
   compute avy132=41.
   compute mainy130=41.
   compute mainy131=41.
   compute mainy132=41.
   compute mtravy130=-7.
   compute mtravy131=-7.
   compute mtravy132=-7.
End if.
freq avy130 avy131 avy132 mainy130 mainy131 mainy132 mtravy130 mtravy131 mtravy132.

Do if main45>95.
   compute avy133=41.
   compute avy134=41.
   compute avy135=41.
   compute mainy133=69.
   compute mainy134=69.
   compute mainy135=69.
   compute mtravy133=-8.
   compute mtravy134=-8.
   compute mtravy135=-8.
Else if main45=1.
   compute avy133=16.
   compute avy134=16.
   compute avy135=16.
   compute mainy133=2.
   compute mainy134=2.
   compute mainy135=2.
   compute mtravy133=-7. 
   compute mtravy134=-7. 
   compute mtravy135=-7. 
Else if main45=2.
   compute avy133=16.
   compute avy134=16.
   compute avy135=16.
   compute mainy133=2.
   compute mainy134=2.
   compute mainy135=2.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=3 or main45=4.
   compute avy133=16.
   compute avy134=16.
   compute avy135=16.
   compute mainy133=2.
   compute mainy134=2.
   compute mainy135=2.
   compute mtravy133=-7. 
   compute mtravy134=-7. 
   compute mtravy135=-7. 
Else if main45=5.
   compute avy133=16.
   compute avy134=16.
   compute avy135=16.
   compute mainy133=3.
   compute mainy134=3.
   compute mainy135=3.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=6.
   compute avy133=13.
   compute avy134=13.
   compute avy135=13.
   compute mainy133=1.
   compute mainy134=1.
   compute mainy135=1.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45>6 and main45<20.
   compute avy133=30.
   compute avy134=30.
   compute avy135=30.
   compute mainy133=58.
   compute mainy134=58.
   compute mainy135=58.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45>19 and main45<30.
   compute avy133=31.
   compute avy134=31.
   compute avy135=31.
   compute mainy133=59.
   compute mainy134=59.
   compute mainy135=59.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45>29 and main45<34.
   compute avy133=13.
   compute avy134=13.
   compute avy135=13.
   compute mainy133=4.
   compute mainy134=4.
   compute mainy135=4.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=34 or main45=35 or ((main45=38 or main45=39) and loc45=1).
   compute avy133=15.
   compute avy134=15.
   compute avy135=15.
   compute mainy133=6.
   compute mainy134=6.
   compute mainy135=6.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=36.
   compute avy133=14.
   compute avy134=14.
   compute avy135=14.
   compute mainy133=25.
   compute mainy134=25.
   compute mainy135=25.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=37.
   compute avy133=12.
   compute avy134=12.
   compute avy135=12.
   compute mainy133=67.
   compute mainy134=67.
   compute mainy135=67.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=40.
  compute avy133=1.
   compute avy134=1.
   compute avy135=1.
   compute mainy133=13.
   compute mainy134=13.
   compute mainy135=13.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=41.
   compute avy133=1.
   compute avy134=1.
   compute avy135=1.
   compute mainy133=7.
   compute mainy134=7.
   compute mainy135=7.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=42.
   compute avy133=4.
   compute avy134=4.
   compute avy135=4.
   compute mainy133=15.
   compute mainy134=15.
   compute mainy135=15.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=43.
   compute avy133=2.
   compute avy134=2.
   compute avy135=2.
   compute mainy133=8.
   compute mainy134=8.
   compute mainy135=8.
   compute mtravy133=-7.
   compute mtravy134=-7.
  compute mtravy135=-7.
Else if main45=44.
   compute avy133=3.
   compute avy134=3.
   compute avy135=3.
   compute mainy133=9.
   compute mainy134=9.
   compute mainy135=9.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=45 and (main46=42 or main46=79).
   compute avy133=5.
   compute avy134=5.
   compute avy135=5.
   compute mainy133=64.
   compute mainy134=64.
   compute mainy135=64.
   compute mtravy133=1.
   compute mtravy134=1.
   compute mtravy135=1.
Else if (main45=46 or main45=47) and (main46=42 or main46=79).
   compute avy133=5.
   compute avy134=5.
   compute avy135=5.
   compute mainy133=64.
   compute mainy134=64.
   compute mainy135=64.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=45.
   compute avy133=5.
   compute avy134=5.
   compute avy135=5.
   compute mainy133=63.
   compute mainy134=63.
   compute mainy135=63.
   compute mtravy133=1.
   compute mtravy134=1.
   compute mtravy135=1.
Else if main45=46 or main45=47.
   compute avy133=5.
   compute avy134=5.
   compute avy135=5.
   compute mainy133=63.
   compute mainy134=63.
   compute mainy135=63.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=48.
   compute avy133=5.
   compute avy134=5.
   compute avy135=5.
   compute mainy133=11.
   compute mainy134=11.
   compute mainy135=11.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=49.
   compute avy133=1.
   compute avy134=1.
   compute avy135=1.
   compute mainy133=5.
   compute mainy134=5.
   compute mainy135=5.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=50.
   compute avy133=8.
   compute avy134=8.
   compute avy135=8.
   compute mainy133=21.
   compute mainy134=21.
   compute mainy135=21.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=51.
   compute avy133=11.
   compute avy134=11.
   compute avy135=11.
   compute mainy133=28.
   compute mainy134=28.
   compute mainy135=28.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=52.
   compute avy133=11.
   compute avy134=11.
   compute avy135=11.
   compute mainy133=30.
   compute mainy134=30.
   compute mainy135=30.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=53.
   compute avy133=6.
   compute avy134=6.
   compute avy135=6.
   compute mainy133=18.
   compute mainy134=18.
   compute mainy135=18.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=54.
   compute avy133=7.
   compute avy134=7.
   compute avy135=7.
   compute mainy133=20.
   compute mainy134=20.
   compute mainy135=20.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=55.
   compute avy133=8.
   compute avy134=8.
   compute avy135=8.
   compute mainy133=22.
   compute mainy134=22.
   compute mainy135=22.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=56.
   compute avy133=8.
   compute avy134=8.
   compute avy135=8.
   compute mainy133=27.
   compute mainy134=27.
   compute mainy135=27.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=57.
   compute avy133=10.
   compute avy134=10.
   compute avy135=10.
   compute mainy133=24.
   compute mainy134=24.
   compute mainy135=24.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=58.
   compute avy133=12.
   compute avy134=12.
   compute avy135=12.
   compute mainy133=66.
   compute mainy134=66.
   compute mainy135=66.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=59.
   compute avy133=7.
   compute avy134=7.
   compute avy135=13.
   compute mainy133=23.
   compute mainy134=23.
   compute mainy135=4.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=60.
   compute avy133=9.
   compute avy134=9.
   compute avy135=9.
   compute mainy133=46.
   compute mainy134=46.
   compute mainy135=46.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=61.
   compute avy133=33.
   compute avy134=33.
   compute avy135=33.
   compute mainy133=16.
   compute mainy134=16.
   compute mainy135=16.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=62.
   compute avy133=34.
   compute avy134=34.
   compute avy135=34.
   compute mainy133=56.
   compute mainy134=56.
   compute mainy135=56.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=63.
   compute avy133=35.
   compute avy134=35.
   compute avy135=35.
   compute mainy133=56.
   compute mainy134=56.
   compute mainy135=56.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=64.
   compute avy133=40.
   compute avy134=40.
   compute avy135=40.
   compute mainy133=54.
   compute mainy134=54.
   compute mainy135=54.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=65.
   compute avy133=39.
   compute avy134=39.
   compute avy135=39.
   compute mainy133=54.
   compute mainy134=54.
   compute mainy135=54.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=66.
   compute avy133=38.
   compute avy134=38.
   compute avy135=38.
   compute mainy133=48.
   compute mainy134=48.
   compute mainy135=48.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=67.
   compute avy133=37.
   compute avy134=37.
   compute avy135=37.
   compute mainy133=49.
   compute mainy134=49.
   compute mainy135=49.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=68.
   compute avy133=32.
   compute avy134=32.
   compute avy135=32.
   compute mainy133=57.
   compute mainy134=57.
   compute mainy135=57.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=69.
   compute avy133=36.
   compute avy134=36.
   compute avy135=36.
   compute mainy133=55.
   compute mainy134=55.
   compute mainy135=55.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=70.
   compute avy133=25.
   compute avy134=25.
   compute avy135=25.
   compute mainy133=35.
   compute mainy134=35.
   compute mainy135=35.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=71.
   compute avy133=29.
   compute avy134=29.
   compute avy135=29.
   compute mainy133=48.
   compute mainy134=48.
   compute mainy135=48.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=72.
   compute avy133=24.
   compute avy134=24.
   compute avy135=24.
   compute mainy133=37.
   compute mainy134=37.
   compute mainy135=37.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=73.
   compute avy133=23.
   compute avy134=23.
   compute avy135=23.
   compute mainy133=33.
   compute mainy134=33.
   compute mainy135=33.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=74.
   compute avy133=26.
   compute avy134=26.
   compute avy135=26.
   compute mainy133=40.
   compute mainy134=40.
   compute mainy135=40.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=75 or main45=39.
   compute avy133=27.
   compute avy134=27.
   compute avy135=27.
   compute mainy133=39.
   compute mainy134=39.
   compute mainy135=39.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=76.
   compute avy133=25.
   compute avy134=25.
   compute avy135=25.
   compute mainy133=40.
   compute mainy134=40.
   compute mainy135=40.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=77 or main45=38.
   compute avy133=28.
   compute avy134=28.
   compute avy135=28.
   compute mainy133=39.
   compute mainy134=39.
   compute mainy135=39.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=78.
   compute avy133=22.
   compute avy134=22.
   compute avy135=22.
   compute mainy133=34.
   compute mainy134=34.
   compute mainy135=34.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=79.
   compute avy133=4.
   compute avy134=4.
   compute avy135=4.
   compute mainy133=17.
   compute mainy134=17.
   compute mainy135=17.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=80.
   compute avy133=18.
   compute avy134=18.
   compute avy135=18.
   compute mainy133=38.
   compute mainy134=38.
   compute mainy135=38.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=81.
   compute avy133=19.
   compute avy134=19.
   compute avy135=19.
   compute mainy133=42.
   compute mainy134=42.
   compute mainy135=42.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=82.
   compute avy133=20.
   compute avy134=20.
   compute avy135=20.
   compute mainy133=36.
   compute mainy134=36.
   compute mainy135=36.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=83.
   compute avy133=21.
   compute avy134=21.
   compute avy135=21.
   compute mainy133=43.
   compute mainy134=43.
   compute mainy135=43.
   compute mtravy133=3.
   compute mtravy134=3.
   compute mtravy135=3.
Else if main45=84.
   compute avy133=18.
   compute avy134=18.
   compute avy135=18.
   compute mainy133=45.
   compute mainy134=45.
   compute mainy135=45.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=85 or main45=86.
   compute avy133=18.
   compute avy134=18.
   compute avy135=18.
   compute mainy133=38.
   compute mainy134=38.
   compute mainy135=38.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=89.
   compute avy133=17.
   compute avy134=17.
   compute avy135=17.
   compute mainy133=68.
   compute mainy134=68.
   compute mainy135=68.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=90.
   compute avy133=17.
   compute avy134=17.
   compute avy135=17.
   compute mainy133=62.
   compute mainy134=62.
   compute mainy135=62.
   compute mtravy133=5.
   compute mtravy134=5.
   compute mtravy135=5.
Else if main45=91.
   compute avy133=40.
   compute avy134=40.
   compute avy135=40.
   compute mainy133=51.
   compute mainy134=51.
   compute mainy135=51.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=92.
   compute avy133=31.
   compute avy134=31.
   compute avy135=31.
   compute mainy133=59.
   compute mainy134=59.
   compute mainy135=59.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
Else if main45=93.
   compute avy133=41.
   compute avy134=41.
   compute avy135=41.
   compute mainy133=41.
   compute mainy134=41.
   compute mainy135=41.
   compute mtravy133=-7.
   compute mtravy134=-7.
   compute mtravy135=-7.
End if.
freq avy133 avy134 avy135 mainy133 mainy134 mainy135 mtravy133 mtravy134 mtravy135.

Do if main46>95.
   compute avy136=41.
   compute avy137=41.
   compute avy138=41.
   compute mainy136=69.
   compute mainy137=69.
   compute mainy138=69.
   compute mtravy136=-8.
   compute mtravy137=-8.
   compute mtravy138=-8.
Else if main46=1.
   compute avy136=16.
   compute avy137=16.
   compute avy138=16.
   compute mainy136=2.
   compute mainy137=2.
   compute mainy138=2.
   compute mtravy136=-7. 
   compute mtravy137=-7. 
   compute mtravy138=-7. 
Else if main46=2.
   compute avy136=16.
   compute avy137=16.
   compute avy138=16.
   compute mainy136=2.
   compute mainy137=2.
   compute mainy138=2.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=3 or main46=4.
   compute avy136=16.
   compute avy137=16.
   compute avy138=16.
   compute mainy136=2.
   compute mainy137=2.
   compute mainy138=2.
   compute mtravy136=-7. 
   compute mtravy137=-7. 
   compute mtravy138=-7. 
Else if main46=5.
   compute avy136=16.
   compute avy137=16.
   compute avy138=16.
   compute mainy136=3.
   compute mainy137=3.
   compute mainy138=3.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=6.
   compute avy136=13.
   compute avy137=13.
   compute avy138=13.
   compute mainy136=1.
   compute mainy137=1.
   compute mainy138=1.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46>6 and main46<20.
   compute avy136=30.
   compute avy137=30.
   compute avy138=30.
   compute mainy136=58.
   compute mainy137=58.
   compute mainy138=58.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46>19 and main46<30.
   compute avy136=31.
   compute avy137=31.
   compute avy138=31.
   compute mainy136=59.
   compute mainy137=59.
   compute mainy138=59.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46>29 and main46<34.
   compute avy136=13.
   compute avy137=13.
   compute avy138=13.
   compute mainy136=4.
   compute mainy137=4.
   compute mainy138=4.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=34 or main46=35 or ((main46=38 or main46=39) and loc46=1).
   compute avy136=15.
   compute avy137=15.
   compute avy138=15.
   compute mainy136=6.
   compute mainy137=6.
   compute mainy138=6.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=36.
   compute avy136=14.
   compute avy137=14.
   compute avy138=14.
   compute mainy136=25.
   compute mainy137=25.
   compute mainy138=25.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=37.
   compute avy136=12.
   compute avy137=12.
   compute avy138=12.
   compute mainy136=67.
   compute mainy137=67.
   compute mainy138=67.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=40.
  compute avy136=1.
   compute avy137=1.
   compute avy138=1.
   compute mainy136=13.
   compute mainy137=13.
   compute mainy138=13.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=41.
   compute avy136=1.
   compute avy137=1.
   compute avy138=1.
   compute mainy136=7.
   compute mainy137=7.
   compute mainy138=7.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=42.
   compute avy136=4.
   compute avy137=4.
   compute avy138=4.
   compute mainy136=15.
   compute mainy137=15.
   compute mainy138=15.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=43.
   compute avy136=2.
   compute avy137=2.
   compute avy138=2.
   compute mainy136=8.
   compute mainy137=8.
   compute mainy138=8.
   compute mtravy136=-7.
   compute mtravy137=-7.
  compute mtravy138=-7.
Else if main46=44.
   compute avy136=3.
   compute avy137=3.
   compute avy138=3.
   compute mainy136=9.
   compute mainy137=9.
   compute mainy138=9.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=45 and (main47=42 or main47=79).
   compute avy136=5.
   compute avy137=5.
   compute avy138=5.
   compute mainy136=64.
   compute mainy137=64.
   compute mainy138=64.
   compute mtravy136=1.
   compute mtravy137=1.
   compute mtravy138=1.
Else if (main46=46 or main46=47) and (main47=42 or main47=79).
   compute avy136=5.
   compute avy137=5.
   compute avy138=5.
   compute mainy136=64.
   compute mainy137=64.
   compute mainy138=64.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=45.
   compute avy136=5.
   compute avy137=5.
   compute avy138=5.
   compute mainy136=63.
   compute mainy137=63.
   compute mainy138=63.
   compute mtravy136=1.
   compute mtravy137=1.
   compute mtravy138=1.
Else if main46=46 or main46=47.
   compute avy136=5.
   compute avy137=5.
   compute avy138=5.
   compute mainy136=63.
   compute mainy137=63.
   compute mainy138=63.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=48.
   compute avy136=5.
   compute avy137=5.
   compute avy138=5.
   compute mainy136=11.
   compute mainy137=11.
   compute mainy138=11.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=49.
   compute avy136=1.
   compute avy137=1.
   compute avy138=1.
   compute mainy136=5.
   compute mainy137=5.
   compute mainy138=5.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=50.
   compute avy136=8.
   compute avy137=8.
   compute avy138=8.
   compute mainy136=21.
   compute mainy137=21.
   compute mainy138=21.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=51.
   compute avy136=11.
   compute avy137=11.
   compute avy138=11.
   compute mainy136=28.
   compute mainy137=28.
   compute mainy138=28.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=52.
   compute avy136=11.
   compute avy137=11.
   compute avy138=11.
   compute mainy136=30.
   compute mainy137=30.
   compute mainy138=30.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=53.
   compute avy136=6.
   compute avy137=6.
   compute avy138=6.
   compute mainy136=18.
   compute mainy137=18.
   compute mainy138=18.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=54.
   compute avy136=7.
   compute avy137=7.
   compute avy138=7.
   compute mainy136=20.
   compute mainy137=20.
   compute mainy138=20.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=55.
   compute avy136=8.
   compute avy137=8.
   compute avy138=8.
   compute mainy136=22.
   compute mainy137=22.
   compute mainy138=22.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=56.
   compute avy136=8.
   compute avy137=8.
   compute avy138=8.
   compute mainy136=27.
   compute mainy137=27.
   compute mainy138=27.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=57.
   compute avy136=10.
   compute avy137=10.
   compute avy138=10.
   compute mainy136=24.
   compute mainy137=24.
   compute mainy138=24.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=58.
   compute avy136=12.
   compute avy137=12.
   compute avy138=12.
   compute mainy136=66.
   compute mainy137=66.
   compute mainy138=66.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=59.
   compute avy136=7.
   compute avy137=7.
   compute avy138=13.
   compute mainy136=23.
   compute mainy137=23.
   compute mainy138=4.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=60.
   compute avy136=9.
   compute avy137=9.
   compute avy138=9.
   compute mainy136=46.
   compute mainy137=46.
   compute mainy138=46.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=61.
   compute avy136=33.
   compute avy137=33.
   compute avy138=33.
   compute mainy136=16.
   compute mainy137=16.
   compute mainy138=16.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=62.
   compute avy136=34.
   compute avy137=34.
   compute avy138=34.
   compute mainy136=56.
   compute mainy137=56.
   compute mainy138=56.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=63.
   compute avy136=35.
   compute avy137=35.
   compute avy138=35.
   compute mainy136=56.
   compute mainy137=56.
   compute mainy138=56.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=64.
   compute avy136=40.
   compute avy137=40.
   compute avy138=40.
   compute mainy136=54.
   compute mainy137=54.
   compute mainy138=54.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=65.
   compute avy136=39.
   compute avy137=39.
   compute avy138=39.
   compute mainy136=54.
   compute mainy137=54.
   compute mainy138=54.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=66.
   compute avy136=38.
   compute avy137=38.
   compute avy138=38.
   compute mainy136=48.
   compute mainy137=48.
   compute mainy138=48.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=67.
   compute avy136=37.
   compute avy137=37.
   compute avy138=37.
   compute mainy136=49.
   compute mainy137=49.
   compute mainy138=49.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=68.
   compute avy136=32.
   compute avy137=32.
   compute avy138=32.
   compute mainy136=57.
   compute mainy137=57.
   compute mainy138=57.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=69.
   compute avy136=36.
   compute avy137=36.
   compute avy138=36.
   compute mainy136=55.
   compute mainy137=55.
   compute mainy138=55.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=70.
   compute avy136=25.
   compute avy137=25.
   compute avy138=25.
   compute mainy136=35.
   compute mainy137=35.
   compute mainy138=35.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=71.
   compute avy136=29.
   compute avy137=29.
   compute avy138=29.
   compute mainy136=48.
   compute mainy137=48.
   compute mainy138=48.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=72.
   compute avy136=24.
   compute avy137=24.
   compute avy138=24.
   compute mainy136=37.
   compute mainy137=37.
   compute mainy138=37.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=73.
   compute avy136=23.
   compute avy137=23.
   compute avy138=23.
   compute mainy136=33.
   compute mainy137=33.
   compute mainy138=33.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=74.
   compute avy136=26.
   compute avy137=26.
   compute avy138=26.
   compute mainy136=40.
   compute mainy137=40.
   compute mainy138=40.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=75 or main46=39.
   compute avy136=27.
   compute avy137=27.
   compute avy138=27.
   compute mainy136=39.
   compute mainy137=39.
   compute mainy138=39.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=76.
   compute avy136=25.
   compute avy137=25.
   compute avy138=25.
   compute mainy136=40.
   compute mainy137=40.
   compute mainy138=40.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=77 or main46=38.
   compute avy136=28.
   compute avy137=28.
   compute avy138=28.
   compute mainy136=39.
   compute mainy137=39.
   compute mainy138=39.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=78.
   compute avy136=22.
   compute avy137=22.
   compute avy138=22.
   compute mainy136=34.
   compute mainy137=34.
   compute mainy138=34.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=79.
   compute avy136=4.
   compute avy137=4.
   compute avy138=4.
   compute mainy136=17.
   compute mainy137=17.
   compute mainy138=17.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=80.
   compute avy136=18.
   compute avy137=18.
   compute avy138=18.
   compute mainy136=38.
   compute mainy137=38.
   compute mainy138=38.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=81.
   compute avy136=19.
   compute avy137=19.
   compute avy138=19.
   compute mainy136=42.
   compute mainy137=42.
   compute mainy138=42.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=82.
   compute avy136=20.
   compute avy137=20.
   compute avy138=20.
   compute mainy136=36.
   compute mainy137=36.
   compute mainy138=36.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=83.
   compute avy136=21.
   compute avy137=21.
   compute avy138=21.
   compute mainy136=43.
   compute mainy137=43.
   compute mainy138=43.
   compute mtravy136=3.
   compute mtravy137=3.
   compute mtravy138=3.
Else if main46=84.
   compute avy136=18.
   compute avy137=18.
   compute avy138=18.
   compute mainy136=45.
   compute mainy137=45.
   compute mainy138=45.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=85 or main46=86.
   compute avy136=18.
   compute avy137=18.
   compute avy138=18.
   compute mainy136=38.
   compute mainy137=38.
   compute mainy138=38.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=89.
   compute avy136=17.
   compute avy137=17.
   compute avy138=17.
   compute mainy136=68.
   compute mainy137=68.
   compute mainy138=68.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=90.
   compute avy136=17.
   compute avy137=17.
   compute avy138=17.
   compute mainy136=62.
   compute mainy137=62.
   compute mainy138=62.
   compute mtravy136=5.
   compute mtravy137=5.
   compute mtravy138=5.
Else if main46=91.
   compute avy136=40.
   compute avy137=40.
   compute avy138=40.
   compute mainy136=51.
   compute mainy137=51.
   compute mainy138=51.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=92.
   compute avy136=31.
   compute avy137=31.
   compute avy138=31.
   compute mainy136=59.
   compute mainy137=59.
   compute mainy138=59.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
Else if main46=93.
   compute avy136=41.
   compute avy137=41.
   compute avy138=41.
   compute mainy136=41.
   compute mainy137=41.
   compute mainy138=41.
   compute mtravy136=-7.
   compute mtravy137=-7.
   compute mtravy138=-7.
End if.
freq avy136 avy137 avy138 mainy136 mainy137 mainy138 mtravy136 mtravy137 mtravy138.

Do if main47>95.
   compute avy139=41.
   compute avy140=41.
   compute avy141=41.
   compute mainy139=69.
   compute mainy140=69.
   compute mainy141=69.
   compute mtravy139=-8.
   compute mtravy140=-8.
   compute mtravy141=-8.
Else if main47=1.
   compute avy139=16.
   compute avy140=16.
   compute avy141=16.
   compute mainy139=2.
   compute mainy140=2.
   compute mainy141=2.
   compute mtravy139=-7. 
   compute mtravy140=-7. 
   compute mtravy141=-7. 
Else if main47=2.
   compute avy139=16.
   compute avy140=16.
   compute avy141=16.
   compute mainy139=2.
   compute mainy140=2.
   compute mainy141=2.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=3 or main47=4.
   compute avy139=16.
   compute avy140=16.
   compute avy141=16.
   compute mainy139=2.
   compute mainy140=2.
   compute mainy141=2.
   compute mtravy139=-7. 
   compute mtravy140=-7. 
   compute mtravy141=-7. 
Else if main47=5.
   compute avy139=16.
   compute avy140=16.
   compute avy141=16.
   compute mainy139=3.
   compute mainy140=3.
   compute mainy141=3.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=6.
   compute avy139=13.
   compute avy140=13.
   compute avy141=13.
   compute mainy139=1.
   compute mainy140=1.
   compute mainy141=1.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47>6 and main47<20.
   compute avy139=30.
   compute avy140=30.
   compute avy141=30.
   compute mainy139=58.
   compute mainy140=58.
   compute mainy141=58.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47>19 and main47<30.
   compute avy139=31.
   compute avy140=31.
   compute avy141=31.
   compute mainy139=59.
   compute mainy140=59.
   compute mainy141=59.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47>29 and main47<34.
   compute avy139=13.
   compute avy140=13.
   compute avy141=13.
   compute mainy139=4.
   compute mainy140=4.
   compute mainy141=4.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=34 or main47=35 or ((main47=38 or main47=39) and loc47=1).
   compute avy139=15.
   compute avy140=15.
   compute avy141=15.
   compute mainy139=6.
   compute mainy140=6.
   compute mainy141=6.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=36.
   compute avy139=14.
   compute avy140=14.
   compute avy141=14.
   compute mainy139=25.
   compute mainy140=25.
   compute mainy141=25.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=37.
   compute avy139=12.
   compute avy140=12.
   compute avy141=12.
   compute mainy139=67.
   compute mainy140=67.
   compute mainy141=67.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=40.
  compute avy139=1.
   compute avy140=1.
   compute avy141=1.
   compute mainy139=13.
   compute mainy140=13.
   compute mainy141=13.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=41.
   compute avy139=1.
   compute avy140=1.
   compute avy141=1.
   compute mainy139=7.
   compute mainy140=7.
   compute mainy141=7.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=42.
   compute avy139=4.
   compute avy140=4.
   compute avy141=4.
   compute mainy139=15.
   compute mainy140=15.
   compute mainy141=15.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=43.
   compute avy139=2.
   compute avy140=2.
   compute avy141=2.
   compute mainy139=8.
   compute mainy140=8.
   compute mainy141=8.
   compute mtravy139=-7.
   compute mtravy140=-7.
  compute mtravy141=-7.
Else if main47=44.
   compute avy139=3.
   compute avy140=3.
   compute avy141=3.
   compute mainy139=9.
   compute mainy140=9.
   compute mainy141=9.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=45 and (main48=42 or main48=79).
   compute avy139=5.
   compute avy140=5.
   compute avy141=5.
   compute mainy139=64.
   compute mainy140=64.
   compute mainy141=64.
   compute mtravy139=1.
   compute mtravy140=1.
   compute mtravy141=1.
Else if (main47=46 or main47=47) and (main48=42 or main48=79).
   compute avy139=5.
   compute avy140=5.
   compute avy141=5.
   compute mainy139=64.
   compute mainy140=64.
   compute mainy141=64.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=45.
   compute avy139=5.
   compute avy140=5.
   compute avy141=5.
   compute mainy139=63.
   compute mainy140=63.
   compute mainy141=63.
   compute mtravy139=1.
   compute mtravy140=1.
   compute mtravy141=1.
Else if main47=46 or main47=47.
   compute avy139=5.
   compute avy140=5.
   compute avy141=5.
   compute mainy139=63.
   compute mainy140=63.
   compute mainy141=63.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=48.
   compute avy139=5.
   compute avy140=5.
   compute avy141=5.
   compute mainy139=11.
   compute mainy140=11.
   compute mainy141=11.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=49.
   compute avy139=1.
   compute avy140=1.
   compute avy141=1.
   compute mainy139=5.
   compute mainy140=5.
   compute mainy141=5.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=50.
   compute avy139=8.
   compute avy140=8.
   compute avy141=8.
   compute mainy139=21.
   compute mainy140=21.
   compute mainy141=21.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=51.
   compute avy139=11.
   compute avy140=11.
   compute avy141=11.
   compute mainy139=28.
   compute mainy140=28.
   compute mainy141=28.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=52.
   compute avy139=11.
   compute avy140=11.
   compute avy141=11.
   compute mainy139=30.
   compute mainy140=30.
   compute mainy141=30.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=53.
   compute avy139=6.
   compute avy140=6.
   compute avy141=6.
   compute mainy139=18.
   compute mainy140=18.
   compute mainy141=18.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=54.
   compute avy139=7.
   compute avy140=7.
   compute avy141=7.
   compute mainy139=20.
   compute mainy140=20.
   compute mainy141=20.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=55.
   compute avy139=8.
   compute avy140=8.
   compute avy141=8.
   compute mainy139=22.
   compute mainy140=22.
   compute mainy141=22.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=56.
   compute avy139=8.
   compute avy140=8.
   compute avy141=8.
   compute mainy139=27.
   compute mainy140=27.
   compute mainy141=27.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=57.
   compute avy139=10.
   compute avy140=10.
   compute avy141=10.
   compute mainy139=24.
   compute mainy140=24.
   compute mainy141=24.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=58.
   compute avy139=12.
   compute avy140=12.
   compute avy141=12.
   compute mainy139=66.
   compute mainy140=66.
   compute mainy141=66.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=59.
   compute avy139=7.
   compute avy140=7.
   compute avy141=13.
   compute mainy139=23.
   compute mainy140=23.
   compute mainy141=4.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=60.
   compute avy139=9.
   compute avy140=9.
   compute avy141=9.
   compute mainy139=46.
   compute mainy140=46.
   compute mainy141=46.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=61.
   compute avy139=33.
   compute avy140=33.
   compute avy141=33.
   compute mainy139=16.
   compute mainy140=16.
   compute mainy141=16.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=62.
   compute avy139=34.
   compute avy140=34.
   compute avy141=34.
   compute mainy139=56.
   compute mainy140=56.
   compute mainy141=56.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=63.
   compute avy139=35.
   compute avy140=35.
   compute avy141=35.
   compute mainy139=56.
   compute mainy140=56.
   compute mainy141=56.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=64.
   compute avy139=40.
   compute avy140=40.
   compute avy141=40.
   compute mainy139=54.
   compute mainy140=54.
   compute mainy141=54.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=65.
   compute avy139=39.
   compute avy140=39.
   compute avy141=39.
   compute mainy139=54.
   compute mainy140=54.
   compute mainy141=54.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=66.
   compute avy139=38.
   compute avy140=38.
   compute avy141=38.
   compute mainy139=48.
   compute mainy140=48.
   compute mainy141=48.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=67.
   compute avy139=37.
   compute avy140=37.
   compute avy141=37.
   compute mainy139=49.
   compute mainy140=49.
   compute mainy141=49.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=68.
   compute avy139=32.
   compute avy140=32.
   compute avy141=32.
   compute mainy139=57.
   compute mainy140=57.
   compute mainy141=57.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=69.
   compute avy139=36.
   compute avy140=36.
   compute avy141=36.
   compute mainy139=55.
   compute mainy140=55.
   compute mainy141=55.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=70.
   compute avy139=25.
   compute avy140=25.
   compute avy141=25.
   compute mainy139=35.
   compute mainy140=35.
   compute mainy141=35.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=71.
   compute avy139=29.
   compute avy140=29.
   compute avy141=29.
   compute mainy139=48.
   compute mainy140=48.
   compute mainy141=48.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=72.
   compute avy139=24.
   compute avy140=24.
   compute avy141=24.
   compute mainy139=37.
   compute mainy140=37.
   compute mainy141=37.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=73.
   compute avy139=23.
   compute avy140=23.
   compute avy141=23.
   compute mainy139=33.
   compute mainy140=33.
   compute mainy141=33.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=74.
   compute avy139=26.
   compute avy140=26.
   compute avy141=26.
   compute mainy139=40.
   compute mainy140=40.
   compute mainy141=40.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=75 or main47=39.
   compute avy139=27.
   compute avy140=27.
   compute avy141=27.
   compute mainy139=39.
   compute mainy140=39.
   compute mainy141=39.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=76.
   compute avy139=25.
   compute avy140=25.
   compute avy141=25.
   compute mainy139=40.
   compute mainy140=40.
   compute mainy141=40.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=77 or main47=38.
   compute avy139=28.
   compute avy140=28.
   compute avy141=28.
   compute mainy139=39.
   compute mainy140=39.
   compute mainy141=39.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=78.
   compute avy139=22.
   compute avy140=22.
   compute avy141=22.
   compute mainy139=34.
   compute mainy140=34.
   compute mainy141=34.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=79.
   compute avy139=4.
   compute avy140=4.
   compute avy141=4.
   compute mainy139=17.
   compute mainy140=17.
   compute mainy141=17.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=80.
   compute avy139=18.
   compute avy140=18.
   compute avy141=18.
   compute mainy139=38.
   compute mainy140=38.
   compute mainy141=38.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=81.
   compute avy139=19.
   compute avy140=19.
   compute avy141=19.
   compute mainy139=42.
   compute mainy140=42.
   compute mainy141=42.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=82.
   compute avy139=20.
   compute avy140=20.
   compute avy141=20.
   compute mainy139=36.
   compute mainy140=36.
   compute mainy141=36.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=83.
   compute avy139=21.
   compute avy140=21.
   compute avy141=21.
   compute mainy139=43.
   compute mainy140=43.
   compute mainy141=43.
   compute mtravy139=3.
   compute mtravy140=3.
   compute mtravy141=3.
Else if main47=84.
   compute avy139=18.
   compute avy140=18.
   compute avy141=18.
   compute mainy139=45.
   compute mainy140=45.
   compute mainy141=45.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=85 or main47=86.
   compute avy139=18.
   compute avy140=18.
   compute avy141=18.
   compute mainy139=38.
   compute mainy140=38.
   compute mainy141=38.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=89.
   compute avy139=17.
   compute avy140=17.
   compute avy141=17.
   compute mainy139=68.
   compute mainy140=68.
   compute mainy141=68.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=90.
   compute avy139=17.
   compute avy140=17.
   compute avy141=17.
   compute mainy139=62.
   compute mainy140=62.
   compute mainy141=62.
   compute mtravy139=5.
   compute mtravy140=5.
   compute mtravy141=5.
Else if main47=91.
   compute avy139=40.
   compute avy140=40.
   compute avy141=40.
   compute mainy139=51.
   compute mainy140=51.
   compute mainy141=51.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=92.
   compute avy139=31.
   compute avy140=31.
   compute avy141=31.
   compute mainy139=59.
   compute mainy140=59.
   compute mainy141=59.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
Else if main47=93.
   compute avy139=41.
   compute avy140=41.
   compute avy141=41.
   compute mainy139=41.
   compute mainy140=41.
   compute mainy141=41.
   compute mtravy139=-7.
   compute mtravy140=-7.
   compute mtravy141=-7.
End if.
freq avy139 avy140 avy141 mainy139 mainy140 mainy141 mtravy139 mtravy140 mtravy141.

Do if main48>95.
   compute avy142=41.
   compute avy143=41.
   compute avy144=41.
   compute mainy142=69.
   compute mainy143=69.
   compute mainy144=69.
   compute mtravy142=-8.
   compute mtravy143=-8.
   compute mtravy144=-8.
Else if main48=1.
   compute avy142=16.
   compute avy143=16.
   compute avy144=16.
   compute mainy142=2.
   compute mainy143=2.
   compute mainy144=2.
   compute mtravy142=-7. 
   compute mtravy143=-7. 
   compute mtravy144=-7. 
Else if main48=2.
   compute avy142=16.
   compute avy143=16.
   compute avy144=16.
   compute mainy142=2.
   compute mainy143=2.
   compute mainy144=2.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=3 or main48=4.
   compute avy142=16.
   compute avy143=16.
   compute avy144=16.
   compute mainy142=2.
   compute mainy143=2.
   compute mainy144=2.
   compute mtravy142=-7. 
   compute mtravy143=-7. 
   compute mtravy144=-7. 
Else if main48=5.
   compute avy142=16.
   compute avy143=16.
   compute avy144=16.
   compute mainy142=3.
   compute mainy143=3.
   compute mainy144=3.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=6.
   compute avy142=13.
   compute avy143=13.
   compute avy144=13.
   compute mainy142=1.
   compute mainy143=1.
   compute mainy144=1.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48>6 and main48<20.
   compute avy142=30.
   compute avy143=30.
   compute avy144=30.
   compute mainy142=58.
   compute mainy143=58.
   compute mainy144=58.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48>19 and main48<30.
   compute avy142=31.
   compute avy143=31.
   compute avy144=31.
   compute mainy142=59.
   compute mainy143=59.
   compute mainy144=59.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48>29 and main48<34.
   compute avy142=13.
   compute avy143=13.
   compute avy144=13.
   compute mainy142=4.
   compute mainy143=4.
   compute mainy144=4.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=34 or main48=35 or ((main48=38 or main48=39) and loc48=1).
   compute avy142=15.
   compute avy143=15.
   compute avy144=15.
   compute mainy142=6.
   compute mainy143=6.
   compute mainy144=6.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=36.
   compute avy142=14.
   compute avy143=14.
   compute avy144=14.
   compute mainy142=25.
   compute mainy143=25.
   compute mainy144=25.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=37.
   compute avy142=12.
   compute avy143=12.
   compute avy144=12.
   compute mainy142=67.
   compute mainy143=67.
   compute mainy144=67.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=40.
  compute avy142=1.
   compute avy143=1.
   compute avy144=1.
   compute mainy142=13.
   compute mainy143=13.
   compute mainy144=13.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=41.
   compute avy142=1.
   compute avy143=1.
   compute avy144=1.
   compute mainy142=7.
   compute mainy143=7.
   compute mainy144=7.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=42.
   compute avy142=4.
   compute avy143=4.
   compute avy144=4.
   compute mainy142=15.
   compute mainy143=15.
   compute mainy144=15.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=43.
   compute avy142=2.
   compute avy143=2.
   compute avy144=2.
   compute mainy142=8.
   compute mainy143=8.
   compute mainy144=8.
   compute mtravy142=-7.
   compute mtravy143=-7.
  compute mtravy144=-7.
Else if main48=44.
   compute avy142=3.
   compute avy143=3.
   compute avy144=3.
   compute mainy142=9.
   compute mainy143=9.
   compute mainy144=9.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=45.
   compute avy142=5.
   compute avy143=5.
   compute avy144=5.
   compute mainy142=63.
   compute mainy143=63.
   compute mainy144=63.
   compute mtravy142=1.
   compute mtravy143=1.
   compute mtravy144=1.
Else if main48=46 or main48=47.
   compute avy142=5.
   compute avy143=5.
   compute avy144=5.
   compute mainy142=63.
   compute mainy143=63.
   compute mainy144=63.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=48.
   compute avy142=5.
   compute avy143=5.
   compute avy144=5.
   compute mainy142=11.
   compute mainy143=11.
   compute mainy144=11.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=49.
   compute avy142=1.
   compute avy143=1.
   compute avy144=1.
   compute mainy142=5.
   compute mainy143=5.
   compute mainy144=5.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=50.
   compute avy142=8.
   compute avy143=8.
   compute avy144=8.
   compute mainy142=21.
   compute mainy143=21.
   compute mainy144=21.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=51.
   compute avy142=11.
   compute avy143=11.
   compute avy144=11.
   compute mainy142=28.
   compute mainy143=28.
   compute mainy144=28.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=52.
   compute avy142=11.
   compute avy143=11.
   compute avy144=11.
   compute mainy142=30.
   compute mainy143=30.
   compute mainy144=30.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=53.
   compute avy142=6.
   compute avy143=6.
   compute avy144=6.
   compute mainy142=18.
   compute mainy143=18.
   compute mainy144=18.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=54.
   compute avy142=7.
   compute avy143=7.
   compute avy144=7.
   compute mainy142=20.
   compute mainy143=20.
   compute mainy144=20.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=55.
   compute avy142=8.
   compute avy143=8.
   compute avy144=8.
   compute mainy142=22.
   compute mainy143=22.
   compute mainy144=22.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=56.
   compute avy142=8.
   compute avy143=8.
   compute avy144=8.
   compute mainy142=27.
   compute mainy143=27.
   compute mainy144=27.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=57.
   compute avy142=10.
   compute avy143=10.
   compute avy144=10.
   compute mainy142=24.
   compute mainy143=24.
   compute mainy144=24.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=58.
   compute avy142=12.
   compute avy143=12.
   compute avy144=12.
   compute mainy142=66.
   compute mainy143=66.
   compute mainy144=66.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=59.
   compute avy142=7.
   compute avy143=7.
   compute avy144=13.
   compute mainy142=23.
   compute mainy143=23.
   compute mainy144=4.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=60.
   compute avy142=9.
   compute avy143=9.
   compute avy144=9.
   compute mainy142=46.
   compute mainy143=46.
   compute mainy144=46.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=61.
   compute avy142=33.
   compute avy143=33.
   compute avy144=33.
   compute mainy142=16.
   compute mainy143=16.
   compute mainy144=16.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=62.
   compute avy142=34.
   compute avy143=34.
   compute avy144=34.
   compute mainy142=56.
   compute mainy143=56.
   compute mainy144=56.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=63.
   compute avy142=35.
   compute avy143=35.
   compute avy144=35.
   compute mainy142=56.
   compute mainy143=56.
   compute mainy144=56.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=64.
   compute avy142=40.
   compute avy143=40.
   compute avy144=40.
   compute mainy142=54.
   compute mainy143=54.
   compute mainy144=54.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=65.
   compute avy142=39.
   compute avy143=39.
   compute avy144=39.
   compute mainy142=54.
   compute mainy143=54.
   compute mainy144=54.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=66.
   compute avy142=38.
   compute avy143=38.
   compute avy144=38.
   compute mainy142=48.
   compute mainy143=48.
   compute mainy144=48.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=67.
   compute avy142=37.
   compute avy143=37.
   compute avy144=37.
   compute mainy142=49.
   compute mainy143=49.
   compute mainy144=49.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=68.
   compute avy142=32.
   compute avy143=32.
   compute avy144=32.
   compute mainy142=57.
   compute mainy143=57.
   compute mainy144=57.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=69.
   compute avy142=36.
   compute avy143=36.
   compute avy144=36.
   compute mainy142=55.
   compute mainy143=55.
   compute mainy144=55.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=70.
   compute avy142=25.
   compute avy143=25.
   compute avy144=25.
   compute mainy142=35.
   compute mainy143=35.
   compute mainy144=35.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=71.
   compute avy142=29.
   compute avy143=29.
   compute avy144=29.
   compute mainy142=48.
   compute mainy143=48.
   compute mainy144=48.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=72.
   compute avy142=24.
   compute avy143=24.
   compute avy144=24.
   compute mainy142=37.
   compute mainy143=37.
   compute mainy144=37.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=73.
   compute avy142=23.
   compute avy143=23.
   compute avy144=23.
   compute mainy142=33.
   compute mainy143=33.
   compute mainy144=33.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=74.
   compute avy142=26.
   compute avy143=26.
   compute avy144=26.
   compute mainy142=40.
   compute mainy143=40.
   compute mainy144=40.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=75 or main48=39.
   compute avy142=27.
   compute avy143=27.
   compute avy144=27.
   compute mainy142=39.
   compute mainy143=39.
   compute mainy144=39.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=76.
   compute avy142=25.
   compute avy143=25.
   compute avy144=25.
   compute mainy142=40.
   compute mainy143=40.
   compute mainy144=40.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=77 or main48=38.
   compute avy142=28.
   compute avy143=28.
   compute avy144=28.
   compute mainy142=39.
   compute mainy143=39.
   compute mainy144=39.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=78.
   compute avy142=22.
   compute avy143=22.
   compute avy144=22.
   compute mainy142=34.
   compute mainy143=34.
   compute mainy144=34.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=79.
   compute avy142=4.
   compute avy143=4.
   compute avy144=4.
   compute mainy142=17.
   compute mainy143=17.
   compute mainy144=17.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=80.
   compute avy142=18.
   compute avy143=18.
   compute avy144=18.
   compute mainy142=38.
   compute mainy143=38.
   compute mainy144=38.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=81.
   compute avy142=19.
   compute avy143=19.
   compute avy144=19.
   compute mainy142=42.
   compute mainy143=42.
   compute mainy144=42.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=82.
   compute avy142=20.
   compute avy143=20.
   compute avy144=20.
   compute mainy142=36.
   compute mainy143=36.
   compute mainy144=36.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=83.
   compute avy142=21.
   compute avy143=21.
   compute avy144=21.
   compute mainy142=43.
   compute mainy143=43.
   compute mainy144=43.
   compute mtravy142=3.
   compute mtravy143=3.
   compute mtravy144=3.
Else if main48=84.
   compute avy142=18.
   compute avy143=18.
   compute avy144=18.
   compute mainy142=45.
   compute mainy143=45.
   compute mainy144=45.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=85 or main48=86.
   compute avy142=18.
   compute avy143=18.
   compute avy144=18.
   compute mainy142=38.
   compute mainy143=38.
   compute mainy144=38.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=89.
   compute avy142=17.
   compute avy143=17.
   compute avy144=17.
   compute mainy142=68.
   compute mainy143=68.
   compute mainy144=68.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=90.
   compute avy142=17.
   compute avy143=17.
   compute avy144=17.
   compute mainy142=62.
   compute mainy143=62.
   compute mainy144=62.
   compute mtravy142=5.
   compute mtravy143=5.
   compute mtravy144=5.
Else if main48=91.
   compute avy142=40.
   compute avy143=40.
   compute avy144=40.
   compute mainy142=51.
   compute mainy143=51.
   compute mainy144=51.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=92.
   compute avy142=31.
   compute avy143=31.
   compute avy144=31.
   compute mainy142=59.
   compute mainy143=59.
   compute mainy144=59.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
Else if main48=93.
   compute avy142=41.
   compute avy143=41.
   compute avy144=41.
   compute mainy142=41.
   compute mainy143=41.
   compute mainy144=41.
   compute mtravy142=-7.
   compute mtravy143=-7.
   compute mtravy144=-7.
End if.
freq avy142 avy143 avy144 mainy142 mainy143 mainy144 mtravy142 mtravy143 mtravy144.

*code location codes.
temp.
select if main31=36 or main31=57.
freq loc31. 

temp.
select if main21=43.
freq loc21. 

*some implied location codes in activity codes do not align with location
*codes, but most align as expected. As travel coded in secondary activity
*addressed in the activity codes above, use the 10 minute sequence variables
*to identify instances of travelling as location. Here code all other location
*categories in an interim half-hour time slot variable sequence.

Do repeat a=loc1 to loc48 / b=main1 to main48 / c=sec1 to sec48 /d=loca1 to loca48.
   Do if a=1.
      compute d=1.
   Else if b=43 or b=59 or b=66.
      compute d=1.
   Else if b=41 or b=44 or b=49.
      compute d=3.
   Else if b=42 or b=79.
      compute d=4.
   Else if b=36 or b=57.
      compute d=5.
   Else if b=75 or b=77.
      compute d=6.
   Else if b=78.
      compute d=7.
   Else if a<8 or (b=70 or b=71 or b=72 or b=73 or b=74 or b=76 or b=80
      or b=84 or b=85 or b=86).
      compute d=9.
   Else if c=43 or c=59 or c=66.
      compute d=1.
   Else if c=41 or c=44 or c=49.
      compute d=3.
   Else if c=36 or c=57.
      compute d=5.
   Else if c=75 or c=77.
      compute d=6.
   Else if c=78.
      compute d=7.
   Else if c=70 or c=71 or c=72 or c=73 or c=74 or c=76 or c=80
      or c=84 or c=85 or c=86.
      compute d=9.
   Else.
      compute d=-8.
   End if.
End repeat.
freq loca1 to loca48.

compute elocy1=loca1.
compute elocy2=loca1.
compute elocy3=loca1.
compute elocy4=loca2.
compute elocy5=loca2.
compute elocy6=loca2.
compute elocy7=loca3.
compute elocy8=loca3.
compute elocy9=loca3.
compute elocy10=loca4.
compute elocy11=loca4.
compute elocy12=loca4.
compute elocy13=loca5.
compute elocy14=loca5.
compute elocy15=loca5.
compute elocy16=loca6.
compute elocy17=loca6.
compute elocy18=loca6.
compute elocy19=loca7.
compute elocy20=loca7.
compute elocy21=loca7.
compute elocy22=loca8.
compute elocy23=loca8.
compute elocy24=loca8.
compute elocy25=loca9.
compute elocy26=loca9.
compute elocy27=loca9.
compute elocy28=loca10.
compute elocy29=loca10.
compute elocy30=loca10.
compute elocy31=loca11.
compute elocy32=loca11.
compute elocy33=loca11.
compute elocy34=loca12.
compute elocy35=loca12.
compute elocy36=loca12.
compute elocy37=loca13.
compute elocy38=loca13.
compute elocy39=loca13.
compute elocy40=loca14.
compute elocy41=loca14.
compute elocy42=loca14.
compute elocy43=loca15.
compute elocy44=loca15.
compute elocy45=loca15.
compute elocy46=loca16.
compute elocy47=loca16.
compute elocy48=loca16.
compute elocy49=loca17.
compute elocy50=loca17.
compute elocy51=loca17.
compute elocy52=loca18.
compute elocy53=loca18.
compute elocy54=loca18.
compute elocy55=loca19.
compute elocy56=loca19.
compute elocy57=loca19.
compute elocy58=loca20.
compute elocy59=loca20.
compute elocy60=loca20.
compute elocy61=loca21.
compute elocy62=loca21.
compute elocy63=loca21.
compute elocy64=loca22.
compute elocy65=loca22.
compute elocy66=loca22.
compute elocy67=loca23.
compute elocy68=loca23.
compute elocy69=loca23.
compute elocy70=loca24.
compute elocy71=loca24.
compute elocy72=loca24.
compute elocy73=loca25.
compute elocy74=loca25.
compute elocy75=loca25.
compute elocy76=loca26.
compute elocy77=loca26.
compute elocy78=loca26.
compute elocy79=loca27.
compute elocy80=loca27.
compute elocy81=loca27.
compute elocy82=loca28.
compute elocy83=loca28.
compute elocy84=loca28.
compute elocy85=loca29.
compute elocy86=loca29.
compute elocy87=loca29.
compute elocy88=loca30.
compute elocy89=loca30.
compute elocy90=loca30.
compute elocy91=loca31.
compute elocy92=loca31.
compute elocy93=loca31.
compute elocy94=loca32.
compute elocy95=loca32.
compute elocy96=loca32.
compute elocy97=loca33.
compute elocy98=loca33.
compute elocy99=loca33.
compute elocy100=loca34.
compute elocy101=loca34.
compute elocy102=loca34.
compute elocy103=loca35.
compute elocy104=loca35.
compute elocy105=loca35.
compute elocy106=loca36.
compute elocy107=loca36.
compute elocy108=loca36.
compute elocy109=loca37.
compute elocy110=loca37.
compute elocy111=loca37.
compute elocy112=loca38.
compute elocy113=loca38.
compute elocy114=loca38.
compute elocy115=loca39.
compute elocy116=loca39.
compute elocy117=loca39.
compute elocy118=loca40.
compute elocy119=loca40.
compute elocy120=loca40.
compute elocy121=loca41.
compute elocy122=loca41.
compute elocy123=loca41.
compute elocy124=loca42.
compute elocy125=loca42.
compute elocy126=loca42.
compute elocy127=loca43.
compute elocy128=loca43.
compute elocy129=loca43.
compute elocy130=loca44.
compute elocy131=loca44.
compute elocy132=loca44.
compute elocy133=loca45.
compute elocy134=loca45.
compute elocy135=loca45.
compute elocy136=loca46.
compute elocy137=loca46.
compute elocy138=loca46.
compute elocy139=loca47.
compute elocy140=loca47.
compute elocy141=loca47.
compute elocy142=loca48.
compute elocy143=loca48.
compute elocy144=loca48.
execute.

do repeat a=mainy1 to mainy144 /b=s1 to s144 /c=elocy1 to elocy144.
   If a=11 or b=11 or a=43 or b=43 or (a>61 and a<69) or (b>61 and b<69) c=8.
end repeat.
desc elocy1 to elocy144.

cro mtravy76 by elocy76.

*correct missing mode of transport to -7 not relevant where location
*now is at home.

do repeat a=mtravy1 to mtravy144 /b=elocy1 to elocy144.
   If a=-8 and b=1 a=-7.
end repeat.
cro mtravy76 by elocy76.

*code secondary activities into harmonised codes. First check
*for instances of original activity code 1, 2, 59, 38, 39, 45, 
*46 & 47 in the secondary activity codes- these are complex to
*code in main activity, and if not found in secondary activity
*there will be less complexity needed.
compute test=0.
Do repeat a=sec1 to sec48.
  if a=1 or a=2 or a=59 or a=38 or a=39 or a=45 or a=46 or a=47
  test=a.
end repeat.
freq test.
*instances of all of these present. see what main activity is in
*each case.
compute test=0.
Do repeat a=sec1 to sec48 / b=main1 to main48.
  if a=1 test=b.
end repeat.
freq test.
*ill in bed as secondary activity occurs alongside entertain guests at
*home, code this is relax (55).
compute test=0.
Do repeat a=sec1 to sec48 / b=main1 to main48.
  if a=2 test=b.
end repeat.
freq test.
*2 - just in bed, occurs with a large number of activities,
*code this as relax as secondary activity rather than as sleep.
compute test=0.
Do repeat a=sec1 to sec48 / b=main1 to main48.
  if a=59 test=b.
end repeat.
freq test.
*code 59 accompanies a range of main activities, code all these
*as secondary personal care.
compute test=0.
Do repeat a=sec1 to sec48 / b=main1 to main48.
  if a=38 or a=39 test=b.
end repeat.
freq test.
*when eat or drink is a secondary activity, code as MTUS code 6
*for eat or drink, but code location before coding secondary
*activity where secondary activity reveals pub or restaurant.
compute test=0.
Do repeat a=sec1 to sec48 / b=main1 to main48.
  if a=45 or a=46 or a=47 test=b.
end repeat.
freq test.
compute test=0.
Do repeat a=sec1 to sec48 / b= mtmark1 to mtmark48.
  if a=45 or a=46 or a=47 test=b.
end repeat.
freq test.
*code these activities as no secondary activity as these will be
*picked up in the appropriate travel code (travel to work or travel
*to school depending on the next location) in the pick-up of missing
*travel.

Recode sec1 to sec48 (0=0) (1 thru 2=55) (95 thru hi=69) (3=2) 
   (4=2) (5=3) (6=1) (7 thru 19=58) (20 thru 29=59) (30 thru 33=4)
   (34 thru 35=6) (36=25) (37=67) (38 thru 39=6) (40=13) (41=7) 
   (42=15) (43=8) (44=9) (45 thru 47=0) (48=11) (49=5) (50=21) 
   (51=28) (52=30) (53=18) (54=20) (55=22) (56=27) (57=24) (58=66) 
   (59=4) (60=46) (61=16) (62=56) (63=56) (64=54) (65=54) (66=48) 
   (67=49) (68=57) (69=55) (70=35) (71=48) (72=37) (73=33) (74=40)
   (75=39) (76=40) (77=39) (78=34) (79=17) (80=38) (81=42) (82=36) 
   (83=43) (84=45) (85 thru 86=38) (89=68) (90=62) (91=51) (92=59) 
   (93=41).

compute s1=sec1.
compute s2=sec1.
compute s3=sec1.
compute s4=sec2.
compute s5=sec2.
compute s6=sec2.
compute s7=sec3.
compute s8=sec3.
compute s9=sec3.
compute s10=sec4.
compute s11=sec4.
compute s12=sec4.
compute s13=sec5.
compute s14=sec5.
compute s15=sec5.
compute s16=sec6.
compute s17=sec6.
compute s18=sec6.
compute s19=sec7.
compute s20=sec7.
compute s21=sec7.
compute s22=sec8.
compute s23=sec8.
compute s24=sec8.
compute s25=sec9.
compute s26=sec9.
compute s27=sec9.
compute s28=sec10.
compute s29=sec10.
compute s30=sec10.
compute s31=sec11.
compute s32=sec11.
compute s33=sec11.
compute s34=sec12.
compute s35=sec12.
compute s36=sec12.
compute s37=sec13.
compute s38=sec13.
compute s39=sec13.
compute s40=sec14.
compute s41=sec14.
compute s42=sec14.
compute s43=sec15.
compute s44=sec15.
compute s45=sec15.
compute s46=sec16.
compute s47=sec16.
compute s48=sec16.
compute s49=sec17.
compute s50=sec17.
compute s51=sec17.
compute s52=sec18.
compute s53=sec18.
compute s54=sec18.
compute s55=sec19.
compute s56=sec19.
compute s57=sec19.
compute s58=sec20.
compute s59=sec20.
compute s60=sec20.
compute s61=sec21.
compute s62=sec21.
compute s63=sec21.
compute s64=sec22.
compute s65=sec22.
compute s66=sec22.
compute s67=sec23.
compute s68=sec23.
compute s69=sec23.
compute s70=sec24.
compute s71=sec24.
compute s72=sec24.
compute s73=sec25.
compute s74=sec25.
compute s75=sec25.
compute s76=sec26.
compute s77=sec26.
compute s78=sec26.
compute s79=sec27.
compute s80=sec27.
compute s81=sec27.
compute s82=sec28.
compute s83=sec28.
compute s84=sec28.
compute s85=sec29.
compute s86=sec29.
compute s87=sec29.
compute s88=sec30.
compute s89=sec30.
compute s90=sec30.
compute s91=sec31.
compute s92=sec31.
compute s93=sec31.
compute s94=sec32.
compute s95=sec32.
compute s96=sec32.
compute s97=sec33.
compute s98=sec33.
compute s99=sec33.
compute s100=sec34.
compute s101=sec34.
compute s102=sec34.
compute s103=sec35.
compute s104=sec35.
compute s105=sec35.
compute s106=sec36.
compute s107=sec36.
compute s108=sec36.
compute s109=sec37.
compute s110=sec37.
compute s111=sec37.
compute s112=sec38.
compute s113=sec38.
compute s114=sec38.
compute s115=sec39.
compute s116=sec39.
compute s117=sec39.
compute s118=sec40.
compute s119=sec40.
compute s120=sec40.
compute s121=sec41.
compute s122=sec41.
compute s123=sec41.
compute s124=sec42.
compute s125=sec42.
compute s126=sec42.
compute s127=sec43.
compute s128=sec43.
compute s129=sec43.
compute s130=sec44.
compute s131=sec44.
compute s132=sec44.
compute s133=sec45.
compute s134=sec45.
compute s135=sec45.
compute s136=sec46.
compute s137=sec46.
compute s138=sec46.
compute s139=sec47.
compute s140=sec47.
compute s141=sec47.
compute s142=sec48.
compute s143=sec48.
compute s144=sec48.
execute.

*get rid of some variables no longer required.

SAVE OUTFILE='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
    /drop main1 to loc48.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
    /drop mtmark1 to mtmark48 awakest awakend.

*determine how many episodes occur with recalibrated diaries.
compute nep=1.
Vector mainy= mainy1 to mainy144 / s=s1 to s144 /elocy=elocy1 to elocy144.
Loop i=1 to 143.
compute j=i+1.
   if mainy(i)~=mainy(j) or elocy(i)~=elocy(j) or s(i)~=s(j) nep=nep+1.
end loop.
freq nep.

compute lowep=0.
if nep<6 lowep=1.
cro lowep by badcase.

compute test=0.
if lowep=1 and badcase=0 test=1.
freq test.

*corrections needed.
If lowep=0 and badcase=15 badcase=5.
Do if hldid=452 and persid=1 and id=6.
   compute s30=1.
   compute s31=62.
   compute s97=62.
   compute s102=1.
   compute s103=62.
End if.
execute.

*check is adjustments have impacted any other diary quality measures. Those missing
*age, sex or day of the week clearly still bad diaries.

compute eatdrk=0.
compute trav=0.
compute rst=0.
compute pcare=0.
compute cmark=0.
compute miss=0.
compute animal=0.
compute wrk=0.

Do repeat a=mainy1 to mainy144 / b=s1 to s144 /c= mtravy1 to mtravy144 /d=elocy1 to elocy144.
   if a=69 miss=miss+10.
   if a=5 or a=6 or a=18 or a=19 or a=39 or b=5 or b=6 or b=18 or b=19 or b=39 or d=6 eatdrk=1.
   if a=11 or a=38 or (a>41 and a<48) or (a>61 and a<69) or
      b=11 or b=38 or (b>41 and b<48) or (b>61 and b<69) or c>0 trav=1.
   if a=2 or a=3 or a=12 or a=55 or b=2 or b=3 or b=12 or b=55 rst=1.
   if a=1 or a=4 or a=25 or b=1 or b=4 or b=25 pcare=1.
   if (a>26 and a<33) or a=66 or (b>26 and b<33) or b=66 cmark=1.
   if a=27 or a=47 or b=27 or b=47 animal=animal+10.
   if (a>6 and a<13) or (b>6 and b<13) wrk=wrk+10.
End repeat.
var lab animal minutes interacting with an animal.
freq eatdrk trav rst pcare cmark miss animal wrk.

compute miss2=0.
if miss>90 miss2=1.
cro miss2 by badcase.
*missing recorded time remains the same.

compute misbasic=0.
If eatdrk=0 misbasic=misbasic+1.
If trav=0   misbasic=misbasic+1.
If rst=0    misbasic=misbasic+1.
If pcare=0  misbasic=misbasic+1.
freq misbasic.

compute mbacts=0.
if misbasic>1 and cmark=0 mbacts=1.
freq mbacts.

cro mbacts by badcase.
compute test=0.
if mbacts=1 and (badcase<5 or badcase=9) test=1.
cro test by eatdrk trav rst pcare.

*variation comes from the original code for time "just in bed", which 
*often precedes travel. In the harmonised codes, this code appears
*in rest, but includes some personal care - do not adjust backwards
*but leave original calculation of this time likely including
*some personal care as well, and hence continue to count these
*cases as good diaries.
*nonetheless, there are diaries which now can move from the
*missing basic activities to the good diary category following
*the adjustments.
freq badcase.
*20076 (99.1%) good diary cases now.

compute wrk2=wrk.
if badcase>0 wrk2=0.
compute good=0.
if badcase=0 good=1.
freq wrk2 good.

*create hours of work variable.
AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hldid persid
  /workhrs=sum(wrk2)
  /wrkhrs=sum(wrk)
  /ngood=sum(good)
  /ndiaries = N.
freq ndiaries ngood.
*convert minutes worked to hours.
compute workhrs=workhrs/60.
compute wrkhrs=wrkhrs/60.
means workhrs wrkhrs by empstat.
*for 88.3% of cases with 7 good diaries, workhrs represents the hours
*worked in the diary week.
cro ngood by month day.
*for the two good diaries in September, take a day average and multiply
*by 5.
means workhrs wrkhrs by month.
If ngood=2 and month=9 workhrs=(workhrs/2)*5.
means workhrs wrkhrs by month.
*96% of diaries now have a reasonable value for workhrs.

temp.
select if ngood=6.
freq day.
*the 6 good diaries are spread throughout the week.

temp.
select if ngood=6 or ngood=5 or ngood=4.
means wrk2 by day.

*initially set fewer than all good diaries to workhrs missing.
If (month=9 and ngood<2) or (month~=9 and ngood<7) workhrs=-8.
freq workhrs.

*create variables to estimate the hours worked for cases with
*4, 5 or 6 good diaries.
compute wendmrk=0.
compute wendhr=0.
compute wdaymrk=0.
compute wdayhr=0.
if (day=1 or day=7) and good=1 wendmrk=1.
if (day=1 or day=7) and good=1 wendhr=wrk2.
if (day>1 and day<7) and good=1 wdaymrk=1.
if (day>1 and day<7) and good=1 wdayhr=wrk2.
AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=hldid persid
  /wdayhrs=sum(wdayhr)
  /wendhrs=sum(wendhr)
  /ngdwend=sum(wendmrk)
  /ngdwday=sum(wdaymrk).

temp.
select if ngood>3 and ngood<7.
freq ngdwend ngdwday.

compute test=0.
Do if (ngood>3 and ngood<7) and ngdwend>0.
   compute test=((wdayhrs/60)/ngdwday)*5 + ((wendhrs/60)/ngdwend)*2.
Else if (ngood>3 and ngood<7).
   compute test=((wdayhrs/60)/ngdwday)*5.
End if.
freq test.
means test by ngood.
if test>0 and workhrs=-8 workhrs=test.
freq workhrs.

*create final time use variables.
vector clocks(41) / time(41) / start(41) /end(41) / main(41) / av(41)
   / sec(41) / eloc(41) / mtrav(41).
do repeat a=clocks1 to clocks41 / b= time1 to time41 / c=start1 to start41
   /d= end1 to end41 /e = main1 to main41 /f= av1 to av41
   /g= sec1 to sec41 /h= eloc1 to eloc41 /i= mtrav1 to mtrav41.
   compute a=0.
   compute b=0.
   compute c=0.
   compute d=0.
   compute e=0.
   compute f=0.
   compute g=0.
   compute h=0.
   compute i=0.
end repeat.

compute clocks1=4.
compute start1=1.
compute time1=10.
compute main1=mainy1.
compute av1=avy1.
compute sec1=s1.
compute eloc1=elocy1.
compute mtrav1=mtravy1.
freq start1 time1 time10 main1.

*compute end times.
if nep=1 end1=1440.
if nep=2 end2=1440.
if nep=3 end3=1440.
if nep=4 end4=1440.
if nep=5 end5=1440.
if nep=6 end6=1440.
if nep=7 end7=1440.
if nep=8 end8=1440.
if nep=9 end9=1440.
if nep=10 end10=1440.
if nep=11 end11=1440.
if nep=12 end12=1440.
if nep=13 end13=1440.
if nep=14 end14=1440.
if nep=15 end15=1440.
if nep=16 end16=1440.
if nep=17 end17=1440.
if nep=18 end18=1440.
if nep=19 end19=1440.
if nep=20 end20=1440.
if nep=21 end21=1440.
if nep=22 end22=1440.
if nep=23 end23=1440.
if nep=24 end24=1440.
if nep=25 end25=1440.
if nep=26 end26=1440.
if nep=27 end27=1440.
if nep=28 end28=1440.
if nep=29 end29=1440.
if nep=30 end30=1440.
if nep=31 end31=1440.
if nep=32 end32=1440.
if nep=33 end33=1440.
if nep=34 end34=1440.
if nep=35 end35=1440.
if nep=36 end36=1440.
if nep=37 end37=1440.
if nep=38 end38=1440.
if nep=39 end39=1440.
if nep=40 end40=1440.
if nep=41 end41=1440.

*to not completely overload SPSS, do the filling in in two batches. 96.1% of 
*diaries have 30 or fewer episodes. Do up to 30 episodes for these diaries,
*then up to 41 episodes for the remaining 3.6%.

Do if nep<31. 
   vector mainy=mainy1 to mainy144 /avy=avy1 to avy144 / s=s1 to s144 
   /elocy=elocy1 to elocy144 /mtravy=mtravy1 to mtravy144.
   Loop i=1 to 143.
   compute j=i+1.
      Do if main2=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time1=time1+10.
      Else if main2=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main2=mainy(j).
         compute av2=avy(j).
         compute sec2=s(j).
         compute eloc2=elocy(j).
         compute mtrav2=mtravy(j).
         compute start2=j*10-10.
         compute time2=10.
         compute end1=j*10-10.
      Else if main3=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time2=time2+10.
      Else if main3=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main3=mainy(j).
         compute av3=avy(j).
         compute sec3=s(j).
         compute eloc3=elocy(j).
         compute mtrav3=mtravy(j).
         compute start3=j*10-10.
         compute time3=10.
         compute end2=j*10-10.
      Else if main4=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time3=time3+10.
      Else if main4=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main4=mainy(j).
         compute av4=avy(j).
         compute sec4=s(j).
         compute eloc4=elocy(j).
         compute mtrav4=mtravy(j).
         compute start4=j*10-10.
         compute time4=10.
         compute end3=j*10-10.
      Else if main5=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time4=time4+10.
      Else if main5=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main5=mainy(j).
         compute av5=avy(j).
         compute sec5=s(j).
         compute eloc5=elocy(j).
         compute mtrav5=mtravy(j).
         compute start5=j*10-10.
         compute time5=10.
         compute end4=j*10-10.
      Else if main6=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time5=time5+10.
      Else if main6=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main6=mainy(j).
         compute av6=avy(j).
         compute sec6=s(j).
         compute eloc6=elocy(j).
         compute mtrav6=mtravy(j).
         compute start6=j*10-10.
         compute time6=10.
         compute end5=j*10-10.
      Else if main7=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time6=time6+10.
      Else if main7=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main7=mainy(j).
         compute av7=avy(j).
         compute sec7=s(j).
         compute eloc7=elocy(j).
         compute mtrav7=mtravy(j).
         compute start7=j*10-10.
         compute time7=10.
         compute end6=j*10-10.
      Else if main8=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time7=time7+10.
      Else if main8=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main8=mainy(j).
         compute av8=avy(j).
         compute sec8=s(j).
         compute eloc8=elocy(j).
         compute mtrav8=mtravy(j).
         compute start8=j*10-10.
         compute time8=10.
         compute end7=j*10-10.
      Else if main9=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time8=time8+10.
      Else if main9=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main9=mainy(j).
         compute av9=avy(j).
         compute sec9=s(j).
         compute eloc9=elocy(j).
         compute mtrav9=mtravy(j).
         compute start9=j*10-10.
         compute time9=10.
         compute end8=j*10-10.
      Else if main10=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time9=time9+10.
      Else if main10=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main10=mainy(j).
         compute av10=avy(j).
         compute sec10=s(j).
         compute eloc10=elocy(j).
         compute mtrav10=mtravy(j).
         compute start10=j*10-10.
         compute time10=10.
         compute end9=j*10-10.
      Else if main11=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time10=time10+10.
      Else if main11=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main11=mainy(j).
         compute av11=avy(j).
         compute sec11=s(j).
         compute eloc11=elocy(j).
         compute mtrav11=mtravy(j).
         compute start11=j*10-10.
         compute time11=10.
         compute end10=j*10-10.
      Else if main12=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time11=time11+10.
      Else if main12=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main12=mainy(j).
         compute av12=avy(j).
         compute sec12=s(j).
         compute eloc12=elocy(j).
         compute mtrav12=mtravy(j).
         compute start12=j*10-10.
         compute time12=10.
         compute end11=j*10-10.
      Else if main13=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time12=time12+10.
      Else if main13=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main13=mainy(j).
         compute av13=avy(j).
         compute sec13=s(j).
         compute eloc13=elocy(j).
         compute mtrav13=mtravy(j).
         compute start13=j*10-10.
         compute time13=10.
         compute end12=j*10-10.
      Else if main14=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time13=time13+10.
      Else if main14=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main14=mainy(j).
         compute av14=avy(j).
         compute sec14=s(j).
         compute eloc14=elocy(j).
         compute mtrav14=mtravy(j).
         compute start14=j*10-10.
         compute time14=10.
         compute end13=j*10-10.
      Else if main15=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time14=time14+10.
      Else if main15=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main15=mainy(j).
         compute av15=avy(j).
         compute sec15=s(j).
         compute eloc15=elocy(j).
         compute mtrav15=mtravy(j).
         compute start15=j*10-10.
         compute time15=10.
         compute end14=j*10-10.
      Else if main16=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time15=time15+10.
      Else if main16=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main16=mainy(j).
         compute av16=avy(j).
         compute sec16=s(j).
         compute eloc16=elocy(j).
         compute mtrav16=mtravy(j).
         compute start16=j*10-10.
         compute time16=10.
         compute end15=j*10-10.
      Else if main17=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time16=time16+10.
      Else if main17=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main17=mainy(j).
         compute av17=avy(j).
         compute sec17=s(j).
         compute eloc17=elocy(j).
         compute mtrav17=mtravy(j).
         compute start17=j*10-10.
         compute time17=10.
         compute end16=j*10-10.
      Else if main18=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time17=time17+10.
      Else if main18=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main18=mainy(j).
         compute av18=avy(j).
         compute sec18=s(j).
         compute eloc18=elocy(j).
         compute mtrav18=mtravy(j).
         compute start18=j*10-10.
         compute time18=10.
         compute end17=j*10-10.
      Else if main19=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time18=time18+10.
      Else if main19=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main19=mainy(j).
         compute av19=avy(j).
         compute sec19=s(j).
         compute eloc19=elocy(j).
         compute mtrav19=mtravy(j).
         compute start19=j*10-10.
         compute time19=10.
         compute end18=j*10-10.
      Else if main20=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time19=time19+10.
      Else if main20=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main20=mainy(j).
         compute av20=avy(j).
         compute sec20=s(j).
         compute eloc20=elocy(j).
         compute mtrav20=mtravy(j).
         compute start20=j*10-10.
         compute time20=10.
         compute end19=j*10-10.
      Else if main21=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time20=time20+10.
      Else if main21=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main21=mainy(j).
         compute av21=avy(j).
         compute sec21=s(j).
         compute eloc21=elocy(j).
         compute mtrav21=mtravy(j).
         compute start21=j*10-10.
         compute time21=10.
         compute end20=j*10-10.
      Else if main22=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time21=time21+10.
      Else if main22=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main22=mainy(j).
         compute av22=avy(j).
         compute sec22=s(j).
         compute eloc22=elocy(j).
         compute mtrav22=mtravy(j).
         compute start22=j*10-10.
         compute time22=10.
         compute end21=j*10-10.
      Else if main23=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time22=time22+10.
      Else if main23=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main23=mainy(j).
         compute av23=avy(j).
         compute sec23=s(j).
         compute eloc23=elocy(j).
         compute mtrav23=mtravy(j).
         compute start23=j*10-10.
         compute time23=10.
         compute end22=j*10-10.
      Else if main24=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time23=time23+10.
      Else if main24=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main24=mainy(j).
         compute av24=avy(j).
         compute sec24=s(j).
         compute eloc24=elocy(j).
         compute mtrav24=mtravy(j).
         compute start24=j*10-10.
         compute time24=10.
         compute end23=j*10-10.
      Else if main25=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time24=time24+10.
      Else if main25=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main25=mainy(j).
         compute av25=avy(j).
         compute sec25=s(j).
         compute eloc25=elocy(j).
         compute mtrav25=mtravy(j).
         compute start25=j*10-10.
         compute time25=10.
         compute end24=j*10-10.
      Else if main26=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time25=time25+10.
      Else if main26=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main26=mainy(j).
         compute av26=avy(j).
         compute sec26=s(j).
         compute eloc26=elocy(j).
         compute mtrav26=mtravy(j).
         compute start26=j*10-10.
         compute time26=10.
         compute end25=j*10-10.
      Else if main27=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time26=time26+10.
      Else if main27=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main27=mainy(j).
         compute av27=avy(j).
         compute sec27=s(j).
         compute eloc27=elocy(j).
         compute mtrav27=mtravy(j).
         compute start27=j*10-10.
         compute time27=10.
         compute end26=j*10-10.
      Else if main28=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time27=time27+10.
      Else if main28=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main28=mainy(j).
         compute av28=avy(j).
         compute sec28=s(j).
         compute eloc28=elocy(j).
         compute mtrav28=mtravy(j).
         compute start28=j*10-10.
         compute time28=10.
         compute end27=j*10-10.
      Else if main29=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time28=time28+10.
      Else if main29=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main29=mainy(j).
         compute av29=avy(j).
         compute sec29=s(j).
         compute eloc29=elocy(j).
         compute mtrav29=mtravy(j).
         compute start29=j*10-10.
         compute time29=10.
         compute end28=j*10-10.
      Else if main30=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time29=time29+10.
      Else if main30=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main30=mainy(j).
         compute av30=avy(j).
         compute sec30=s(j).
         compute eloc30=elocy(j).
         compute mtrav30=mtravy(j).
         compute start30=j*10-10.
         compute time30=10.
         compute end29=j*10-10.
      Else if mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time30=time30+10.
      End if.
End loop.
End if.
compute tottime=sum(time1 to time41).
freq tottime.

compute test=0.
if nep=28 test=end28-start28.
temp.
select if test>0.
cro test by time28.
*confirmation that the time variable has calculated correctly.

*now compute the episode variables for the diaries with 31+ episodes.
Do if nep>30. 
   vector mainy=mainy1 to mainy144 /avy=avy1 to avy144 / s=s1 to s144 
   /elocy=elocy1 to elocy144 /mtravy=mtravy1 to mtravy144.
   Loop i=1 to 143.
   compute j=i+1.
      Do if main2=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time1=time1+10.
      Else if main2=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main2=mainy(j).
         compute av2=avy(j).
         compute sec2=s(j).
         compute eloc2=elocy(j).
         compute mtrav2=mtravy(j).
         compute start2=j*10-10.
         compute time2=10.
         compute end1=j*10-10.
      Else if main3=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time2=time2+10.
      Else if main3=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main3=mainy(j).
         compute av3=avy(j).
         compute sec3=s(j).
         compute eloc3=elocy(j).
         compute mtrav3=mtravy(j).
         compute start3=j*10-10.
         compute time3=10.
         compute end2=j*10-10.
      Else if main4=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time3=time3+10.
      Else if main4=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main4=mainy(j).
         compute av4=avy(j).
         compute sec4=s(j).
         compute eloc4=elocy(j).
         compute mtrav4=mtravy(j).
         compute start4=j*10-10.
         compute time4=10.
         compute end3=j*10-10.
      Else if main5=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time4=time4+10.
      Else if main5=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main5=mainy(j).
         compute av5=avy(j).
         compute sec5=s(j).
         compute eloc5=elocy(j).
         compute mtrav5=mtravy(j).
         compute start5=j*10-10.
         compute time5=10.
         compute end4=j*10-10.
      Else if main6=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time5=time5+10.
      Else if main6=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main6=mainy(j).
         compute av6=avy(j).
         compute sec6=s(j).
         compute eloc6=elocy(j).
         compute mtrav6=mtravy(j).
         compute start6=j*10-10.
         compute time6=10.
         compute end5=j*10-10.
      Else if main7=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time6=time6+10.
      Else if main7=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main7=mainy(j).
         compute av7=avy(j).
         compute sec7=s(j).
         compute eloc7=elocy(j).
         compute mtrav7=mtravy(j).
         compute start7=j*10-10.
         compute time7=10.
         compute end6=j*10-10.
      Else if main8=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time7=time7+10.
      Else if main8=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main8=mainy(j).
         compute av8=avy(j).
         compute sec8=s(j).
         compute eloc8=elocy(j).
         compute mtrav8=mtravy(j).
         compute start8=j*10-10.
         compute time8=10.
         compute end7=j*10-10.
      Else if main9=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time8=time8+10.
      Else if main9=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main9=mainy(j).
         compute av9=avy(j).
         compute sec9=s(j).
         compute eloc9=elocy(j).
         compute mtrav9=mtravy(j).
         compute start9=j*10-10.
         compute time9=10.
         compute end8=j*10-10.
      Else if main10=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time9=time9+10.
      Else if main10=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main10=mainy(j).
         compute av10=avy(j).
         compute sec10=s(j).
         compute eloc10=elocy(j).
         compute mtrav10=mtravy(j).
         compute start10=j*10-10.
         compute time10=10.
         compute end9=j*10-10.
      Else if main11=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time10=time10+10.
      Else if main11=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main11=mainy(j).
         compute av11=avy(j).
         compute sec11=s(j).
         compute eloc11=elocy(j).
         compute mtrav11=mtravy(j).
         compute start11=j*10-10.
         compute time11=10.
         compute end10=j*10-10.
      Else if main12=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time11=time11+10.
      Else if main12=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main12=mainy(j).
         compute av12=avy(j).
         compute sec12=s(j).
         compute eloc12=elocy(j).
         compute mtrav12=mtravy(j).
         compute start12=j*10-10.
         compute time12=10.
         compute end11=j*10-10.
      Else if main13=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time12=time12+10.
      Else if main13=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main13=mainy(j).
         compute av13=avy(j).
         compute sec13=s(j).
         compute eloc13=elocy(j).
         compute mtrav13=mtravy(j).
         compute start13=j*10-10.
         compute time13=10.
         compute end12=j*10-10.
      Else if main14=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time13=time13+10.
      Else if main14=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main14=mainy(j).
         compute av14=avy(j).
         compute sec14=s(j).
         compute eloc14=elocy(j).
         compute mtrav14=mtravy(j).
         compute start14=j*10-10.
         compute time14=10.
         compute end13=j*10-10.
      Else if main15=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time14=time14+10.
      Else if main15=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main15=mainy(j).
         compute av15=avy(j).
         compute sec15=s(j).
         compute eloc15=elocy(j).
         compute mtrav15=mtravy(j).
         compute start15=j*10-10.
         compute time15=10.
         compute end14=j*10-10.
      Else if main16=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time15=time15+10.
      Else if main16=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main16=mainy(j).
         compute av16=avy(j).
         compute sec16=s(j).
         compute eloc16=elocy(j).
         compute mtrav16=mtravy(j).
         compute start16=j*10-10.
         compute time16=10.
         compute end15=j*10-10.
      Else if main17=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time16=time16+10.
      Else if main17=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main17=mainy(j).
         compute av17=avy(j).
         compute sec17=s(j).
         compute eloc17=elocy(j).
         compute mtrav17=mtravy(j).
         compute start17=j*10-10.
         compute time17=10.
         compute end16=j*10-10.
      Else if main18=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time17=time17+10.
      Else if main18=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main18=mainy(j).
         compute av18=avy(j).
         compute sec18=s(j).
         compute eloc18=elocy(j).
         compute mtrav18=mtravy(j).
         compute start18=j*10-10.
         compute time18=10.
         compute end17=j*10-10.
      Else if main19=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time18=time18+10.
      Else if main19=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main19=mainy(j).
         compute av19=avy(j).
         compute sec19=s(j).
         compute eloc19=elocy(j).
         compute mtrav19=mtravy(j).
         compute start19=j*10-10.
         compute time19=10.
         compute end18=j*10-10.
      Else if main20=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time19=time19+10.
      Else if main20=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main20=mainy(j).
         compute av20=avy(j).
         compute sec20=s(j).
         compute eloc20=elocy(j).
         compute mtrav20=mtravy(j).
         compute start20=j*10-10.
         compute time20=10.
         compute end19=j*10-10.
      Else if main21=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time20=time20+10.
      Else if main21=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main21=mainy(j).
         compute av21=avy(j).
         compute sec21=s(j).
         compute eloc21=elocy(j).
         compute mtrav21=mtravy(j).
         compute start21=j*10-10.
         compute time21=10.
         compute end20=j*10-10.
      Else if main22=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time21=time21+10.
      Else if main22=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main22=mainy(j).
         compute av22=avy(j).
         compute sec22=s(j).
         compute eloc22=elocy(j).
         compute mtrav22=mtravy(j).
         compute start22=j*10-10.
         compute time22=10.
         compute end21=j*10-10.
      Else if main23=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time22=time22+10.
      Else if main23=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main23=mainy(j).
         compute av23=avy(j).
         compute sec23=s(j).
         compute eloc23=elocy(j).
         compute mtrav23=mtravy(j).
         compute start23=j*10-10.
         compute time23=10.
         compute end22=j*10-10.
      Else if main24=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time23=time23+10.
      Else if main24=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main24=mainy(j).
         compute av24=avy(j).
         compute sec24=s(j).
         compute eloc24=elocy(j).
         compute mtrav24=mtravy(j).
         compute start24=j*10-10.
         compute time24=10.
         compute end23=j*10-10.
      Else if main25=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time24=time24+10.
      Else if main25=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main25=mainy(j).
         compute av25=avy(j).
         compute sec25=s(j).
         compute eloc25=elocy(j).
         compute mtrav25=mtravy(j).
         compute start25=j*10-10.
         compute time25=10.
         compute end24=j*10-10.
      Else if main26=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time25=time25+10.
      Else if main26=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main26=mainy(j).
         compute av26=avy(j).
         compute sec26=s(j).
         compute eloc26=elocy(j).
         compute mtrav26=mtravy(j).
         compute start26=j*10-10.
         compute time26=10.
         compute end25=j*10-10.
      Else if main27=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time26=time26+10.
      Else if main27=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main27=mainy(j).
         compute av27=avy(j).
         compute sec27=s(j).
         compute eloc27=elocy(j).
         compute mtrav27=mtravy(j).
         compute start27=j*10-10.
         compute time27=10.
         compute end26=j*10-10.
      Else if main28=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time27=time27+10.
      Else if main28=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main28=mainy(j).
         compute av28=avy(j).
         compute sec28=s(j).
         compute eloc28=elocy(j).
         compute mtrav28=mtravy(j).
         compute start28=j*10-10.
         compute time28=10.
         compute end27=j*10-10.
      Else if main29=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time28=time28+10.
      Else if main29=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main29=mainy(j).
         compute av29=avy(j).
         compute sec29=s(j).
         compute eloc29=elocy(j).
         compute mtrav29=mtravy(j).
         compute start29=j*10-10.
         compute time29=10.
         compute end28=j*10-10.
      Else if main30=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time29=time29+10.
      Else if main30=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main30=mainy(j).
         compute av30=avy(j).
         compute sec30=s(j).
         compute eloc30=elocy(j).
         compute mtrav30=mtravy(j).
         compute start30=j*10-10.
         compute time30=10.
         compute end29=j*10-10.
      Else if main31=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time30=time30+10.
      Else if main31=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main31=mainy(j).
         compute av31=avy(j).
         compute sec31=s(j).
         compute eloc31=elocy(j).
         compute mtrav31=mtravy(j).
         compute start31=j*10-10.
         compute time31=10.
         compute end30=j*10-10.
      Else if main32=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time31=time31+10.
      Else if main32=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main32=mainy(j).
         compute av32=avy(j).
         compute sec32=s(j).
         compute eloc32=elocy(j).
         compute mtrav32=mtravy(j).
         compute start32=j*10-10.
         compute time32=10.
         compute end31=j*10-10.
      Else if main33=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time32=time32+10.
      Else if main33=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main33=mainy(j).
         compute av33=avy(j).
         compute sec33=s(j).
         compute eloc33=elocy(j).
         compute mtrav33=mtravy(j).
         compute start33=j*10-10.
         compute time33=10.
         compute end32=j*10-10.
      Else if main34=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time33=time33+10.
      Else if main34=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main34=mainy(j).
         compute av34=avy(j).
         compute sec34=s(j).
         compute eloc34=elocy(j).
         compute mtrav34=mtravy(j).
         compute start34=j*10-10.
         compute time34=10.
         compute end33=j*10-10.
      Else if main35=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time34=time34+10.
      Else if main35=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main35=mainy(j).
         compute av35=avy(j).
         compute sec35=s(j).
         compute eloc35=elocy(j).
         compute mtrav35=mtravy(j).
         compute start35=j*10-10.
         compute time35=10.
         compute end34=j*10-10.
      Else if main36=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time35=time35+10.
      Else if main36=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute main36=mainy(j).
         compute av36=avy(j).
         compute sec36=s(j).
         compute eloc36=elocy(j).
         compute mtrav36=mtravy(j).
         compute start36=j*10-10.
         compute time36=10.
         compute end35=j*10-10.
      Else if main37=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time36=time36+10.
      Else if main37=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute  main37=mainy(j).
         compute    av37=avy(j).
         compute   sec37=s(j).
         compute  eloc37=elocy(j).
         compute mtrav37=mtravy(j).
         compute start37=j*10-10.
         compute  time37=10.
         compute end36=j*10-10.
      Else if main38=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time37=time37+10.
      Else if     main38=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute  main38=mainy(j).
         compute    av38=avy(j).
         compute   sec38=s(j).
         compute  eloc38=elocy(j).
         compute mtrav38=mtravy(j).
         compute start38=j*10-10.
         compute  time38=10.
         compute end37=j*10-10.
      Else if main39=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time38=time38+10.
      Else if     main39=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute  main39=mainy(j).
         compute    av39=avy(j).
         compute   sec39=s(j).
         compute  eloc39=elocy(j).
         compute mtrav39=mtravy(j).
         compute start39=j*10-10.
         compute  time39=10.
         compute end38=j*10-10.
      Else if main40=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time39=time39+10.
      Else if     main40=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute  main40=mainy(j).
         compute    av40=avy(j).
         compute   sec40=s(j).
         compute  eloc40=elocy(j).
         compute mtrav40=mtravy(j).
         compute start40=j*10-10.
         compute  time40=10.
         compute end39=j*10-10.
      Else if main41=0 and mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time40=time40+10.
      Else if     main41=0 and (mainy(i)~=mainy(j) or s(i)~=s(j) or elocy(i)~=elocy(j)).
         compute  main41=mainy(j).
         compute    av41=avy(j).
         compute   sec41=s(j).
         compute  eloc41=elocy(j).
         compute mtrav41=mtravy(j).
         compute start41=j*10-10.
         compute  time41=10.
         compute end40=j*10-10.
      Else if mainy(i)=mainy(j) and s(i)=s(j) and elocy(i)=elocy(j).
         compute time41=time41+10.
      End if.
End loop.
End if.
compute tot2=sum(time1 to time41).
freq tot2.

compute test=0.
compute test=end26-start26.
cro test by time26.

*compute last time variable - clock time start of episodes.
formats clocks1 to clocks41 (f6.2).

Do repeat a=start1 to start41 / b= clocks1 to clocks41.
   Do if a<60.
      compute b=4+a/100.
   Else if a>59 and a<120.
      compute b=5+(a-60)/100.
   Else if a>119 and a<180.
      compute b=6+(a-120)/100.
   Else if a>179 and a<240.
      compute b=7+(a-180)/100.
   Else if a>239 and a<300.
      compute b=8+(a-240)/100.
   Else if a>299 and a<360.
      compute b=9+(a-300)/100.
   Else if a>359 and a<420.
      compute b=10+(a-360)/100.
   Else if a>419 and a<480.
      compute b=11+(a-420)/100.
   Else if a>479 and a<540.
      compute b=12+(a-480)/100.
   Else if a>539 and a<600.
      compute b=13+(a-540)/100.
   Else if a>599 and a<660.
      compute b=14+(a-600)/100.
   Else if a>659 and a<720.
      compute b=15+(a-660)/100.
   Else if a>719 and a<780.
      compute b=16+(a-720)/100.
   Else if a>779 and a<840.
      compute b=17+(a-780)/100.
   Else if a>839 and a<900.
      compute b=18+(a-840)/100.
   Else if a>899 and a<960.
      compute b=19+(a-900)/100.
   Else if a>959 and a<1020.
      compute b=20+(a-960)/100.
   Else if a>1019 and a<1080.
      compute b=21+(a-1020)/100.
   Else if a>1079 and a<1140.
      compute b=22+(a-1080)/100.
   Else if a>1139 and a<1200.
      compute b=23+(a-1140)/100.
   Else if a>1119 and a<1260.
      compute b=(a-1200)/100.
   Else if a>1259 and a<1320.
      compute b=1+(a-1260)/100.
   Else if a>1319 and a<1380.
      compute b=2+(a-1320)/100.
   Else if a>1379.
      compute b=3+(a-1380)/100.
   End if.
End repeat. 
compute clocks1=4.
freq clocks1 clocks15 clocks30 clocks40.
cro clocks10 by start10.

*create AV variables for W53 and W58 versions.
vector avx(41).
Loop i=1 to 41.
   compute avx(i)=0.
End loop.
do repeat a=avy1 to avy144.
   If a=1  avx1= avx1+10.
   If a=2  avx2= avx2+10.
   If a=3  avx3= avx3+10.
   If a=4  avx4= avx4+10.
   If a=5  avx5= avx5+10.
   If a=6  avx6= avx6+10.
   If a=7  avx7= avx7+10.
   If a=8  avx8= avx8+10.
   If a=9  avx9= avx9+10.
   If a=10 avx10=avx10+10.
   If a=11 avx11=avx11+10.
   If a=12 avx12=avx12+10.
   If a=13 avx13=avx13+10.
   If a=14 avx14=avx14+10.
   If a=15 avx15=avx15+10.
   If a=16 avx16=avx16+10.
   If a=17 avx17=avx17+10.
   If a=18 avx18=avx18+10.
   If a=19 avx19=avx19+10.
   If a=20 avx20=avx20+10.
   If a=21 avx21=avx21+10.
   If a=22 avx22=avx22+10.
   If a=23 avx23=avx23+10.
   If a=24 avx24=avx24+10.
   If a=25 avx25=avx25+10.
   If a=26 avx26=avx26+10.
   If a=27 avx27=avx27+10.
   If a=28 avx28=avx28+10.
   If a=29 avx29=avx29+10.
   If a=30 avx30=avx30+10.
   If a=31 avx31=avx31+10.
   If a=32 avx32=avx32+10.
   If a=33 avx33=avx33+10.
   If a=34 avx34=avx34+10.
   If a=35 avx35=avx35+10.
   If a=36 avx36=avx36+10.
   If a=37 avx37=avx37+10.
   If a=38 avx38=avx38+10.
   If a=39 avx39=avx39+10.
   If a=40 avx40=avx40+10.
   If a=41 avx41=avx41+10.
end repeat.
compute tot3=sum(avx1 to avx41).
freq tot3.
*sums to 1440, so all well.

*create variables for version 5.8.
compute sppart=-9.
vector mainx(69).
Loop i=1 to 69.
   compute mainx(i)=0.
End loop.
do repeat a=mainy1 to mainy144.
   if a=1  mainx1 =mainx1 +10.
   if a=2  mainx2 =mainx2 +10.
   if a=3  mainx3 =mainx3 +10.
   if a=4  mainx4 =mainx4 +10.
   if a=5  mainx5 =mainx5 +10.
   if a=6  mainx6 =mainx6 +10.
   if a=7  mainx7 =mainx7 +10.
   if a=8  mainx8 =mainx8 +10.
   if a=9  mainx9 =mainx9 +10.
   if a=10 mainx10=mainx10+10.
   if a=11 mainx11=mainx11+10.
   if a=12 mainx12=mainx12+10.
   if a=13 mainx13=mainx13+10.
   if a=14 mainx14=mainx14+10.
   if a=15 mainx15=mainx15+10.
   if a=16 mainx16=mainx16+10.
   if a=17 mainx17=mainx17+10.
   if a=18 mainx18=mainx18+10.
   if a=19 mainx19=mainx19+10.
   if a=20 mainx20=mainx20+10.
   if a=21 mainx21=mainx21+10.
   if a=22 mainx22=mainx22+10.
   if a=23 mainx23=mainx23+10.
   if a=24 mainx24=mainx24+10.
   if a=25 mainx25=mainx25+10.
   if a=26 mainx26=mainx26+10.
   if a=27 mainx27=mainx27+10.
   if a=28 mainx28=mainx28+10.
   if a=29 mainx29=mainx29+10.
   if a=30 mainx30=mainx30+10.
   if a=31 mainx31=mainx31+10.
   if a=32 mainx32=mainx32+10.
   if a=33 mainx33=mainx33+10.
   if a=34 mainx34=mainx34+10.
   if a=35 mainx35=mainx35+10.
   if a=36 mainx36=mainx36+10.
   if a=37 mainx37=mainx37+10.
   if a=38 mainx38=mainx38+10.
   if a=39 mainx39=mainx39+10.
   if a=40 mainx40=mainx40+10.
   if a=41 mainx41=mainx41+10.
   if a=42 mainx42=mainx42+10.
   if a=43 mainx43=mainx43+10.
   if a=44 mainx44=mainx44+10.
   if a=45 mainx45=mainx45+10.
   if a=46 mainx46=mainx46+10.
   if a=47 mainx47=mainx47+10.
   if a=48 mainx48=mainx48+10.
   if a=49 mainx49=mainx49+10.
   if a=50 mainx50=mainx50+10.
   if a=51 mainx51=mainx51+10.
   if a=52 mainx52=mainx52+10.
   if a=53 mainx53=mainx53+10.
   if a=54 mainx54=mainx54+10.
   if a=55 mainx55=mainx55+10.
   if a=56 mainx56=mainx56+10.
   if a=57 mainx57=mainx57+10.
   if a=58 mainx58=mainx58+10.
   if a=59 mainx59=mainx59+10.
   if a=60 mainx60=mainx60+10.
   if a=61 mainx61=mainx61+10.
   if a=62 mainx62=mainx62+10.
   if a=63 mainx63=mainx63+10.
   if a=64 mainx64=mainx64+10.
   if a=65 mainx65=mainx65+10.
   if a=66 mainx66=mainx66+10.
   if a=67 mainx67=mainx67+10.
   if a=68 mainx68=mainx68+10.
   if a=69 mainx69=mainx69+10.
end repeat.

compute tot4=sum (mainx1 to mainx69).
freq tot4.
*happy news, these all total 1440 as well.

************************
*computation of weights*
************************.

compute ocombwt= 0.

*no original survey weights. 
*roughly equal numbers of Wednesdays to Sundays, though
*900 extra Mondays and Tuesdays as the September group only
*completed two diaries.

If sex=1 and age>-8 and age<12 sexage=1.
If sex=1 and age>11 and age<18 sexage=2.
If sex=1 and age>17 and age<25 sexage=3.
If sex=1 and age>24 and age<45 sexage=4.
If sex=1 and age>44 and age<60 sexage=5.
If sex=1 and age>59 and age<70 sexage=6.
If sex=1 and age>69            sexage=7.

If sex=2 and age>-8 and age<12 sexage=11.
If sex=2 and age>11 and age<18 sexage=12.
If sex=2 and age>17 and age<25 sexage=13.
If sex=2 and age>24 and age<45 sexage=14.
If sex=2 and age>44 and age<60 sexage=15.
If sex=2 and age>59 and age<70 sexage=16.
If sex=2 and age>69            sexage=17.
val lab sexage
  1 man aged 5-11
  2 man 12-17
  3 man 18-24
  4 man 25-44
  5 man 45-59
  6 man 60-69
  7 "man 70+"
  8 man bad case
 11 woman aged 5-11
 12 woman 12-17
 13 woman 18-24
 14 woman 25-44
 15 woman 45-59
 16 woman 60-69
 17 "woman 70+"
 18 woman bad case.
cro sexage by sex.
means age by sexage
   /cells = min max.

*already determined that the missing age cases are adults and 
*not likely elderly diarists.
if age=-8 and sex=1 sexage=5.
if age=-8 and sex=2 sexage=15.
freq sexage.
If sex=1 and badcase>0 sexage=8.
If sex=2 and badcase>0 sexage=18.
missing values sexage (8, 18).
freq sexage.
missing values sexage ().

*survey collected roughly balanced national sample 
*keep demographic distribution by the number of men
*and women of age groups in the sample before the 
*bad diaries removed devided by the number of men
*and women in each age group accounting for bad diaries,
*then balance days of week.

compute demwt=0.
if sexage=1 demwt=1473/1464.
if sexage=2 demwt=1274/1267.
if sexage=3 demwt=1182/1179.
if sexage=4 demwt=2785/2766.
if sexage=5 demwt=1938/1891.
if sexage=6 demwt=743/740.
if sexage=7 demwt=395/380.
if sexage=11 demwt=1432/1426.
if sexage=12 demwt=1175/1173.
if sexage=13 demwt=1211/1207.
if sexage=14 demwt=3193/3184.
if sexage=15 demwt=2157/2113.
if sexage=16 demwt=842/839.
if sexage=17 demwt=452/447.
format demwt (f4.2).
desc demwt.

weight by demwt.
   freq sexage.
weight off.

sort cases by sexage day.
aggregate out='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\group.sav'
                /break=sexage
               /grouptot=sum(demwt)/ groupn=nu.
execute.
aggregate out='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\day.sav'
                /break= sexage day
                   /daytot=sum(demwt) /dayn=nu.
execute.
match files file=* table='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\group.sav'
                /by sexage.
execute.
match files file=* table='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\day.sav'
                /by sexage day.
execute.

compute exptot=(grouptot/7).

do if badcase=0.
   compute propwt=(exptot/daytot)/(dayn/daytot).
else if badcase>0.
   compute propwt=0.
end if.
format propwt (f4.3).
desc propwt.

weight by propwt.
freq day.
cro sexage by day
   /cells count row.
weight off.

apply dictionary from 
   'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW553schema.sav'.

val lab educa 
     1 'leave school at age 15 or less' 
     2 '16' 
     3 '17' 
     4 '18' 
     5 '19' 
     6 '20' 
     7 '21 or more' 
     8 'still studying' 
     0 missing 
    11 missing 
    12 missing.

***************************
*construct the MTUS files *
***************************.

freq aglftsch region animal.

sort cases by hldid persid id.

*make supplementary file for the UK.
AGGREGATE
  /OUTFILE='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav'
  /BREAK=survey hldid persid id
  /sexd 'sex - duplicate in supplement file' = MAX(sex) /aged 'age - duplicate in supplement file'
   = MAX(age) /incolab 'original household income labelled' = MAX(incorig) /educalab
   'original education labelled' = MAX(educa) /empinlab 'income from employment labelled' = 
   MAX(empinclm) /aglftsch 'age left formal schooling' = MAX(aglftsch) /region 
   'countreg / English region' = MAX(region) /animal 'average minutes spent with animals per diary from respondent' 
   = MEAN(animal).

save outfile ='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53a.sav'
   /keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid
    day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig 
    income ownhome urban computer vehicle sex age famstat cphome singpar relrefp 
    civstat cohab citizen empstat emp unemp student retired empsp workhrs 
    empinclm occup sector educa edtry rushed health carer disab avx1 avx2 avx3 
    avx4 avx5 avx6 avx7 avx8 avx9 avx10 avx11 avx12 avx13 avx14 avx15 avx16 avx17 
    avx18 avx19 avx20 avx21 avx22 avx23 avx24 avx25 avx26 avx27 avx28 avx29 avx30 
    avx31 avx32 avx33 avx34 avx35 avx36 avx37 avx38 avx39 avx40 avx41 ocombwt propwt.

save outfile ='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58.sav'
   /keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid
    day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig 
    income ownhome urban computer vehicle sex age famstat cphome singpar relrefp 
    civstat cohab citizen empstat emp unemp student retired empsp workhrs 
    empinclm occup sector educa edtry rushed health carer disab mainx1 mainx2 
    mainx3 mainx4 mainx5 mainx6 mainx7 mainx8 mainx9 mainx10 mainx11 mainx12 
    mainx13 mainx14 mainx15 mainx16 mainx17 mainx18 mainx19 mainx20 mainx21 
    mainx22 mainx23 mainx24 mainx25 mainx26 mainx27 mainx28 mainx29 mainx30 
    mainx31 mainx32 mainx33 mainx34 mainx35 mainx36 mainx37 mainx38 mainx39 
    mainx40 mainx41 mainx42 mainx43 mainx44 mainx45 mainx46 mainx47 mainx48 
    mainx49 mainx50 mainx51 mainx52 mainx53 mainx54 mainx55 mainx56 mainx57 
    mainx58 mainx59 mainx60 mainx61 mainx62 mainx63 mainx64 mainx65 mainx66 
    mainx67 mainx68 mainx69 avx1 avx2 avx3 avx4 avx5 avx6 avx7 avx8 avx9 avx10 
    avx11 avx12 avx13 avx14 avx15 avx16 avx17 avx18 avx19 avx20 avx21 avx22 
    avx23 avx24 avx25 avx26 avx27 avx28 avx29 avx30 avx31 avx32 avx33 avx34 
    avx35 avx36 avx37 avx38 avx39 avx40 avx41 sppart ocombwt propwt.

vector main=main1 to main41 /av=av1 to av41 /sec=sec1 to sec41 
      /eloc=eloc1 to eloc41 /mtrav=mtrav1 to mtrav41 
      /time=time1 to time41 /clocks=clocks1 to clocks41
      /start=start1 to start41 /end=end1 to end41.

loop i=1 to 41.
   compute countreg=countreg.
   compute survey=survey.
   compute swave=swave.
   compute msamp=msamp.
   compute hldid=hldid.
   compute persid=persid.
   compute id=id.
   compute day=day.
   compute cday=cday.
   compute month=month.
   compute year=year.
   compute diary=diary.
   compute badcase=badcase.
   compute sex=sex.
   compute age=age.
   compute time=time(i).
   compute clockst=clocks(i).
   compute start=start(i).
   compute end=end(i).
   compute epnum=i.
   compute main=main(i).
   compute sec=sec(i).
   compute av=av(i).
   compute inout=-9.
   compute eloc=eloc(i).
   compute ict=-9.
   compute mtrav=mtrav(i).
   compute alone=-9.
   compute child=-9.
   compute sppart=-9.
   compute oad=-9.
     xsave outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6.sav'
    /keep = countreg survey swave msamp hldid persid id day cday month year
     diary badcase sex age time clockst start end epnum main sec av inout
     eloc ict mtrav alone child sppart oad.
end loop.
execute.

*final tidy of version 5.3.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53a.sav'.

rename variables 
    (avx1 avx2 avx3 avx4 avx5 avx6 avx7 avx8 avx9 avx10 avx11 avx12 avx13 avx14
     avx15 avx16 avx17 avx18 avx19 avx20 avx21 avx22 avx23 avx24 avx25 avx26
     avx27 avx28 avx29 avx30 avx31 avx32 avx33 avx34 avx35 avx36 avx37 avx38
     avx39 avx40 avx41 =
     av1  av2  av3  av4  av5  av6  av7  av8  av9  av10 av11 av12 av13 av14
     av15 av16 av17 av18 av19 av20 av21 av22 av23 av24 av25 av26 av27 av28 
     av29 av30 av31 av32 av33 av34 av35 av36 av37 av38 av39 av40 av41).

apply dictionary from 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW553schema.sav'.

*recode time use variables that could not be created to -9. 
*none for this survey.

desc hldid persid incorig age workhrs empinclm 
    av1 av2 av3 av4 av5 av6 av7 av8 av9 av10 av11 av12 av13 
    av14 av15 av16 av17 av18 av19 av20 av21 av22 av23 av24 
    av25 av26 av27 av28 av29 av30 av31 av32 av33 av34 av35 
    av36 av37 av38 av39 av40 av41 ocombwt propwt.

AGGREGATE
  /OUTFILE=*
  MODE=ADDVARIABLES
  /BREAK=countreg
  /wtsum = SUM(propwt).
freq wtsum.

freq countreg survey swave msamp persid id parntid1 parntid2 
    partid day month year diary badcase hhtype hhldsize nchild agekidx 
    agekid2 income ownhome urban computer vehicle sex age 
    famstat cphome singpar relrefp civstat cohab citizen empstat emp
    unemp student retired empsp workhrs occup sector educa edtry 
    rushed health carer disab.

*due to the nature of the calculations, are fractions, change these to whole numbers.
desc workhrs.
recode workhrs (-8=-8) (0=0) (0.1 thru 1.49=1) (1.5 thru 2.49=2) (2.5 thru 3.49=3)
   (3.5 thru 4.49=4) (4.5 thru 5.49=5) (5.5 thru 6.49=6) (6.5 thru 7.49=7) 
   (7.5 thru 8.49=8) (8.5 thru 9.49=9) (9.5 thru 10.49=10) (10.5 thru 11.49=11) 
   (11.5 thru 12.49=12) (12.5 thru 13.49=13) (13.5 thru 14.49=14) (14.5 thru 15.49=15)
   (15.5 thru 16.49=16) (16.5 thru 17.49=17) (17.5 thru 18.49=18) (18.5 thru 19.49=19)
   (19.5 thru 20.49=20) (20.5 thru 21.49=21) (21.5 thru 22.49=22) (22.5 thru 23.49=23) 
   (23.5 thru 24.49=24) (24.5 thru 25.49=25) (25.5 thru 26.49=26) (26.5 thru 27.49=27)
   (27.5 thru 28.49=28) (28.5 thru 29.49=29) (29.5 thru 30.49=30) (30.5 thru 31.49=31) 
   (31.5 thru 32.49=32) (32.5 thru 33.49=33) (33.5 thru 34.49=34) (34.5 thru 35.49=35)
   (35.5 thru 36.49=36) (36.5 thru 37.49=37) (37.5 thru 38.49=38) (38.5 thru 39.49=39)
   (39.5 thru 40.49=40) (40.5 thru 41.49=41) (41.5 thru 42.49=42) (42.5 thru 43.49=43) 
   (43.5 thru 44.49=44) (44.5 thru 45.49=45) (45.5 thru 46.49=46) (46.5 thru 47.49=47) 
   (47.5 thru 48.49=48) (48.5 thru 49.49=49) (49.5 thru 50.49=50) (50.5 thru 51.49=51) 
   (51.5 thru 52.49=52) (52.5 thru 53.49=53) (53.5 thru 54.49=54) (54.5 thru 55.49=55)
   (55.5 thru 56.49=56) (56.5 thru 57.49=57) (57.5 thru 58.49=58) (58.5 thru 59.49=59)
   (59.5 thru 60.49=60) (60.5 thru 61.49=61) (61.5 thru 62.49=62) (62.5 thru 63.49=63)
   (63.5 thru 64.49=64) (64.5 thru 65.49=65) (65.5 thru 66.49=66) (66.5 thru 67.49=67)
   (67.5 thru 68.49=68) (68.5 thru 69.49=69) (69.5 thru 70.49=70) (70.5 thru 71.49=71) 
   (71.5 thru 72.49=72) (72.5 thru 73.49=73) (73.5 thru 74.49=74) (74.5 thru 75.49=75)
   (75.5 thru 76.49=76) (76.5 thru 77.49=77) (77.5 thru 78.49=78) (78.5 thru 79.49=79)
   (79.5 thru 80.49=80).
desc workhrs.
freq workhrs.

*this step used as the checking of household value at the household level reveals
*an error in this household.
if hldid=697 vehicle=4. 

means age hhldsize nchild by famstat
  /cells min max.

means age hhldsize by nchild retired
  /cells min max median.

cro famstat by nchild civstat hhtype agekidx cphome.

if famstat=4 and cphome=0 cphome=1.
if famstat=5 and cphome=1 famstat=4.

compute test=0.
if famstat=1 and hhtype=2 test=1.
freq test.
compute test=0.
if civstat=1 and hhtype=4 test=1.
freq test.

*these households visually checked, fix errors.
if hldid=526 hhtype=3.
if hldid=376 or hldid=684 hhtype=3. 

compute test=0.
if famstat=5 and civstat=1 test=1.
freq test.

cro famstat by nchild civstat hhtype agekidx cphome.
cro agekidx by nchild.
cro empstat by emp unemp retired student.
cro empsp by civstat relrefp.
cro civstat by hhtype relrefp.
*note no relrefp=2 should appear if civstat=2.

weight by propwt.
freq day.
cro day by sex
   /cells= count column.
desc av16.
weight off.

*normally the work hours would be calulated much earlier in these programmes,
*however as the work hours were calculated later, the final adjustments are
*made here.

mean workhrs by student unemp disab retired emp
   /cells = min max mean median.

temp.
select if workhrs>0 and emp=0.
freq workhrs.
*2268 cases involved.

*use work hours to amend cases of people classified as economically
*inactive who work some hours.
Do if workhrs>34 and emp=0.
   compute empstat=1.
   compute emp=1.
Else if workhrs>9 and emp=0.
   compute empstat=2.
   compute emp=1.
Else if workhrs>0 and emp=0.
   compute empstat=3.
   compute emp=1.
End if.
cro empstat by emp unemp retired student.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav'
   /drop wtsum test. 

aggregate
  /outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\aggr.sav'
  /break=hldid
  /urbanmin = min(urban) /urbanmax = max(urban)
  /incmin = min(income) /incmax = max(income)
  /akidmin = min(agekidx) /akidmax = max(agekidx)
  /akid2min = min(agekid2) /akid2max = max(agekid2)
  /nchimin = min(nchild) /nchimax = max(nchild)
  /hsizemin = min(hhldsize) /hsizemax = max(hhldsize)
  /htypmin = min(hhtype) /htypmax = max(hhtype)
  /ownhomin = min(ownhome) /ownhomax = max(ownhome)
  /compmin = min(computer) /compmax = max(computer)
  /vehicmin = min(vehicle) /vehicmax = max(vehicle).

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\aggr.sav'.

cro urbanmin by urbanmax. 
cro incmin by incmax. 
cro akidmin by akidmax. 
cro akid2min by akid2max. 
cro nchimin by nchimax. 
cro hsizemin by hsizemax. 
cro htypmin by htypmax. 
cro ownhomin by ownhomax.
cro compmin by compmax.
cro vehicmin by vehicmax.

*final tidy of version 5.8.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58.sav'.

rename variables 
   (mainx1 mainx2 mainx3 mainx4 mainx5 mainx6 mainx7 mainx8 mainx9 mainx10
    mainx11 mainx12 mainx13 mainx14 mainx15 mainx16 mainx17 mainx18 mainx19
    mainx20 mainx21 mainx22 mainx23 mainx24 mainx25 mainx26 mainx27 mainx28
    mainx29 mainx30 mainx31 mainx32 mainx33 mainx34 mainx35 mainx36 mainx37
    mainx38 mainx39 mainx40 mainx41 mainx42 mainx43 mainx44 mainx45 mainx46
    mainx47 mainx48 mainx49 mainx50 mainx51 mainx52 mainx53 mainx54 mainx55
    mainx56 mainx57 mainx58 mainx59 mainx60 mainx61 mainx62 mainx63 mainx64
    mainx65 mainx66 mainx67 mainx68 mainx69
    avx1 avx2 avx3 avx4 avx5 avx6 avx7 avx8 avx9 avx10 avx11 avx12 avx13 avx14
    avx15 avx16 avx17 avx18 avx19 avx20 avx21 avx22 avx23 avx24 avx25 avx26
    avx27 avx28 avx29 avx30 avx31 avx32 avx33 avx34 avx35 avx36 avx37 avx38
    avx39 avx40 avx41 =
    main1  main2  main3  main4  main5  main6  main7  main8  main9 
    main10 main11 main12 main13 main14 main15 main16 main17 main18 
    main19 main20 main21 main22 main23 main24 main25 main26 main27 
    main28 main29 main30 main31 main32 main33 main34 main35 main36 
    main37 main38 main39 main40 main41 main42 main43 main44 main45 
    main46 main47 main48 main49 main50 main51 main52 main53 main54 
    main55 main56 main57 main58 main59 main60 main61 main62 main63 
    main64 main65 main66 main67 main68 main69
    av1  av2  av3  av4  av5  av6  av7  av8  av9  av10 av11 av12 av13 av14
    av15 av16 av17 av18 av19 av20 av21 av22 av23 av24 av25 av26 av27 av28 
    av29 av30 av31 av32 av33 av34 av35 av36 av37 av38 av39 av40 av41).

apply dictionary from 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW58schema.sav'.

*make adjustments identified in the W53 file checks.
*due to the nature of the calculations, are fractions, change these to whole numbers.
desc workhrs.
recode workhrs (-8=-8) (0=0) (0.1 thru 1.49=1) (1.5 thru 2.49=2) (2.5 thru 3.49=3)
   (3.5 thru 4.49=4) (4.5 thru 5.49=5) (5.5 thru 6.49=6) (6.5 thru 7.49=7) 
   (7.5 thru 8.49=8) (8.5 thru 9.49=9) (9.5 thru 10.49=10) (10.5 thru 11.49=11) 
   (11.5 thru 12.49=12) (12.5 thru 13.49=13) (13.5 thru 14.49=14) (14.5 thru 15.49=15)
   (15.5 thru 16.49=16) (16.5 thru 17.49=17) (17.5 thru 18.49=18) (18.5 thru 19.49=19)
   (19.5 thru 20.49=20) (20.5 thru 21.49=21) (21.5 thru 22.49=22) (22.5 thru 23.49=23) 
   (23.5 thru 24.49=24) (24.5 thru 25.49=25) (25.5 thru 26.49=26) (26.5 thru 27.49=27)
   (27.5 thru 28.49=28) (28.5 thru 29.49=29) (29.5 thru 30.49=30) (30.5 thru 31.49=31) 
   (31.5 thru 32.49=32) (32.5 thru 33.49=33) (33.5 thru 34.49=34) (34.5 thru 35.49=35)
   (35.5 thru 36.49=36) (36.5 thru 37.49=37) (37.5 thru 38.49=38) (38.5 thru 39.49=39)
   (39.5 thru 40.49=40) (40.5 thru 41.49=41) (41.5 thru 42.49=42) (42.5 thru 43.49=43) 
   (43.5 thru 44.49=44) (44.5 thru 45.49=45) (45.5 thru 46.49=46) (46.5 thru 47.49=47) 
   (47.5 thru 48.49=48) (48.5 thru 49.49=49) (49.5 thru 50.49=50) (50.5 thru 51.49=51) 
   (51.5 thru 52.49=52) (52.5 thru 53.49=53) (53.5 thru 54.49=54) (54.5 thru 55.49=55)
   (55.5 thru 56.49=56) (56.5 thru 57.49=57) (57.5 thru 58.49=58) (58.5 thru 59.49=59)
   (59.5 thru 60.49=60) (60.5 thru 61.49=61) (61.5 thru 62.49=62) (62.5 thru 63.49=63)
   (63.5 thru 64.49=64) (64.5 thru 65.49=65) (65.5 thru 66.49=66) (66.5 thru 67.49=67)
   (67.5 thru 68.49=68) (68.5 thru 69.49=69) (69.5 thru 70.49=70) (70.5 thru 71.49=71) 
   (71.5 thru 72.49=72) (72.5 thru 73.49=73) (73.5 thru 74.49=74) (74.5 thru 75.49=75)
   (75.5 thru 76.49=76) (76.5 thru 77.49=77) (77.5 thru 78.49=78) (78.5 thru 79.49=79)
   (79.5 thru 80.49=80).
desc workhrs.
freq workhrs.

if hldid=697 vehicle=4.
if famstat=4 and cphome=0 cphome=1.
if famstat=5 and cphome=1 famstat=4.
if hldid=526 hhtype=3.
if hldid=376 or hldid=684 hhtype=3. 
cro famstat by nchild civstat hhtype agekidx cphome.

*use work hours to amend cases of people classified as economically
*inactive who work some hours.
Do if workhrs>34 and emp=0.
   compute empstat=1.
   compute emp=1.
Else if workhrs>9 and emp=0.
   compute empstat=2.
   compute emp=1.
Else if workhrs>0 and emp=0.
   compute empstat=3.
   compute emp=1.
End if.
cro empstat by emp unemp retired student.

*recode time use variables that could not be created to -9.
recode main10 main12 main14 main19 main26 main29 main31 main32 main44 
       main47 main50 main52 main53 main60 main61 main65 (0=-9).

desc main1 to main69 sppart.

*check all variables have variable and value labels. Quality of other variables
*already checked in the review of the W53 version.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58kid.sav'.

*previously verified that all age missing cases are adults.
select if age>17 or age=-8.
freq age badcase.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58.sav'.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58kid.sav'.

select if age>-8 and age<18.
freq age badcase.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58kid.sav'.

*tidy final world 6 files.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6.sav'.

apply dictionary from 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW60schema.sav'.

*at the moment there are 96 episode rows for all diaries. 
*Reduce to one row per real episode.

freq main.
select if main>0.
freq main.

*check labels and distrubutions.
freq countreg survey swave msamp persid id day cday 
     month year diary badcase sex age clockst epnum 
     main sec av inout eloc ict mtrav alone child 
     sppart oad.
desc hldid age time start end epnum. 

recode sec (0=69).
freq sec.

*separate out diaries of children and young people.
save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6kid.sav'.

*already confirmed that all age missing cases are adults.
select if age>17 or age=-8.
freq age.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6.sav'.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6kid.sav'.

select if age>-8 and age<18.
freq age.

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6kid.sav'.

*final tidy extra UK variables.

get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav'.

var lab hldid 'Household identifier'.
val lab hldid 
  0 '1 person sampled per household'.
var lab persid 'Person/diarist identifier'.
var lab id 'Diary identifier'.
val lab sexd
     1 Man 
     2 Woman
    -8 missing.
val lab aged
    80 80 or older
    -7 not asked
    -8 missing.
compute ethnic=-9.
var lab ethnic ethnicity.
val lab ethnic
  -9 not possible to create
  -8 missing
   1 white
   2 black
   3 "Indian/Pakistani/Bangladeshi"
   4 other and mixed race.

freq survey id sexd aged incolab educalab empinlab aglftsch ethnic region. 
desc hldid persid animal. 

save outfile='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav'
   /keep survey hldid persid id sexd aged incolab educalab empinlab aglftsch 
    ethnic region animal.