Anonymous user
Polymorphism: Difference between revisions
→[[BASIC]]
Line 8:
[[Category:BASIC]]
'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1
DECLARE SUB
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER)
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
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
| |||