all tasks

Task/User-input-Graphical/Icon/user-input-graphical.icon

@@ -0,0 +1,15 @@
+procedure main()
+WOpen("size=800,800") | stop("Unable to open window")
+WWrite("Enter a string:")
+s := WRead()
+WWrite("You entered ",image(s))
+WWrite("Enter the integer 75000:")
+i := WRead()
+if i := integer(i) then
+   WWrite("You entered: ",i)
+else
+   WWrite(image(i)," isn't an integer")
+WDone()
+end
+
+link graphics