!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!	royal.bas	Program to strip quotes (")
!			and replace commas (,) with tabs (	)
!			and puts line feed only at end of line
!
!	Written		June 8, 1987 (fdb) TCP Business Systems
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	map1	in'file$,	s,24
	map1	out'file$,	s,24

	map1	in'line$,	s,100
	map1	out'line$,	s,100
	map1	quote,		b,1,34
	map1	comma,		b,1,44
	map1	tabb,		b,1,9
	map1	lf,		b,1,13

	map1	line'cnt,	b,2

mainline:

	print tab(-1,0); tab(10,10);
	input line "Input File Name  > ";infile$
	print tab(12,10);
	input line "Output File Name > ";outfile$

	open #1,infile$,input
	open #2,out'file$,output

	print tab(14,10);"processing line  > ";

line'loop:	

	input line #1,inline$
	if	eof(1) =1	&
	then	goto ending

	line'cnt = line'cnt + 1
	print tab(14,29);line'cnt;

	out'line$ = ""

chr'loop:

	for t = 1 to len(in'line$)

	if	in'line$[t;1] = chr$(quote)	&
	then	goto	next't

	if	in'line$[t;1] = chr$(comma)	&
	then	in'line$[t;1] = chr$(tabb)

	out'line$ = out'line$ + in'line$[t;1]

next't:

	next t

	print #2,outline$;chr$(lf);

	goto line'loop

ending:

	close #1
	close #2

	print tab(20,10);"Conversion complete"

	end