19 lines
507 B
Plaintext
19 lines
507 B
Plaintext
global bloop
|
|
|
|
procedure main(A)
|
|
if older(11,7) then stop("Must have version >= 11.7!")
|
|
bloop := -5 # global variable
|
|
floop := -11.3 # local variable
|
|
write(proc("abs")(variable("bloop")))
|
|
write(proc("abs")(variable("floop")))
|
|
end
|
|
|
|
procedure older(maj,min)
|
|
&version ? {
|
|
(tab(find("Version ")),move(*"Version "))
|
|
major := 1(tab(upto('.')),move(1))
|
|
minor := tab(upto('.'))
|
|
return (major < maj) | ((major = maj) & (minor < min))
|
|
}
|
|
end
|