Anonymous user
Polymorphism/BASIC: Difference between revisions
m
formatting
(Moved Polymorphism BASIC example to here.) |
m (formatting) |
||
Line 1:
{{Programming-example-page|Polymorphism}}
'''Interpeter:''' [[QuickBasic]] 4.5, PB 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 ⟶ 159:
SUB CirclePrint (pthis AS Circle)
PRINT "Circle"
END SUB</lang>
| |||