1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-14 17:28:05 +11:00
collapseos/blk/367
2020-05-22 13:48:30 -04:00

7 lines
120 B
Plaintext

: SCPY
BEGIN ( a )
C@+ ( a+1 c )
?DUP NOT IF DROP EXIT THEN
C, ( a c )
AGAIN ;