cd phl82\bases
mx phl_acv "fst=1 0 (v101/)" fullinv=phl_acv -all now
ifkeys phl_acv>acv.seq
mx seq=acv.seq create=tbo1 -all now
mx tbo1 create=tbo2 "proc='d1d2','a801~'v2'~'" -all now
mx tbo2 join=phl_acv=mhu,v801 create=tbo3 -all now
mx tbo3 create=tbo4 -all now
mxcp tbo4 create=tbo5 clean>nul
mx tbo5 create=001_tbo "proc='s'" -all now
mx 001_tbo fst=@001_tbo.fst actab=actab uctab=uctab fullinv=001_tbo -all now
exit