!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!       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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.