home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
STRGET1
< prev
next >
Wrap
Text File
|
1991-08-16
|
998b
|
26 lines
> watch(on)
> textstring = 'abcdeabcdeabcdeabcde'
> result1text = strget1(textstring,0,0)
> result2text = strget1(textstring,0,2)
> result3text = strget1(textstring,2,4)
> result4text = strget1(textstring,2,6)
> result5text = strget1(textstring,4,8)
> result6text = strget1(textstring,4,10)
> result7text = strget1(textstring,8,12)
> result8text = strget1(textstring,8,14)
> result9text = strget1(textstring,10,16)
> watch(off)
> message('1st strget1 result = [' + result1text + ']')
> message('2nd strget1 result = [' + result2text + ']')
> message('3rd strget1 result = [' + result3text + ']')
> message('4th strget1 result = [' + result4text + ']')
> message('5th strget1 result = [' + result5text + ']')
> message('6th strget1 result = [' + result6text + ']')
> message('7th strget1 result = [' + result7text + ']')
> message('8th strget1 result = [' + result8text + ']')
> message('9th strget1 result = [' + result9text + ']')
> watch(on)
> timeout = 0
> wait()
> end