SubProgramDirs : ARRAY[0..4] OF STRING [...] Open> <ActualParamList [...] NameExp> [, <ActualParamList

创建路径后，必须设置结束标记： QUEUE-bEndOfList [...] positions processed QUEUE.bEndOfList [...] :ARRAY[1..2] OF REAL