25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- ( a1 a2 u -- )
- : MOVE
- ( u ) 0 DO
- SWAP DUP I + C@ ( a2 a1 x )
- ROT SWAP OVER I + ( a1 a2 x a2 )
- C! ( a1 a2 )
- LOOP
- 2DROP
- ;
-
- : DELW 1- 0 SWAP C! ;
-
- : PREV
- 3 - DUP @ ( a o )
- - ( a-o )
- ;
|