RosettaCodeData/Task/Inheritance-Multiple/Lingo/inheritance-multiple-2.lingo

14 lines
178 B
Plaintext

-- parent script "MobilePhone"
property ringtone
on new (me)
me.ringtone = "Bell"
return me
end
on ring (me, n)
repeat with i = 1 to n
put "RING!!!"
end repeat
end