19 lines
306 B
Tal
19 lines
306 B
Tal
|
( . _ )
|
||
|
|
|
||
|
|
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
||
|
|
|
||
|
|
|100
|
||
|
|
|
||
|
|
@on-reset ( -> )
|
||
|
|
;on-console .Console/vector DEO2
|
||
|
|
BRK
|
||
|
|
|
||
|
|
@on-console ( -> )
|
||
|
|
[ LITr -Console/read ] DEIr #f8
|
||
|
|
&>l ( -- )
|
||
|
|
[ LIT2 "._ ] STHkr #01 AND ?{ SWP }
|
||
|
|
POP #18 DEO
|
||
|
|
[ LITr 01 ] SFTr INC DUP ?&>l
|
||
|
|
POP POPr BRK
|
||
|
|
|