(dotdash) Added new project
This commit is contained in:
parent
c1ada0d3a6
commit
0132d025cd
|
@ -0,0 +1,18 @@
|
||||||
|
( . _ )
|
||||||
|
|
||||||
|
|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
|
||||||
|
|
Loading…
Reference in New Issue