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

24 lines
403 B
Plaintext

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