mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 02: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 )
|