home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / texsrc.arc / TEX1.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  47KB  |  2,266 lines
  1. overlay "tex1"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. zshortdisplay ( p ) 
  6. integer p ; 
  7. {r_shortdisplay 
  8.   integer n ; 
  9.   while ( p > memmin ) { 
  10.     if ( ( p >= himemmin ) ) 
  11.     {
  12.       if ( p <= memend ) 
  13.       {
  14.     if ( mem [(long) p ] .hh.b0 != fontinshortd ) 
  15.     {
  16.       if ( ( mem [(long) p ] .hh.b0 < 0 ) || ( mem [(long) p ] .hh.b0 > fontmax ) ) 
  17.       printchar ( 42 ) ; 
  18.       else printesc ( hash [ 3268 + mem [(long) p ] .hh.b0 ] .v.RH ) ; 
  19.       printchar ( 32 ) ; 
  20.       fontinshortd = mem [(long) p ] .hh.b0 ; 
  21.     } 
  22.     printASCII ( mem [(long) p ] .hh.b1 ) ; 
  23.       } 
  24.     } 
  25.     else switch ( mem [(long) p ] .hh.b0 ) 
  26.     {case 0 : 
  27.     case 1 : 
  28.     case 3 : 
  29.     case 8 : 
  30.     case 4 : 
  31.     case 5 : 
  32.     case 13 : 
  33.       print ( 177 ) ; 
  34.       break ; 
  35.     case 2 : 
  36.       printchar ( 124 ) ; 
  37.       break ; 
  38.     case 10 : 
  39.       if ( mem [(long) p + 1 ] .hh .v.LH != 0 ) 
  40.       printchar ( 32 ) ; 
  41.       break ; 
  42.     case 9 : 
  43.       printchar ( 36 ) ; 
  44.       break ; 
  45.     case 6 : 
  46.       shortdisplay ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  47.       break ; 
  48.     case 7 : 
  49.       {
  50.     shortdisplay ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  51.     shortdisplay ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  52.     n = mem [(long) p ] .hh.b1 ; 
  53.     while ( n > 0 ) { 
  54.       if ( mem [(long) p ] .hh .v.RH != 0 ) 
  55.       p = mem [(long) p ] .hh .v.RH ; 
  56.       decr ( n ) ; 
  57.     } 
  58.       } 
  59.       break ; 
  60.     default : 
  61.       ; 
  62.       break ; 
  63.     } 
  64.     p = mem [(long) p ] .hh .v.RH ; 
  65.   } 
  66. } 
  67. zprintfontand ( p ) 
  68. integer p ; 
  69. {r_printfontand 
  70.   if ( p > memend ) 
  71.   printesc ( 178 ) ; 
  72.   else { 
  73.     if ( ( mem [(long) p ] .hh.b0 < 0 ) || ( mem [(long) p ] .hh.b0 > fontmax ) ) 
  74.     printchar ( 42 ) ; 
  75.     else printesc ( hash [ 3268 + mem [(long) p ] .hh.b0 ] .v.RH ) ; 
  76.     printchar ( 32 ) ; 
  77.     printASCII ( mem [(long) p ] .hh.b1 ) ; 
  78.   } 
  79. } 
  80. zprintmark ( p ) 
  81. integer p ; 
  82. {r_printmark 
  83.   printchar ( 123 ) ; 
  84.   if ( ( p < himemmin ) || ( p > memend ) ) 
  85.   printesc ( 178 ) ; 
  86.   else showtokenlis ( mem [(long) p ] .hh .v.RH , 0 , maxprintline - 10 ) ; 
  87.   printchar ( 125 ) ; 
  88. } 
  89. zprintruledim ( d ) 
  90. scaled d ; 
  91. {r_printruledim 
  92.   if ( ( d == - 1073741824 ) ) 
  93.   printchar ( 42 ) ; 
  94.   else printscaled ( d ) ; 
  95. } 
  96. zprintglue ( d , order , s ) 
  97. scaled d ; 
  98. integer order ; 
  99. strnumber s ; 
  100. {r_printglue 
  101.   printscaled ( d ) ; 
  102.   if ( ( order < 0 ) || ( order > 3 ) ) 
  103.   print ( 179 ) ; 
  104.   else if ( order > 0 ) 
  105.   {
  106.     print ( 180 ) ; 
  107.     while ( order > 1 ) { 
  108.       printchar ( 108 ) ; 
  109.       decr ( order ) ; 
  110.     } 
  111.   } 
  112.   else if ( s != 0 ) 
  113.   print ( s ) ; 
  114. } 
  115. zprintspec ( p , s ) 
  116. integer p ; 
  117. strnumber s ; 
  118. {r_printspec 
  119.   if ( ( p < memmin ) || ( p >= lomemmax ) ) 
  120.   printchar ( 42 ) ; 
  121.   else { 
  122.     printscaled ( mem [(long) p + 1 ] .cint ) ; 
  123.     if ( s != 0 ) 
  124.     print ( s ) ; 
  125.     if ( mem [(long) p + 2 ] .cint != 0 ) 
  126.     {
  127.       print ( 181 ) ; 
  128.       printglue ( mem [(long) p + 2 ] .cint , mem [(long) p ] .hh.b0 , s ) ; 
  129.     } 
  130.     if ( mem [(long) p + 3 ] .cint != 0 ) 
  131.     {
  132.       print ( 182 ) ; 
  133.       printglue ( mem [(long) p + 3 ] .cint , mem [(long) p ] .hh.b1 , s ) ; 
  134.     } 
  135.   } 
  136. } 
  137. zprintfamandc ( p ) 
  138. halfword p ; 
  139. {r_printfamandc 
  140.   printesc ( 329 ) ; 
  141.   printint ( mem [(long) p ] .hh.b0 ) ; 
  142.   printchar ( 32 ) ; 
  143.   printASCII ( mem [(long) p ] .hh.b1 ) ; 
  144. } 
  145. zprintdelimit ( p ) 
  146. halfword p ; 
  147. {r_printdelimit 
  148.   integer a ; 
  149.   a = mem [(long) p ] .qqqq .b0 * 256 + mem [(long) p ] .qqqq .b1 ; 
  150.   a = a * 4096 + mem [(long) p ] .qqqq .b2 * 256 + mem [(long) p ] .qqqq .b3 ; 
  151.   if ( a < 0 ) 
  152.   printint ( a ) ; 
  153.   else printhex ( a ) ; 
  154. } 
  155. zprintsubsidi ( p , c ) 
  156. halfword p ; 
  157. ASCIIcode c ; 
  158. {r_printsubsidi 
  159.   if ( ( poolptr - strstart [ strptr ] ) >= depththresho ) 
  160.   {
  161.     if ( mem [(long) p ] .hh .v.RH != 0 ) 
  162.     print ( 183 ) ; 
  163.   } 
  164.   else { 
  165.     {
  166.       strpool [ poolptr ] = c ; 
  167.       incr ( poolptr ) ; 
  168.     } 
  169.     tempptr = p ; 
  170.     switch ( mem [(long) p ] .hh .v.RH ) 
  171.     {case 1 : 
  172.       {
  173.     println () ; 
  174.     printcurrent () ; 
  175.     printfamandc ( p ) ; 
  176.       } 
  177.       break ; 
  178.     case 2 : 
  179.       showinfo () ; 
  180.       break ; 
  181.     case 3 : 
  182.       if ( mem [(long) p ] .hh .v.LH == 0 ) 
  183.       {
  184.     println () ; 
  185.     printcurrent () ; 
  186.     print ( 713 ) ; 
  187.       } 
  188.       else showinfo () ; 
  189.       break ; 
  190.     default : 
  191.       ; 
  192.       break ; 
  193.     } 
  194.     decr ( poolptr ) ; 
  195.   } 
  196. } 
  197. zprintstyle ( c ) 
  198. integer c ; 
  199. {r_printstyle 
  200.   switch ( c / 2 ) 
  201.   {case 0 : 
  202.     printesc ( 714 ) ; 
  203.     break ; 
  204.   case 1 : 
  205.     printesc ( 715 ) ; 
  206.     break ; 
  207.   case 2 : 
  208.     printesc ( 716 ) ; 
  209.     break ; 
  210.   case 3 : 
  211.     printesc ( 717 ) ; 
  212.     break ; 
  213.   default : 
  214.     print ( 718 ) ; 
  215.     break ; 
  216.   } 
  217. } 
  218. zprintskippar ( n ) 
  219. integer n ; 
  220. {r_printskippar 
  221.   switch ( n ) 
  222.   {case 0 : 
  223.     printesc ( 241 ) ; 
  224.     break ; 
  225.   case 1 : 
  226.     printesc ( 242 ) ; 
  227.     break ; 
  228.   case 2 : 
  229.     printesc ( 243 ) ; 
  230.     break ; 
  231.   case 3 : 
  232.     printesc ( 244 ) ; 
  233.     break ; 
  234.   case 4 : 
  235.     printesc ( 245 ) ; 
  236.     break ; 
  237.   case 5 : 
  238.     printesc ( 246 ) ; 
  239.     break ; 
  240.   case 6 : 
  241.     printesc ( 247 ) ; 
  242.     break ; 
  243.   case 7 : 
  244.     printesc ( 248 ) ; 
  245.     break ; 
  246.   case 8 : 
  247.     printesc ( 249 ) ; 
  248.     break ; 
  249.   case 9 : 
  250.     printesc ( 250 ) ; 
  251.     break ; 
  252.   case 10 : 
  253.     printesc ( 251 ) ; 
  254.     break ; 
  255.   case 11 : 
  256.     printesc ( 252 ) ; 
  257.     break ; 
  258.   case 12 : 
  259.     printesc ( 253 ) ; 
  260.     break ; 
  261.   case 13 : 
  262.     printesc ( 254 ) ; 
  263.     break ; 
  264.   case 14 : 
  265.     printesc ( 255 ) ; 
  266.     break ; 
  267.   case 15 : 
  268.     printesc ( 256 ) ; 
  269.     break ; 
  270.   case 16 : 
  271.     printesc ( 257 ) ; 
  272.     break ; 
  273.   case 17 : 
  274.     printesc ( 258 ) ; 
  275.     break ; 
  276.   default : 
  277.     print ( 259 ) ; 
  278.     break ; 
  279.   } 
  280. } 
  281. zshownodelist ( p ) 
  282. integer p ; 
  283. {/* 10 */ r_shownodelist 
  284.   integer n ; 
  285.   real g ; 
  286.   if ( ( poolptr - strstart [ strptr ] ) > depththresho ) 
  287.   {
  288.     if ( p > 0 ) 
  289.     print ( 183 ) ; 
  290.     return ; 
  291.   } 
  292.   n = 0 ; 
  293.   while ( p > memmin ) { 
  294.     println () ; 
  295.     printcurrent () ; 
  296.     if ( p > memend ) 
  297.     {
  298.       print ( 184 ) ; 
  299.       return ; 
  300.     } 
  301.     incr ( n ) ; 
  302.     if ( n > breadthmax ) 
  303.     {
  304.       print ( 185 ) ; 
  305.       return ; 
  306.     } 
  307.     if ( ( p >= himemmin ) ) 
  308.     printfontand ( p ) ; 
  309.     else switch ( mem [(long) p ] .hh.b0 ) 
  310.     {case 0 : 
  311.     case 1 : 
  312.     case 13 : 
  313.       {
  314.     if ( mem [(long) p ] .hh.b0 == 0 ) 
  315.     printesc ( 104 ) ; 
  316.     else if ( mem [(long) p ] .hh.b0 == 1 ) 
  317.     printesc ( 118 ) ; 
  318.     else printesc ( 187 ) ; 
  319.     print ( 188 ) ; 
  320.     printscaled ( mem [(long) p + 3 ] .cint ) ; 
  321.     printchar ( 43 ) ; 
  322.     printscaled ( mem [(long) p + 2 ] .cint ) ; 
  323.     print ( 189 ) ; 
  324.     printscaled ( mem [(long) p + 1 ] .cint ) ; 
  325.     if ( mem [(long) p ] .hh.b0 == 13 ) 
  326.     {
  327.       if ( mem [(long) p ] .hh.b1 != 0 ) 
  328.       {
  329.         print ( 155 ) ; 
  330.         printint ( mem [(long) p ] .hh.b1 + 1 ) ; 
  331.         print ( 191 ) ; 
  332.       } 
  333.       if ( mem [(long) p + 6 ] .cint != 0 ) 
  334.       {
  335.         print ( 192 ) ; 
  336.         printglue ( mem [(long) p + 6 ] .cint , mem [(long) p + 5 ] .hh.b1 , 0 ) ; 
  337.       } 
  338.       if ( mem [(long) p + 4 ] .cint != 0 ) 
  339.       {
  340.         print ( 193 ) ; 
  341.         printglue ( mem [(long) p + 4 ] .cint , mem [(long) p + 5 ] .hh.b0 , 0 ) ; 
  342.       } 
  343.     } 
  344.     else { 
  345.       g = mem [(long) p + 6 ] .gr ; 
  346.       if ( ( g != 0.0 ) && ( mem [(long) p + 5 ] .hh.b0 != 0 ) ) 
  347.       {
  348.         print ( 194 ) ; 
  349.         if ( mem [(long) p + 5 ] .hh.b0 == 2 ) 
  350.         print ( 195 ) ; 
  351.         if ( fabs ( g ) > 20000.0 ) 
  352.         {
  353.           if ( g > 0.0 ) 
  354.           printchar ( 62 ) ; 
  355.           else print ( 196 ) ; 
  356.           printglue ( 20000 * 65536 , mem [(long) p + 5 ] .hh.b1 , 0 ) ; 
  357.         } 
  358.         else printglue ( round ( 65536 * g ) , mem [(long) p + 5 ] .hh.b1 , 0 ) 
  359.         ; 
  360.       } 
  361.       if ( mem [(long) p + 4 ] .cint != 0 ) 
  362.       {
  363.         print ( 190 ) ; 
  364.         printscaled ( mem [(long) p + 4 ] .cint ) ; 
  365.       } 
  366.     } 
  367.     {
  368.       {
  369.         strpool [ poolptr ] = 46 ; 
  370.         incr ( poolptr ) ; 
  371.       } 
  372.       shownodelist ( mem [(long) p + 5 ] .hh .v.RH ) ; 
  373.       decr ( poolptr ) ; 
  374.     } 
  375.       } 
  376.       break ; 
  377.     case 2 : 
  378.       {
  379.     printesc ( 197 ) ; 
  380.     printruledim ( mem [(long) p + 3 ] .cint ) ; 
  381.     printchar ( 43 ) ; 
  382.     printruledim ( mem [(long) p + 2 ] .cint ) ; 
  383.     print ( 189 ) ; 
  384.     printruledim ( mem [(long) p + 1 ] .cint ) ; 
  385.       } 
  386.       break ; 
  387.     case 3 : 
  388.       {
  389.     printesc ( 198 ) ; 
  390.     printint ( mem [(long) p ] .hh.b1 ) ; 
  391.     print ( 199 ) ; 
  392.     printscaled ( mem [(long) p + 3 ] .cint ) ; 
  393.     print ( 200 ) ; 
  394.     printspec ( mem [(long) p + 4 ] .hh .v.RH , 0 ) ; 
  395.     printchar ( 44 ) ; 
  396.     printscaled ( mem [(long) p + 2 ] .cint ) ; 
  397.     print ( 201 ) ; 
  398.     printint ( mem [(long) p + 1 ] .cint ) ; 
  399.     {
  400.       {
  401.         strpool [ poolptr ] = 46 ; 
  402.         incr ( poolptr ) ; 
  403.       } 
  404.       shownodelist ( mem [(long) p + 4 ] .hh .v.LH ) ; 
  405.       decr ( poolptr ) ; 
  406.     } 
  407.       } 
  408.       break ; 
  409.     case 8 : 
  410.       switch ( mem [(long) p ] .hh.b1 ) 
  411.       {case 0 : 
  412.     {
  413.       printwritewh ( 1129 , p ) ; 
  414.       printchar ( 61 ) ; 
  415.       printfilenam ( mem [(long) p + 1 ] .hh .v.RH , mem [(long) p + 2 ] .hh .v.LH , 
  416.       mem [(long) p + 2 ] .hh .v.RH ) ; 
  417.     } 
  418.     break ; 
  419.       case 1 : 
  420.     {
  421.       printwritewh ( 452 , p ) ; 
  422.       printmark ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  423.     } 
  424.     break ; 
  425.       case 2 : 
  426.     printwritewh ( 1130 , p ) ; 
  427.     break ; 
  428.       case 3 : 
  429.     {
  430.       printesc ( 1131 ) ; 
  431.       printmark ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  432.     } 
  433.     break ; 
  434.       default : 
  435.     print ( 1135 ) ; 
  436.     break ; 
  437.       } 
  438.       break ; 
  439.     case 10 : 
  440.       if ( mem [(long) p ] .hh.b1 >= 100 ) 
  441.       {
  442.     printesc ( 206 ) ; 
  443.     if ( mem [(long) p ] .hh.b1 == 101 ) 
  444.     printchar ( 99 ) ; 
  445.     else if ( mem [(long) p ] .hh.b1 == 102 ) 
  446.     printchar ( 120 ) ; 
  447.     print ( 207 ) ; 
  448.     printspec ( mem [(long) p + 1 ] .hh .v.LH , 0 ) ; 
  449.     {
  450.       {
  451.         strpool [ poolptr ] = 46 ; 
  452.         incr ( poolptr ) ; 
  453.       } 
  454.       shownodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  455.       decr ( poolptr ) ; 
  456.     } 
  457.       } 
  458.       else { 
  459.     printesc ( 202 ) ; 
  460.     if ( mem [(long) p ] .hh.b1 != 0 ) 
  461.     {
  462.       printchar ( 40 ) ; 
  463.       if ( mem [(long) p ] .hh.b1 < 98 ) 
  464.       printskippar ( mem [(long) p ] .hh.b1 - 1 ) ; 
  465.       else if ( mem [(long) p ] .hh.b1 == 98 ) 
  466.       printesc ( 203 ) ; 
  467.       else printesc ( 204 ) ; 
  468.       printchar ( 41 ) ; 
  469.     } 
  470.     if ( mem [(long) p ] .hh.b1 != 98 ) 
  471.     {
  472.       printchar ( 32 ) ; 
  473.       if ( mem [(long) p ] .hh.b1 < 98 ) 
  474.       printspec ( mem [(long) p + 1 ] .hh .v.LH , 0 ) ; 
  475.       else printspec ( mem [(long) p + 1 ] .hh .v.LH , 205 ) ; 
  476.     } 
  477.       } 
  478.       break ; 
  479.     case 11 : 
  480.       if ( mem [(long) p ] .hh.b1 != 99 ) 
  481.       {
  482.     printesc ( 208 ) ; 
  483.     if ( mem [(long) p ] .hh.b1 != 0 ) 
  484.     printchar ( 32 ) ; 
  485.     printscaled ( mem [(long) p + 1 ] .cint ) ; 
  486.     if ( mem [(long) p ] .hh.b1 == 2 ) 
  487.     print ( 209 ) ; 
  488.       } 
  489.       else { 
  490.     printesc ( 210 ) ; 
  491.     printscaled ( mem [(long) p + 1 ] .cint ) ; 
  492.     print ( 205 ) ; 
  493.       } 
  494.       break ; 
  495.     case 9 : 
  496.       {
  497.     printesc ( 211 ) ; 
  498.     if ( mem [(long) p ] .hh.b1 == 0 ) 
  499.     print ( 212 ) ; 
  500.     else print ( 213 ) ; 
  501.     if ( mem [(long) p + 1 ] .cint != 0 ) 
  502.     {
  503.       print ( 214 ) ; 
  504.       printscaled ( mem [(long) p + 1 ] .cint ) ; 
  505.     } 
  506.       } 
  507.       break ; 
  508.     case 6 : 
  509.       {
  510.     printfontand ( p + 1 ) ; 
  511.     print ( 215 ) ; 
  512.     fontinshortd = mem [(long) p + 1 ] .hh.b0 ; 
  513.     shortdisplay ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  514.     printchar ( 41 ) ; 
  515.       } 
  516.       break ; 
  517.     case 12 : 
  518.       {
  519.     printesc ( 216 ) ; 
  520.     printint ( mem [(long) p + 1 ] .cint ) ; 
  521.       } 
  522.       break ; 
  523.     case 7 : 
  524.       {
  525.     printesc ( 217 ) ; 
  526.     if ( mem [(long) p ] .hh.b1 > 0 ) 
  527.     {
  528.       print ( 218 ) ; 
  529.       printint ( mem [(long) p ] .hh.b1 ) ; 
  530.     } 
  531.     {
  532.       {
  533.         strpool [ poolptr ] = 46 ; 
  534.         incr ( poolptr ) ; 
  535.       } 
  536.       shownodelist ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  537.       decr ( poolptr ) ; 
  538.     } 
  539.     {
  540.       strpool [ poolptr ] = 124 ; 
  541.       incr ( poolptr ) ; 
  542.     } 
  543.     shownodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  544.     decr ( poolptr ) ; 
  545.       } 
  546.       break ; 
  547.     case 4 : 
  548.       {
  549.     printesc ( 219 ) ; 
  550.     printmark ( mem [(long) p + 1 ] .cint ) ; 
  551.       } 
  552.       break ; 
  553.     case 5 : 
  554.       {
  555.     printesc ( 220 ) ; 
  556.     {
  557.       {
  558.         strpool [ poolptr ] = 46 ; 
  559.         incr ( poolptr ) ; 
  560.       } 
  561.       shownodelist ( mem [(long) p + 1 ] .cint ) ; 
  562.       decr ( poolptr ) ; 
  563.     } 
  564.       } 
  565.       break ; 
  566.     case 14 : 
  567.       printstyle ( mem [(long) p ] .hh.b1 ) ; 
  568.       break ; 
  569.     case 15 : 
  570.       {
  571.     printesc ( 384 ) ; 
  572.     {
  573.       strpool [ poolptr ] = 68 ; 
  574.       incr ( poolptr ) ; 
  575.     } 
  576.     shownodelist ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  577.     decr ( poolptr ) ; 
  578.     {
  579.       strpool [ poolptr ] = 84 ; 
  580.       incr ( poolptr ) ; 
  581.     } 
  582.     shownodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  583.     decr ( poolptr ) ; 
  584.     {
  585.       strpool [ poolptr ] = 83 ; 
  586.       incr ( poolptr ) ; 
  587.     } 
  588.     shownodelist ( mem [(long) p + 2 ] .hh .v.LH ) ; 
  589.     decr ( poolptr ) ; 
  590.     {
  591.       strpool [ poolptr ] = 115 ; 
  592.       incr ( poolptr ) ; 
  593.     } 
  594.     shownodelist ( mem [(long) p + 2 ] .hh .v.RH ) ; 
  595.     decr ( poolptr ) ; 
  596.       } 
  597.       break ; 
  598.     case 16 : 
  599.     case 17 : 
  600.     case 18 : 
  601.     case 19 : 
  602.     case 20 : 
  603.     case 21 : 
  604.     case 22 : 
  605.     case 23 : 
  606.     case 24 : 
  607.     case 27 : 
  608.     case 26 : 
  609.     case 29 : 
  610.     case 28 : 
  611.     case 30 : 
  612.     case 31 : 
  613.       {
  614.     switch ( mem [(long) p ] .hh.b0 ) 
  615.     {case 16 : 
  616.       printesc ( 719 ) ; 
  617.       break ; 
  618.     case 17 : 
  619.       printesc ( 720 ) ; 
  620.       break ; 
  621.     case 18 : 
  622.       printesc ( 721 ) ; 
  623.       break ; 
  624.     case 19 : 
  625.       printesc ( 722 ) ; 
  626.       break ; 
  627.     case 20 : 
  628.       printesc ( 723 ) ; 
  629.       break ; 
  630.     case 21 : 
  631.       printesc ( 724 ) ; 
  632.       break ; 
  633.     case 22 : 
  634.       printesc ( 725 ) ; 
  635.       break ; 
  636.     case 23 : 
  637.       printesc ( 726 ) ; 
  638.       break ; 
  639.     case 27 : 
  640.       printesc ( 727 ) ; 
  641.       break ; 
  642.     case 26 : 
  643.       printesc ( 728 ) ; 
  644.       break ; 
  645.     case 29 : 
  646.       printesc ( 397 ) ; 
  647.       break ; 
  648.     case 24 : 
  649.       {
  650.         printesc ( 391 ) ; 
  651.         printdelimit ( p + 4 ) ; 
  652.       } 
  653.       break ; 
  654.     case 28 : 
  655.       {
  656.         printesc ( 367 ) ; 
  657.         printfamandc ( p + 4 ) ; 
  658.       } 
  659.       break ; 
  660.     case 30 : 
  661.       {
  662.         printesc ( 729 ) ; 
  663.         printdelimit ( p + 1 ) ; 
  664.       } 
  665.       break ; 
  666.     case 31 : 
  667.       {
  668.         printesc ( 730 ) ; 
  669.         printdelimit ( p + 1 ) ; 
  670.       } 
  671.       break ; 
  672.     } 
  673.     if ( mem [(long) p ] .hh.b1 != 0 ) 
  674.     if ( mem [(long) p ] .hh.b1 == 1 ) 
  675.     printesc ( 731 ) ; 
  676.     else printesc ( 732 ) ; 
  677.     if ( mem [(long) p ] .hh.b0 < 30 ) 
  678.     printsubsidi ( p + 1 , 46 ) ; 
  679.     printsubsidi ( p + 2 , 94 ) ; 
  680.     printsubsidi ( p + 3 , 95 ) ; 
  681.       } 
  682.       break ; 
  683.     case 25 : 
  684.       {
  685.     printesc ( 733 ) ; 
  686.     if ( mem [(long) p + 1 ] .cint == 1073741824 ) 
  687.     print ( 734 ) ; 
  688.     else printscaled ( mem [(long) p + 1 ] .cint ) ; 
  689.     if ( ( mem [(long) p + 4 ] .qqqq .b0 != 0 ) || ( mem [(long) p + 4 ] .qqqq .b1 != 
  690.     0 ) || ( mem [(long) p + 4 ] .qqqq .b2 != 0 ) || ( mem [(long) p + 4 ] .qqqq .b3 
  691.     != 0 ) ) 
  692.     {
  693.       print ( 735 ) ; 
  694.       printdelimit ( p + 4 ) ; 
  695.     } 
  696.     if ( ( mem [(long) p + 5 ] .qqqq .b0 != 0 ) || ( mem [(long) p + 5 ] .qqqq .b1 != 
  697.     0 ) || ( mem [(long) p + 5 ] .qqqq .b2 != 0 ) || ( mem [(long) p + 5 ] .qqqq .b3 
  698.     != 0 ) ) 
  699.     {
  700.       print ( 736 ) ; 
  701.       printdelimit ( p + 5 ) ; 
  702.     } 
  703.     printsubsidi ( p + 2 , 92 ) ; 
  704.     printsubsidi ( p + 3 , 47 ) ; 
  705.       } 
  706.       break ; 
  707.     default : 
  708.       print ( 186 ) ; 
  709.       break ; 
  710.     } 
  711.     p = mem [(long) p ] .hh .v.RH ; 
  712.   } 
  713. } 
  714. zshowbox ( p ) 
  715. halfword p ; 
  716. {r_showbox 
  717.   depththresho = eqtb [ 5292 ] .cint ; 
  718.   breadthmax = eqtb [ 5291 ] .cint ; 
  719.   if ( breadthmax <= 0 ) 
  720.   breadthmax = 5 ; 
  721.   if ( poolptr + depththresho >= poolsize ) 
  722.   depththresho = poolsize - poolptr - 1 ; 
  723.   shownodelist ( p ) ; 
  724.   println () ; 
  725. } 
  726. zdeletetokenr ( p ) 
  727. halfword p ; 
  728. {r_deletetokenr 
  729.   if ( mem [(long) p ] .hh .v.LH == 0 ) 
  730.   flushlist ( p ) ; 
  731.   else decr ( mem [(long) p ] .hh .v.LH ) ; 
  732. } 
  733. zdeletegluere ( p ) 
  734. halfword p ; 
  735. {r_deletegluere 
  736.   if ( mem [(long) p ] .hh .v.RH == 0 ) 
  737.   freenode ( p , 4 ) ; 
  738.   else decr ( mem [(long) p ] .hh .v.RH ) ; 
  739. } 
  740. zflushnodelis ( p ) 
  741. halfword p ; 
  742. {/* 30 */ r_flushnodelis 
  743.   halfword q ; 
  744.   while ( p != 0 ) { 
  745.     q = mem [(long) p ] .hh .v.RH ; 
  746.     if ( ( p >= himemmin ) ) 
  747.     {
  748.       mem [(long) p ] .hh .v.RH = avail ; 
  749.       avail = p ; 
  750.  
  751. #ifdef STAT
  752.       decr ( dynused ) ; 
  753. #endif /* STAT */
  754.     } 
  755.     else { 
  756.       switch ( mem [(long) p ] .hh.b0 ) 
  757.       {case 0 : 
  758.       case 1 : 
  759.       case 13 : 
  760.     {
  761.       flushnodelis ( mem [(long) p + 5 ] .hh .v.RH ) ; 
  762.       freenode ( p , 7 ) ; 
  763.       goto lab30 ; 
  764.     } 
  765.     break ; 
  766.       case 2 : 
  767.     {
  768.       freenode ( p , 4 ) ; 
  769.       goto lab30 ; 
  770.     } 
  771.     break ; 
  772.       case 3 : 
  773.     {
  774.       flushnodelis ( mem [(long) p + 4 ] .hh .v.LH ) ; 
  775.       deletegluere ( mem [(long) p + 4 ] .hh .v.RH ) ; 
  776.       freenode ( p , 5 ) ; 
  777.       goto lab30 ; 
  778.     } 
  779.     break ; 
  780.       case 8 : 
  781.     {
  782.       switch ( mem [(long) p ] .hh.b1 ) 
  783.       {case 0 : 
  784.         freenode ( p , 3 ) ; 
  785.         break ; 
  786.       case 1 : 
  787.       case 3 : 
  788.         {
  789.           deletetokenr ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  790.           freenode ( p , 2 ) ; 
  791.           goto lab30 ; 
  792.         } 
  793.         break ; 
  794.       case 2 : 
  795.         freenode ( p , 2 ) ; 
  796.         break ; 
  797.       default : 
  798.         confusion ( 1137 ) ; 
  799.         break ; 
  800.       } 
  801.       goto lab30 ; 
  802.     } 
  803.     break ; 
  804.       case 10 : 
  805.     {
  806.       {
  807.         if ( mem [(long) mem [(long) p + 1 ] .hh .v.LH ] .hh .v.RH == 0 ) 
  808.         freenode ( mem [(long) p + 1 ] .hh .v.LH , 4 ) ; 
  809.         else decr ( mem [(long) mem [(long) p + 1 ] .hh .v.LH ] .hh .v.RH ) ; 
  810.       } 
  811.       if ( mem [(long) p + 1 ] .hh .v.RH != 0 ) 
  812.       flushnodelis ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  813.     } 
  814.     break ; 
  815.       case 11 : 
  816.       case 9 : 
  817.       case 12 : 
  818.  
  819.     break ; 
  820.       case 6 : 
  821.     flushnodelis ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  822.     break ; 
  823.       case 4 : 
  824.     deletetokenr ( mem [(long) p + 1 ] .cint ) ; 
  825.     break ; 
  826.       case 7 : 
  827.     {
  828.       flushnodelis ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  829.       flushnodelis ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  830.     } 
  831.     break ; 
  832.       case 5 : 
  833.     flushnodelis ( mem [(long) p + 1 ] .cint ) ; 
  834.     break ; 
  835.       case 14 : 
  836.     {
  837.       freenode ( p , 3 ) ; 
  838.       goto lab30 ; 
  839.     } 
  840.     break ; 
  841.       case 15 : 
  842.     {
  843.       flushnodelis ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  844.       flushnodelis ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  845.       flushnodelis ( mem [(long) p + 2 ] .hh .v.LH ) ; 
  846.       flushnodelis ( mem [(long) p + 2 ] .hh .v.RH ) ; 
  847.       freenode ( p , 3 ) ; 
  848.       goto lab30 ; 
  849.     } 
  850.     break ; 
  851.       case 16 : 
  852.       case 17 : 
  853.       case 18 : 
  854.       case 19 : 
  855.       case 20 : 
  856.       case 21 : 
  857.       case 22 : 
  858.       case 23 : 
  859.       case 24 : 
  860.       case 27 : 
  861.       case 26 : 
  862.       case 29 : 
  863.       case 28 : 
  864.     {
  865.       if ( mem [(long) p + 1 ] .hh .v.RH >= 2 ) 
  866.       flushnodelis ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  867.       if ( mem [(long) p + 2 ] .hh .v.RH >= 2 ) 
  868.       flushnodelis ( mem [(long) p + 2 ] .hh .v.LH ) ; 
  869.       if ( mem [(long) p + 3 ] .hh .v.RH >= 2 ) 
  870.       flushnodelis ( mem [(long) p + 3 ] .hh .v.LH ) ; 
  871.       if ( mem [(long) p ] .hh.b0 == 24 ) 
  872.       freenode ( p , 5 ) ; 
  873.       else if ( mem [(long) p ] .hh.b0 == 28 ) 
  874.       freenode ( p , 5 ) ; 
  875.       else freenode ( p , 4 ) ; 
  876.       goto lab30 ; 
  877.     } 
  878.     break ; 
  879.       case 30 : 
  880.       case 31 : 
  881.     {
  882.       freenode ( p , 4 ) ; 
  883.       goto lab30 ; 
  884.     } 
  885.     break ; 
  886.       case 25 : 
  887.     {
  888.       flushnodelis ( mem [(long) p + 2 ] .hh .v.LH ) ; 
  889.       flushnodelis ( mem [(long) p + 3 ] .hh .v.LH ) ; 
  890.       freenode ( p , 6 ) ; 
  891.       goto lab30 ; 
  892.     } 
  893.     break ; 
  894.       default : 
  895.     confusion ( 221 ) ; 
  896.     break ; 
  897.       } 
  898.       freenode ( p , 2 ) ; 
  899.       lab30: ; 
  900.     } 
  901.     p = q ; 
  902.   } 
  903. } 
  904. halfword zcopynodelist ( p ) 
  905. halfword p ; 
  906. {register halfword Result; r_copynodelist 
  907.   halfword h ; 
  908.   halfword q ; 
  909.   halfword r ; 
  910.   quarterword words ; 
  911.   h = getavail () ; 
  912.   q = h ; 
  913.   while ( p != 0 ) { 
  914.     words = 1 ; 
  915.     if ( ( p >= himemmin ) ) 
  916.     r = getavail () ; 
  917.     else switch ( mem [(long) p ] .hh.b0 ) 
  918.     {case 0 : 
  919.     case 1 : 
  920.     case 13 : 
  921.       {
  922.     r = getnode ( 7 ) ; 
  923.     mem [(long) r + 6 ] = mem [(long) p + 6 ] ; 
  924.     mem [(long) r + 5 ] = mem [(long) p + 5 ] ; 
  925.     mem [(long) r + 5 ] .hh .v.RH = copynodelist ( mem [(long) p + 5 ] .hh .v.RH ) ; 
  926.     words = 5 ; 
  927.       } 
  928.       break ; 
  929.     case 2 : 
  930.       {
  931.     r = getnode ( 4 ) ; 
  932.     words = 4 ; 
  933.       } 
  934.       break ; 
  935.     case 3 : 
  936.       {
  937.     r = getnode ( 5 ) ; 
  938.     mem [(long) r + 4 ] = mem [(long) p + 4 ] ; 
  939.     incr ( mem [(long) mem [(long) p + 4 ] .hh .v.RH ] .hh .v.RH ) ; 
  940.     mem [(long) r + 4 ] .hh .v.LH = copynodelist ( mem [(long) p + 4 ] .hh .v.LH ) ; 
  941.     words = 4 ; 
  942.       } 
  943.       break ; 
  944.     case 8 : 
  945.       switch ( mem [(long) p ] .hh.b1 ) 
  946.       {case 0 : 
  947.     {
  948.       r = getnode ( 3 ) ; 
  949.       words = 3 ; 
  950.     } 
  951.     break ; 
  952.       case 1 : 
  953.       case 3 : 
  954.     {
  955.       r = getnode ( 2 ) ; 
  956.       incr ( mem [(long) mem [(long) p + 1 ] .hh .v.RH ] .hh .v.LH ) ; 
  957.       words = 2 ; 
  958.     } 
  959.     break ; 
  960.       case 2 : 
  961.     {
  962.       r = getnode ( 2 ) ; 
  963.       words = 2 ; 
  964.     } 
  965.     break ; 
  966.       default : 
  967.     confusion ( 1136 ) ; 
  968.     break ; 
  969.       } 
  970.       break ; 
  971.     case 10 : 
  972.       {
  973.     r = getnode ( 2 ) ; 
  974.     incr ( mem [(long) mem [(long) p + 1 ] .hh .v.LH ] .hh .v.RH ) ; 
  975.     mem [(long) r + 1 ] .hh .v.LH = mem [(long) p + 1 ] .hh .v.LH ; 
  976.     mem [(long) r + 1 ] .hh .v.RH = copynodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  977.       } 
  978.       break ; 
  979.     case 11 : 
  980.     case 9 : 
  981.     case 12 : 
  982.       {
  983.     r = getnode ( 2 ) ; 
  984.     words = 2 ; 
  985.       } 
  986.       break ; 
  987.     case 6 : 
  988.       {
  989.     r = getnode ( 2 ) ; 
  990.     mem [(long) r + 1 ] = mem [(long) p + 1 ] ; 
  991.     mem [(long) r + 1 ] .hh .v.RH = copynodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  992.       } 
  993.       break ; 
  994.     case 7 : 
  995.       {
  996.     r = getnode ( 2 ) ; 
  997.     mem [(long) r + 1 ] .hh .v.LH = copynodelist ( mem [(long) p + 1 ] .hh .v.LH ) ; 
  998.     mem [(long) r + 1 ] .hh .v.RH = copynodelist ( mem [(long) p + 1 ] .hh .v.RH ) ; 
  999.       } 
  1000.       break ; 
  1001.     case 4 : 
  1002.       {
  1003.     r = getnode ( 2 ) ; 
  1004.     incr ( mem [(long) mem [(long) p + 1 ] .cint ] .hh .v.LH ) ; 
  1005.     words = 2 ; 
  1006.       } 
  1007.       break ; 
  1008.     case 5 : 
  1009.       {
  1010.     r = getnode ( 2 ) ; 
  1011.     mem [(long) r + 1 ] .cint = copynodelist ( mem [(long) p + 1 ] .cint ) ; 
  1012.       } 
  1013.       break ; 
  1014.     default : 
  1015.       confusion ( 222 ) ; 
  1016.       break ; 
  1017.     } 
  1018.     while ( words > 0 ) { 
  1019.       decr ( words ) ; 
  1020.       mem [(long) r + words ] = mem [(long) p + words ] ; 
  1021.     } 
  1022.     mem [(long) q ] .hh .v.RH = r ; 
  1023.     q = r ; 
  1024.     p = mem [(long) p ] .hh .v.RH ; 
  1025.   } 
  1026.   mem [(long) q ] .hh .v.RH = 0 ; 
  1027.   q = mem [(long) h ] .hh .v.RH ; 
  1028.   {
  1029.     mem [(long) h ] .hh .v.RH = avail ; 
  1030.     avail = h ; 
  1031.  
  1032. #ifdef STAT
  1033.     decr ( dynused ) ; 
  1034. #endif /* STAT */
  1035.   } 
  1036.   Result = q ; 
  1037.   return(Result) ; 
  1038. } 
  1039. zprintmode ( m ) 
  1040. integer m ; 
  1041. {r_printmode 
  1042.   if ( m > 0 ) 
  1043.   switch ( m / ( 100 ) ) 
  1044.   {case 0 : 
  1045.     print ( 223 ) ; 
  1046.     break ; 
  1047.   case 1 : 
  1048.     print ( 224 ) ; 
  1049.     break ; 
  1050.   case 2 : 
  1051.     print ( 225 ) ; 
  1052.     break ; 
  1053.   } 
  1054.   else if ( m == 0 ) 
  1055.   print ( 226 ) ; 
  1056.   else switch ( ( - m ) / ( 100 ) ) 
  1057.   {case 0 : 
  1058.     print ( 227 ) ; 
  1059.     break ; 
  1060.   case 1 : 
  1061.     print ( 228 ) ; 
  1062.     break ; 
  1063.   case 2 : 
  1064.     print ( 211 ) ; 
  1065.     break ; 
  1066.   } 
  1067.   print ( 229 ) ; 
  1068. } 
  1069. pushnest () { r_pushnest 
  1070.   if ( nestptr > maxneststack ) 
  1071.   {
  1072.     maxneststack = nestptr ; 
  1073.     if ( nestptr == nestsize ) 
  1074.     overflow ( 230 , nestsize ) ; 
  1075.   } 
  1076.   nest [ nestptr ] = curlist ; 
  1077.   incr ( nestptr ) ; 
  1078.   curlist .headfield = getavail () ; 
  1079.   curlist .tailfield = curlist .headfield ; 
  1080.   curlist .pgfield = 0 ; 
  1081.   curlist .mlfield = line ; 
  1082. } 
  1083. popnest () { r_popnest 
  1084.   {
  1085.     mem [(long) curlist .headfield ] .hh .v.RH = avail ; 
  1086.     avail = curlist .headfield ; 
  1087.  
  1088. #ifdef STAT
  1089.     decr ( dynused ) ; 
  1090. #endif /* STAT */
  1091.   } 
  1092.   decr ( nestptr ) ; 
  1093.   curlist = nest [ nestptr ] ; 
  1094. } 
  1095. showactiviti () { r_showactiviti 
  1096.   integer p ; 
  1097.   int m ; 
  1098.   integer a ; 
  1099.   halfword q, r ; 
  1100.   integer t ; 
  1101.   nest [ nestptr ] = curlist ; 
  1102.   printnl ( 206 ) ; 
  1103.   println () ; 
  1104.   for ( p = nestptr ; p >= 0 ; p -- ) 
  1105.   {
  1106.     m = nest [ p ] .modefield ; 
  1107.     a = nest [ p ] .auxfield ; 
  1108.     printnl ( 231 ) ; 
  1109.     printmode ( m ) ; 
  1110.     print ( 232 ) ; 
  1111.     printint ( abs ( nest [ p ] .mlfield ) ) ; 
  1112.     if ( nest [ p ] .mlfield < 0 ) 
  1113.     print ( 233 ) ; 
  1114.     if ( p == 0 ) 
  1115.     {
  1116.       if ( memtop - 2 != pagetail ) 
  1117.       {
  1118.     printnl ( 828 ) ; 
  1119.     if ( outputactive ) 
  1120.     print ( 829 ) ; 
  1121.     showbox ( mem [(long) memtop - 2 ] .hh .v.RH ) ; 
  1122.     if ( pagecontents > 0 ) 
  1123.     {
  1124.       printnl ( 830 ) ; 
  1125.       printtotals () ; 
  1126.       printnl ( 831 ) ; 
  1127.       printscaled ( pagesofar [ 0 ] ) ; 
  1128.       r = mem [(long) memtop ] .hh .v.RH ; 
  1129.       while ( r != memtop ) { 
  1130.         println () ; 
  1131.         printesc ( 198 ) ; 
  1132.         t = mem [(long) r ] .hh.b1 ; 
  1133.         printint ( t ) ; 
  1134.         print ( 832 ) ; 
  1135.         t = xovern ( mem [(long) r + 3 ] .cint , 1000 ) * eqtb [ 5317 + t ] 
  1136.         .cint ; 
  1137.         printscaled ( t ) ; 
  1138.         if ( mem [(long) r ] .hh.b0 == 1 ) 
  1139.         {
  1140.           q = memtop - 2 ; 
  1141.           t = 0 ; 
  1142.           do { q = mem [(long) q ] .hh .v.RH ; 
  1143.         if ( ( mem [(long) q ] .hh.b0 == 3 ) && ( mem [(long) q ] .hh.b1 == mem [(long) 
  1144.         r ] .hh.b1 ) ) 
  1145.         incr ( t ) ; 
  1146.           } while ( ! ( q == mem [(long) r + 1 ] .hh .v.LH ) ) ; 
  1147.           print ( 833 ) ; 
  1148.           printint ( t ) ; 
  1149.           print ( 834 ) ; 
  1150.         } 
  1151.         r = mem [(long) r ] .hh .v.RH ; 
  1152.       } 
  1153.     } 
  1154.       } 
  1155.       if ( mem [(long) memtop - 1 ] .hh .v.RH != 0 ) 
  1156.       printnl ( 234 ) ; 
  1157.     } 
  1158.     showbox ( mem [(long) nest [ p ] .headfield ] .hh .v.RH ) ; 
  1159.     switch ( abs ( m ) / ( 100 ) ) 
  1160.     {case 0 : 
  1161.       {
  1162.     printnl ( 235 ) ; 
  1163.     if ( a <= - 65536000 ) 
  1164.     print ( 236 ) ; 
  1165.     else printscaled ( a ) ; 
  1166.     if ( nest [ p ] .pgfield != 0 ) 
  1167.     {
  1168.       print ( 237 ) ; 
  1169.       printint ( nest [ p ] .pgfield ) ; 
  1170.       print ( 238 ) ; 
  1171.       if ( nest [ p ] .pgfield != 1 ) 
  1172.       printchar ( 115 ) ; 
  1173.     } 
  1174.       } 
  1175.       break ; 
  1176.     case 1 : 
  1177.       {
  1178.     printnl ( 239 ) ; 
  1179.     printint ( a ) ; 
  1180.       } 
  1181.       break ; 
  1182.     case 2 : 
  1183.       if ( a != 0 ) 
  1184.       {
  1185.     print ( 240 ) ; 
  1186.     showbox ( a ) ; 
  1187.       } 
  1188.       break ; 
  1189.     } 
  1190.   } 
  1191. } 
  1192. zprintparam ( n ) 
  1193. integer n ; 
  1194. {r_printparam 
  1195.   switch ( n ) 
  1196.   {case 0 : 
  1197.     printesc ( 285 ) ; 
  1198.     break ; 
  1199.   case 1 : 
  1200.     printesc ( 286 ) ; 
  1201.     break ; 
  1202.   case 2 : 
  1203.     printesc ( 287 ) ; 
  1204.     break ; 
  1205.   case 3 : 
  1206.     printesc ( 288 ) ; 
  1207.     break ; 
  1208.   case 4 : 
  1209.     printesc ( 289 ) ; 
  1210.     break ; 
  1211.   case 5 : 
  1212.     printesc ( 290 ) ; 
  1213.     break ; 
  1214.   case 6 : 
  1215.     printesc ( 291 ) ; 
  1216.     break ; 
  1217.   case 7 : 
  1218.     printesc ( 292 ) ; 
  1219.     break ; 
  1220.   case 8 : 
  1221.     printesc ( 293 ) ; 
  1222.     break ; 
  1223.   case 9 : 
  1224.     printesc ( 294 ) ; 
  1225.     break ; 
  1226.   case 10 : 
  1227.     printesc ( 295 ) ; 
  1228.     break ; 
  1229.   case 11 : 
  1230.     printesc ( 296 ) ; 
  1231.     break ; 
  1232.   case 12 : 
  1233.     printesc ( 297 ) ; 
  1234.     break ; 
  1235.   case 13 : 
  1236.     printesc ( 298 ) ; 
  1237.     break ; 
  1238.   case 14 : 
  1239.     printesc ( 299 ) ; 
  1240.     break ; 
  1241.   case 15 : 
  1242.     printesc ( 300 ) ; 
  1243.     break ; 
  1244.   case 16 : 
  1245.     printesc ( 301 ) ; 
  1246.     break ; 
  1247.   case 17 : 
  1248.     printesc ( 302 ) ; 
  1249.     break ; 
  1250.   case 18 : 
  1251.     printesc ( 303 ) ; 
  1252.     break ; 
  1253.   case 19 : 
  1254.     printesc ( 304 ) ; 
  1255.     break ; 
  1256.   case 20 : 
  1257.     printesc ( 305 ) ; 
  1258.     break ; 
  1259.   case 21 : 
  1260.     printesc ( 306 ) ; 
  1261.     break ; 
  1262.   case 22 : 
  1263.     printesc ( 307 ) ; 
  1264.     break ; 
  1265.   case 23 : 
  1266.     printesc ( 308 ) ; 
  1267.     break ; 
  1268.   case 24 : 
  1269.     printesc ( 309 ) ; 
  1270.     break ; 
  1271.   case 25 : 
  1272.     printesc ( 310 ) ; 
  1273.     break ; 
  1274.   case 26 : 
  1275.     printesc ( 311 ) ; 
  1276.     break ; 
  1277.   case 27 : 
  1278.     printesc ( 312 ) ; 
  1279.     break ; 
  1280.   case 28 : 
  1281.     printesc ( 313 ) ; 
  1282.     break ; 
  1283.   case 29 : 
  1284.     printesc ( 314 ) ; 
  1285.     break ; 
  1286.   case 30 : 
  1287.     printesc ( 315 ) ; 
  1288.     break ; 
  1289.   case 31 : 
  1290.     printesc ( 316 ) ; 
  1291.     break ; 
  1292.   case 32 : 
  1293.     printesc ( 317 ) ; 
  1294.     break ; 
  1295.   case 33 : 
  1296.     printesc ( 318 ) ; 
  1297.     break ; 
  1298.   case 34 : 
  1299.     printesc ( 319 ) ; 
  1300.     break ; 
  1301.   case 35 : 
  1302.     printesc ( 320 ) ; 
  1303.     break ; 
  1304.   case 36 : 
  1305.     printesc ( 321 ) ; 
  1306.     break ; 
  1307.   case 37 : 
  1308.     printesc ( 322 ) ; 
  1309.     break ; 
  1310.   case 38 : 
  1311.     printesc ( 323 ) ; 
  1312.     break ; 
  1313.   case 39 : 
  1314.     printesc ( 324 ) ; 
  1315.     break ; 
  1316.   case 40 : 
  1317.     printesc ( 325 ) ; 
  1318.     break ; 
  1319.   case 41 : 
  1320.     printesc ( 326 ) ; 
  1321.     break ; 
  1322.   case 42 : 
  1323.     printesc ( 327 ) ; 
  1324.     break ; 
  1325.   case 43 : 
  1326.     printesc ( 328 ) ; 
  1327.     break ; 
  1328.   case 44 : 
  1329.     printesc ( 329 ) ; 
  1330.     break ; 
  1331.   case 45 : 
  1332.     printesc ( 330 ) ; 
  1333.     break ; 
  1334.   case 46 : 
  1335.     printesc ( 331 ) ; 
  1336.     break ; 
  1337.   case 47 : 
  1338.     printesc ( 332 ) ; 
  1339.     break ; 
  1340.   case 48 : 
  1341.     printesc ( 333 ) ; 
  1342.     break ; 
  1343.   case 49 : 
  1344.     printesc ( 334 ) ; 
  1345.     break ; 
  1346.   default : 
  1347.     print ( 335 ) ; 
  1348.     break ; 
  1349.   } 
  1350. } 
  1351. begindiagnos () { r_begindiagnos 
  1352.   oldsetting = selector ; 
  1353.   if ( ( eqtb [ 5296 ] .cint <= 0 ) && ( selector == 19 ) ) 
  1354.   {
  1355.     decr ( selector ) ; 
  1356.     if ( history == 0 ) 
  1357.     history = 1 ; 
  1358.   } 
  1359. } 
  1360. zenddiagnosti ( blankline ) 
  1361. boolean blankline ; 
  1362. {r_enddiagnosti 
  1363.   printnl ( 206 ) ; 
  1364.   if ( blankline ) 
  1365.   println () ; 
  1366.   selector = oldsetting ; 
  1367. } 
  1368. zprintlengthp ( n ) 
  1369. integer n ; 
  1370. {r_printlengthp 
  1371.   switch ( n ) 
  1372.   {case 0 : 
  1373.     printesc ( 338 ) ; 
  1374.     break ; 
  1375.   case 1 : 
  1376.     printesc ( 339 ) ; 
  1377.     break ; 
  1378.   case 2 : 
  1379.     printesc ( 340 ) ; 
  1380.     break ; 
  1381.   case 3 : 
  1382.     printesc ( 341 ) ; 
  1383.     break ; 
  1384.   case 4 : 
  1385.     printesc ( 342 ) ; 
  1386.     break ; 
  1387.   case 5 : 
  1388.     printesc ( 343 ) ; 
  1389.     break ; 
  1390.   case 6 : 
  1391.     printesc ( 344 ) ; 
  1392.     break ; 
  1393.   case 7 : 
  1394.     printesc ( 345 ) ; 
  1395.     break ; 
  1396.   case 8 : 
  1397.     printesc ( 346 ) ; 
  1398.     break ; 
  1399.   case 9 : 
  1400.     printesc ( 347 ) ; 
  1401.     break ; 
  1402.   case 10 : 
  1403.     printesc ( 348 ) ; 
  1404.     break ; 
  1405.   case 11 : 
  1406.     printesc ( 349 ) ; 
  1407.     break ; 
  1408.   case 12 : 
  1409.     printesc ( 350 ) ; 
  1410.     break ; 
  1411.   case 13 : 
  1412.     printesc ( 351 ) ; 
  1413.     break ; 
  1414.   case 14 : 
  1415.     printesc ( 352 ) ; 
  1416.     break ; 
  1417.   case 15 : 
  1418.     printesc ( 353 ) ; 
  1419.     break ; 
  1420.   case 16 : 
  1421.     printesc ( 354 ) ; 
  1422.     break ; 
  1423.   case 17 : 
  1424.     printesc ( 355 ) ; 
  1425.     break ; 
  1426.   case 18 : 
  1427.     printesc ( 356 ) ; 
  1428.     break ; 
  1429.   case 19 : 
  1430.     printesc ( 357 ) ; 
  1431.     break ; 
  1432.   default : 
  1433.     print ( 358 ) ; 
  1434.     break ; 
  1435.   } 
  1436. } 
  1437. zprintcmdchr ( cmd , chrcode ) 
  1438. quarterword cmd ; 
  1439. halfword chrcode ; 
  1440. {r_printcmdchr 
  1441.   switch ( cmd ) 
  1442.   {case 1 : 
  1443.     {
  1444.       print ( 415 ) ; 
  1445.       printASCII ( chrcode ) ; 
  1446.     } 
  1447.     break ; 
  1448.   case 2 : 
  1449.     {
  1450.       print ( 416 ) ; 
  1451.       printASCII ( chrcode ) ; 
  1452.     } 
  1453.     break ; 
  1454.   case 3 : 
  1455.     {
  1456.       print ( 417 ) ; 
  1457.       printASCII ( chrcode ) ; 
  1458.     } 
  1459.     break ; 
  1460.   case 6 : 
  1461.     {
  1462.       print ( 418 ) ; 
  1463.       printASCII ( chrcode ) ; 
  1464.     } 
  1465.     break ; 
  1466.   case 7 : 
  1467.     {
  1468.       print ( 419 ) ; 
  1469.       printASCII ( chrcode ) ; 
  1470.     } 
  1471.     break ; 
  1472.   case 8 : 
  1473.     {
  1474.       print ( 420 ) ; 
  1475.       printASCII ( chrcode ) ; 
  1476.     } 
  1477.     break ; 
  1478.   case 9 : 
  1479.     print ( 421 ) ; 
  1480.     break ; 
  1481.   case 10 : 
  1482.     {
  1483.       print ( 422 ) ; 
  1484.       printASCII ( chrcode ) ; 
  1485.     } 
  1486.     break ; 
  1487.   case 11 : 
  1488.     {
  1489.       print ( 423 ) ; 
  1490.       printASCII ( chrcode ) ; 
  1491.     } 
  1492.     break ; 
  1493.   case 12 : 
  1494.     {
  1495.       print ( 424 ) ; 
  1496.       printASCII ( chrcode ) ; 
  1497.     } 
  1498.     break ; 
  1499.   case 74 : 
  1500.   case 75 : 
  1501.     if ( chrcode < 3544 ) 
  1502.     printskippar ( chrcode - 3526 ) ; 
  1503.     else if ( chrcode < 3800 ) 
  1504.     {
  1505.       printesc ( 260 ) ; 
  1506.       printint ( chrcode - 3544 ) ; 
  1507.     } 
  1508.     else { 
  1509.       printesc ( 261 ) ; 
  1510.       printint ( chrcode - 3800 ) ; 
  1511.     } 
  1512.     break ; 
  1513.   case 71 : 
  1514.     if ( chrcode >= 4066 ) 
  1515.     {
  1516.       printesc ( 272 ) ; 
  1517.       printint ( chrcode - 4066 ) ; 
  1518.     } 
  1519.     else switch ( chrcode ) 
  1520.     {case 4057 : 
  1521.       printesc ( 263 ) ; 
  1522.       break ; 
  1523.     case 4058 : 
  1524.       printesc ( 264 ) ; 
  1525.       break ; 
  1526.     case 4059 : 
  1527.       printesc ( 265 ) ; 
  1528.       break ; 
  1529.     case 4060 : 
  1530.       printesc ( 266 ) ; 
  1531.       break ; 
  1532.     case 4061 : 
  1533.       printesc ( 267 ) ; 
  1534.       break ; 
  1535.     case 4062 : 
  1536.       printesc ( 268 ) ; 
  1537.       break ; 
  1538.     case 4063 : 
  1539.       printesc ( 269 ) ; 
  1540.       break ; 
  1541.     case 4064 : 
  1542.       printesc ( 270 ) ; 
  1543.       break ; 
  1544.     default : 
  1545.       printesc ( 271 ) ; 
  1546.       break ; 
  1547.     } 
  1548.     break ; 
  1549.   case 72 : 
  1550.     if ( chrcode < 5317 ) 
  1551.     printparam ( chrcode - 5267 ) ; 
  1552.     else { 
  1553.       printesc ( 336 ) ; 
  1554.       printint ( chrcode - 5317 ) ; 
  1555.     } 
  1556.     break ; 
  1557.   case 73 : 
  1558.     if ( chrcode < 5721 ) 
  1559.     printlengthp ( chrcode - 5701 ) ; 
  1560.     else { 
  1561.       printesc ( 359 ) ; 
  1562.       printint ( chrcode - 5721 ) ; 
  1563.     } 
  1564.     break ; 
  1565.   case 45 : 
  1566.     printesc ( 367 ) ; 
  1567.     break ; 
  1568.   case 89 : 
  1569.     printesc ( 368 ) ; 
  1570.     break ; 
  1571.   case 40 : 
  1572.     printesc ( 369 ) ; 
  1573.     break ; 
  1574.   case 41 : 
  1575.     printesc ( 370 ) ; 
  1576.     break ; 
  1577.   case 76 : 
  1578.     printesc ( 378 ) ; 
  1579.     break ; 
  1580.   case 61 : 
  1581.     printesc ( 371 ) ; 
  1582.     break ; 
  1583.   case 42 : 
  1584.     printesc ( 389 ) ; 
  1585.     break ; 
  1586.   case 16 : 
  1587.     printesc ( 372 ) ; 
  1588.     break ; 
  1589.   case 106 : 
  1590.     printesc ( 363 ) ; 
  1591.     break ; 
  1592.   case 87 : 
  1593.     printesc ( 377 ) ; 
  1594.     break ; 
  1595.   case 15 : 
  1596.     printesc ( 373 ) ; 
  1597.     break ; 
  1598.   case 91 : 
  1599.     printesc ( 374 ) ; 
  1600.     break ; 
  1601.   case 66 : 
  1602.     printesc ( 364 ) ; 
  1603.     break ; 
  1604.   case 62 : 
  1605.     printesc ( 375 ) ; 
  1606.     break ; 
  1607.   case 64 : 
  1608.     printesc ( 32 ) ; 
  1609.     break ; 
  1610.   case 101 : 
  1611.     printesc ( 376 ) ; 
  1612.     break ; 
  1613.   case 32 : 
  1614.     printesc ( 379 ) ; 
  1615.     break ; 
  1616.   case 36 : 
  1617.     printesc ( 380 ) ; 
  1618.     break ; 
  1619.   case 39 : 
  1620.     printesc ( 381 ) ; 
  1621.     break ; 
  1622.   case 37 : 
  1623.     printesc ( 198 ) ; 
  1624.     break ; 
  1625.   case 44 : 
  1626.     printesc ( 47 ) ; 
  1627.     break ; 
  1628.   case 18 : 
  1629.     printesc ( 219 ) ; 
  1630.     break ; 
  1631.   case 46 : 
  1632.     printesc ( 382 ) ; 
  1633.     break ; 
  1634.   case 17 : 
  1635.     printesc ( 383 ) ; 
  1636.     break ; 
  1637.   case 54 : 
  1638.     printesc ( 384 ) ; 
  1639.     break ; 
  1640.   case 90 : 
  1641.     printesc ( 385 ) ; 
  1642.     break ; 
  1643.   case 34 : 
  1644.     printesc ( 386 ) ; 
  1645.     break ; 
  1646.   case 102 : 
  1647.     printesc ( 387 ) ; 
  1648.     break ; 
  1649.   case 55 : 
  1650.     printesc ( 203 ) ; 
  1651.     break ; 
  1652.   case 63 : 
  1653.     printesc ( 388 ) ; 
  1654.     break ; 
  1655.   case 65 : 
  1656.     printesc ( 391 ) ; 
  1657.     break ; 
  1658.   case 95 : 
  1659.     printesc ( 392 ) ; 
  1660.     break ; 
  1661.   case 0 : 
  1662.     printesc ( 393 ) ; 
  1663.     break ; 
  1664.   case 97 : 
  1665.     printesc ( 394 ) ; 
  1666.     break ; 
  1667.   case 79 : 
  1668.     printesc ( 390 ) ; 
  1669.     break ; 
  1670.   case 83 : 
  1671.     printesc ( 273 ) ; 
  1672.     break ; 
  1673.   case 108 : 
  1674.     printesc ( 395 ) ; 
  1675.     break ; 
  1676.   case 70 : 
  1677.     printesc ( 272 ) ; 
  1678.     break ; 
  1679.   case 38 : 
  1680.     printesc ( 220 ) ; 
  1681.     break ; 
  1682.   case 33 : 
  1683.     printesc ( 396 ) ; 
  1684.     break ; 
  1685.   case 56 : 
  1686.     printesc ( 397 ) ; 
  1687.     break ; 
  1688.   case 35 : 
  1689.     printesc ( 398 ) ; 
  1690.     break ; 
  1691.   case 13 : 
  1692.     printesc ( 455 ) ; 
  1693.     break ; 
  1694.   case 103 : 
  1695.     if ( chrcode == 0 ) 
  1696.     printesc ( 487 ) ; 
  1697.     else printesc ( 488 ) ; 
  1698.     break ; 
  1699.   case 109 : 
  1700.     switch ( chrcode ) 
  1701.     {case 1 : 
  1702.       printesc ( 490 ) ; 
  1703.       break ; 
  1704.     case 2 : 
  1705.       printesc ( 491 ) ; 
  1706.       break ; 
  1707.     case 3 : 
  1708.       printesc ( 492 ) ; 
  1709.       break ; 
  1710.     case 4 : 
  1711.       printesc ( 493 ) ; 
  1712.       break ; 
  1713.     default : 
  1714.       printesc ( 489 ) ; 
  1715.       break ; 
  1716.     } 
  1717.     break ; 
  1718.   case 88 : 
  1719.     if ( chrcode == 0 ) 
  1720.     printesc ( 336 ) ; 
  1721.     else if ( chrcode == 1 ) 
  1722.     printesc ( 359 ) ; 
  1723.     else if ( chrcode == 2 ) 
  1724.     printesc ( 260 ) ; 
  1725.     else printesc ( 261 ) ; 
  1726.     break ; 
  1727.   case 78 : 
  1728.     if ( chrcode == 1 ) 
  1729.     printesc ( 527 ) ; 
  1730.     else printesc ( 526 ) ; 
  1731.     break ; 
  1732.   case 81 : 
  1733.     if ( chrcode == 0 ) 
  1734.     printesc ( 528 ) ; 
  1735.     else printesc ( 529 ) ; 
  1736.     break ; 
  1737.   case 82 : 
  1738.     if ( chrcode == 1 ) 
  1739.     printesc ( 530 ) ; 
  1740.     else if ( chrcode == 3 ) 
  1741.     printesc ( 531 ) ; 
  1742.     else printesc ( 532 ) ; 
  1743.     break ; 
  1744.   case 69 : 
  1745.     if ( chrcode == 0 ) 
  1746.     printesc ( 533 ) ; 
  1747.     else if ( chrcode == 1 ) 
  1748.     printesc ( 534 ) ; 
  1749.     else printesc ( 535 ) ; 
  1750.     break ; 
  1751.   case 107 : 
  1752.     switch ( chrcode ) 
  1753.     {case 0 : 
  1754.       printesc ( 592 ) ; 
  1755.       break ; 
  1756.     case 1 : 
  1757.       printesc ( 593 ) ; 
  1758.       break ; 
  1759.     case 2 : 
  1760.       printesc ( 594 ) ; 
  1761.       break ; 
  1762.     case 3 : 
  1763.       printesc ( 595 ) ; 
  1764.       break ; 
  1765.     case 4 : 
  1766.       printesc ( 596 ) ; 
  1767.       break ; 
  1768.     default : 
  1769.       printesc ( 597 ) ; 
  1770.       break ; 
  1771.     } 
  1772.     break ; 
  1773.   case 104 : 
  1774.     switch ( chrcode ) 
  1775.     {case 1 : 
  1776.       printesc ( 614 ) ; 
  1777.       break ; 
  1778.     case 2 : 
  1779.       printesc ( 615 ) ; 
  1780.       break ; 
  1781.     case 3 : 
  1782.       printesc ( 616 ) ; 
  1783.       break ; 
  1784.     case 4 : 
  1785.       printesc ( 617 ) ; 
  1786.       break ; 
  1787.     case 5 : 
  1788.       printesc ( 618 ) ; 
  1789.       break ; 
  1790.     case 6 : 
  1791.       printesc ( 619 ) ; 
  1792.       break ; 
  1793.     case 7 : 
  1794.       printesc ( 620 ) ; 
  1795.       break ; 
  1796.     case 8 : 
  1797.       printesc ( 621 ) ; 
  1798.       break ; 
  1799.     case 9 : 
  1800.       printesc ( 622 ) ; 
  1801.       break ; 
  1802.     case 10 : 
  1803.       printesc ( 623 ) ; 
  1804.       break ; 
  1805.     case 11 : 
  1806.       printesc ( 624 ) ; 
  1807.       break ; 
  1808.     case 12 : 
  1809.       printesc ( 625 ) ; 
  1810.       break ; 
  1811.     case 13 : 
  1812.       printesc ( 626 ) ; 
  1813.       break ; 
  1814.     case 14 : 
  1815.       printesc ( 627 ) ; 
  1816.       break ; 
  1817.     case 15 : 
  1818.       printesc ( 628 ) ; 
  1819.       break ; 
  1820.     case 16 : 
  1821.       printesc ( 629 ) ; 
  1822.       break ; 
  1823.     default : 
  1824.       printesc ( 613 ) ; 
  1825.       break ; 
  1826.     } 
  1827.     break ; 
  1828.   case 105 : 
  1829.     if ( chrcode == 2 ) 
  1830.     printesc ( 630 ) ; 
  1831.     else if ( chrcode == 4 ) 
  1832.     printesc ( 631 ) ; 
  1833.     else printesc ( 632 ) ; 
  1834.     break ; 
  1835.   case 4 : 
  1836.     if ( chrcode == 128 ) 
  1837.     printesc ( 751 ) ; 
  1838.     else { 
  1839.       print ( 755 ) ; 
  1840.       printASCII ( chrcode ) ; 
  1841.     } 
  1842.     break ; 
  1843.   case 5 : 
  1844.     if ( chrcode == 129 ) 
  1845.     printesc ( 752 ) ; 
  1846.     else printesc ( 753 ) ; 
  1847.     break ; 
  1848.   case 80 : 
  1849.     switch ( chrcode ) 
  1850.     {case 0 : 
  1851.       printesc ( 818 ) ; 
  1852.       break ; 
  1853.     case 1 : 
  1854.       printesc ( 819 ) ; 
  1855.       break ; 
  1856.     case 2 : 
  1857.       printesc ( 820 ) ; 
  1858.       break ; 
  1859.     case 3 : 
  1860.       printesc ( 821 ) ; 
  1861.       break ; 
  1862.     case 4 : 
  1863.       printesc ( 822 ) ; 
  1864.       break ; 
  1865.     case 5 : 
  1866.       printesc ( 823 ) ; 
  1867.       break ; 
  1868.     case 6 : 
  1869.       printesc ( 824 ) ; 
  1870.       break ; 
  1871.     default : 
  1872.       printesc ( 825 ) ; 
  1873.       break ; 
  1874.     } 
  1875.     break ; 
  1876.   case 14 : 
  1877.     if ( chrcode == 1 ) 
  1878.     printesc ( 874 ) ; 
  1879.     else printesc ( 873 ) ; 
  1880.     break ; 
  1881.   case 26 : 
  1882.     switch ( chrcode ) 
  1883.     {case 4 : 
  1884.       printesc ( 875 ) ; 
  1885.       break ; 
  1886.     case 0 : 
  1887.       printesc ( 876 ) ; 
  1888.       break ; 
  1889.     case 1 : 
  1890.       printesc ( 877 ) ; 
  1891.       break ; 
  1892.     case 2 : 
  1893.       printesc ( 878 ) ; 
  1894.       break ; 
  1895.     default : 
  1896.       printesc ( 879 ) ; 
  1897.       break ; 
  1898.     } 
  1899.     break ; 
  1900.   case 27 : 
  1901.     switch ( chrcode ) 
  1902.     {case 4 : 
  1903.       printesc ( 880 ) ; 
  1904.       break ; 
  1905.     case 0 : 
  1906.       printesc ( 881 ) ; 
  1907.       break ; 
  1908.     case 1 : 
  1909.       printesc ( 882 ) ; 
  1910.       break ; 
  1911.     case 2 : 
  1912.       printesc ( 883 ) ; 
  1913.       break ; 
  1914.     default : 
  1915.       printesc ( 884 ) ; 
  1916.       break ; 
  1917.     } 
  1918.     break ; 
  1919.   case 28 : 
  1920.     printesc ( 204 ) ; 
  1921.     break ; 
  1922.   case 29 : 
  1923.     printesc ( 208 ) ; 
  1924.     break ; 
  1925.   case 30 : 
  1926.     printesc ( 210 ) ; 
  1927.     break ; 
  1928.   case 21 : 
  1929.     if ( chrcode == 1 ) 
  1930.     printesc ( 902 ) ; 
  1931.     else printesc ( 903 ) ; 
  1932.     break ; 
  1933.   case 22 : 
  1934.     if ( chrcode == 1 ) 
  1935.     printesc ( 904 ) ; 
  1936.     else printesc ( 905 ) ; 
  1937.     break ; 
  1938.   case 20 : 
  1939.     switch ( chrcode ) 
  1940.     {case 0 : 
  1941.       printesc ( 274 ) ; 
  1942.       break ; 
  1943.     case 1 : 
  1944.       printesc ( 906 ) ; 
  1945.       break ; 
  1946.     case 2 : 
  1947.       printesc ( 907 ) ; 
  1948.       break ; 
  1949.     case 3 : 
  1950.       printesc ( 813 ) ; 
  1951.       break ; 
  1952.     case 4 : 
  1953.       printesc ( 908 ) ; 
  1954.       break ; 
  1955.     case 5 : 
  1956.       printesc ( 815 ) ; 
  1957.       break ; 
  1958.     default : 
  1959.       printesc ( 909 ) ; 
  1960.       break ; 
  1961.     } 
  1962.     break ; 
  1963.   case 31 : 
  1964.     if ( chrcode == 100 ) 
  1965.     printesc ( 911 ) ; 
  1966.     else if ( chrcode == 101 ) 
  1967.     printesc ( 912 ) ; 
  1968.     else if ( chrcode == 102 ) 
  1969.     printesc ( 913 ) ; 
  1970.     else printesc ( 910 ) ; 
  1971.     break ; 
  1972.   case 43 : 
  1973.     if ( chrcode == 0 ) 
  1974.     printesc ( 929 ) ; 
  1975.     else printesc ( 928 ) ; 
  1976.     break ; 
  1977.   case 25 : 
  1978.     if ( chrcode == 10 ) 
  1979.     printesc ( 940 ) ; 
  1980.     else if ( chrcode == 11 ) 
  1981.     printesc ( 939 ) ; 
  1982.     else printesc ( 938 ) ; 
  1983.     break ; 
  1984.   case 23 : 
  1985.     if ( chrcode == 1 ) 
  1986.     printesc ( 942 ) ; 
  1987.     else printesc ( 941 ) ; 
  1988.     break ; 
  1989.   case 24 : 
  1990.     if ( chrcode == 1 ) 
  1991.     printesc ( 944 ) ; 
  1992.     else printesc ( 943 ) ; 
  1993.     break ; 
  1994.   case 47 : 
  1995.     if ( chrcode == 1 ) 
  1996.     printesc ( 45 ) ; 
  1997.     else printesc ( 217 ) ; 
  1998.     break ; 
  1999.   case 48 : 
  2000.     if ( chrcode == 1 ) 
  2001.     printesc ( 976 ) ; 
  2002.     else printesc ( 975 ) ; 
  2003.     break ; 
  2004.   case 50 : 
  2005.     switch ( chrcode ) 
  2006.     {case 16 : 
  2007.       printesc ( 719 ) ; 
  2008.       break ; 
  2009.     case 17 : 
  2010.       printesc ( 720 ) ; 
  2011.       break ; 
  2012.     case 18 : 
  2013.       printesc ( 721 ) ; 
  2014.       break ; 
  2015.     case 19 : 
  2016.       printesc ( 722 ) ; 
  2017.       break ; 
  2018.     case 20 : 
  2019.       printesc ( 723 ) ; 
  2020.       break ; 
  2021.     case 21 : 
  2022.       printesc ( 724 ) ; 
  2023.       break ; 
  2024.     case 22 : 
  2025.       printesc ( 725 ) ; 
  2026.       break ; 
  2027.     case 23 : 
  2028.       printesc ( 726 ) ; 
  2029.       break ; 
  2030.     case 26 : 
  2031.       printesc ( 728 ) ; 
  2032.       break ; 
  2033.     default : 
  2034.       printesc ( 727 ) ; 
  2035.       break ; 
  2036.     } 
  2037.     break ; 
  2038.   case 51 : 
  2039.     if ( chrcode == 1 ) 
  2040.     printesc ( 731 ) ; 
  2041.     else if ( chrcode == 2 ) 
  2042.     printesc ( 732 ) ; 
  2043.     else printesc ( 977 ) ; 
  2044.     break ; 
  2045.   case 53 : 
  2046.     printstyle ( chrcode ) ; 
  2047.     break ; 
  2048.   case 52 : 
  2049.     switch ( chrcode ) 
  2050.     {case 1 : 
  2051.       printesc ( 996 ) ; 
  2052.       break ; 
  2053.     case 2 : 
  2054.       printesc ( 997 ) ; 
  2055.       break ; 
  2056.     case 3 : 
  2057.       printesc ( 998 ) ; 
  2058.       break ; 
  2059.     case 4 : 
  2060.       printesc ( 999 ) ; 
  2061.       break ; 
  2062.     case 5 : 
  2063.       printesc ( 1000 ) ; 
  2064.       break ; 
  2065.     default : 
  2066.       printesc ( 995 ) ; 
  2067.       break ; 
  2068.     } 
  2069.     break ; 
  2070.   case 49 : 
  2071.     if ( chrcode == 30 ) 
  2072.     printesc ( 729 ) ; 
  2073.     else printesc ( 730 ) ; 
  2074.     break ; 
  2075.   case 92 : 
  2076.     if ( chrcode == 1 ) 
  2077.     printesc ( 1019 ) ; 
  2078.     else if ( chrcode == 2 ) 
  2079.     printesc ( 1020 ) ; 
  2080.     else printesc ( 1021 ) ; 
  2081.     break ; 
  2082.   case 96 : 
  2083.     if ( chrcode == 0 ) 
  2084.     printesc ( 1022 ) ; 
  2085.     else if ( chrcode == 1 ) 
  2086.     printesc ( 1023 ) ; 
  2087.     else if ( chrcode == 2 ) 
  2088.     printesc ( 1024 ) ; 
  2089.     else printesc ( 1025 ) ; 
  2090.     break ; 
  2091.   case 93 : 
  2092.     if ( chrcode != 0 ) 
  2093.     printesc ( 1040 ) ; 
  2094.     else printesc ( 1039 ) ; 
  2095.     break ; 
  2096.   case 94 : 
  2097.     switch ( chrcode ) 
  2098.     {case 0 : 
  2099.       printesc ( 1041 ) ; 
  2100.       break ; 
  2101.     case 1 : 
  2102.       printesc ( 1042 ) ; 
  2103.       break ; 
  2104.     case 2 : 
  2105.       printesc ( 1043 ) ; 
  2106.       break ; 
  2107.     case 3 : 
  2108.       printesc ( 1044 ) ; 
  2109.       break ; 
  2110.     case 4 : 
  2111.       printesc ( 1045 ) ; 
  2112.       break ; 
  2113.     case 5 : 
  2114.       printesc ( 1046 ) ; 
  2115.       break ; 
  2116.     default : 
  2117.       printesc ( 1047 ) ; 
  2118.       break ; 
  2119.     } 
  2120.     break ; 
  2121.   case 67 : 
  2122.     {
  2123.       printesc ( 372 ) ; 
  2124.       printhex ( chrcode ) ; 
  2125.     } 
  2126.     break ; 
  2127.   case 68 : 
  2128.     {
  2129.       printesc ( 383 ) ; 
  2130.       printhex ( chrcode ) ; 
  2131.     } 
  2132.     break ; 
  2133.   case 84 : 
  2134.     if ( chrcode == 4627 ) 
  2135.     printesc ( 280 ) ; 
  2136.     else if ( chrcode == 5139 ) 
  2137.     printesc ( 284 ) ; 
  2138.     else if ( chrcode == 4755 ) 
  2139.     printesc ( 281 ) ; 
  2140.     else if ( chrcode == 4883 ) 
  2141.     printesc ( 282 ) ; 
  2142.     else if ( chrcode == 5011 ) 
  2143.     printesc ( 283 ) ; 
  2144.     else printesc ( 337 ) ; 
  2145.     break ; 
  2146.   case 85 : 
  2147.     printsize ( chrcode - 4579 ) ; 
  2148.     break ; 
  2149.   case 98 : 
  2150.     if ( chrcode == 1 ) 
  2151.     printesc ( 803 ) ; 
  2152.     else printesc ( 793 ) ; 
  2153.     break ; 
  2154.   case 77 : 
  2155.     if ( chrcode == 0 ) 
  2156.     printesc ( 1063 ) ; 
  2157.     else printesc ( 1064 ) ; 
  2158.     break ; 
  2159.   case 86 : 
  2160.     {
  2161.       print ( 1072 ) ; 
  2162.       print ( fontname [ chrcode ] ) ; 
  2163.       if ( fontsize [ chrcode ] != fontdsize [ chrcode ] ) 
  2164.       {
  2165.     print ( 598 ) ; 
  2166.     printscaled ( fontsize [ chrcode ] ) ; 
  2167.     print ( 262 ) ; 
  2168.       } 
  2169.     } 
  2170.     break ; 
  2171.   case 99 : 
  2172.     switch ( chrcode ) 
  2173.     {case 0 : 
  2174.       printesc ( 143 ) ; 
  2175.       break ; 
  2176.     case 1 : 
  2177.       printesc ( 144 ) ; 
  2178.       break ; 
  2179.     case 2 : 
  2180.       printesc ( 145 ) ; 
  2181.       break ; 
  2182.     default : 
  2183.       printesc ( 1073 ) ; 
  2184.       break ; 
  2185.     } 
  2186.     break ; 
  2187.   case 60 : 
  2188.     if ( chrcode == 0 ) 
  2189.     printesc ( 1075 ) ; 
  2190.     else printesc ( 1074 ) ; 
  2191.     break ; 
  2192.   case 58 : 
  2193.     if ( chrcode == 0 ) 
  2194.     printesc ( 1076 ) ; 
  2195.     else printesc ( 1077 ) ; 
  2196.     break ; 
  2197.   case 57 : 
  2198.     if ( chrcode == 4755 ) 
  2199.     printesc ( 1083 ) ; 
  2200.     else printesc ( 1084 ) ; 
  2201.     break ; 
  2202.   case 19 : 
  2203.     switch ( chrcode ) 
  2204.     {case 1 : 
  2205.       printesc ( 1086 ) ; 
  2206.       break ; 
  2207.     case 2 : 
  2208.       printesc ( 1087 ) ; 
  2209.       break ; 
  2210.     case 3 : 
  2211.       printesc ( 1088 ) ; 
  2212.       break ; 
  2213.     default : 
  2214.       printesc ( 1085 ) ; 
  2215.       break ; 
  2216.     } 
  2217.     break ; 
  2218.   case 100 : 
  2219.     print ( 1095 ) ; 
  2220.     break ; 
  2221.   case 110 : 
  2222.     print ( 1096 ) ; 
  2223.     break ; 
  2224.   case 111 : 
  2225.     printesc ( 1097 ) ; 
  2226.     break ; 
  2227.   case 112 : 
  2228.     printesc ( 1098 ) ; 
  2229.     break ; 
  2230.   case 113 : 
  2231.     {
  2232.       printesc ( 1019 ) ; 
  2233.       printesc ( 1098 ) ; 
  2234.     } 
  2235.     break ; 
  2236.   case 114 : 
  2237.     printesc ( 1099 ) ; 
  2238.     break ; 
  2239.   case 59 : 
  2240.     switch ( chrcode ) 
  2241.     {case 0 : 
  2242.       printesc ( 1129 ) ; 
  2243.       break ; 
  2244.     case 1 : 
  2245.       printesc ( 452 ) ; 
  2246.       break ; 
  2247.     case 2 : 
  2248.       printesc ( 1130 ) ; 
  2249.       break ; 
  2250.     case 3 : 
  2251.       printesc ( 1131 ) ; 
  2252.       break ; 
  2253.     case 4 : 
  2254.       printesc ( 1132 ) ; 
  2255.       break ; 
  2256.     default : 
  2257.       print ( 1133 ) ; 
  2258.       break ; 
  2259.     } 
  2260.     break ; 
  2261.   default : 
  2262.     print ( 425 ) ; 
  2263.     break ; 
  2264.   } 
  2265. } 
  2266.