User input/Text: Difference between revisions

=={{header|Action!}}==

{{libheader|Action! Tool Kit}}

{{libheader|Action! Real Math}}

<lang Action!>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</lang>

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/User_input_Text.png Screenshot from Atari 8-bit computer]

<pre>

Please enter a text: Atari 130XE

Please enter number 75000: 123

Please enter number 75000: 76000

Please enter number 75000: 75000

Text: Atari 130XE

Number: 75000

</pre>