Polymorphism: Difference between revisions

Content added Content deleted

Inline

@@ Line 8: / Line 8: @@
 [[Category:BASIC]]
 '''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1
- DECLARE SUB PointDelete (pthis AS Point)
+ 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)
+ DECLARE FUNCTION PointGetX (pthis AS Point)
+ DECLARE FUNCTION PointGetY (pthis AS Point)
+ DECLARE SUB PointSetX (pthis AS Point, x0 AS INTEGER)
+ DECLARE SUB PointSetY (pthis AS Point, y0 AS INTEGER)
  DECLARE SUB PointPrint (pthis AS Point)
- DECLARE SUB PointInit (pthis AS Point)
- DECLARE SUB CircleDelete (pthis AS Circle)
+ DECLARE SUB CircleInit0 (pthis AS Circle)
+ DECLARE SUB CircleInit1 (pthis AS Circle, x0 AS INTEGER)
+ DECLARE SUB CircleInit2 (pthis AS Circle, x0 AS INTEGER, y0 AS INTEGER)
+ DECLARE FUNCTION CircleGetX (pthis AS Circle)
+ DECLARE FUNCTION CircleGetY (pthis AS Circle)
+ DECLARE FUNCTION CircleGetR (pthis AS Circle)
+ DECLARE SUB CircleSetX (pthis AS Circle, x0 AS INTEGER)
+ DECLARE SUB CircleSetY (pthis AS Circle, y0 AS INTEGER)
+ DECLARE SUB CircleSetR (pthis AS Circle, r0 AS INTEGER)
  DECLARE SUB CirclePrint (pthis AS Circle)
- DECLARE SUB CircleInit (pthis AS Circle)
  TYPE Point
    x AS INTEGER