SCR # 34 
  0 ( ^ LABEL LOCVOC )
  1                 ( JMR-93MAR21 )
  2  BIF DEFINITIONS DECIMAL
  3 
  4 : ^ ( EXPONENT WITH ?ERROR )
  5   -DUP 0= IF DROP 1 ( N 0 ^ )
  6   ELSE OVER DUP 0= ( 0 N ^ )
  7     SWAP 1 = OR ( 1 N ^ )
  8     OVER 1 = OR ( N 1 ^ )
  9     IF DROP
 10     ELSE 1 SWAP
 11       0 DO
 12         OVER M* 54 ?ERROR
 13       LOOP SWAP DROP
 14     ENDIF ENDIF ;
 15 
 16 : LABEL ( --- ) ( BUILD GOTO )
 17   <BUILDS IMMEDIATE COMPILE-ONLY
 18   0 , DOES>
 19   DUP @ IF COMPILE BRANCH
 20     @ HERE - 2- ,
 21   ELSE HERE SWAP !
 22   ENDIF ;
 23 
 24 : LOCVOC VOCABULARY IMMEDIATE ;
 25 
 26 : GETNUMBER ( ADR N --- )
 27   1- OVER 1+ SWAP EXPECT
 28   BL ENCLOSE OVER + 0 SWAP C!
 29   NUMBER DROP ;
 30 
 31 : $ DUP . ;