Anonymous user
Polymorphism: Difference between revisions
→[[BASIC]]
(→[[C]]) |
|||
Line 8:
[[Category:BASIC]]
'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1
DECLARE SUB PointDelete (pthis AS Point)
DECLARE SUB PointPrint (pthis AS Point)
DECLARE SUB PointInit (pthis AS Point)
DECLARE SUB CircleDelete (pthis AS Circle)
DECLARE SUB CirclePrint (pthis AS Circle)
DECLARE SUB CircleInit (pthis AS Circle)
TYPE Point
x AS INTEGER
y AS INTEGER
END TYPE
TYPE Circle
p AS Point
r AS INTEGER
END TYPE
DIM p AS Point
DIM c AS Circle
PointInit p
PointPrint p
CircleInit p
CirclePrint p
==[[C]]==
|