&echo &on &if [exists gifs.list -file] &then &sys rm gifs.list &if [exists gifs2.list -file] &then &sys rm gifs2.list &sv giffiles = [filelist *.gif gifs.list -file] sed -e 's/ra//' -e 's/.gif//' -e 's/..../&,ra&/' gifs.list > gifs2.list tables &if [exists gifs.list -info] &then kill gifs.list q arcedit create gifs.list info aou,4,5,i sp,10,11,c ~ q tables sel gifs.list add from gifs2.list q joinitem gifs.list scitab.dat gifs.list aou aou /*list gifs.list /*&pause /******************************************************** &sys cp head.html all.html &severity &error &ignore cursor birds remove &severity &error &fail cursor birds declare gifs.list info ro cursor birds open cursor birds 1 &do &while %:birds.aml$next% &sv num = [value :birds.num] &sv aou = [value :birds.aou] &sv name = [quote [value :birds.name]] &sv latin = [quote [value :birds.latin]] &sv sp = [value :birds.sp] &sv sedtext = 'sed -e 's/NAME/nnn/' -e 's/LATIN/lll/' -e 's/NUM/sss/' bird.html > sss.html' &sv sedtext1 = [subst %sedtext% nnn [quote %name%]] &sv sedtext2 = [subst %sedtext1% lll [quote %latin%]] &sv sedtext3 = [unquote [subst %sedtext2% sss %sp%]] &if [exists %sp%.html -file] &then &sys rm %sp%.html &sys %sedtext3% /*&pause &sv oneline = '

nnn lll ' &sv oneline1 = [subst %oneline% nnn [unquote %name%]] &sv oneline2 = [subst %oneline1% lll [unquote %latin%]] &sv oneline3 = [subst %oneline2% sss %sp%] &s fileunit = [open all.html openstatus -APPEND] &if [write %fileunit% %oneline3%] = 0 &then &type %name% 'added....' &if [close %fileunit%] = 0 &then &type 'file closed' /*&pause cursor birds next &end echo '' > all.html &return