afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
16 lines
188 B
Plaintext
16 lines
188 B
Plaintext
Program IFSTest;
|
|
var
|
|
a,b :string;
|
|
Begin
|
|
a := 'test: ';
|
|
b := ImportTest('1', 2, 3, 4, a);
|
|
writeln(b);
|
|
writeln(a);
|
|
{
|
|
Output should be:
|
|
|
|
1 2 3 4 - OK!
|
|
1 2 3 4 - OK! - OK2!
|
|
|
|
}
|
|
End. |