home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / cconvert.rec < prev    next >
Encoding:
INI File  |  1990-07-11  |  19.2 KB  |  317 lines
  1. [CCONVERT.REC]
  2. {{(''0 1x);)~
  3. (0x(1x((@~J@wZ<(@KjJ><0x](A);>)>1x]JZD0x[2x({(''2x);)~((@~J'['Ez{('.CNV]'Ez;)#('.CNV]'2x>;)}JZD'['I2x['.REC]'I2573,I@O;JZ@~J'[Exclude LIB]'EzJZD'MEM:incl'I'w'xOz<'MEM:incl,LB'IxW>JZD;JZ@~J'[Include 'Ez{(']'Ez(A);)#(']'2x>;)}JZD'MEM:incl,'I2x[xW;JZD;)@~1x:;)}1x[:
  4. @~J@wZ<(0x]jJ><Z<('{'Ez;J'('Ez;>)>Zz;>)>JZD'{'I@Oz<0x[@E(J'}'EzJZD'h'@x;JZD;)>;
  5. @~JZ@L:
  6. Z;)@~2x:;)}a
  7. {(Z<(26%Ez;J@K;>)>;)z
  8. (''0 1x);)~
  9. (0x(1x((@~J@SJZD0x[:
  10. @~J26%EzJZz<'No main'I'x'@x>;
  11. @~J'('Ez26%EzJZD'f'@x;
  12. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@G>:
  13. @~J29%Ez0x]JZD0x[;
  14. @~J27%Ez@wZ<(1(a;L)zjJ><0x](A);>)>1x]JZD0x[1x[(J@zJZD' Main'I@TJZD6685,I;JZD0x[J@nJZD0x[@T2573,I@O;JZJ'}'EzJZD29%I'}'I;JZD'd'@x;)1x[:
  15. @~J27%Ez@w0x]JZD27%Iz<0x[@L>:
  16. @~JZ<(1(a;L)zjJ><(Z<Z<('{'Ez;J'('Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD'Expected {, [, ('I'b'@x1x[:
  17. @~J'('Ez@W'('Ez0x]JZD'{'I@Oz<'patt: 'Ixt>z<0x[@0>:
  18. @~J'('Ez@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD'c'@x'('I1x[:
  19. @~J0x]JZD0x[@L:
  20. Z;)@~2x:;)}E
  21. {(JZ(J26%EzJZz<'a'@x>;Z;);)u
  22. (''0 1x);)~
  23. (0x(1x((@~J'{'Ez@W'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@G@u>;
  24. @~J'{'Ez@W'('Ez0x]JZD'('I0x[@E@u:
  25. @~J'}'Ez@wZ<(1(a;L)zjJ><0x](A);>)>1x]JZD'}'I@T@Oz<0x[1x[(J@zJZD0x[;JZD0x[J@nJZD0x[@T2573,I@O;JZJ'}'EzJZ;JZD'd'@x;)>1x[;
  26. @~JZ@L:
  27. Z;)@~2x:;)}G
  28. {(26%Ez;)z
  29. {(JZ@0;)E
  30. (JZD','I13%IxWz<'a'@x>'}*)('I0x[;)2
  31. (JZ@G;)}g
  32. (''0 1 2x);)~
  33. (0x(1x(2x((@~J@SJZD0x[:
  34. @~J27%Ez0x]JZD0x[;
  35. @~J26%EzJZD'f'@x;
  36. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@g>:
  37. @~JZ<(Z<(')'Ez;J;>)>jJ><2x](A);>)>@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD'c'@x2x[1x[:
  38. @~J')'Ez@W'('Ez0x]JZD'skel: 'Ixtz<0x[@2>;
  39. @~J'(<:@:>)'Ez@w'}'Ez0x]JZD'(@@;)'I@O'}'I0x[;
  40. @~JZ<('q'@FjJ><'('Ez{(')'Ez(A);)#(')'0x>;)};>)>@wZ<(1(a;L)zjJ><1x](A);>)>2x]JZD'('Iz<0x[z<11x[(J'S'EzJZD;JZD'<:%:>'I;)>@b(J31%FzJZD'Ill <=>'I'x'@x;Z;)>';)'I@Oz<1x[(J@nJZ@T2573,I@O;JZJ'}'EzJZD27%I'}'I;JZD'd'@x;)>2x[:
  41. @~J0x]JZD0x[@L:
  42. Z;)@~3x:;)}0
  43. {{(JZ@2;)E
  44. (JZD','I13%IxWz<'a'@x>'}*)('I0x[;)4
  45. (JZ@G;)}g
  46. (''0 1 2x);)~
  47. (0x(1x(2x((@~J@SJZD0x[:
  48. @~J27%Ez0x]JZD0x[;
  49. @~J26%EzJZD'f'@x;
  50. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@g>:
  51. @~JZ<(Z<(')'Ez;J;>)>jJ><2x](A);>)>@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD'c'@x2x[1x[:
  52. @~J')'Ez@W'('Ez0x]JZD'vble: 'Ixtz<0x[@4>;
  53. @~J'((@))'Ez@w'}'Ez0x]JZD'(@@;)'I@O'}'I0x[;
  54. @~JZ<('q'@FjJ><'('Ez{(')'Ez(A);)#(')'0x>;)};>)>@wZ<(1(a;L)zjJ><1x](A);>)>2x]JZD'('Iz<'JZD'I27%I0x[@C>';)'I@Oz<1x[(J@nJZ@T2573,I@O;JZJ'}'EzJZD27%I'}'I;JZD'd'@x;)>2x[:
  55. @~J0x]JZD0x[@L:
  56. Z;)@~3x:;)}2
  57. {(''0 7 1x);)~
  58. (0x(7x(1x((@~JZ<(@VjJ><7x](A);>)>')'Ez@W'('Ez0x]JZD7x[@TJZD'rule: 'Ixtz<'o'@7>z<0x[@5>;
  59. @~J{(')'Ez@W'('Ez0x];)#(')'7x>;)}JZD'e'@x')('I0x[:
  60. @~J{(')'Ez@WZ<(1(a;L)zjJ><(Z<Z<('('Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>1x];)#(')'7x>;)}JZD'c'@x7x[')'I1x[:
  61. @~J0x]JZD0x[@L:
  62. Z;)@~3x:;)}4
  63. {(''0 1 2 3x);)~
  64. (0x(1x(2x(3x((@~J@SJZD0x[:
  65. @~JZ<(26%Ez;J')'Ez@W26%Ez;>)>JZD'f'@x;
  66. @~JZ<(1(a;L)zjJ><(Z<Z<('('Ez;J')'Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD'Expected (, ), ['I'b'@x1x[:
  67. @~J')'Ez@WZ<(1(a;L)zjJ><(Z<Z<(')'Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>1x]JZD')'Iz<'Expected ), ['I'b'@x>1x[:
  68. @~J')'Ez@W')'Ez0x]JZD'Z;)'Iz<'m'@7>'}'I@O27%I0x[;
  69. @~JZ<('q'@FjJ><'('EzZ<('k'@FjJ><2x](A);>)>','EzZ<('k'@FjJ><1x](A);>)>')'Ez(A);>)>@wZ<(1(a;L)zjJ><0x](A);>)>3x]JZD'n'@7z<2x[(J((A))JZD'J'Iz<2x[@b>(J31%Fzx'D'64'I@I'x'I39%Iz<64x[0x(1x({(''0 1x);)~((@~J{(31%Ez1x];)#(31%0x>;)}JZD0x['64x['I>z<1x[:;)Z>@~2x:;)}'x'I34%Ix";Z;);Z;)>z<'JZD'I27%I1x[@C>@Oz<0x[(JZ<(':'Ez;J';'Ez;>)>JZ@T2573,I@O;JZz<'Expected :, ;'I'b'@x>z<'_'I2573,I@O>;)>3x[:
  70. @~JZ<('q'@FjJ><0x](A);>)>@wZ<(':'Ez;J';'Ez;J;>)>1x]JZD'Bad rule'I'b'@xz<'_'I@O>1x[:
  71. @~J0x]JZD0x[@L:
  72. Z;)@~4x:;)}5
  73. {{(''0 1 2 10x);)~
  74. (0x(1x(2x(10x((@~JZ<(1(a;L)zjJ><0x](A);>)>{({({({(')'Ez10x];)#(')'0x>;)};)#(2x<;)};)#(0x<;)};)#(1x<;)}JZD'(QUO'I0x[1x[0x[')'I@kz<'(QUO'I0x[2x[0x[')'I@k>'Mz'Iz<@e>;
  75. @~J0x]JZD'IVL stx err'I'b'@x;
  76. Z;)@~4x:;)}U
  77. {(''7 10x);)~
  78. (7x(10x((@~J','Ez'z'@F'('EzZ<(@VjJ><7x](A);>)>')'Ez'z'@F','Ez10x]JZD'b'@7'{('Iz<'a'@7>z<'c'@7>';)~('Iz<10x[@b>'@~;@~)}'I;
  79. Z;)@~2x:;)}L
  80. {(''0 10x);)~
  81. (0x(10x((@~J@l(A)JZD0x[39%I39%I;
  82. @~J@lZ<('K'@F(A)jJ><10x](A);>)>JZD0x[z<10x[@k>;
  83. @~JZ@C'JQD'I;
  84. Z;)@~2x:;)}s
  85. {('<>'Ez(Z<'<>'Ez>:J>;);)B
  86. (JZD1x[(J((A))JZD'J'I;Z;);)j
  87. (''1 10x);)~
  88. (1x(10x((@~J(A)JZD;
  89. @~J{(27%Ez10x];)#(27%1x>;)}JZD1x[z<10x[(J((A))JZ@b;Z;)>;
  90. @~J'Z'@F'z'@F10x]JZD10x[:
  91. @~J'<['EzZ<('i'@FjJ><1x](A);>)>']>'Ez10x]JZD1x['(a;L)z'Iz<@e>:
  92. @~J'<['EzZ<((lqL']>'EzLL;Yx{Z<('q'@F;J1(a;L)z;>)>:)jJ><{(']>'Ez(A);)#(']>'1x>;)};>)>10x]JZD'j<'I27%I1x[@s'>(Oa;L)z'Iz<@e>:
  93. @~J'<:'EzZ<(Z<('%'Ez;J'@'Ez;J'~'Ez;>)>jJ><1x](A);>)>':>'Ez(A)JZD1x[(J'~'EzJZD'x8'I;JZD'@'I1x[;);
  94. @~J'<:'EzZ<(@n(lqL':>'EzLL;Yx{@n:)jJ><{(':>'Ez(A);)#(':>'1x>;)};>)>10x]JZD11x[(J'S'EzJZD1x[@iz<@e>;JZD10x[10x({(''10x);)~((@~J{('<:%:>'Ez(A);)#('<:%:>'10x>;)}JZD'x9{('Iz<10x['<:~:>'I@b>';)%('Iz<1x[@i>'x};x})}'I;JZ@~J10x]JZD'{('Iz<10x[@b>';)%('Iz<1x[@i>';)}'I;Z;)@~1x:;)}z<'::'I@I>27%I;):
  95. @~J'<'EzZ<(Z<('--'Ez;J@v;>)>jJ><1x](A);>)>'>'Ez'Z'@F'z'@F10x]JZD'<'I1x['>'I10x[:
  96. @~J'<-->'EzZ<('<>'Ez(Z<'<>'Ez>:J>;);J(A);>)>10x]JZD'Zz'Iz<@e>:
  97. @~J'<-->'EzZ<(Z<('K'@F;J;>)>jJ><1x](A);>)>10x]JZD10x[(J(A)JZD1x[@k'Fz'I;JZD'(l('Iz<1x[(J((A))JZD1x[@k'(Fz;ZzqL)'I;Z;)>'qL'Iz<10x[@b>'L;Y)L;x{A'Iz<1x[(J((A))JZD'B'I;Z;)>':)'I;);
  98. @~JZ<('K'@FjJ><1x](A);>)>10x]JZD1x[@k'Ez'Iz<@e>:
  99. @~J@B10x]JZD'(A)'Iz<@e>:
  100. @~J'<'EzZ<(@vjJ><1x](A);>)>'>'EzZ<(10x]jJ><Z<('<>'EzZz;J;>)>(A);>)>JZD1x['x]'Iz<@e>:
  101. @~J'<'EzZ<(@vjJ><1x](A);>)>'>'Ez10x]JZD'{('Iz<10x[@b>';)#('Iz<10x[2x({(''2x);)~((@~JZ<('K'@FjJ><2x](A);>)>JZD2x[@k1x['x>'I;JZD1x['x<'I;)@~1x:;)}>';)}'I;
  102. @~J'<()>'Ez10x]JZD39%I'('I39%I'Ezx*'Iz<'()'I@I>z<@e>:
  103. @~J'(DEF'EzZ<((Z<','Ez'k'@F','Ez@n>:J>;)','Ez'k'@FjJ><1x](A);>)>')'Ez10x]JZD'{'Iz<1x[10x(1x(2x({(''10 1 2x);)~((@~JZ<(','Ez'k'@F','Ez@njJ><','Ez{(','Ez@n(A);)#(','10x>;)}J','Ez{(','Ez1x](A);)#(','10x>;)};>)>2x]JZD'('Iz<10x[z<11x[(J'S'EzJZD;JZD'<:%:>'I;)>@b>';)'I1x[>z<2x[:;)(@~J','Ez10x]JZD'('Iz<10x[@b>';)'I>z<:;)Z>@~3x:;)}'}'Iz<@e>:
  104. @~J'(ITR,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD'(Z<'Iz<1x[@b>'>:J>;)'Iz<@e>:
  105. @~J'(itr,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD'(lqL'Iz<10x[@b>'LL;Yx{'Iz<1x[@b>':)'I;
  106. @~J'('EzZ<('OR'Ez;J'or'Ez;>)>')'Ez10x]JZD'()'Iz<@e>:
  107. @~J'('EzZ<('AND'Ez;J'and'Ez;>)>')'Ez10x]JZD10x[:
  108. @~J'('EzZ<('AND'Ez;J'and'Ez;J'OR'Ez;J'or'Ez;>)>','EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD1x[10x[:
  109. @~J'(and'Ez'*'@FJZD1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'Z<('Iz<10x[@b>'jJ><'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x['<>'I@bz<@j>>z<1x[:;)Z>@~2x:;)}';>)>'I;Z;)@~2x:;)}z<@e>:
  110. @~J'(or'Ez'*'@FJZD'Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[@b';'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)>'Iz<@e>:
  111. @~J'(AND'Ez'*'@FJZD10x[0x(1x({(''0 1x);)~((@~J{('<:%:>'Ez1x];)#('<:%:>'0x>;)}JZD0x['<:~:>'I1x[;Z;)@~2x:;)}27%I1x[10x(1x(2x({(''10 1 2x);)~((@~J{(27%Ez'+'@F;)#(27%2x>;)}JZD'Z<('Iz<2x[(J'<:~:>'FzJZD'x9'I;JZD;)>z<10x['(REC'I29%I'(ljJ><'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x['<>'I@bz<@j>>z<1x[:;)Z>@~2x:;)}z<2x[(J((A))x'D'qLJ>Z<Y'Iz<64x[@b>x";Z;)>'>L;x{J>Z<)'I29%I')'I@b>z<2x[(J'<:~:>'FzJZD'x};x}'I;JZD';'I;)>'>)'I;Z;)@~3x:;)};
  112. @~J'(OR'Ez'*'@F10x]JZD'Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'l'Iz<10x[@b>';x{'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)L>'I;
  113. @~J'(OR'Ez'*'@FJZD10x[10x({(''10x);)~((@~J'<:%:>'Ez(A)JZD'Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'l'Iz<10x['<:%:>'I@b>';x{'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)L>'I;JZ@~J{('<:%:>'Ez;)#('<:%:>'10x>;)}JZD'x9{('Iz<10x['<:~:>'I@b>';)%(Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'l'Iz<10x['<:%:>'I@b>';x{'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)L>x};x})}'Iz<'::'I@I>;JZ@~J10x]JZD'{('Iz<10x[@b>';)%(Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'l'Iz<10x['<:%:>'I@b>';x{'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)L>;)}'I;Z;)@~1x:;)};
  114. @~J'(NOT,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD'(Z<'Iz<1x[@b>'J>)'Iz<'J>'Iz<@e>10x({(''10x);)~((@~J'J>'Ez27%EzZ<(@B;J(A);>)>10x]JZD'>Zz'Iz<@e>;Z;)@~1x:;)}>:
  115. @~J'(nor'Ez'*'@FJZD'(NOT,(or'I1x['))'I10x[:
  116. @~J'(^)'Ez10x]JZD'0%31%Mz'Iz<@e>:
  117. @~J'(IVL'Ez1x]JZD1x[@U:
  118. @~J'(ivl'Ez'*'@FJZD'('Iz<1x[0x(10x(1x({(''0 10 1x);)~((@~J','EzZ<('k'@FjJ><0x](A);>)>'+'@FJZD'j<'I27%I0x[@sz<@e>@s'>Mz;'I>z<1x[:;)(@~J'+'@FJZD10x[(J((A))JZD'j<'Iz<@e>@s'>'I39%I39%I'Mz;'I;Z;)>z<:;)Z>@~3x:;)}')'Iz<@e>:
  119. @~J'R'@F10x]JZ0x(1x({(''0 1x);)~((@~J'(REC'EzZ<(1(a;L)zjJ><0x](A);>)>{(0x];)#(1x<;)}JZD1x[;Z;)@~2x:;)}z<@e>:
  120. @~J'(LAM'Ez'*'@FJZD1x[@Lz<@e>:
  121. @~J'(PWS)'Ez10x]JZD'x+Zqtj'Iz<@e>:
  122. @~J'(PWS,'EzZ<('K'@FjJ><1x](A);>)>')'Ez10x]JZD'x+'Iz<1x[@k>'TLZqtj'Iz<@e>:
  123. @~J'(HLT)'Ez10x]JZD'RL'Iz<@e>:
  124. @~J'(HLT,'EzZ<('K'@FjJ><1x](A);>)>')'Ez10x]JZD'x+'Iz<1x[@k>'TLRL'Iz<@e>:
  125. @~J'(NOP'EzZ<(','Ez'k'@F;J;>)>')'Ez10x]JZD@e:
  126. @~J'(PVR,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD1x[(J@vJZD'v 'I@I1x['x_'I;JZD'Not a var'I'g'@x;)z<@e>:
  127. @~J'()'Ez1x]JZD1x[:
  128. @~JZ<('q'@FjJ><1x](A);>)>10x]JZD'j<'I27%I1x[@s'>Ez'Iz<@e>:
  129. @~J1x]JZD'Ill patt'I'g'@x;
  130. Z;)@~2x:;)}}b
  131. {{(','EzZ<('k'@FjJ><1x](A);>)>;)1
  132. (','Ez'z'@F'('EzZ<(@VjJ><7x](A);>)>')'Ez'z'@F;)u
  133. (JZD10x[(J(A)JZD'x~'I;JZD;);)j
  134. (JZD'JZD'I27%I1x[@C;)J
  135. (JZD'z<'Iz<@e>@c0x({(''0x);)~((@~J'z<'Ez0x]JZD0x[;Z;)@~1x:;)};)p
  136. (''7 1 10x);)~
  137. (7x(1x(10x((@~J','EzZ<(10x]jJ><Z<('CTR'Ez;J'STK'Ez;J'ARR'Ez;>)>':'EzZz;>)>JZD@p'xR'Iz<'R 'I@I>;
  138. @~J@uZ<(','Ez;J;>)>Z<('k'@F(A)jJ><10x](A);>)>JZD'{(Jx|;)~('Iz<@p>'xRA;;)}x~'I;
  139. @~J@u'+'@FJZD'{(J'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[(J(A)JZD'x|'I;JZ@b;)';)~('I;Z;)@~2x:;)}>z<@p>z<'b'@7>'xRA'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[(J((A))JZD'BD'I;Z;)z<1x[1x({(''1x);)~((@~J','Ez'k'@F@1JZD@J;JZD@j;)@~1x:;)}>';'Iz<1x[1x({(''1x);)~((@~J@1JZD@J;JZD@j;)@~1x:;)}>;Z;)@~2x:;)}>';)}'Iz<'a'@7>z<'c'@7>;
  140. @~J','Ez1x]JZD',(),'I1x[z<'Warning: () added to %R'Ixt>:
  141. @~J1x]JZD'Ill %R'I'g'@x;
  142. Z;)@~3x:;)}r
  143. {(''1 3 10x);)~
  144. (1x(3x(10x((@~J(A)JZD;
  145. @~J','EzZ<('k'@FjJ><3x](A);>)>'+'@FJZD'n'@7'J'Iz<@2>z<3x[@b>z<@3>z<'JZD'Iz<@e>@C>';Z'I;
  146. @~J1x]JZD@j;
  147. Z;)@~3x:;)}J
  148. {(''1 10x);)~
  149. (1x(10x((@~J(A)JZD;
  150. @~J'+'@FZ<(1x]jJ><(A);>)>JZD'JZD'Iz<@e>@C;
  151. @~J1x]JZD@j;
  152. Z;)@~2x:;)}U
  153. {(Z<((l('j<'(Fz;ZzqL)qL(A)L;Y)L;x{AB:);J(l('z<'(Fz;ZzqL)qL(A)L;Y)L;x{AB:);J(l('JQD'(Fz;ZzqL)qL(A)L;Y)L;x{AB:);J(l('JZD'(Fz;ZzqL)qL(A)L;Y)L;x{AB:);>)>;)t
  154. (JZD0x[(J@tJZD;JZD'z<'I;);)0
  155. (JZD0x[(J@tJZD;JZD'>'I;);)1
  156. (JZD2x[(JZ<('N'Ez;J'U'Ez;>)>JZD'('I;JZD;);)2
  157. (JZD2x[(JZ<('N'Ez;J'U'Ez;>)>JZD')'I;JZD;);)3
  158. (JZD'Illegal 'I2x['g'@x;)j
  159. (''0 1 2 10x);)~
  160. (0x(1x(2x(10x((@~J@l(A)JZD0x[;
  161. @~J@l'Z'@F'z'@F10x]JZD0x[z<@e>:
  162. @~J@lZ<('K'@FjJ><1x](A);>)>10x]JZD0x[z<1x[@k>'I'Iz<@e>:
  163. @~J@l'<'EzZ<(@vjJ><1x](A);>)>'>'Ez10x]JZD0x[1x['x['Iz<@e>:
  164. @~J@l'<=>'Ez10x]JZD0x[31%Iz<@e>:
  165. @~J@l'('EzZ<(Z<('IF'Ez;J'NF'Ez;>)>jJ><2x](A);>)>'*'@FJZD1x[7x(1x(10x({(''7 1 10x);)~((@~J','Ez'z'@F'('EzZ<(@VjJ><7x](A);>)>')'Ez'z'@F'+'@FJZD0x[z<@0>z<@e>@cz<'b'@7>z<7x[(J((A))JZD'{('Iz<'a'@7>';)~('I;Z;)>'('Iz<1x[1x(3x(4x(10x({(''1 3 4 10x);)~((@~J','EzZ<('k'@FjJ><3x](A);>)>','EzZ<('k'@FjJ><4x](A);>)>'+'@FJZD'n'@7'J'Iz<@2>z<3x[@b>z<@3>z<'JZD'I27%I4x[@C>';'Iz<'JZD'Iz<@e>@C>>z<1x[:;)JZ@JZ>@~4x:;)}';)'Iz<'n'@7>z<7x[(J((A))JZD'c'@7';)}'I;Z;)>;JZD'Ill 'I2x['x'@x;)@~3x:;)}z<@1>z<@e>:
  166. @~J@l'('EzZ<(Z<('WHILE'Ez;J'UNTIL'Ez;>)>jJ><2x](A);>)>'*'@FJZD0x[z<1x[7x(1x(10x({(''7 1 10x);)~((@~J','Ez'z'@F'('EzZ<(@VjJ><7x](A);>)>')'Ez'z'@F'+'@FJZD'z<'Iz<@e>@cz<'b'@7>z<7x[(J((A))JZD'{('Iz<'a'@7>';)~('I;Z;)>z<1x[1x(3x(4x(10x({(''1 3 4 10x);)~((@~J','EzZ<('k'@FjJ><3x](A);>)>','EzZ<('k'@FjJ><4x](A);>)>'+'@FJZD'('Iz<'n'@7>'J'Iz<@2>z<3x[@b>z<@3>z<'JZD'I27%I4x[@c'>'Iz<'z<'Iz<@e>@c>@h>':;)'I>z<1x[:;)JZ@UZ>@~4x:;)}'Z>'Iz<'n'@7>z<7x[(J((A))JZD'c'@7';)}'I;Z;)>;JZD'Ill 'I2x['x'@x;)@~3x:;)}>z<@e>:
  167. @~J@l'('EzZ<(Z<('if'Ez;J'nf'Ez;J'while'Ez;J'until'Ez;>)>jJ><1x](A);>)>','Ez10x]JZD0x[27%I'('Iz<1x['&''u'x&>',(),'I10x[:
  168. @~J@l'(REC'EzZ<(1(a;L)zjJ><2x](A);>)>{({(')'Ez10x];)#(')'2x>;)};)#(1x<;)}JZD0x[1x[z<@e>:
  169. @~J@l'(%R'Ez'*'@FJZD0x[z<@0>z<1x[@r>z<@1>z<@e>:
  170. @~J@l'(%r'Ez'*'@FJZD0x[z<@0>z<',()'I1x[@r>z<@1>z<@e>:
  171. @~J@l'()'Ez10x]JZD0x[z<@e>:
  172. @~J@l'('EzZ<(Z<(Z<('%'Ez;J'#'Ez;J'&'Ez;>)>(Z<@N>:J>;);J@n(Z<@n>:J>;);J;>)>jJ><2x](A);>)>'*'@FJZD1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD0x[z<@0>z<@e>z<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD'<,>'I10x[>z<1x[:;)Z>@~2x:;)}@c;JZD0x[z<@0>;)@~2x:;)}z<2x[@i>z<@1>z<@e>:
  173. @~J@l1x]JZD'Ill skel'I'g'@x0x[;
  174. Z;)@~4x:;)}c
  175. {(''0 1x);)~
  176. (0x(1x((@~J'JZD'Ez31%Ez0x]JZD'JZ'I0x[:
  177. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)jJ><0x](A);>)>31%Ez1x]JZD'JZ'I0x['QI'I1x[:
  178. @~J'JZDz<'Ez31%Ez0x]JZD'JZ<'I0x[:
  179. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)jJ><0x](A);>)>'z<'Ez31%Ez1x]JZD'JZ'I0x['QI<'I1x[:
  180. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)'<'Ez(Z<'QI'Ez>:J>;)jJ><0x](A);>)>31%Ez1x]JZD'JZ'I0x['QI'I1x[:
  181. @~J'JZ'Ez{(31%Ez1x];)#(31%0x>;)}JZD'64'I@I'x'I39%I0x['64x['Iz<1x[0x(1x({(''0 1x);)~((@~J{(31%Ez1x];)#(31%0x>;)}JZD0x['64x['I>z<1x[:;)Z>@~2x:;)}'x'I34%I;
  182. Z;)@~2x:;)}h
  183. {(JZ@c@h;
  184. Z;)}}C
  185. {(''0 1x);)~
  186. (0x(1x((@~J'(DEC,'Ez{(')'Ez;)#(')'0x>;)}JZD0x['%'I;
  187. @~J'(HEX,'Ez{(')'Ez;)#(')'0x>;)}JZD0x[(J(3(a;L)z)JZ'&''d''H'x&'%'I;JZJ(5(a;L)z)JZ'&''d''H'x&','I;JZD39%I0x[39%I'H'I;);
  188. @~J'(QUO'EzZ<(1(a;L)zjJ><0x](A);>)>{({(')'Ez;)#(')'0x>;)};)#(1x<;)}JZDz<1x[1x(2x(3x({(''1 2 3x);)~((@~J{(Z<(Z<(39%Ez;J34%Ez;>)>jJ><2x](A);>)>3x];)#(1x<;)}JZD1x[(J((A))JZD39%I1x[39%I30%I;Z;)z<2x['&''d'x&>'%'I30%I>z<3x[:;)(@~JZ<(1x]jJ><1(a;L)zZz;>)>JZD39%I1x[39%I30%I>z<:;)Z>@~3x:;)}7x(8x({(''7 8x);)~((@~J{(30%Ez{(30%Ez(A);)#(30%8x>;)};)#(30%7x>;)}JZD7x[z<8x[0x(1x({(''0 1x);)~((@~J{(30%Ez1x];)#(30%0x>;)}JZD0x['|'I>z<1x[:;)Z>@~2x:;)}'|'I;JZ@~J{(30%Ez;)#(30%7x>;)}JZD7x[;JZ@~J(A)JZD39%I39%I;Z;)@~2x:;)};
  189. @~J'(^'Ez{(')'Ez;)#(')'0x>;)}JZD'(HEX,'Iz<0x[0x(1x({(''0 1x);)~((@~J{(Z<(1(a;L)z(A)jJ><1x](A);>)>;)#(0x<;)}JZD1x['&''d'x&'-64'I'&''-'x#'&''h''D'x&0x({(''0x);)~((@~J2(a;L)z0x]JZD0x[;Z;)@~1x:;)}>z<0x[:;)Z>@~2x:;)}')'I:
  190. @~J'<'EzZ<(Z<(39%Ez;J34%Ez;>)>jJ><0x](A);>)>'>'EzJZD0x['&''d'x&'%'I;
  191. @~J0x]JZD0x[(J'MEM:'FzJZD'm 'I@I;JZD;)z<0x[(J'CTR:'FzJZD'c 'I@I;JZD;)>z<0x[(J'NUL:'FzJZD'n 'I@I;JZD;)>z<0x[(J'STK:'FzJZD's 'I@I;JZD;)>z<0x[(J'ARR:'FzJZD'a 'I@I;JZD;)>39%Iz<0x[0x(1x(2x({(''0 1 2x);)~((@~J{(Z<('('Ez{(')'Ez;)#(')'1x>;)};J'<'Ez{('>'Ez;)#('>'1x>;)};>)>2x];)#(0x<;)}JZD0x[1x[>z<2x[:;)Z>@~3x:;)}39%I;
  192. Z;)@~2x:;)}k
  193. {(JZDz<0x[0x(1x({(''0 1x);)~((@~J{(Z<(1(a;L)z(A)jJ><1x](A);>)>;)#(0x<;)}JZD1x[(JZ<(39%Ez;J34%Ez;>)>JZD1x['&''d'x&'%'I;JZD39%I1x[39%I;)>z<0x[:;)Z>@~2x:;)};)X
  194. (''0 1x);)~
  195. (0x(1x((@~J(A)JZD'JZD'I;
  196. @~JZ<(Z<('#'Ez;J'&'Ez;>)>jJ><1x](A);>)>0x]JZD@Z39%I'&'I39%Iz<@X>'x'I1x[;
  197. @~J'%'EzZ<(1(a;L)zjJ><1x](A);>)>0x]JZD@Zz<@X>'x'I1x[;
  198. @~JZ<(1(a;L)zjJ><1x](A);>)>0x]JZD@X'@'I1x[;
  199. Z;)@~2x:;)}i
  200. {(''0x);)~
  201. (0x((@~J0x]JZD@Y;
  202. Z;)@~1x:;)}I
  203. {((Z<Z<(' 'Ez;J9%Ez;J13%Ez;J10%Ez;>)>>:J>;);)w
  204. ('['Ez(Z<Z<(@K;JZ<(1(a;L)zjJ><(Z<Z<('['Ez;J']'Ez;>)>J>)>Zz;>)>;>)>>:J>;)']'Ez;)K
  205. (@w(Z<@K@w>:J>;);)W
  206. (Z<(@WjJ><1(a;L)zZz;>)>0x];)S
  207. ('!''~'Mz;)A
  208. (Z<(@AjJ><(Z<Z<('@'Ez;J'}'Ez;J'%'Ez;J'#'Ez;J'&'Ez;J'~'Ez;J'('Ez;J')'Ez;J','Ez;>)>J>)>Zz;>)>;)n
  209. (Z<(@AjJ><(Z<Z<('@'Ez;J'}'Ez;J'('Ez;J')'Ez;J','Ez;>)>J>)>Zz;>)>;)N
  210. ('0''9'Mz;)d
  211. (Z<('30'Ez;J{(@d;)%(Z<(l'1'Ez@%;x{Jl'2'Ez@%;x{Jl@%;x{>)L>;)};>)>;)v
  212. (Z<(@v(Z<' 'Ez@v>:J>;);J;>)>;)V
  213. ({(27%Ez;)#(27%0x>;)};)l
  214. {(Z<('('Ez(Z<Z<('QUO'Ez;J'REC'Ez;J'IVL'Ez;>)>J>)J>(Z<Z<(@0;J@1;J@Z;JZ<(1(a;L)zjJ><(Z<Z<('('Ez;J')'Ez;>)>J>)>Zz;>)>;J@q;>)>>:J>;)')'Ez;J@Q;J@T;J@R;>)>;)q
  215. ((Z<Z<(@0;J@1;J@4;J@Z;JZ<(1(a;L)zjJ><(Z<Z<('('Ez;J')'Ez;J','Ez;>)>J>)>Zz;>)>;J@q;>)>>:J>;);)k
  216. (Z<(','Ez@kjJ><','Ez10x](A);>)>1x](A);)+
  217. (Z<((Z<','Ez@k>:J>;)jJ><1x](A);>)>')'Ez10x](A);)*
  218. ('<(>'Ez;)0
  219. ('<)>'Ez;)1
  220. ('(<)'Ez;)2
  221. ('(>)'Ez;)3
  222. ('<'39%|'>'|Ez;)'
  223. ('<'34%|'>'|Ez;)"
  224. ('<,>'Ez;)4
  225. (0x({(''0x)1x:;)~('(QUO'EzZ<(1(a;L)zjJ><0x](A);>)>(l(qL{(')'Ez;)#(')'0x>;)}L;Y)L;x{A:)@~;@~)};)Q
  226. (0x({(''0x)1x:;)~('(REC'EzZ<(1(a;L)zjJ><0x](A);>)>(l(qL{(')'Ez;)#(')'0x>;)}L;Y)L;x{A:)@~;@~)};)R
  227. ('<<'Ez'>>'Fz;)Z
  228. ((Z<@Z>:J>;);)z
  229. (0x({(''0x)1x:;)~('(IVL'EzZ<(1(a;L)zjJ><0x](A);>)>(l(qL{((l(qL{(')'Ez;)#(')'0x>;)}L;Y)L;x{A:);)#(0x<;)}L;Y)L;x{A:)@~;@~)};)T
  230. ({('@''_'Mz;)k('(^'Ez@k(Z<@k>:J>;)')'Ez;)};)C
  231. (@d(Z<@d>:J>;);)i
  232. ('(DEC,'Ez@i')'Ez;)E
  233. ({(Z<(@d;J'A''F'Mz;>)>;)j('(HEX,'Ez@j(Z<@j>:J>;)')'Ez;)};)H
  234. (Z<(@AjJ><(Z<Z<('('Ez;J')'Ez;J'<'Ez;J'>'Ez;J','Ez;J39%Ez;J34%Ez;>)>J>)>Zz;>)>;)a
  235. (Z<(@a;J9%Ez;J10%Ez;J13%Ez;J' 'Ez;>)>;)c
  236. (Z<(@0;J@1;J@2;J@3;J@4;J@c;>)>;)e
  237. (Z<(@e(Z<@e>:J>;);J@';J@";J@C;J@E;J@H;J@Q;J@Z;>)>;)K
  238. (@@;)}F
  239. (JZz<{(Jx|;)~(8x['.'I9x[xRA;;)}x~>(J'1A0A0D1A'HFzJZD'f'@x;JZ2573,I;);)L
  240. (x'z<'TTY:,'I64x[xW>x";)T
  241. (x'D8x['.REC,'I64x[xWx";)O
  242. {(JZD7x[(J((A))JZD39%I39%I7x['x)'I;Z;);)a
  243. (JZD7x[(J((A))JZ<' 'I0x(1x({(''0 1x);)~((@~J{(' 'Ez1x];)#(' '0x>;)}JZD0x['x('I>z<1x[:;)Z>@~2x:;)};Z;);)b
  244. (JZD7x[(J((A))JZDz<'0x:'I7x[' 'I0x(1x({(''0 1x);)~((@~J{('x:'Ez@v' 'Ez1x];)#('x:'0x>;)}JZD>z<0x['&''p'x#'x:'I1x[:;)Z>@~2x:;)};Z;);)c
  245. (JZD7x[(J((A))JZD'('Iz<@a>';)~'I2573,I'('Iz<@b>;Z;)'('I@O;)o
  246. (JZD7x[(J((A))JZD'@~'I;Z;);)n
  247. (JZD7x[(J((A))JZD@nz<@c>';)'I;Z;);)m
  248. (@@;)}7
  249. (JZD27%I10x[;)e
  250. (JZDz<1x[' 'I0x[0x(2x({(''0 2x);)~((@~JZ<(2(a;L)zjJ><0x](A);>)>2x]JZD@Y>z<1x[2x[:;)JZDZ>@~2x:;)};)Z
  251. (JZD'MEM:incl'I'r'xOJZD{(J(lqL0x]LL;Yx{2(a;L)z:);)~('MEM:incl'IxRABDJZD'MEM:incl,'I0x[xW;JZD;)};)Y
  252. {(JZxtz<{(Jx|;)~('CTR:err'IxRA;;)}x~JZD>;)x
  253. (JZD'Unbal {'I@x;)a
  254. (JZ': 'I0x[@x;)b
  255. (JZD'Expected (, ['I@b;)c
  256. (JZD'Ill subr name'I@b;)d
  257. (JZD'Ill var list: 'I7x[@x;)e
  258. (JZD'Premature EOF'I@xz<xM>;)f
  259. (JZ': 'I1x[@x;)g
  260. (JZD'Excess }'I@x;)h
  261. (@@;)}x
  262. (''8 9 11x);)~
  263. (8x(9x(11x((@~J{('.REC'Ez;)#('.REC'8x>;)}JZD'Cannot compile a .REC file'I;
  264. @~J{('.'Ez{('/'Ez11x];)#('/'9x>;)};)#('.'8x>;)}JZD8x['.'I9x['r'xO(J('Not Found'Ez)JZD8x['.REC'I'w'xOz<'MEM:incl,512'I'w'xO>z<'CTR:err'I'w'xO>z<@L@a>z<{(Jx|;)~('CTR:err'IxRA;;)}x~' error(s)'I(J'0 'EzJZz<'MEM:incl'I'r'xO>z<{(JZz;)~('MEM:incl'IxRABD;;)}0x(1x({(''0 1x);)~((@~JZ<(0x]jJ><'LB'Ez1x](A);>)>JZD'}'I2573,I'['I1x[']'I;JZD'~
  265. {(-1='39%|'Not Found'|39%|'I;) v
  266. (('|39%|' '|39%|'FZD;Z;)0%IJ;) u
  267. (x+'|39%|'Terminated'|39%|'TLxE_) M
  268. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  269. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  270. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  271. (J(2573FDZQmD;'|39%|39%|'m;)l30$SJ('|39%|'L/'|39%|'FDZ<('|39%|' '|39%|'FjJ;;)QD>
  272. ((B;;)'|39%|' '|39%|'ED;;);'|39%|39%|';)mZ
  273. '|Iz<11x[(J'S'EzJZD;JZD'1024@0'I39%I'}'I39%I'$S'I;)>'188cmpw'39%|'M'|39%|'$r(f:;)wnpG66-,127$Sx@
  274. '|39%|'vuM~|y'|39%|'I<z(BQD@s:;)>0,31$S
  275. nI<(A1b'|39%|':'|39%|'(E)'|39%|'\'|39%|'(E);'|39%|'CNVLIB.REC'|39%|'I;;)0%IJQD>
  276. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG'|39%|' Not Found'|39%|'|T_)
  277. 29$SnLLLLJZD>
  278. '|Iz<'(QUO'I26%I0x[26%I')'I@k>'m(32$r0=0'39%|39%|'CLpLr32$S;;)LZz;) x
  279. ('|39%|';'|39%|'FDJ<((A);1b'|39%|'\'|39%|'E;'|39%|'\'|39%|'I;)JQD>lyG|;) o
  280. ('|39%|'PATH='|39%|'(F)JZD;(0%U;zZ;)QJZD('|39%|39%|'=;'|39%|';'|39%|'=;I'|39%|';'|39%|'I;)J;) p
  281. (pG$r&\pG+127$r+S;) s
  282. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  283. J('|39%|'['|39%|'ED'|39%|']'|39%|'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  284. >J<'|39%|'[!]'|39%|'FDBQD\pG+127$r+mJq32$rC
  285. mpGlyG-'|39%|'w'|39%|'$r'|39%|'x'|39%|'$r-
  286. (NLnLq'|39%|'x'|39%|'$rC&'|39%|'x'|39%|'$SnS;32$SnnS;)D::) w
  287. (@x<<@w>JZD>;)} %
  288. (@%@~xTxE;) }'|I;)@~2x:;)}2573,I@O>;Z;)>;Z;);
  289. @~J{('/'Ez11x];)#('/'8x>;)}JZD8x['.CNV/'I11x[:
  290. @~J{('.'Ez9x];)#('.'8x>;)}JZD8x['.'I9x['/S'I:
  291. @~J8x]JZD8x['.CNV/S'I:
  292. Z;)@~3x:;)}~
  293. {(-1='Not Found'I;) v
  294. ((' 'FZD;Z;)0%IJ;) u
  295. (x+'Terminated'TLxE_) M
  296. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  297. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  298. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  299. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  300. ((B;;)' 'ED;;);'';)mZ
  301. 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  302. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  303. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  304. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  305. 29$SnLLLLJZD>
  306. 'm O OwW t 64& &u&H&d# #-&D&hc n s a #pOrM 'm(32$r0=0''CLpLr32$S;;)LZz;) x
  307. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  308. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  309. (pG$r&\pG+127$r+S;) s
  310. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  311. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  312. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  313. mpGlyG-'w'$r'x'$r-
  314. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  315. (@x<<@w>JZD>;)} %
  316. (@%@~xTxE;) }
  317.