home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
FIXLNGTH
< prev
next >
Wrap
Text File
|
1991-08-16
|
376b
|
18 lines
> watch(on)
> text = 'Dave Debenham'
> text1 = fixlength(text,0)
> text2 = fixlength(text,4)
> text3 = fixlength(text,13)
> text4 = fixlength(text,20)
> watch(off)
> message ('text1 = [' + text1 + ']')
> message ('text2 = [' + text2 + ']')
> message ('text3 = [' + text3 + ']')
> message ('text4 = [' + text4 + ']')
> watch(on)
> timeout = 0
> wait()
> end