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}}
'''Interpeter:'''{{works [[with|QuickBasic]] |4.5, PB 7.1}}
{{works with|PDS|7.1}}
<syntaxhighlight lang ="qbasic"> 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 159 ⟶ 160:
SUB CirclePrint (pthis AS Circle)
PRINT "Circle"
END SUB</langsyntaxhighlight>
2,122

edits