home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / RCONVERT.REC < prev    next >
Encoding:
INI File  |  1986-12-01  |  18.4 KB  |  334 lines
  1. [RCONVERT.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;JZ@~J'[['Ez{(']]'Ez(A);)#(']]'2x>;)}JZD'MEM:som'I'w'xOz<'MEM:som,'I2x[xW>JZD;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'Ixt>;
  11. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@G>:
  12. @~J29%Ez0x]JZD0x[;
  13. @~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[:
  14. @~J27%Ez@w0x]JZD27%Iz<0x[@L>:
  15. @~JZ<(1(a;L)zjJ><(Z<Z<('{'Ez;J'('Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>JZD'Expected {, [, ('I'b'@x;
  16. @~J'('Ez@W'('Ez0x]JZD'{'I@Oz<'patt: 'Ixt>z<0x[@0>:
  17. @~J'('Ez@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>JZD'c'@x;
  18. @~J0x]JZD0x[@L:
  19. Z;)@~2x:;)}E
  20. {(JZ(J26%EzJZD'a'@x;JZJ27%EzJZD'h'@x;Z;);)u
  21. (''0 1x);)~
  22. (0x(1x((@~J'{'Ez@W'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@G@u>;
  23. @~J'{'Ez@W'('Ez0x]JZD'('I0x[@E@u:
  24. @~J'}'Ez@wZ<(1(a;L)zjJ><0x](A);>)>1x]JZD'}'I@T@Oz<0x[1x[(J@zJZ;JZD0x[J@nJZD0x[@T2573,I@O;JZJ'}'EzJZD'}'I;JZD'd'@x;)>1x[;
  25. @~JZ@L:
  26. Z;)@~2x:;)}G
  27. {(26%Ez;)z
  28. {(JZ@0;)E
  29. (JZD'a'@x;)2
  30. (JZ@G;)}g
  31. (''0 1 2x);)~
  32. (0x(1x(2x((@~J@SJZD0x[:
  33. @~J27%Ez0x]JZD0x[;
  34. @~J26%EzJZD'f'@x;
  35. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@g>:
  36. @~JZ<(')'Ez;J;>)>@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>JZD'c'@x;
  37. @~J')'Ez@W'('Ez0x]JZD'skel: 'Ixtz<0x[@2>;
  38. @~J'(<:@:>)'Ez@w'}'Ez0x]JZD'(@@;)'I@O'}'I0x[;
  39. @~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[:
  40. @~J0x]JZD0x[@L:
  41. Z;)@~3x:;)}0
  42. {{(JZ@2;)E
  43. (JZD'a'@x;)4
  44. (JZ@G;)}g
  45. (''0 1 2x);)~
  46. (0x(1x(2x((@~J@SJZD0x[:
  47. @~J27%Ez0x]JZD0x[;
  48. @~J26%EzJZD'f'@x;
  49. @~J'{'Ez0x]JZD'{'I@T@Oz<'{'I0x[@g>:
  50. @~JZ<(')'Ez;J;>)>@WZ<(1(a;L)zjJ><(Z<Z<('['Ez;J'('Ez;>)>J>)>ZzJ0x](A);>)>JZD'c'@x;
  51. @~J')'Ez@W'('Ez0x]JZD'vble: 'Ixtz<0x[@4>;
  52. @~J'((@))'Ez@w'}'Ez0x]JZD'(@@;)'I@O'}'I0x[;
  53. @~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[:
  54. @~J0x]JZD0x[@L:
  55. Z;)@~3x:;)}2
  56. {(''0 7x);)~
  57. (0x(7x((@~J{(')'Ez@W'('Ez0x];)#(')'7x>;)}JZD7x[@TJZD7x[(J@V(A)JZD'rule: 'Ixtz<'o'@7>z<0x[@5>;JZD'e'@x;);
  58. @~J{(')'Ez@WZ<(1(a;L)zjJ><(Z<Z<('('Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>;)#(')'7x>;)}JZD'c'@x;
  59. @~J0x]JZD0x[@L;
  60. Z;)@~2x:;)}4
  61. {(''0 1 2 3x);)~
  62. (0x(1x(2x(3x((@~J@SJZD0x[:
  63. @~J26%EzJZD'f'@x;
  64. @~JZ<(1(a;L)zjJ><(Z<Z<('('Ez;J')'Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>JZD'Expected (, ), ['I'b'@x;
  65. @~J')'Ez@WZ<(1(a;L)zjJ><(Z<Z<(')'Ez;J'['Ez;>)>J>)>ZzJ0x](A);>)>JZD'Expected ), ['I'b'@x;
  66. @~J')'Ez@W')'Ez0x]JZD'Z;)'Iz<'m'@7>'}'I@O27%I0x[;
  67. @~JZ<('q'@FjJ><'('EzZ<('k'@FjJ><0x](A);>)>','EzZ<('k'@FjJ><1x](A);>)>')'Ez(A);>)>@wZ<(1(a;L)zjJ><2x](A);>)>3x]JZD'n'@7z<0x[(J((A))JZD'J'Iz<0x[@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<2x[(JZ<(':'Ez;J';'Ez;>)>JZD2x[@T2573,I@O;JZD'Expected :, ;'I'b'@x;)>3x[:
  68. @~JZ<('q'@FjJ><0x](A);>)>@w1(a;L)zJZD'Bad rule'I'b'@x;
  69. @~J0x]JZD0x[@L:
  70. Z;)@~4x:;)}5
  71. {{(''0 1 2 10x);)~
  72. (0x(1x(2x(10x((@~JZ<(1(a;L)zjJ><0x](A);>)>BQU<1x]>ABQU<2x]>A')'Ez10x]JZD'(QUO'I0x[1x[0x[')'I@kz<'(QUO'I0x[2x[0x[')'I@k>'Mz'Iz<@e>;
  73. @~J0x]JZD'IVL stx err'I'b'@x;
  74. Z;)@~4x:;)}U
  75. {(''7 10x);)~
  76. (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;
  77. Z;)@~2x:;)}L
  78. {(''0 10x);)~
  79. (0x(10x((@~J@l(A)JZD0x[39%I39%I;
  80. @~J@lZ<('K'@F(A)jJ><10x](A);>)>JZD0x[z<10x[@k>;
  81. @~JZ@C'JQD'I;
  82. Z;)@~2x:;)}s
  83. {('<>'Ez(Z<'<>'Ez>:J>;);)B
  84. (JZD1x[(J((A))JZD'J'I;Z;);)j
  85. (''1 10x);)~
  86. (1x(10x((@~J(A)JZD;
  87. @~J{(27%Ez10x];)#(27%1x>;)}JZD1x[z<10x[(J((A))JZ@b;Z;)>;
  88. @~J'Z'@F'z'@F10x]JZD10x[:
  89. @~J'<['EzZ<('i'@FjJ><1x](A);>)>']>'Ez10x]JZD1x['(a;L)z'Iz<@e>:
  90. @~J'<['EzZ<((Z<']>'Ez>;J>Z<('q'@F;J1(a;L)z;>)>:)jJ><{(']>'Ez(A);)#(']>'1x>;)};>)>10x]JZD'j<'I27%I1x[@s'>(Oa;L)z'Iz<@e>:
  91. @~J'<:'EzZ<(Z<('%'Ez;J'@'Ez;J'~'Ez;>)>jJ><1x](A);>)>':>'Ez(A)JZD1x[(J'~'EzJZD'x8'I;JZD'@'I1x[;);
  92. @~J'<:'EzZ<(@n(Z<':>'Ez>;J>@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;):
  93. @~J'<'EzZ<(Z<('--'Ez;J@v;>)>jJ><1x](A);>)>'>'Ez'Z'@F'z'@F10x]JZD'<'I1x['>'I10x[:
  94. @~J'<-->'EzZ<('<>'Ez(Z<'<>'Ez>:J>;);J(A);>)>10x]JZD'Zz'Iz<@e>:
  95. @~J'<-->'EzZ<(Z<('K'@F;J;>)>jJ><1x](A);>)>10x]JZD10x[(J(A)JZD1x[@k'Fz'I;JZD'(('Iz<1x[(J((A))JZD1x[@k'(Fz;ZzqL)'I;Z;)>'qL'Iz<10x[@b>'L;Y);A'Iz<1x[(J((A))JZD'B'I;Z;)>':)'I;);
  96. @~JZ<('K'@FjJ><1x](A);>)>10x]JZD1x[@k'Ez'Iz<@e>:
  97. @~J@B10x]JZD'(A)'Iz<@e>:
  98. @~J'<'EzZ<(@vjJ><1x](A);>)>'>'EzZ<(10x]jJ><Z<('<>'EzZz;J;>)>(A);>)>JZD1x['x]'Iz<@e>:
  99. @~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;
  100. @~J'<()>'Ez10x]JZD39%I'('I39%I'Ezx*'Iz<'()'I@I>z<@e>:
  101. @~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>:
  102. @~J'(ITR,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD'(Z<'Iz<1x[@b>'>:J>;)'Iz<@e>:
  103. @~J'(itr,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD'(Z<'Iz<10x[@b>'>;J>'Iz<1x[@b>':)'I;
  104. @~J'('EzZ<('OR'Ez;J'or'Ez;>)>')'Ez10x]JZD'()'Iz<@e>:
  105. @~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>:
  106. @~J'(or'Ez'*'@FJZD'Z<('Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[@b';'Iz<@j>>z<1x[:;)Z>@~2x:;)}'>)>'Iz<@e>:
  107. @~J'(AND,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD1x[10x[:
  108. @~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:;)};
  109. @~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;
  110. @~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:;)};
  111. @~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:;)}>:
  112. @~J'(nor'Ez'*'@FJZD'(NOT,(or'I1x['))'I10x[:
  113. @~J'(^)'Ez10x]JZD'0%31%Mz'Iz<@e>:
  114. @~J'(IVL'Ez1x]JZD1x[@U:
  115. @~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>:
  116. @~J'(REC'EzABQU<1x]>A')'Ez10x]JZD1x[z<@e>:
  117. @~J'(LAM'Ez'*'@FJZD1x[@Lz<@e>:
  118. @~J'(PWS)'Ez10x]JZD'x+Zqtj'Iz<@e>:
  119. @~J'(PWS,'EzZ<('K'@FjJ><1x](A);>)>')'Ez10x]JZD'x+'Iz<1x[@k>'TLZqtj'Iz<@e>:
  120. @~J'(HLT)'Ez10x]JZD'RL'Iz<@e>:
  121. @~J'(HLT,'EzZ<('K'@FjJ><1x](A);>)>')'Ez10x]JZD'x+'Iz<1x[@k>'TLRL'Iz<@e>:
  122. @~J'(NOP'EzZ<(','Ez'k'@F;J;>)>')'Ez10x]JZD@e:
  123. @~J'(PVR,'EzZ<('k'@FjJ><1x](A);>)>')'Ez10x]JZD1x[(J@vJZD1x['x_'I;JZD'Not a var'I'g'@x;)z<'v 'I@I>z<@e>:
  124. @~J'()'Ez1x]JZD1x[:
  125. @~JZ<('q'@FjJ><1x](A);>)>10x]JZD'j<'I27%I1x[@s'>Ez'Iz<@e>:
  126. @~J1x]JZD'Ill patt'I'g'@x;
  127. Z;)@~2x:;)}}b
  128. {{(''7 10x);)~
  129. (7x(10x((@~J','Ez'z'@F'('EzZ<(@VjJ><7x](A);>)>')'Ez'z'@F','Ez10x]JZD'b'@7z<@e@c>z<'a'@7>z<'c'@7>;
  130. Z;)@~2x:;)}L
  131. {(','EzZ<('k'@FjJ><1x](A);>)>;)u
  132. (JZD10x[(J(A)JZD'x~'I;JZD;);)j
  133. (JZD'JZD'I27%I1x[@C;)J
  134. (x'D'z<'I64x[@c0x({(''0x);)~((@~J'z<'Ez0x]JZD0x[;Z;)@~1x:;)}x";)p
  135. (''1 10x);)~
  136. (1x(10x((@~J','EzZ<(10x]jJ><'CTR:'EzZz;>)>JZD@e@p'xR'I;
  137. @~JZ<(','Ez;J;>)>Z<('k'@F(A)jJ><10x](A);>)>JZD'{(Jx|;)~('Iz<@e@p>'xRA;;)}x~'I;
  138. @~J'+'@FJZD'{(J'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[(J(A)JZD'x|'I;JZ@b;)';)~('I;Z;)@~2x:;)}>z<@e@p>'xRA'Iz<1x[10x(1x({(''10 1x);)~((@~J'+'@FJZD10x[(J((A))JZD'BD'I;Z;)z<1x[1x({(''1x);)~((@~J','Ez'k'@F@uJZD@J;JZD@j;)@~1x:;)}>';'Iz<1x[1x({(''1x);)~((@~J@uJZD@J;JZD@j;)@~1x:;)}>;Z;)@~2x:;)}>';)}'I;
  139. Z;)@~2x:;)}r
  140. {(''1 3 10x);)~
  141. (1x(3x(10x((@~J(A)JZD;
  142. @~J','EzZ<('k'@FjJ><3x](A);>)>'+'@FJZD'n'@7'J'Iz<@2>z<3x[@b>z<@3>z<'JZD'Iz<@e>@C>';Z'I;
  143. @~J1x]JZD@j;
  144. Z;)@~3x:;)}J
  145. {(''1 10x);)~
  146. (1x(10x((@~J(A)JZD;
  147. @~J'+'@FZ<(1x]jJ><(A);>)>JZD'JZD'Iz<@e>@C;
  148. @~J1x]JZD@j;
  149. Z;)@~2x:;)}U
  150. {(Z<((('j<'(Fz;ZzqL)qL(A)L;Y);AB:);J(('z<'(Fz;ZzqL)qL(A)L;Y);AB:);J(('JQD'(Fz;ZzqL)qL(A)L;Y);AB:);J(('JZD'(Fz;ZzqL)qL(A)L;Y);AB:);>)>;)t
  151. (JZD0x[(J@tJZD;JZD'z<'I;);)0
  152. (JZD0x[(J@tJZD;JZD'>'I;);)1
  153. (JZD2x[(JZ<('N'Ez;J'U'Ez;>)>JZD'('I;JZD;);)2
  154. (JZD2x[(JZ<('N'Ez;J'U'Ez;>)>JZD')'I;JZD;);)3
  155. (JZD'Illegal 'I2x['g'@x;)j
  156. (''0 1 2 10x);)~
  157. (0x(1x(2x(10x((@~J@l(A)JZD0x[;
  158. @~J@l'Z'@F'z'@F10x]JZD0x[z<@e>:
  159. @~J@lZ<('K'@FjJ><1x](A);>)>10x]JZD0x[z<1x[@k>'I'Iz<@e>:
  160. @~J@l'<'EzZ<(@vjJ><1x](A);>)>'>'Ez10x]JZD0x[1x['x['Iz<@e>:
  161. @~J@l'<=>'Ez10x]JZD0x[31%Iz<@e>:
  162. @~J@l'(LAM'Ez'*'@FJZD0x[z<1x[@L>z<@e>:
  163. @~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>:
  164. @~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>:
  165. @~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[:
  166. @~J@l'(REC'EzABQU<1x]>A')'Ez10x]JZD0x[1x[z<@e>:
  167. @~J@l'(%R'Ez'*'@FJZD0x[z<@0>z<1x[@r>z<@1>z<@e>:
  168. @~J@l'()'Ez10x]JZD0x[z<@e>:
  169. @~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>:
  170. @~J@l1x]JZD'Ill skel'I'g'@x;
  171. Z;)@~4x:;)}c
  172. {(''0 1x);)~
  173. (0x(1x((@~J'JZD'Ez31%Ez0x]JZD'JZ'I0x[:
  174. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)jJ><0x](A);>)>31%Ez1x]JZD'JZ'I0x['QI'I1x[:
  175. @~J'JZDz<'Ez31%Ez0x]JZD'JZ<'I0x[:
  176. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)jJ><0x](A);>)>'z<'Ez31%Ez1x]JZD'JZ'I0x['QI<'I1x[:
  177. @~J'JZ'EzZ<((Z<'QI'Ez>:J>;)'<'Ez(Z<'QI'Ez>:J>;)jJ><0x](A);>)>31%Ez1x]JZD'JZ'I0x['QI'I1x[:
  178. @~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;
  179. Z;)@~2x:;)}h
  180. {(JZ@c@h;
  181. Z;)}}C
  182. {(''0x);)~
  183. (0x((@~J'(DEC,'Ez{(')'Ez;)#(')'0x>;)}JZD0x['%'I;
  184. @~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;);
  185. @~J'(QUO'EzABQU<0x]>A')'EzJZDz<0x[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:;)};
  186. @~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:
  187. @~J'<'EzZ<(Z<(39%Ez;J34%Ez;>)>jJ><0x](A);>)>'>'EzJZD0x['&''d'x&'%'I;
  188. @~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;)>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;
  189. Z;)@~1x:;)}k
  190. {(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
  191. (''0 1x);)~
  192. (0x(1x((@~J(A)JZD'JZD'I;
  193. @~JZ<(Z<('#'Ez;J'&'Ez;>)>jJ><1x](A);>)>0x]JZD@Z39%I'&'I39%Iz<@X>'x'I1x[;
  194. @~J'%'EzZ<(1(a;L)zjJ><1x](A);>)>0x]JZD@Zz<@X>'x'I1x[;
  195. @~JZ<(1(a;L)zjJ><1x](A);>)>0x]JZD@X'@'I1x[;
  196. Z;)@~2x:;)}i
  197. {(''0x);)~
  198. (0x((@~J0x]JZD@Y;
  199. Z;)@~1x:;)}I
  200. {((Z<Z<(' 'Ez;J9%Ez;J13%Ez;J10%Ez;>)>>:J>;);)w
  201. ('['Ez(Z<Z<(@K;JZ<(1(a;L)zjJ><(Z<Z<('['Ez;J']'Ez;>)>J>)>Zz;>)>;>)>>:J>;)']'Ez;)K
  202. (@w(Z<@K@w>:J>;);)W
  203. (Z<(@WjJ><1(a;L)zZz;>)>0x];)S
  204. ('!''~'Mz;)A
  205. (Z<(@AjJ><(Z<Z<('@'Ez;J'}'Ez;J'%'Ez;J'#'Ez;J'&'Ez;J'~'Ez;J'('Ez;J')'Ez;J','Ez;>)>J>)>Zz;>)>;)n
  206. (Z<(@AjJ><(Z<Z<('@'Ez;J'}'Ez;J'('Ez;J')'Ez;J','Ez;>)>J>)>Zz;>)>;)N
  207. ('0''9'Mz;)d
  208. (Z<('30'Ez;J{(@d;)%(Z<(l'1'Ez@%;x{Jl'2'Ez@%;x{Jl@%;x{>)L>;)};>)>;)v
  209. (Z<(@v(Z<' 'Ez@v>:J>;);J;>)>;)V
  210. ({(27%Ez;)#(27%0x>;)};)l
  211. {(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
  212. ((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
  213. (Z<(','Ez@kjJ><','Ez10x](A);>)>1x](A);)+
  214. (Z<((Z<','Ez@k>:J>;)jJ><1x](A);>)>')'Ez10x](A);)*
  215. ('<(>'Ez;)0
  216. ('<)>'Ez;)1
  217. ('(<)'Ez;)2
  218. ('(>)'Ez;)3
  219. ('<'39%|'>'|Ez;)'
  220. ('<'34%|'>'|Ez;)"
  221. ('<,>'Ez;)4
  222. ('(QUO'EzABQzFz')'Ez;)Q
  223. ('(REC'EzABQzFz')'Ez;)R
  224. ('<<'Ez'>>'Fz;)Z
  225. ((Z<@Z>:J>;);)z
  226. ('(IVL'EzABQzFQzFz')'Ez;)T
  227. ({('@''_'Mz;)k('(^'Ez@k(Z<@k>:J>;)')'Ez;)};)C
  228. (@d(Z<@d>:J>;);)i
  229. ('(DEC,'Ez@i')'Ez;)E
  230. ({(Z<(@d;J'A''F'Mz;>)>;)j('(HEX,'Ez@j(Z<@j>:J>;)')'Ez;)};)H
  231. (Z<(@AjJ><(Z<Z<('('Ez;J')'Ez;J'<'Ez;J'>'Ez;J','Ez;J39%Ez;J34%Ez;>)>J>)>Zz;>)>;)a
  232. (Z<(@a;J9%Ez;J10%Ez;J13%Ez;J' 'Ez;>)>;)c
  233. (Z<(@0;J@1;J@2;J@3;J@4;J@c;>)>;)e
  234. (Z<(@e(Z<@e>:J>;);J@';J@";J@C;J@E;J@H;J@Q;J@Z;>)>;)K
  235. (@@;)}F
  236. (JZz<{(Jx|;)~(8x['.'I9x[xRA;;)}x~>(J'1A0A0D1A'HFzJZD'Stx err'I'x'@x;JZ2573,I;);)L
  237. (x'z<'TTY:,'I64x[xW>x";)T
  238. (x'D8x['.REC,'I64x[xWx";)O
  239. {(JZD7x[(J((A))JZD39%I39%I7x['x)'I;Z;);)a
  240. (JZD7x[(J((A))JZ<' 'I0x(1x({(''0 1x);)~((@~J{(' 'Ez1x];)#(' '0x>;)}JZD0x['x('I>z<1x[:;)Z>@~2x:;)};Z;);)b
  241. (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
  242. (JZD7x[(J((A))JZD'('Iz<@a>';)~'I2573,I'('Iz<@b>;Z;)'('I@O;)o
  243. (JZD7x[(J((A))JZD'@~'I;Z;);)n
  244. (JZD7x[(J((A))JZD@nz<@c>';)'I;Z;);)m
  245. (@@;)}7
  246. (JZD27%I10x[;)e
  247. (JZDz<1x[' 'I0x[0x(2x({(''0 2x);)~((@~JZ<(2(a;L)zjJ><0x](A);>)>2x]JZD@Y>z<1x[2x[:;)JZDZ>@~2x:;)};)Z
  248. (JZD'MEM:incl'I'r'xOJZD{(J(Z<0x]>;J>2(a;L)z:);)~('MEM:incl'IxRABDJZD'MEM:incl,'I0x[xW;JZD;)};)Y
  249. {(JZxtz<xM>;)x
  250. (JZD'Unbal {'I@x;)a
  251. (JZ': 'I0x[@x;)b
  252. (JZD'Expected (, ['I@b;)c
  253. (JZD'Ill subr name'I@b;)d
  254. (JZD'Ill var list: 'I7x[@x;)e
  255. (JZD'Premature EOF'I@x;)f
  256. (JZ': 'I1x[@x;)g
  257. (JZD'Excess }'I@x;)h
  258. (@@;)}x
  259. (''8 9 11x);)~
  260. (8x(9x(11x((@~J{('.REC'Ez;)#('.REC'8x>;)}JZD'Cannot compile a .REC file'I;
  261. @~J{('.'Ez{('/'Ez11x];)#('/'9x>;)};)#('.'8x>;)}JZD8x['.'I9x['r'xO(J('Not Found'Ez)JZD8x['.REC'I'w'xOz<'MEM:incl,512'I'w'xOz<'MEM:som,2048'I'w'xO>JZD>z<'MEM:som,rconvert/icuap/1985'IxW>z<@L@a>z<'MEM:incl'I'r'xOz<'MEM:som'I'r'xO>JZD>z<{(JZz;)~('MEM:incl'IxRABD;;)}0x(1x({(''0 1x);)~((@~JZ<(0x]jJ><'LB'Ez1x](A);>)>JZD'}'I2573,I'['I1x[']'I;JZD"~
  262. {((Jj':'UQD':'ED\64-(0=)%;0,25K^&L%;)
  263. ('.'U<(8a;xb;)Q|D>;Z'.'IJj:)
  264. '.'FJD(3a;xb;)Q|JZDI;) u
  265. (255='Not Found'I;) v
  266. (Zz(d' 'I:;)JZ;) b
  267. (w0%(f:;)w;) -
  268. (cmpx-n;) 0
  269. (128,26k;) 5
  270. (x+"Iz<'(QUO'I26%Iz<{(JZz;)~('MEM:som'IxRABD;;)}>26%I')'I@k>"TL;) Q
  271. ((B13%ED;;)J(10%FD:;)Z;) ~
  272. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  273. (|0|0|0|pLpGnpG6-mSpG8+n&S;) 3
  274. (x00x3;) `
  275. (mx0n&mx0nx3;) z
  276. (30$r128eqL26k20K0=L;DLL) y
  277. (('L/'FDZ<(' 'FjJ;;)QD>
  278. ((B;;)' 'ED;;);'';)mZ
  279. "Iz<11x[(J'S'EzJZD;JZD'1024@0'I39%I'}'I39%I'$S'I;)>"188@0pG66-,127$Sx@
  280. 'uvb-05Q~|3`zy'I<z(BQD@s:;)>@i
  281. 33@0pG30$SnI
  282. <@u(A' 'EZD'CNVLIB  REC'I;;)JQD>&S
  283. @5,30$r15K(@vu\64+%':'|&11G|':'|TLqt_;LL;)
  284. "Iz<'(QUO'I26%I0x[26%I')'I@k>"m0''CLpLr32$SLZz;) x
  285. (Jj(' 'ED:;)(' 'U;Z;)QZI<(AB;'TTY:'I;)31$m
  286. ('TTY:'E4x`;xu130,33xz;)QZD>&pG8+0&SrS;) i
  287. (pG$r&\pG+127$r+S;) s
  288. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%ELnL0,30$S;
  289. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  290. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  291. mpGlyG-'w'$r'x'$r-
  292. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  293. (@x<<@w>JZD>J'Next: '32$r!|TLxQ
  294. (A;{(Jx|;) ~ (xR;;)}x~;);)} %
  295. (@%@~xTxE;) }"I;)@~2x:;)}2573,I@O>;Z;);
  296. @~J{('/'Ez11x];)#('/'8x>;)}JZD8x['.CNV/'I11x[:
  297. @~J{('.'Ez9x];)#('.'8x>;)}JZD8x['.'I9x['/S'I:
  298. @~J8x]JZD8x['.CNV/S'I:
  299. Z;)@~3x:;)}~
  300. {((Jj':'UQD':'ED\64-(0=)%;0,25K^&L%;)
  301. ('.'U<(8a;xb;)Q|D>;Z'.'IJj:)
  302. '.'FJD(3a;xb;)Q|JZDI;) u
  303. (255='Not Found'I;) v
  304. (Zz(d' 'I:;)JZ;) b
  305. (w0%(f:;)w;) -
  306. (cmpx-n;) 0
  307. (128,26k;) 5
  308. (x+'Convert compiler for Convert'TL;) Q
  309. ((B13%ED;;)J(10%FD:;)Z;) ~
  310. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  311. (|0|0|0|pLpGnpG6-mSpG8+n&S;) 3
  312. (x00x3;) `
  313. (mx0n&mx0nx3;) z
  314. (30$r128eqL26k20K0=L;DLL) y
  315. (('L/'FDZ<(' 'FjJ;;)QD>
  316. ((B;;)' 'ED;;);'';)mZ
  317. 188@0pG66-,127$Sx@
  318. 'uvb-05Q~|3`zy'I<z(BQD@s:;)>@i
  319. 33@0pG30$SnI
  320. <@u(A' 'EZD'CNVLIB  REC'I;;)JQD>&S
  321. @5,30$r15K(@vu\64+%':'|&11G|':'|TLqt_;LL;)
  322. 'm O OwW t 64c & &u&H&d# #-&D&hn #pOrM 'm0''CLpLr32$SLZz;) x
  323. (Jj(' 'ED:;)(' 'U;Z;)QZI<(AB;'TTY:'I;)31$m
  324. ('TTY:'E4x`;xu130,33xz;)QZD>&pG8+0&SrS;) i
  325. (pG$r&\pG+127$r+S;) s
  326. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%ELnL0,30$S;
  327. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  328. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  329. mpGlyG-'w'$r'x'$r-
  330. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  331. (@x<<@w>JZD>J'Next: '32$r!|TLxQ
  332. (A;{(Jx|;) ~ (xR;;)}x~;);)} %
  333. (@%@~xTxE;) }
  334.