/
mud++0.33/etc/
mud++0.33/etc/guilds/
mud++0.33/help/propert/
mud++0.33/mudC/
mud++0.33/player/
mud++0.33/src/
mud++0.33/src/bcppbuilder/
mud++0.33/src/unix/
mud++0.33/src/vm/ 
!constant string Some string~
!funstart sample_fun
	initp 2
	pushc string You managed to call sample_fun.~
	pushl 0
	fcall a echo_fun
	ret
!funend

!funstart echo_fun
	initp 2
	pushl 1
	pushl 0
	icall a out_string__pPC_s
	ret
!funend

!funstart makeobj
	initp 2
	initl 1
	pushl 1
	icall a getObjPrototype__s
	isnull
	rjmp e OBJ_NOT_FOUND
	icall a copyObject__pObject
	popl 2
	pushl 0
	icall a inRoom__pThing
	pushl 2
	icall a toRoom__pObject_pRoom
	pushc string Done.~
	pushl 0
	icall a out_string__pPC_s
	ret
:OBJ_NOT_FOUND pushc string No such object~
	pushl 0
	icall a out_string__pPC_s
	ret
!funend

!end