9 lines
129 B
Text
9 lines
129 B
Text
|
PROC Test(CHAR ARRAY s)
|
||
|
|
PrintF("Length of ""%S"" is %B%E",s,s(0))
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
PROC Main()
|
||
|
|
Test("Hello world!")
|
||
|
|
Test("")
|
||
|
|
RETURN
|