"CODE" 34425;
 "PROCEDURE" DECSOLTRI(SUB, DIAG, SUPER, N, AUX, B);
 "VALUE" N; "INTEGER" N; "ARRAY" SUB, DIAG, SUPER, AUX, B;
 "BEGIN"
         DECTRI(SUB, DIAG, SUPER, N, AUX); "IF" AUX[3]= N "THEN"
         SOLTRI(SUB, DIAG, SUPER, N, B)
 "END" DECSOLTRI;
        "EOP"