Ви не можете вибрати більше 25 тем
Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
|
- ( Same as MOVE, but with A@ and A! )
- ( src dst u -- )
- : AMOVE
- ( u ) 0 DO
- SWAP DUP I + A@ ( dst src x )
- ROT SWAP OVER I + ( src dst x dst )
- A! ( src dst )
- LOOP
- 2DROP
- ;
|