home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR22
/
JORF21_2.ZIP
/
TEXT.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
1KB
|
39 lines
Text:Start
| Sample for Text Functions
Text:Sample()
This text was passed to
to a method because:
a) The method call
needed a parameter
b) The text was indented
Return(Ok)
Text:Sample (Text)
Win:Add ( Null, 2, 2, 0, 0, Here, Text)
Win:Add ( Null, -2, -2, 13, 50, Here)
Str:PutLine( "Text = " + Text )
Str:PutLine( "Text:Len = " + Text:Len ( Text ) )
Str:PutLine( "Text:Wid = " + Text:Wid ( Text ) )
Str:PutLine( "Text:Top = " + Text:Top ( Text ) )
Str:PutLine( "Text:Bot = " + Text:Bot ( Text ) )
Str:PutLine()
Text = Text:Next ( Text )
Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
Text = Text:Next ( Text )
Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
Text = Text:Next ( Text )
Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
Text = Text:Next ( Text )
Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
Str:PutLine()
Text = Text:Prev ( Text )
Str:PutLine("Text:Prev = Line "+Text:Pos(Text)+" - "+Text)
Text = Text:Prev ( Text )
Str:PutLine("Text:Prev = Line "+Text:Pos(Text)+" - "+Text)
Win:Pause()
Return(Ok)