/L20"Forth" Nocase Noquote "Line Comment Num = 2\ " Block Comment On = (( Block Comment Off = )) "Block Comment On Alt = ( " Block Comment Off Alt = ) File Extensions = FTH CTL BLD DGS MAN SEQ FRT F STH 4TH CTH PTH UTH 5TH /Delimiters = /Indent Strings = ": " /Unindent Strings = ";" /Open Brace Strings = /Close Brace Strings = /Open Fold Strings = ": " /Close Fold Strings = ";" /C1"Structure" +loop ?do ?leave ?of again asmcode bank begin case cdata code compiler do else end-case end-code endcase endif endof exit export from get host host&target idata if immediate include interpreter leave loop nextcase of pages proc repeat section target target-only target-support then udata until while [ ] /C2"Data definers" 2constant 2variable ;code buffer: constant create defer does> user value variable /C3"Visibility" also definitions end-module module only previous vocabulary wordlist [defined] [else] [endif] [if] [then] [undefined] /C4"VFX/XC specials" assign atcold atexit end-struct equ extern extern: external internal is l: struct to-do ['] [char]