29 lines
578 B
Plaintext
29 lines
578 B
Plaintext
functor
|
|
import
|
|
Application(exit)
|
|
Open(text file)
|
|
define
|
|
|
|
Txt = class from Open.file Open.text end
|
|
Stdout = {New Open.file init(name:stdout)}
|
|
Stdin = {New Txt init(name:stdin)}
|
|
|
|
proc{Print Msg}
|
|
{Stdout write(vs:Msg)}
|
|
end
|
|
|
|
fun{GetInt Prompt}
|
|
{Print Prompt}
|
|
{StringToInt {Stdin getS($)}}
|
|
end
|
|
|
|
Int1 = {GetInt "Enter 1st Integer:"}
|
|
Int2 = {GetInt "Enter 2nd Integer:"}
|
|
|
|
if(Int1 < Int2) then {Print Int1#" less than "#Int2} end
|
|
if(Int1 > Int2) then {Print Int1#" greater than "#Int2} end
|
|
if(Int1 == Int2) then {Print Int1#" equal to "#Int2} end
|
|
|
|
{Application.exit 0}
|
|
end
|