11 lines
153 B
Plaintext
11 lines
153 B
Plaintext
|
: SCPY
|
||
|
BEGIN ( a )
|
||
|
DUP C@ ( a c )
|
||
|
DUP C, ( a c )
|
||
|
NOT IF DROP EXIT THEN
|
||
|
1+ ( a+1 )
|
||
|
AGAIN
|
||
|
;
|
||
|
|
||
|
|