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