Category : Pascal Source Code
Archive   : PASWIZ20.ZIP
Filename : STRINGS.TPU
xxxx5
+ ú ~ ² »ß Ú z
c$ Ò !÷ k å § O 3 C » YSTRINGS ÷å å YSYSTEM s SBICKEL
ð ï ï ï Ò SBSQ |
ï ï SBUSQ Ë
ï ï SCIPHER
ï ï ï SCIPHERP ( U
ï ï ï SCRUNCH 0 £
ï ï ï SDUPE 8 ï
ï ð ï ï SEXTRACT @ ,
ï ï ï ð ï SINSTR H ¡
ð ï ð ï ï ï SLEFT P ï
ï ï ð ï S LOWERCASE X
ï ï SLTRIM `
ï ï S MATCHFILE h
0ï ï ï fSNAMECASE p
ï ï SREPLACE x 1
ï ï ï ï SREVERSE
ï ï SRIGHT
ï ï ð ï SRPOS ¾
ð ï ï ï SRTRIM ú
ï ï å SSOUNDEX
ï ï SSTRIPCH ¨
ï ï ï SSTRIPST ° _
ï ï ï =S STRIPTYPE ¸
ï ð ï ï STYPEPOS À
ð ï ð ï ï þS UPPERCASE È
ï ï ~ ² »ß Ú z
c$ Ò !÷ k å § O 3 C » ¶ ¦ RST" ÿ! ï RSQST þ! ï RPTRþý!ð ï RREPCOUNTüý!ð ï äÕ ÷ RST" ÿC ï RUNSQST þC ï RPTRþýCð ï 3D RST" ÿf ï RPASSWD" þf ï RSPTRþýfð ï RPPTRüýfð ï n RST" ÿ ï RPASSWD" þ ï _RSPTRþýð ï RPPTRüýð ï Þ¿ Î RSUBST" ÿ» ï RST" þ» ï RTWO ý» ï RPOSNþü»ð ï RCOUNT"
åð ï ùRSUBST" ÿå ï RST þå ï m[ RST" ÿ
ï R DELIMITER" þ
ï RINDEX"
ð ï 6RSTARTþý
ð ï ERSLENüý
ð ï RPOSNúý
ð ï ÞÏ RSTART" =ð ï RSUBST"þþ= ï «RST"þý= ï ½RPOSNüý=ð ï ù RST" ÿk ï RLEN" kð ï " RST" ÿ» ï etP ROLDSUBST" ÿ3 ï RNEWSUBST" þ3 ï RST" ý3 ï RTMP ü3 ï ;RPOSNþû3ð ï ® RST" ÿ ï RLEN" ð ï éÚ RSUBST"þþ² ï RST"þý² ï ÈRPOSNüý²ð ï RST" ÿÚ ï 0 O ? RCHLIST" ÿ$ ï RST" þ$ ï RPTRþý$ð ï RTMPþü$ ï { RSUBST" ÿO ï RST" þO ï i RPOSNþýOð ï Ç ¸ ¥ RCHTYPE"
zð ï RST" ÿz ï RPOSNþþzð ï ( 0 8 @ H ¨ P ¸ X ` h À p x È ° [ O ) ³ J µ ` ¼ H v x 0 ð 0 ( ¼ O Ì y 8 Ù C è x ( 0 8 # ã P 2 ¡ 0 D o ( Z l ÿÿ &