

In this task, the goal is to input a string and the integer 75000, from graphical user interface.



See also: User input/Text

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