echo Starting

.myclass:
	echo Constructor
	ret
	
	blub:
		echo Function
		ret
.end

echo Middle

mov x new(myclass)
jmp x:blub

echo End

; Output:
; 	Starting
;	Middle
;	Constructor
;	Function
;	End

echo Starting

.myclass:
	echo Constructor
	ret
	
	private:bla:
		echo Private Function
		ret
	
	internal:blub:
		echo Function
		jmp x:bla
		ret
.end

echo Middle

mov x new(myclass)
jmp x:blub

; Out-comment the following line to produce a compiler error showing an access violation, since bla is private.
; jmp x:bla

; Out-comment the following line to produce a compiler error showing an access violation, since blub can only be called from the current file.
; Note: abc.seq just contains "jmp x:blub"
; init abc.seq

echo End

; Output:
; 	Starting
;	Middle
;	Constructor
;	Function
;	Private Function
;	End

ftp_open localhost anonymous anonymous
ftp_status $e

if $e != 230
	echo Login failed
	exit 0
else
	echo Login successful
end

.myclass
	set this:x 50
	set this:y 70
	
	ret
	
	public:ToString:
		echo x
		ret
.end

set x new(myclass)
set x:z 30
jmp x:ToString

exit 0

Quote:

---

Instance of 'myclass' (`x`='50' `y`='70' `z`='30' )

---

.mother
	ret
	
	public:ToString:
		echo x
		ret
.end

.child:mother
	set this:x 50
	set this:y 30

	ret
.end

set x new(child)
jmp x:ToString

Quote:

---

Instance of 'child' (`x`='50' `y`='30' )

---