Data commit

Task/User-input-Text/Action-/user-input-text.action

@@ -0,0 +1,23 @@
+INCLUDE "H6:REALMATH.ACT"
+
+PROC Main()
+  CHAR ARRAY sUser(255)
+  REAL r75000,rUser
+
+  Put(125) PutE() ;clear the screen
+  ValR("75000",r75000)
+
+  Print("Please enter a text: ")
+  InputS(sUser)
+
+  DO
+    Print("Please enter number ")
+    PrintR(r75000) Print(": ")
+    InputR(rUser)
+  UNTIL RealEqual(rUser,r75000)
+  OD
+
+  PutE()
+  Print("Text: ") PrintE(sUser)
+  Print("Number: ") PrintRE(rUser)
+RETURN