Records in Columns - Output Format

[Michael J. Mc Avoy Sr.]

All,

I added two fields to the file I do this to.

One field 4 .0, the other is  1 *

Here is the .prc file I use, you can strip off
what you don't need.  I index on the first field
then the second, it indexes like this

1A #1
1B #3
2A #2
2B #4

I also have a .prc to do this with three across
with numbers running down the page.

Best Regards,
Mike McAvoy

==============================================================

::'ebug on:
:xa = "A":goto part1:
:xa="B":goto part2:
::sq(5,.0,g)=@ts:
::xa(1,*,g);xa="A";tg(5,.0,g);tg="1";di(4,.0,g);fc(5,.0,g)="1";sc(5,.0,g);tc(5,.0,g);pc(2,.0,g);wn(5,.0,g): 

::di=sq / "2":
::wn=di:
part1::70=fc;71=xa;wn=wn-"1":
:wn="0":goto reset:
::fc=fc+"1";end:
part2::70=fc;71=xa;wn=wn-"1":
:wn="0":end:
::fc=fc+"1";end:
reset::wn=di;xa="B";fc="1":