1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 04:58:06 +11:00
collapseos/blk/407
2020-05-12 07:21:34 -04:00

9 lines
129 B
Plaintext

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