/* wczytanie zmiennych a i b z klawiatury */ if b <>"" then if \(datatype(a,number) & datatype(b,number)) then say "a or b isn't a number" else call Sub1 a b /* wywołanie procedury Sub1 */ else say "b is empty" Exit /* procedura */ Sub1: say "At" TIME() "on" DATE() "user" USERID() "entered" a "and" b say a "+" b "=" a + b say a "-" b "=" a - b say a "*" b "=" a * b say a "/" b "=" a / b say "divided by" b "is" a%b "with remainder of" a//b return
Zobacz też Regina - najpopularniejszy opensource'owy interpreter języka REXX
Przypisy
Linki zewnętrzne The Rexx Language Association Regina Rexx - najpopularniejsza darmowa implementacja
Kategoria:Mainframe Kategoria:Języki skryptowe