home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
STRPUT
< prev
next >
Wrap
Text File
|
1991-08-19
|
659b
|
20 lines
> watch(on)
> source = 'Dave Debenham'
> replacement = '"The Hammer"'
> result1text = strput('','',1)
> result2text = strput(source,'',1)
> result3text = strput('',replacement,1)
> result4text = strput(source,'-',5)
> result5text = strput(source,replacement,6)
> watch(off)
> message(' original text = [' + source + ']')
> message('1st strput result = [' + result1text + ']')
> message('2nd strput result = [' + result2text + ']')
> message('3rd strput result = [' + result3text + ']')
> message('4th strput result = [' + result4text + ']')
> message('5th strput result = [' + result5text + ']')
> watch(on)
> timeout = 0
> wait()
> end