1 files changed, 31 insertions, 0 deletions
diff --git a/minie/test7.e b/minie/test7.e
new file mode 100644
index 0000000..f8bcf07
--- /dev/null
+++ b/minie/test7.e
@@ -0,0 +1,31 @@
+module test7;
+
+import system;
+
+var
+	s : array[64] of char;
+	len : integer;
+
+procedure StringLength( s : array of char ) : integer;
+var
+	i : integer;
+	len : integer;
+
+begin
+	len := length( s );
+	i := 0;
+	while ( i < len ) and ( s[i] <> char( 0 ) ) do
+		i := i + 1
+	end;
+	return i
+end
+
+begin
+	system.readline( s );
+	len := StringLength( s );
+	system.writestring( "String: " );
+	system.writeline( s );
+	system.writestring( "Length: " );
+	system.writeinteger( len );
+	system.writeline( "" )
+end