Polymorphism/BASIC: Difference between revisions

Content added Content deleted

Inline

@@ Line 1: / Line 1: @@
 {{Programming-example-page|Polymorphism}}
-'''Interpeter:''' [[QuickBasic]] 4.5, PB 7.1
+{{works with|QuickBasic|4.5}}
+{{works with|PDS|7.1}}
-<lang qbasic> DECLARE SUB PointInit0 (pthis AS Point)
+<syntaxhighlight lang="qbasic">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)
@@ Line 159: / Line 160: @@
   SUB CirclePrint (pthis AS Circle)
     PRINT "Circle"
-  END SUB</lang>
+  END SUB</syntaxhighlight>