( Fibonacci:
	A series of numbers where the next number 
	is made of the two numbers before it )

|0100 ( -> ) @reset

	#0000 INC2k ADD2k
	&loop
		DUP2 ,print-hex JSR #0a18 DEO
		ADD2k LTH2k ,&loop JCN

	( halt )
	#010f DEO

BRK

@print-hex ( short* -- )

	SWP ,&byte JSR
	&byte ( byte -- ) DUP #04 SFT ,&char JSR
	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO

JMP2r