Polymorphism/BASIC: Difference between revisions
m
no edit summary
(Moved Polymorphism BASIC example to here.) |
mNo edit summary |
||
| (2 intermediate revisions by one other user not shown) | |||
Line 1:
{{Programming-example-page|Polymorphism}}
{{works with|QuickBasic|4.5}}
{{works with|PDS|7.1}}
▲ DECLARE SUB PointInit0 (pthis AS Point)
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER)
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER)
Line 163 ⟶ 160:
SUB CirclePrint (pthis AS Circle)
PRINT "Circle"
END SUB</syntaxhighlight>
| |||