13 lines
175 B
Text
13 lines
175 B
Text
object x
|
|
|
|
procedure test()
|
|
if object(x) then
|
|
puts(1,"x is an object\n")
|
|
else
|
|
puts(1,"x is unassigned\n")
|
|
end if
|
|
end procedure
|
|
|
|
test()
|
|
x = 1
|
|
test()
|