h55M%F1r4U1Q^l6' GQG2G.G G /# PCVEGSUM program for summarizing/# point count vegetation data. /# Grant Ballard, PRBO /# Last revision: 3.12.07 MANote: this program assumes 'relative' cover in your pcveg2 table.VJAlso, the program will erase and re-create vegsum1.dbf each time it's run.RF(Choose a pcveg1 type table: #)TCC&[Q3'Choose the matching pcveg2 type table: F#)TCC&[ QG6 & CZCZ(temp (tempG6G!(#)G.FQvegsum1S( fieldlistFQ fieldlist& Cd=( tempfl.idxF %& CCCZCCZ(temp2F+C+ J TTCCCZCCZTCTC= TTCTCVF - %C48 F E %C4j %/ HW| T1>d  S1>d  H1>d  T2> d  TW&> S2Q>!d  H2|>"d  H+  C# H T1 T2 %T1>$$d >$$ d  S1 S2 %S1i>%%d >$%!d  C& H C=T%T1>''d >'' d  C=S%S1\>((d }>((!d  C)X HT S1>**d  S2>**!d  H1(>**"d  H2T>**"d  C++ Hw'  S1>,,d  S2>,,!d  H1>,,d  H2' >,,d  H@ f  C=H %C >--J(- T1 T2  %C >..J(. C=Sf %Cb >//J(/4 L@vegsum doesn't find a station-site in pcveg1 that IS in pcveg2. E9(remember: you need a year field in your source tables!):&R problem with  at  FH temp.dbf temp.idx temp2.fpt temp2.idx fieldlist.fpt fieldlist.dbf tempfl.idxG. G. G2 Qvegsum1 U2 HERBARRAY SHRUBARRAY TREEARRAY MVEG1FILE MVEG2FILESUMFORM1STATIONSITEYEARTEMPBVEGSUM1 FIELDLISTD FIELD_NAMETEMPFLIDXTEMP2AMYEARMSTATIONMSUBSUBLAYERMSMCOVERCOVERMSPECIESSPECIESMFIELDTREECOV1 SHRUBCOV1HERBCOV1TREECOV2 SHRUBCOV2HERBCOV2ISWILLOWWILLTCOVWILLSCOV ISELDERBERRYELDETCOVELDESCOVISBERRYBERRYCOVISGRASSGRASSCOVHERBRICHTREERICH SHRUBRICHDBFFPT 7 F#)wkFoxpro 3.0 has a limit of 255 fields. This program can generate more than that, depending on your veg data.vjEnter a number higher than 1 (below) if you need to (or want to) reduce number of fields. You are starting%with CCZ fields.W'JRequire how many occurrences of a sublayer x species? (enter 1 if unsure) (VEGSUM1 fieldlist temp.idx spec_sub.dbf fieldlist.dbfU MRED FIELDCOUNT MVEG2FILEMAKEBASE ADDSUBSPECVEGSUM1 FIELDLISTTEMPIDXSPEC_SUBDBFT9Would you like to start with the full set of fields from ? (Y/N)cV(choose 'N' to save space - 'Y' if you don't have space issues, 'Y' if you're unsure).(TCf%Y  Q( fieldlist Q Nh1 fieldlistC CNN&>yearn)>projectc)>stationc&>sitenQ FG6 &  (TEMP(spec_sub G6G!(Q fieldlist%Y&>Hab1 C*>Hab1percN&>Hab2 C*>Hab2percN)>BarecovN*>WatercovN*>HERBCOV1N*>HERBCOV2N+> SHRUBCOV1N+> SHRUBCOV2N*>TREECOV1N*>TREECOV2N*>HERBRICHN+> SHRUBRICHN*>TREERICHN*>WILLSCOVN*>WILLTCOVN*>ELDESCOVN*>ELDETCOVN*>GRASSCOVN*>BERRYCOVN3( FQspec_subU MVEG1FILEMFULLSET FIELDLIST MVEG2FILE FIELD_NAME FIELD_TYPE FIELD_LEN FIELD_DECSPECIESSUBLAYERTEMPSPEC_SUB FIELDCOUNTCOF QFQ fieldlistFQspec_sub+C+ TCVTCTC% F ( T % Fa% C=UNK C=LICH C=FORB C=SHRU ">   NT  /CC Z fields generated.FH% DbMWarning: Exceeded capacity of Foxpro 3.0 (255). Re-run with higher threshold!RU MVEG2FILE FIELDLISTSPEC_SUBMFIELDSPECIESSUBLAYERMSPECMSUBMREDMCOUNT FIELD_NAME FIELD_LEN FIELD_TYPE FIELDCOUNT4%Cf)SALIX SAAC3 SAAC2 SAAD2 SAAL SAALA SAALL -SAALL2 SAALO SAALS SAAL17 SAAL2 SAALA2 SAALC 0SAALC2 SAALC3 SAALV SAALV2 SAAL15 SAAL10 SAALA3 ,SAAL13 SAAM9 SAAM7 SAAM11 SAAM6 SAAM8 SAAM2 +SAAMW SAAN6 SAAN7 SAAN5 SAAN8 SAANA SAANA2 .SAANK SAAN9 SAARL2 SAAR3 SAARG2 SAAR20 SAAR16 ,SAAR4 SAARA SAARA2 SAARB SAARC2 SAARC SAARG -SAARK SAARP3 SAARP SAARP5 SAARP4 SAARS SAART /SAART2 SAAR15 SAAR6 SAARL SAAR18 SAAR21 SAAR17 -SAARA3 SAARE SAARH SAARL3 SAARP2 SAAR7 SAARD 0SAAR14 SAAS2 SAAT SAAT3 SAAT2 SAAU9 SAAU5 SABA2 /SABA11 SABA7 SABA12 SABAA3 SABAL4 SABAV2 SABA3 -SABAA SABAC2 SABAC3 SABAC SABAH SABAL3 SABAN -SABAP3 SABAP2 SABAR SABAU SABAV SABA4 SABAA2 ,SABAL2 SABAM SABAT2 SABE2 SABEC SABED SABEL +SABEP SABEP2 SABE4 SABE7 SABE6 SABE5 SABI8 /SABI8 SABI5 SABL2 SABO6 SABO5 SABO SABOL SABOT -SABO2 SABR SABRA3 SABRA4 SABRB SABRB4 SABRF2 ,SABRP SABRF3 SABRG SABRM SABRN SABRS SABR11 /SABR16 SABRS2 SABR2 SABRD SABR15 SABRP4 SABRT2 0SACA30 SACA37 SACAG5 SACAN3 SACA35 SACA36 SACA4 .SACAD SACAT2 SACA34 SACA22 SACA39 SACA5 SACA6 -SACAT3 SACA38 SACAB SACAP2 SACH SACH13 SACH9 ,SACH6 SACHA SACH12 SACHM SACHN SACHP SACHP2 0SACI SACIA SACIC SACIO SACO22 SACO2 SACOD SACOM /SACOP SACOR4 SACOS SACO17 SACO16 SACO10 SACO20 .SACO21 SACO24 SACO3 SACOA SACOA3 SACOB SACOC4 /SACOD2 SACOD3 SACOG SACOL SACOL2 SACOM5 SACOM6 0SACOM3 SACOM4 SACOP2 SACOR SACOR2 SACOR3 SACOR5 -SACOV SACOW SACO19 SACOC2 SACOC3 SACOE SACOI -SACOM2 SACOT SACO4 SACO15 SACR6 SACR5 SACR10 0SACU5 SACU8 SACU7 SACU6 SACUL SACY6 SADA6 SADE2 +SADE8 SADER SADE7 SADEE SADEF SADES2 SADI3 /SADI5 SADI SADIE SADIL SADIO SADIP SADIR SADI4 /SADO8 SADOS SADR SADRB SADRS SADRS2 SADU2 SADU -SAEA SAEH SAEL SAEL4 SAER SAERF SAERL SAERM2 0SAERM3 SAERM SAERW SAEX SAEXA SAEXE SAEXG SAEXI +SAEXL SAEXM SAEXN SAEXP SAEXP2 SAEXS SAEXT 0SAEXV SAFA7 SAFA10 SAFA SAFAM SAFAW SAFE2 SAFE3 /SAFL15 SAFL11 SAFL13 SAFLC2 SAFLS4 SAFL12 SAFL ,SAFL14 SAFL2 SAFLA SAFLS2 SAFLS3 SAFLT SAFR .SAFR6 SAFUS SAFU3 SAFU5 SAFU SAFUH SAFUR SAGA *SAGE2 SAGEA SAGEA2 SAGEM SAGL9 SAGL3 SAGL .SAGLA3 SAGLA4 SAGLC SAGLD SAGLG3 SAGLG5 SAGLG +SAGLA SAGLG2 SAGLV SAGLK SAGLM SAGLN SAGLO /SAGLO2 SAGLP SAGLP3 SAGLP2 SAGLS2 SAGLS3 SAGLS /SAGLS4 SAGLV3 SAGL11 SAGLA5 SAGLA6 SAGLB SAGLL 0SAGL2 SAGLA7 SAGLB2 SAGLG6 SAGL10 SAGLG4 SAGLV2 ,SAGO SAGOV SAGR13 SAGRR SAGRT2 SAGR7 SAGR14 +SAGR12 SAGRL SAHA2 SAHA10 SAHA SAHAF SAHAS ,SAHAS2 SAHE4 SAHE2 SAHI9 SAHIL SAHIP3 SAHIT .SAHO SAHOL SAHOT SAHO6 SAHU4 SAHU SAHUF SAHU2 +SAHUA SAHUG SAHUH SAHUH2 SAHUK SAHUM SAHUR 0SAHUT SAHU3 SAHUP SAID2 SAIN6 SAIN3 SAINA SAINE -SAINL SAINP SAINW SAIR SAIV SAJA7 SAJE3 SAJE ,SAJE4 SAKO SALA18 SALAP3 SALA3 SALAA SALAA2 .SALAC3 SALA4 SALAC2 SALAR SALA17 SALA5 SALAA3 0SALAC SALAC4 SALAF2 SALAL5 SALAL4 SALAM4 SALAR2 -SALA6 SALAB2 SALAB SALAB3 SALAF SALAL2 SALAN *SALAS SALA10 SALE6 SALE7 SALE SALEA SALEM 0SALEM2 SALES SALI SALI4 SALI2 SALI3 SALIO SALIR -SALO9 SALOA2 SALOA3 SALOE SALOI SALOO SALOP2 ,SALOS SALOS2 SALOT SALOW2 SALO7 SALOP SALOV 0SALOW SALO8 SALO15 SALU SALUA SALUC SALUI SALUL ,SALUL4 SALUL2 SALUM SALUO SALUS SALU4 SALU2 +SALUD SALUF SALUL3 SALUN SALUP SALUT SALUW /SALU3 SALY4 SAMA12 SAMA16 SAMAM3 SAMA19 SAMA15 .SAMAA SAMA17 SAMAC2 SAMAL SAMA18 SAMA13 SAME2 -SAMEB SAMEG SAMEK SAMET SAME11 SAMI18 SAMI13 +SAMO10 SAMO4 SAMO2 SAMON SAMU5 SAMUA SAMUG ,SAMU4 SAMY2 SAMY5 SAMYA SAMYA2 SAMYC3 SAMYM +SAMYR SAMY3 SAMYC5 SAMYP2 SAMYP SAMY SAMY4 .SAMYB SAMYC SAMYC2 SAMYC4 SAMYL SAMYM2 SAMYP4 +SAMYH SAMYP3 SANE7 SANE8 SANE6 SANI SANIA2 /SANIA SANIB SANIB2 SANIF2 SANIL2 SANIL3 SANIL5 -SANIM2 SANIV SANIW2 SANIW SANI10 SANIF SANIM ,SANIM3 SANI8 SANIS SANO2 SANO2 SANOM SANOP2 +SANOP SANOP4 SANU7 SANU4 SANUT SANU8 SANUC .SAOB3 SAOB SAOC7 SAOC8 SAOCL2 SAOL SAOR7 SAOR *SAOR6 SAOV SAOVA SAOVC2 SAOVC SAOVG SAOVO *SAPA25 SAPA19 SAPA20 SAPA23 SAPA18 SAPAC2 -SAPA12 SAPA24 SAPA16 SAPA4 SAPE9 SAPE2 SAPEA /SAPEH SAPET2 SAPE14 SAPE15 SAPE3 SAPEA3 SAPE12 .SAPE17 SAPE21 SAPE4 SAPEC2 SAPEL SAPE20 SAPE5 .SAPEA2 SAPEG SAPEG2 SAPER SAPES2 SAPES SAPE18 ,SAPEC SAPH SAPHM SAPHP2 SAPHP4 SAPHP3 SAPHS 0SAPH4 SAPI5 SAPI SAPI4 SAPL2 SAPLM SAPLN SAPLP3 0SAPLP2 SAPLP SAPLT SAPLY SAPO SAPOG SAPOL SAPOP 0SAPOS SAPR7 SAPR8 SAPR3 SAPS3 SAPS7 SAPSA SAPSC 0SAPS4 SAPSK SAPSS SAPS SAPSP SAPS5 SAPSA2 SAPS6 ,SAPU15 SAPUL SAPUP4 SAPUY SAPU2 SAPU9 SAPY3 +SAPY SAPYL SAPYH SARA4 SARE16 SARE15 SARE2 /SAREG2 SAREG SAREG3 SAREN2 SAREN SAREN3 SAREO3 ,SAREO4 SARER SARES SARES2 SAREV SARI4 SARIM .SARIM2 SARI2 SARIA SARIL SARIM3 SARIM4 SARIM5 +SARIV SARIW SARO6 SAROC SAROL SAROP SAROP2 +SARO7 SARO2 SARO8 SAROD SAROD2 SAROR SARU2 -SARU3 SARU9 SARY SASA16 SASA12 SASA15 SASA11 +SASA13 SASC4 SASC SASCB SASCC SASCC2 SASCF -SASCP SASCT SASE14 SASE11 SASE10 SASE17 SASE +SASES SASE12 SASE2 SASE3 SASEH SASEL SASEV ,SASEV2 SASE4 SASI13 SASI5 SASI2 SASIA SASIC +SASID SASIP2 SASIP SASIR SASM2 SASO4 SASP8 0SASP9 SASPA SASP2 SASPP SASQ2 SAST9 SASTB SAST8 .SAST12 SAST2 SAST10 SASU9 SASU10 SASU3 SASU13 0SASY4 SATA SATAL SATAL2 SATAM SATAS SATE6 SATE7 /SATH3 SATO4 SATO3 SATO5 SATR SATR2 SATRG SATRL /SATRM SATRM2 SATU3 SATU2 SATW SATY SAUN3 SAUN7 .SAUV SAVA5 SAVAO SAVAR SAVA6 SAVE8 SAVE SAVEE ,SAVEH SAVEL SAVEN SAVEP SAVI10 SAVIA2 SAVI2 .SAVI80 SAWA SAWA3 SAWA4 SAWA5 SAWA6 SAWH SAWI #SAWO SAWOI SAWOI2 SAWOP SAWR3 SAWY BaB-UMPLSPa4=%Cf*RUUR RUURM RUURU RUURU3 RUURS RUURU2 RUDI2KBaZB-UMBSPq4M%Cf:FEST CYDA DISP DEDA GRAS GRASS AGRAS AGRASS INAN LELA SOHA[BajB-UMGSPh4D%Cf1SAMBU SACEC SARA2 SARAL SARAM2 SARAM SARAP2 SARARRBaaB-UMESPsumform1 makebase: addsubspecMiswillow%isberry/isgrassY0 iselderberry0pAQaaaaarqaAqAQqAq1QqrbaaQbqA1rrQr!1rr"1111111A!1A1AA"q1Aq1AA"1111A#1111AABrqAqAqqAABQqaABAAAQAAbaaA4QrqqaQqqrQR1AA2BA1q!1QaQQQaAAcaaa"QaQQaQQQQQQQQQARQQQQQQQQAr3Q1AqQ!AArAB!AA6qYqqA2qqqA2qqqA2qAqqA1lO`))-p89.E@E?FGFBGN[GG%c:\procedur\veg\pcvegsum\pcvegsum.fxpc:\procedur\veg\pcvegsum\pcvegsum.prg)5