Index: TECH/Console/TerminalInput.cls.xml
===================================================================
diff -u
--- TECH/Console/TerminalInput.cls.xml	(revision 0)
+++ TECH/Console/TerminalInput.cls.xml	(revision 3717)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Console.TerminalInput">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StartNieuwScherm">
+<Implementation><![CDATA[	Do ..Write("", $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="VraagInputMetDefault">
+<FormalSpec>DefaultWaarde:%String,ToonDefaultIndienLeeg:%Boolean=1,TrimInputWaarde:%Boolean=1,MaxLength:%Integer=-1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InputWaarde As %String = ..VraagInput(TrimInputWaarde, MaxLength)
+
+	If (InputWaarde = "") {
+		Set InputWaarde = DefaultWaarde
+		Do:(ToonDefaultIndienLeeg) ..Write(InputWaarde)
+	}
+	Quit InputWaarde
+]]></Implementation>
+</Method>
+
+<Method name="VraagInput">
+<FormalSpec>TrimInputWaarde:%Boolean=1,MaxLength:%Integer=-1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InputWaarde As %String
+	
+	Do ..Read(.InputWaarde, MaxLength)
+	Set:(TrimInputWaarde) InputWaarde = $$$Trim(InputWaarde)
+
+	Quit InputWaarde
+]]></Implementation>
+</Method>
+
+<Method name="DrukEnterKey">
+<Implementation><![CDATA[
+	#dim Key As %String
+	Do ..DrukAnyKey(.Key)
+	// To do : alleen enter-key aanvaarden.
+]]></Implementation>
+</Method>
+
+<Method name="DrukAnyKey">
+<FormalSpec><![CDATA[&Key:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Do ..Read(.Key, 1)
+]]></Implementation>
+</Method>
+
+<Method name="Read">
+<FormalSpec><![CDATA[&InputWaarde:%String,MaxLength:%Integer=-1]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (MaxLength > 0) {
+		Read InputWaarde#MaxLength
+	}
+	Else {
+		Read InputWaarde
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<FormalSpec>Tekst:%String,StartNieuwScherm:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If StartNieuwScherm {
+		Write #
+	}
+	Write Tekst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>