Category : Pascal Source Code
Archive   : STRING.ZIP
Filename : STR40.TPU
B TB ï @ ABBREVU DB
¤ B STR¤ B ABBR$B LEN CENTERU ¤ B ¤ B S$B WIDTHTB PAD COMPAREU $B ¤ B S1¤ B S2 COPIESU ¤ B ¤ B STR$B COUNT D2XU ÿ @ 4B I DELSTRU ¤ B ¤ B STR$B STRT$B LEN DELWORDU ¤ B ¤ B STR$B N$B LEN FIRSTPOSU $B
¤ B FINDSTR¤ B INSTR$B STARTÃINSTRU ¤ B $ ¤ B NEW¤ B STR$B STRTTB PAD JUSTIFYU ¤ B ( ¤ B STR$B LENÕ LASTPOSU $B ,
¤ B FINDSTR¤ B INSTR$B START´LEFTU ¤ B 0 ¤ B STR$B WIDTHTB PAD LOWERCASEU ¤ B 4 ¤ B S OVERLAYU ¤ B 8 ¤ B NEW¤ B STR$B POSTB PAD POS2WORDU $B <