User input/Text is part of Short Circuit's Console Program Basics selection.
Task
 
Input a string and the integer   75000   from the text console.

See also: User input/Graphical

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