1 files changed, 30 insertions, 0 deletions
diff --git a/manage0.bas b/manage0.bas
new file mode 100644
index 0000000..90f7e8e
--- /dev/null
+++ b/manage0.bas
@@ -0,0 +1,30 @@
+declare function xtrim (ein as string) as string
+dim as string datei,temp
+
+datei=command
+
+open datei for input as #1
+do while not eof(1)
+	line input #1,temp
+	temp=xtrim(temp)
+	if lcase(left(temp,10 ))="#include "+chr(22) then 'wir haben ne include!
+loop
+
+function xtrim (ein as string) as string
+	dim as integer temp,i
+	dim as string aus,foo
+	foo=rtrim(ltrim(ein))
+	
+	for i=1 to len(foo)
+		if mid(foo,i,1)=" " or mid(foo,i,1)=chr(9) then
+			if temp=0 then
+				aus+=" "
+				temp=1
+			end if
+		else
+			temp=0
+			aus+=mid(foo,i,1)
+		end if
+	next
+	return aus
+end function