24 lines
403 B
Plaintext
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
|