RosettaCodeData/Task/Polymorphism/PureBasic/polymorphism-2.basic

10 lines
163 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
*point.MyPoint = NewObject.MyPoint
*circle.Circle = NewObject.Circle
If OpenConsole()
*point\Print()
*circle\SetX(3)
*circle\Print()
CloseConsole()
EndIf