( init )

%emit ( byte -- ) {  #18 DEO }

|0100 @program

	#1234 SWP
	#010e DEO
	#010f DEO

	#1234 #5678 SWP2

	;hello-word

	&while
		( send ) LDAk emit
		( loop ) INC2 LDAk ?&while
	POP2

	#010f DEO

BRK 

@program/extend BRK

@hello-word "Hello 20 "World? 00