September 2017 Update

Task/User-input-Text/ALGOL-W/user-input-text.alg

@@ -0,0 +1,8 @@
+begin
+    string(80) s;
+    integer    n;
+    write( "Enter a string  > " );
+    read( s );
+    write( "Enter an integer> " );
+    read( n )
+end.

Task/User-input-Text/BASIC/user-input-text-3.basic

@@ -0,0 +1,8 @@
+10 PRINT "ENTER A STRING"
+20 INPUT S$
+30 PRINT "YOU ENTERED: ";S$
+40 PRINT "NOW ENTER THE NUMBER 75000"
+50 INPUT N
+60 IF N=75000 THEN STOP
+70 PRINT "NO, ";
+80 GOTO 40

Task/User-input-Text/Elena/user-input-text.elena

@@ -1,8 +1,9 @@
-#import system.
-#import extensions.
+import extensions.
 
-#symbol program =
+program =
 [
-    #var num := console write:"Enter an integer: " readLine:(Integer new).
-    #var word := console write:"Enter a String: " readLine.
+    var num := Integer new.
+    console write:"Enter an integer: "; readLine:num.
+
+    var word := console write:"Enter a String: "; readLine.
 ].

Task/User-input-Text/Elixir/user-input-text.elixir

@@ -1,4 +1,6 @@
-a = IO.gets("Enter a string: ")   |> String.strip
-b = IO.gets("Enter an integer: ") |> String.strip |> String.to_integer()
+a = IO.gets("Enter a string: ")      |> String.strip
+b = IO.gets("Enter an integer: ")    |> String.strip |> String.to_integer
+f = IO.gets("Enter a real number: ") |> String.strip |> String.to_float
 IO.puts "String  = #{a}"
 IO.puts "Integer = #{b}"
+IO.puts "Float   = #{f}"

Task/User-input-Text/Kotlin/user-input-text.kotlin

@@ -0,0 +1,11 @@
+// version 1.1
+
+fun main(args: Array<String>) {
+    print("Enter a string : ")
+    val s = readLine()!!
+    println(s)
+    do {
+        print("Enter 75000 : ")
+        val number = readLine()!!.toInt()
+    } while (number != 75000)
+}

Task/User-input-Text/MIRC-Scripting-Language/user-input-text.mirc

@@ -0,0 +1,3 @@
+alias askmesomething {
+  echo -a You answered: $input(What's your name?, e)
+}

Task/User-input-Text/NewLISP/user-input-text.newlisp

@@ -0,0 +1,4 @@
+(print "Enter an integer: ")
+(set 'x (read-line))
+(print "Enter a string: ")
+(set 'y (read-line))

Task/User-input-Text/Ruby/user-input-text.rb

@@ -1,6 +1,9 @@
 print "Enter a string: "
 s = gets
-print "Enter an integer: "
+printf "Enter an integer: "
 i = gets.to_i   # If string entered, will return zero
+printf "Enter a real number: "
+f = Float(gets) rescue nil   # converts a floating point number or returns nil
 puts "String  = #{s}"
 puts "Integer = #{i}"
+puts "Float   = #{f}"

Task/User-input-Text/SPL/user-input-text.spl

@@ -0,0 +1,2 @@
+text = #.input("Input a string")
+number = #.val(#.input("Input a number"))

Task/User-input-Text/Smart-BASIC/user-input-text.smart

@@ -0,0 +1,2 @@
+INPUT "Enter a string.":a$
+INPUT "Enter the value 75000.":n

Task/User-input-Text/UNIX-Shell/user-input-text.sh

@@ -1,4 +1,6 @@
 #!/bin/sh
 
-read STRING
-read INTEGER
+read string
+read integer
+read -p 'Enter a number: ' number
+echo "The number is $number"

Task/User-input-Text/XLISP/user-input-text.xlisp

@@ -0,0 +1,16 @@
+(display "Enter a string: ")
+(define s (read-line))
+(display "Yes, ")
+(write s)
+(display " is a string.") ;; no need to verify, because READ-LINE has to return a string
+(newline)
+(display "Now enter the integer 75000: ")
+(define n (read))
+(display
+    (cond
+        ((not (integerp n))
+            "That's not even an integer." )
+        ((/= n 75000)
+            "That is not the integer 75000." )
+        (t
+            "Yes, that is the integer 75000." ) ) )

Task/User-input-Text/Zkl/user-input-text.zkl

@@ -0,0 +1,2 @@
+str:=ask("Gimmie a string: ");
+n:=ask("Type 75000: ").toInt();