[CREATE] ;S ! " # & ' ( + , - . 0 1 >R = @ SP@ C! R C, BL C@ 16# CR DP PARSE WORD SCRATCH LIT ALLOT HLD SWAPBYTES CMOVE >DIGIT R> ID. U/ SCASB BRANCH 0BRANCH DUP COUNT FILL DICT VARIABLE INPUT QUIT BUFFER EMIT CONSTANT HIGHLEVEL (") OVER EXECUTE CREATE JMP, #> BASE36 INTERPRET TYPE LATEST NFA HERE BASE HASH >IN -1 DROP DOCOMMAND NEXT 1+ 1- B/BUF SWAP >CODE DOCOL JZ, HOLD COLD WORDS <# bind