Polymorphism: Difference between revisions
Content added Content deleted
(→[[C]]) |
|||
Line 8: | Line 8: | ||
[[Category:BASIC]] |
[[Category:BASIC]] |
||
'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1 |
'''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]]== |
==[[C]]== |