( $ echo "I'ANTACS M D. NRKHDNYOOA UAOOT Y FCRT U DMOKKDCEE OLLEASBL! EY." | decroaker.rom
  IM NOT DEAD YOU CANNOT DESTROY ME BAKA FOOL CHUCKLES DARKLY )

@on-reset ( -> )
	;on-char #10 DEO2
	BRK

@on-char ( -> )
	#12 DEI
	DUP [ LIT "A ] SUB #26 LTH
	JMP BRK
	( >> )

@add-char ( c -- )
	[ LIT &ptr 00 ]
	STZk
	INC DUP ,/ptr STR

	#31 EQU JMP BRK
	( >> )

@finish ( -- )
	[ LIT2r 0a18 ]
	#3000 &loop
		OVR DIVk MUL SUB
		LDZk STHrk DEO
		#07 ADD NEQk ?/loop
	LDZ STHrk DEO
	STH2r DEO #800f DEO BRK