' Vererbungstest

Type Tier extends Object
	Protected:
	  na As String
	Public:
		Declare Abstract Sub laut()
		Declare Function getName() As String
End Type

Type Hund extends Tier
	Declare Constructor(n As String)
	Declare Sub laut() Override
End Type

Type Katze extends Tier
	Declare Constructor(n As String)
	Declare Sub laut() Override
End Type

Constructor Hund(n As String)
	na = n
End Constructor

Constructor Katze(n As String)
	na = n
End Constructor

Function Tier.getName() As String
	Return na
End Function

Sub Katze.laut()
	Print "Miau! Miau!"
End Sub

Sub Hund.laut()
	Print "Wuh! Wuh!"
End Sub

Dim t(...) As Tier ptr => { New Hund("Bello"), New Katze("Susi"), New Katze("Tatzli"), New Hund("Lupo") }
Dim i As Integer

ScreenRes 640, 480
Width 80,30

For i = LBound(t) To UBound(t)
	Print t(i)->getName()
	t(i)->laut()
	If *t(i) Is Katze Then
		Print "Ich bin eine Katze!"
	EndIf
Next i

Sleep