• location: $VIMFILES/after/syntax/progress.vim

syn clear
syn case ignore

syn keyword keyword not run find format where like put control index field initial no-lock exclusive-lock no-error no-wait by yes no leave view assign create release available delete first return delimiter begins display down with page width no-box no-labels output quit to as view-as alert-box error message import export unformatted from
syn keyword conditional if then else case when next and or
syn keyword repeat do for each while
syn keyword function locked avail substring trim
" this section causes a problem with the temp-table folding
    "syn keyword define contained define def as var variable parameter
    "syn match define /^\s*\(def\|define\).*\(temp-table\)\@!/ contains=ALL
syn keyword type int integer char character date logical temp-table shared stream input frame buffer init
syn keyword boolean true false

syn region doublestring start=/"/ end=/"/
syn region singlestring start=/'/ end=/'/
syn region form start=/^\s*form.*/ end=/\.$\|\.\s/ contains=comment fold
syn region frame start=/^\s*\(def\|define\) frame.*/ end=/\.$\|\.\s/ contains=comment fold
syn region temptable start=/^\s*\(def\|define\) \(shared \)\=temp-table.*/ end=/\.$\|\.\s/ contains=comment fold
syn region procedure start=/^\s*procedure .*/ end=/^end.*/ contains=ALLBUT,procedure fold
" comments work unless a nested comment ends without a space before ending the
" outer comment: example /* test /* nest */*/
    syn region comment start=/\/\*/ end=/\*\// contains=comment

set fen
set foldnestmax=1
set foldlevel=0
set foldmethod=syntax
syn sync fromstart