R.F.SAYWELL CANADA

*set defa to D:\saywell\ver200006\pic set defa to C:\saywell\www\ver20000815 *wanttype='Manufacturer' *wanttype='Approval' *wanttype='Aircraft' wanttype='All' wanttype=upper(alltrim(wanttype)) close data maxp=1 outrdir='C:\saywell\www\ver20000815\' use C:\saywell\www\ver20000815\genpage in 0 excl order aircftname if wanttype='ALL' select rectype,count(*) from genpage; group by 1 order by 1; into cursor recctype else select rectype,count(*) from genpage; where rectype=wanttype; or rectype='000'+wanttype; group by 1 order by 1; into cursor recctype endif for i=1 to reccount('recctype') select recctype goto i if !left(recctype.rectype,3)='000' outdir=alltrim(outrdir)+alltrim(recctype.rectype)+'\' else outdir=alltrim(outrdir)+substr(alltrim(recctype.rectype),4)+'\' do text_on with outdir+alltrim(recctype.rectype)+".htm" \

	do text_off
endif
select genpage

set safety off

*do text_on with outdir+"ALLAC.htm"
select genpage
goto top
*scan for rectype=upper(alltrim(wanttype))
*scan for aircftname="ATR 42"
scan for rectype=recctype.rectype
dot_pos=at('.',picname)
if dot_pos=0
*	htmlname=picname
else
*	htmlname=left(picname,dot_pos-1)+".htm"
endif

do text_on with outdir+htmlname
\
\

\

\R.F.SAYWELL CANADA
\
\

\
\
\\
\
\



\
\
	\	\
endif

if !left(recctype.rectype,3)='000'
	\
	\
	\
endif
do text_off

if !left(recctype.rectype,3)='000'
	do text_on with outdir+'000'+alltrim(recctype.rectype)+".htm","ADD"
	\<>

	do text_off
endif

endscan


endfor

*select * from recctype where left(rectype,3)='000' into cursor t1
select * from genpage where left(rectype,3)='000' into cursor t1
select t1
goto top
scan
	do text_on with outrdir+substr(alltrim(t1.rectype),4)+'\'+alltrim(t1.rectype)+".htm","ADD"
	\

	\<>
	\

	\
	\

	\
	\
	do text_off
endscan
select genpage


\

\
\ 

if left(recctype.rectype,3)!='000'
	\
	

* 	\
*	\

		currec=recno()
		curarrows=arrows
		frec=recno()
		
		do while rectype=recctype.rectype
			skip -1
			if rectype=recctype.rectype
				frec=recno()
	 		endif
		enddo
			goto frec
			if frec!=currec and curarrows='Y'
		 		\
	 		endif
		goto currec
		
		skip -1
		if rectype=recctype.rectype and curarrows='Y'
	 		\
 		endif
		goto currec

		skip
		if rectype=recctype.rectype and curarrows='Y'
		 	\
		endif	
		goto currec


		do while rectype=recctype.rectype
			skip 1
			if rectype=recctype.rectype
				frec=recno()
	 		endif
		enddo
			goto frec
			if frec!=currec and curarrows='Y'
		 		\
			endif
		goto currec


*	\<>
	\
	\<>
endif
\
*<>
for j=1 to maxp
	fldname='p'+alltrim(str(j))
*		\

	for k=1 to memlines(&fldname)
		outline=mline(&fldname,k)

		searchpb=1
		foundpb=at('~',outline,searchpb)
		do while foundpb!=0
		if foundpb!=0
			outline=left(outline,foundpb-1)+'
'+CHR(13)+CHR(13);
				+''
			searchpb=searchpb+1
			foundpb=at('~',outline,searchpb)
		endif
		enddo
*****
*		searchpb=1
*		foundpb=at('~t',outline,searchpb)
*		do while foundpb!=0
*		if foundpb!=0
*			outline=left(outline,foundpb-1)+''+CHR(13)+CHR(13);
*				+''
*			searchpb=searchpb+1
*			foundpb=at('~',outline,searchpb)
*		endif
*		enddo
*****


		\<>
	endfor
		\
endfor



if rectype='AIRCRAFT'
	\  
endif
*\  
*\  
*\  

if left(recctype.rectype,3)='000'
	\
else
	\