Mirror of CollapseOS
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

13 satır
237B

  1. ( Drop RSP until I-2 == INTERPRET. )
  2. : EXIT!
  3. ['] INTERPRET ( I )
  4. BEGIN ( I )
  5. DUP ( I I )
  6. R> DROP I 2- @ ( I I a )
  7. = UNTIL
  8. DROP
  9. ;
  10. ( a -- a+1 c )
  11. : C@+ DUP C@ SWAP 1+ SWAP ;