main pita/uxn12 / etc / utils / hx.tal
 1( cat a.rom | uxncli hx.rom > b.txt )
 2
 3@on-reset ( -> )
 4	;on-console #10 DEO2 BRK
 5@on-console ( -> )
 6	#0417 DEI NEQ [ JMP BRK ]
 7	#12 DEI DUP #04 SFT emit emit INC
 8@spacer ( c -> )
 9	DUP #0f AND ?{ #0a18 DEO BRK }
10	DUP #01 AND ?{ #2018 DEO } BRK
11@emit ( c -- )
12	#0f AND DUP #09 GTH #27 MUL ADD LIT "0 ADD #18 DEO JMP2r
13