c scrprep.cct Prepare Scripture for interlinearize or adapt Alan B 6-25-96
c Add a \t mark after any sf marker

begin > store(vnum) '1234567890' endstore c verse numbers
        store(vpunc) ',-' endstore c verse number punctuation
        '\c 0' nl   c default marker for first record

c ------------------------------------------
group(main)

'\' > dup use(sfmark)   

c ------------------------------------------
group(sfmark)   c pass by a standard format marker, and add \t

nl '\' > dup    c stay here if another marker is coming

' ' any(vnum) > next c pick up first number with its space
any(vpunc) > next
any(vnum) > dup   c stay here through numbers and number punc

' ' > next
nl > nl '\t ' use(main)   c add text mark after every sf mark