12205Srootmodel|mod|m:\ 22205Sroot :pb=\p\dis\dbeginproc:bb=\dbeginproc\d:be=\dendproc\d|;:\ 32205Sroot :cb=\$:ce=\$|$:sb=":se=":lb=':le=':\ 42205Sroot :kw=abs and array beginproc boolean by case cdnl char copied dispose\ 52205Sroot div do dynamic else elsif end endproc entry external f FALSE false\ 62205Sroot fi file for formal fortran global if in integer include inline is lbnd\ 72205Sroot max min mod new NIL nil noresult not notin od of or procedure public\ 82205Sroot read readln readonly record recursive rem rep repeat result return set\ 92205Sroot space string subscript such then TRUE true type ubnd union until\ 102205Sroot varies while width write writeln: 112205Srootpascal|pasc|p:\ 122205Sroot :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ 132205Sroot :bb=\dcase|begin\d:be=\dend|forward\d|;:\ 142205Sroot :cb={|\(*:ce=}|*\):sb=':se=\e':\ 152205Sroot :kw=and array assert begin case const div do downto else end file for\ 162205Sroot forward function goto if in label mod nil not of or packed procedure\ 172205Sroot program record repeat set then to type until var while with oct hex\ 182205Sroot external: 192205SrootC|c:\ 202205Sroot :pb=^\d?*?\d?\p\d?\(\a?\):bb={:be=}:cb=/*:ce=*/:sb=":se=\e":lb=':\ 212205Sroot :le=\e':tl:\ 222205Sroot :kw=asm auto break case char continue default do double else enum\ 232205Sroot extern float for fortran goto if int long register return short\ 242205Sroot sizeof static struct switch typedef union unsigned while #define\ 252205Sroot #else #endif #if #ifdef #ifndef #include #undef # define else endif\ 262205Sroot if ifdef ifndef include undef: 272290SrootISP|isp|i:\ 28*2292Sroot :cb=!:ce=!|$:oc:\ 292205Sroot :kw=and begin decode define end eql eqv geq gtr if leave leq lss mod\ 302205Sroot neq next not or otherwise repeat restart resume sr0 sr1 srd srr sl0 sl1\ 312205Sroot sld slr tst xor: 32