Polymorphism/BASIC: Difference between revisions
m
no edit summary
m (moved Polymorphism (BASIC) to Polymorphism/BASIC: structure as sub-page) |
mNo edit summary |
||
Line 1:
{{Programming-example-page|Polymorphism}}
{{works with|PDS|7.1}}
<syntaxhighlight lang
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER)
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER)
Line 159 ⟶ 160:
SUB CirclePrint (pthis AS Circle)
PRINT "Circle"
END SUB</
|