14 lines
175 B
Text
14 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()
|