( dev/console )

%RTN { JMP2r }

|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 ]

( init )

|0100 ( -> )

	;on-stdin .Console/vector DEO2

BRK

@on-stdin ( -> )

	.Console/read DEI .Console/write DEO

BRK