Спасибо, посмотрел. Действительно, когда есть много отложенных (нереализованных пока) возможностей, он падает на втором проходе.
Из непонятных мне ошибок:
1. Оператор free
allocate a;
allocate a, b;
free a;
принимает, а вот
free a, b;
не принимает:
635 FREE YK0RC, PYK0RC, JK0RC, PJK0RC;
636 (ERR222)Invalid syntax in FREE statement at «YK0RC,PYK0RC,JK0RC,PJK0RC».
636 (INF249)-input flushed to next «;».
а вот это место непонятно вообще тут принимает?
808 IF N2^=0B THEN
809 FREE JJ1A, YY1A, JJD, YYD, PJ1A, PY1A, DJ1A, PDJ1A, DY1A, PDY1A,
810 PJD, PYD;
811 (ERR222)Invalid syntax in FREE statement at «JJ1A,YY1A,JJD,YYD».
811 (INF249)-input flushed to next «;».
811 IF KEYW THEN FREE JJA, YYA, PJA, PYA, DJA, PDJA, DYA, PDYA;
812
813 (ERR222)Invalid syntax in FREE statement at «JJA,YYA,PJA,PYA».
813 (INF249)-input flushed to next «;».
Или это все следствие комплексности некоторых массивов?
2. PUT DATA
оператор put data; не принимает, хорошо бы проверить, примет ли put data();
3. Непонятно, почему не нравится:
479 (ERR208)Unrecognized keyword GMS.
479 LOCATE GMS FILE(F1) SET(PR);
и сообщение тоже противоречивое
4. Не поддерживается встроенная функция secs
5. Не нравится некрасивое, но нормальное объявление:
62 DCL(M INIT(1d10),M1 INIT(1e-10),X00 INIT(1e-20),X0I INIT(18.0e0),
63 X0K1 INIT(1.5e0),X0K2 INIT(17.5e0),E1 INIT(1.0e-17),
64 PI INIT(3.14159265358979324e0),D(5),A,B,C,T,H,A1,AX,Z,GM,S,X1,X2,
65 QN,QC,I1,I0,K1,K0,BX,DX,B0,B1,B2,B3,B4,C0,$,#,#0,#2,#3,#4,#8,
62 (ERR222)Invalid syntax in INITIAL list at «1 D10».
6. То же странно:
10 DCL S(0:59) CHAR(80) VAR CONNECTED;
10 (ERR254)Invalid attribute CONNECTED.
11 S( 0)=’P E З У Л Ь T A T Ы P A C Ч E T A’;
12 S( 1)=’PACЧET ПAPAMETPOB ЦИЛИHДPИЧECKOЙ AHTEHHOЙ PEШETKИ’;
13 S( 2)=’ЧИCЛO ЭЛEMEHTOB (CEKTOPИAЛЬHЫX BOЛHOBOДOB) B ПEPEДAЮЩEЙ’;
и потом:
11 (INF684)Array argument for S assumed to be CONNECTED.
12 (INF684)Array argument for S assumed to be CONNECTED.
13 (INF684)Array argument for S assumed to be CONNECTED.
Надо будет собрать и послать. Если у Вас что-нибудь есть — шлите — я отработаю.