mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 21:49:17 +00:00
12 lines
176 B
Forth
12 lines
176 B
Forth
\ String Ext.
|
|
|
|
CR .( loading String extensions )
|
|
|
|
: S" ASCII " PARSE
|
|
HERE 2DUP ! 1+
|
|
OVER 1+ ALLOT
|
|
2DUP 4 ROLL SWAP ROT
|
|
1+ MOVE SWAP ;
|
|
|
|
CR .( String extensions loaded )
|