section id="fig-forth-1802.create" xreflabel="CREATE"

        DB 086h,"CREAT",0C5h ; CREATE
        DW ID-6
CRTE:   DW NEST
        DW FSPAT
        DW HERE
        DW LIT
        DW 000A0h
        DW PLUS
        DW LESS
        DW TWO
        DW QERR
        DW MFIND
        DW ZBRCH
        DW CRT1
        DW DROP
        DW NFA
        DW ID
        DW LIT
        DW 00004h
        DW MSG
        DW SPC
CRT1:   DW HERE
        DW DUP
        DW CAT
        DW WIDTH
        DW AT
        DW MIN
        DW PLUS1
        DW ALLOT
        DW DUP
        DW LIT
        DW 000A0h
        DW TGLE
        DW HERE
        DW ONE
        DW MINS
        DW LIT
        DW 00080h
        DW TGLE
        DW LTST
        DW COMMA
        DW CRNT
        DW AT
        DW EX
        DW HERE
        DW PLUS2
        DW COMMA
        DW SEMIS