sys.f

   1 S" :" CREATE ] DOCOL
   2   READ-WORD CREATE
   3   LIT DOCOL ,
   4   ]
   5 EXIT [
   6
   7 : ;
   8   LIT EXIT ,
   9   [ S" [" FIND >CFA , ]
  10   EXIT
  11 [ IMMEDIATE
  12
  13 : / /MOD DROP ;
  14 : MOD /MOD SWAP DROP ;
  15 : NEG 0 SWAP - ;
  16
  17 : IF IMMEDIATE
  18   ' 0BRANCH ,
  19   HERE @
  20   0 ,
  21 ;
  22
  23 : THEN IMMEDIATE
  24   DUP
  25   HERE @ SWAP -
  26   SWAP !
  27 ;
  28