( ASSEMBLER CONDITIONALS )                                      : BEGIN,  HERE 1 ;              IMMEDIATE                       : UNTIL,  ?EXEC >R 1 ?PAIRS R> C, HERE 1+ - C, ; IMMEDIATE      : IF,     C, HERE 0 C, 2 ;      IMMEDIATE                       : THEN,   ?EXEC 2 ?PAIRS HERE OVER C@                               IF SWAP ! ELSE OVER 1+ - SWAP C! THEN ; IMMEDIATE           : ELSE,   2 ?PAIRS HERE 1+ 1 JMP,                                   SWAP HERE OVER 1+ - SWAP C! 2 ; IMMEDIATE                   : NOT     20 + ;                                                90 CONSTANT  CS                                                 D0 CONSTANT  0=                                                 10 CONSTANT  0<                                                 90 CONSTANT  >=                                                                                                                                                                                                                                                 