Polymorphism/BASIC: Difference between revisions
Content added Content deleted
(Moved Polymorphism BASIC example to here.) |
m (formatting) |
||
| Line 1: | Line 1: | ||
{{Programming-example-page|Polymorphism}} |
{{Programming-example-page|Polymorphism}} |
||
'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1 |
'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1 |
||
| ⚫ | |||
| ⚫ | |||
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER) |
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER) |
||
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER) |
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER) |
||
| Line 163: | Line 159: | ||
SUB CirclePrint (pthis AS Circle) |
SUB CirclePrint (pthis AS Circle) |
||
PRINT "Circle" |
PRINT "Circle" |
||
END SUB |
END SUB</lang> |
||