Retro1.org codex

ASCII
*NOSEQ
*WIDTH 95
MODULE ^T^D^U^O^U^T;

?? SET ( CHKALL @D= ON ), RIGHT @D= 110 ??

^0  M^O^D^U^L^E @D  TDUOUT ^2
^0            C^O^P^Y^R^I^G^H^T C^O^N^T^R^O^L D^A^T^A S^Y^S^T^E^M^S I^N^C.  1992.  ^2
^0  W^R^I^T^T^E^N@D  1/84 ^B^Y R. L^I^N^D^S^E^Y  ^2
^0  V^E^R^S^I^O^N@D  C^Y^B^E^R 170, ^V^E^R^S^I^O^N 1 ^2
^0  P^U^R^P^O^S^E@D  T^H^I^S ^I^S ^T^H^E ^O^U^T^P^U^T ^P^O^R^T^I^O^N ^O^F ^T^H^E TDU ^P^R^O^G^R^A^M.  ^2

  ?? PUSH ( LIST @D= OFF ) ??          ^0 ^U^N^C^O^M^M^E^N^T ^T^H^I^S ^L^I^N^E ^T^O ^S^U^P^P^R^E^S^S ^L^I^S^T ^2
^0 ?? PUSH ( LIST @D= ON ) ??           ^0 ^U^N^C^O^M^M^E^N^T ^T^H^I^S ^L^I^N^E ^T^O ^L^I^S^T ^2

?? NEWTITLE @D= 'U^T^I^L^I^T^I^E^S' ??

^0 ^I^N^T^E^G^E^R ^T^O ^S^T^R^I^N^G ^C^O^N^V^E^R^S^I^O^N, ^A^S^C^I^I ^T^O ^A^S^C^I^I-64 ^C^O^N^V^E^R^S^I^O^N ^2
*CALLC ZUTPI2S
*CALL ZUTVCTT

?? OLDTITLE ??
?? NEWTITLE @D= 'ZTDTTAB' ??
?? SKIP @D= 4 ??

^0 **************************** ^2
^0 ^C^O^M^M^O^N ^D^E^C^K ZTDTTAB ^F^O^L^L^O^W^S@D ^2
*CALL ZTDTTAB

?? OLDTITLE ??
?? NEWTITLE @D= '^T^D^U XREF''^S, ^E^T^C.' ??
?? EJECT ??

^0 ***************** ^2
^0 ^T^D^U ^F^I^L^E ^H^A^N^D^L^E^R@D ^2
*CALL ZTDPFIL

^0 ********************** ^2
^0 ^E^R^R^O^R ^H^A^N^D^L^I^N^G ^R^O^U^T^I^N^E ^2
*CALL ZTDPERR

^0 ****************************** ^2
^0 ^T^A^B^L^E-^H^A^N^D^L^I^N^G ^D^U^M^P ^P^R^O^C^E^D^U^R^E^S ^2
*CALLC ZTDPTBD

  ?? EJECT ??
  ?? POP ??

  CONST
     ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E = 60,            ^0 ^W^O^R^D ^S^I^Z^E ^O^F ^T^A^R^G^E^T ^M^A^C^H^I^N^E (170) ^2
     ^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E = 7;            ^0 ^B^I^T ^S^I^Z^E ^O^F ^E^A^C^H ^C^H^A^R^A^C^T^E^R ^2

  VAR
     ^T^D^U_^V^E^R^S^I^O^N_^N^U^M@D [XREF] INTEGER,  ^0 ^F^R^O^M ^M^A^I^N ^P^R^O^G^R^A^M ^2

     ^W^O^R^D_^N^U^M^B^E^R@D INTEGER @D= -1,      ^0 ^P^R^E-^D^E^C^R^E^M^E^N^T^E^D ^W^O^R^D ^C^O^U^N^T^E^R ^2
     ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D@D INTEGER @D= 0, ^0 ^B^I^T^S ^R^E^M^A^I^N^I^N^G ^I^N ^W^O^R^D, ^S^T^A^R^T ^E^M^P^T^Y ^2

     ^S^T^R^I^N^G^R^E^P_^L^E^N@D INTEGER,          ^0 ^U^S^E^D ^B^Y ^A^L^L STRINGREP ^C^A^L^L^S ^2

     ^P^A^R^M_^R^E^C^O^R^D@D ^P^A^R^A^M^E^T^E^R_^R^E^C^O^R^D,   ^0 ^T^E^R^M^I^N^A^L ^N^O^N-I/O ^P^A^R^A^M^E^T^E^R^S ^2
     ^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E,            ^0 ^I^N^P^U^T ^T^A^B^L^E ^I^T^E^M ^2
     ^S^T^A^T^U^S@D ^O^S^T$^S^T^A^T^U^S,

     ^O^U^T^R^E^C@D PACKED RECORD            ^0 ^O^U^T^P^U^T ^B^U^F^F^E^R ^2
        CASE ^L^I^N^E_^T^Y^P^E@D (^W^H^O^L^E_^L^I^N^E, ^O^P^C^O^D^E_^L^I^N^E, ^C^O^M^M^E^N^T_^L^I^N^E) OF
           = ^W^H^O^L^E_^L^I^N^E =             ^0 ^F^O^R ^O^U^T^P^U^T--^W^R^I^T^E ^T^H^E ^W^H^O^L^E ^L^I^N^E ^2
              ^L^I^N^E_^B^U^F^F^E^R@D STRING(72),
           = ^O^P^C^O^D^E_^L^I^N^E =            ^0 ^F^O^R '^R^E^G^U^L^A^R' ^O^P^C^O^D^E/^P^A^R^A^M ^L^I^N^E^S ^2
              ^F^I^L^L^E^R1@D STRING(1),     ^0 CHAR ^W^O^N'^T ^W^O^R^K ^H^E^R^E ^2
              ^L^A^B^E^L@D STRING(9),       ^0 ^C^O^L^U^M^N 2 ^2
              ^O^P^C^O^D^E@D STRING(7),      ^0 ^C^O^L^U^M^N 11 ^2
              ^P^A^R^A^M^E^T^E^R^S@D STRING(20), ^0 ^C^O^L^U^M^N 18, ^N^E^E^D ^L^O^T^S ^O^F ^R^O^O^M ^H^E^R^E ^2
              ^C^O^M^M^E^N^T@D STRING(35),    ^0 ^C^O^L^U^M^N 38, ^N^O^N-^S^T^A^N^D^A^R^D, ^O^H ^W^E^L^L ^2
           = ^C^O^M^M^E^N^T_^L^I^N^E =           ^0 ^F^O^R ^F^U^L^L-^L^I^N^E ^C^O^M^M^E^N^T^S ^2
              ^C^O^M^M^E^N^T_^I^N^D^I^C^A^T^O^R@D STRING(6), ^0 ^C^O^L. 1 '*' + ^F^I^L^L^E^R ^2
              ^C^O^M^M^E^N^T_^T^E^X^T@D STRING(66), ^0 ^C^O^L^U^M^N 7, ^N^O^T ^T^O ^L^I^N^E ^U^P ^W/^O^P^C^O^D^E ^2
        CASEND,
     RECEND;

  ^0  S^U^B^T^A^B^L^E ^L^A^B^E^L^S ^T^A^B^L^E ^2

  CONST
     ^S^U^B^T^A^B^L^E_^C^O^U^N^T = 5,              ^0 ^N^U^M^B^E^R ^O^F ^S^U^B^T^A^B^L^E^S ^D^E^F^I^N^E^D ^2
     ^S^U^B^T^A^B^L^E_^I^N^P^U^T = 1,
     ^S^U^B^T^A^B^L^E_^N^A^M^E^S = 2,
     ^S^U^B^T^A^B^L^E_^I^N^I^T = 3,
     ^S^U^B^T^A^B^L^E_^A^P^P^S^T^R = 4,
     ^S^U^B^T^A^B^L^E_^E^N^D = 5;

  VAR
     ^S^U^B^T^A^B^L^E_^I^N^D^E^X@D INTEGER,
     ^S^U^B^T^A^B^L^E_^L^I^S^T@D [STATIC] PACKED ARRAY [1..^S^U^B^T^A^B^L^E_^C^O^U^N^T] OF PACKED RECORD
        ^L^A^B^E^L@D STRING(8),             ^0 ^T^H^E ^L^A^B^E^L ^I^T^S^E^L^F ^2
        ^L^A^B^E^L_^L^E^N@D 0 .. 8,            ^0 ^S^I^G^N^I^F^I^C^A^N^T ^L^E^N^G^T^H ^O^F ^L^A^B^E^L ^2
     RECEND
        @D= [  ['INPUT', 5],
              ['NAMES', 5],
              ['INIT', 4],
              ['APPSTR', 6],
              ['ENDTABL', 7] ];

  ?? NEWTITLE @D= '^W^R^I^T^E_^T^A^B^L^E^S' ??
  ?? EJECT ??

  PROCEDURE [XDCL] ^W^R^I^T^E_^T^A^B^L^E^S;      ^0 ^T^H^I^S ^I^S ^C^A^L^L^E^D ^T^O ^W^R^I^T^E ^E^N^T^I^R^E ^T^A^B^L^E ^2

     ?? NEWTITLE @D= '^W^R^I^T^E_^L^I^N^E' ??
     ?? SKIP @D= 4 ??

     PROCEDURE ^W^R^I^T^E_^L^I^N^E;
        ^P^U^T_^F^I^L^E(^O^U^T^P^U^T_^F^I^L^E_^S^E^L, ^O^U^T^R^E^C.^L^I^N^E_^B^U^F^F^E^R);
     PROCEND ^W^R^I^T^E_^L^I^N^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E' ??
     ?? SKIP @D= 4 ??

     PROCEDURE ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^W^H^O^L^E_^L^I^N^E;
        ^W^R^I^T^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= '';           ^0 ^N^E^V^E^R ^W^A^N^T ^T^O ^S^A^V^E ^A ^L^A^B^E^L ^2
     PROCEND ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^C^O^M^M^E^N^T' ??
     ?? SKIP @D= 4 ??

     PROCEDURE ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^I^N^D^I^C^A^T^O^R @D= '*';
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^W^H^O^L^E_^L^I^N^E;
        ^W^R^I^T^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^I^N^E_^B^U^F^F^E^R @D= '';     ^0 ^A^L^W^A^Y^S ^R^E^T^U^R^N ^A ^B^L^A^N^K ^L^I^N^E ^2
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
     PROCEND ^W^R^I^T^E_^C^O^M^M^E^N^T;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^V^F^D' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^V^F^D(^B^I^T_^L^E^N^G^T^H, ^F^I^E^L^D_^V^A^L^U^E@D INTEGER; ^C^O^M^M^N^T@D STRING(*));
        VAR
           ^T^E^M^P_^S^T^R^I^N^G,
           ^B^I^T_^L^E^N^G^T^H_^S^T^R^I^N^G,
           ^F^I^E^L^D_^V^A^L^U^E_^S^T^R^I^N^G@D STRING(4),
           ^B^I^T_^L_^S_^L^E^N^G^T^H,
           ^F^I^E^L^D_^V_^S_^L^E^N^G^T^H@D ^O^S^T$^S^T^R^I^N^G_^L^E^N^G^T^H; ^0 ^S^U^B^R^A^N^G^E ^F^O^R ^S^T^R^I^N^G ^S^I^Z^E ^2

        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'VFD';
        ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^B^I^T_^L^E^N^G^T^H_^S^T^R^I^N^G, ^B^I^T_^L_^S_^L^E^N^G^T^H,
           ^B^I^T_^L^E^N^G^T^H, 10);
        ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^F^I^E^L^D_^V^A^L^U^E_^S^T^R^I^N^G, ^F^I^E^L^D_^V_^S_^L^E^N^G^T^H,
           ^F^I^E^L^D_^V^A^L^U^E, 10);
^0       IF ^F^I^E^L^D_^V^A^L^U^E = (-0) THEN
^0          STRINGREP(^T^E^M^P_^S^T^R^I^N^G, ^F^I^E^L^D_^V_^S_^L^E^N^G^T^H,
^0             '-', ^F^I^E^L^D_^V^A^L^U^E_^S^T^R^I^N^G(1,^F^I^E^L^D_^V_^S_^L^E^N^G^T^H));
^0          ^F^I^E^L^D_^V^A^L^U^E_^S^T^R^I^N^G @D= ^T^E^M^P_^S^T^R^I^N^G
^0       IFEND;
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '';
        STRINGREP(^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S, ^S^T^R^I^N^G^R^E^P_^L^E^N,
           ^B^I^T_^L^E^N^G^T^H_^S^T^R^I^N^G(1,^B^I^T_^L_^S_^L^E^N^G^T^H),
           '/'@D 1,
           ^F^I^E^L^D_^V^A^L^U^E_^S^T^R^I^N^G(1,^F^I^E^L^D_^V_^S_^L^E^N^G^T^H));
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= ^C^O^M^M^N^T;
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D @D= ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D - ^B^I^T_^L^E^N^G^T^H;
     PROCEND ^W^R^I^T^E_^V^F^D;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T' ??
     ?? EJECT ??

     PROCEDURE ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        VAR
           ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D STRING(6),
           ^I_^S_^L^E^N^G^T^H@D ^O^S^T$^S^T^R^I^N^G_^L^E^N^G^T^H; ^0 ^S^U^B^R^A^N^G^E ^O^F ^I^N^T^E^G^E^R, ^S^T^R-^L^E^N ^2

        IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E THEN ^0 ^O^N^L^Y ^I^F ^N^O^T ^A^L^R^E^A^D^Y ^W^O^R^D^2
           ^W^O^R^D_^N^U^M^B^E^R @D= ^W^O^R^D_^N^U^M^B^E^R + 1;
           ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D @D= ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E;
           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
           ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
           ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^I^N^T^E^G^E^R_^S^T^R^I^N^G, ^I_^S_^L^E^N^G^T^H,
              ^W^O^R^D_^N^U^M^B^E^R, 8);        ^0 STRINGREP ^C^A^N'^T ^D^O ^O^C^T^A^L (!) ^2
           STRINGREP(^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T, ^S^T^R^I^N^G^R^E^P_^L^E^N, 'WORD '@D 5,
              ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D ^I_^S_^L^E^N^G^T^H);
           ^W^R^I^T^E_^C^O^M^M^E^N^T;
        IFEND;
     PROCEND ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^O^R^D^I^N^A^L^S' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^O^R^D^I^N^A^L^S (^D^U^M^P_^P^R^O^C^E^D^U^R^E@D ^D^U^M^P_^P^R^O^C^E^D^U^R^E_^T^Y^P^E);
        VAR
           ^O^R^D^I^N^A^L_^N^D^X@D INTEGER,
           ^L^E^N^G^T^H@D INTEGER,
           ^C^H^A^R^S@D @BSTRING(*),
           ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S,
           ^T^O^T^A^L_^O^R^D^I^N^A^L^S@D INTEGER,
           ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN,
           ^B^I^T_^C^O^U^N^T,
           ^W^O^R^D_^C^O^U^N^T,
           ^R^E^M^A^I^N^D^E^R,
           ^R^E^M^A^I^N^D^E^R_^C^H^A^R^S,
           ^F^I^L^L^E^R_^B^I^T^S,
           ^C^H^A^R_^O^F^F^S^E^T@D INTEGER,
           ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D STRING(6),
           ^I_^S_^L^E^N^G^T^H@D ^O^S^T$^S^T^R^I^N^G_^L^E^N^G^T^H, ^0 ^S^U^B^R^A^N^G^E ^O^F ^I^N^T^E^G^E^R, ^S^T^R-^L^E^N ^2
           ^C^O^M^M^E^N^T@D STRING(30);

        ^D^U^M^P_^P^R^O^C^E^D^U^R^E@B(0, ^L^E^N^G^T^H, ^C^H^A^R^S, ^T^O^T^A^L_^O^R^D^I^N^A^L^S, ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S,
           ^N^O^D^E_^R^E^T^U^R^N^E^D);
        ^B^I^T_^C^O^U^N^T @D= ( ( ^T^O^T^A^L_^O^R^D^I^N^A^L^S + 2 ) * 12 );
        ^W^O^R^D_^C^O^U^N^T @D= ^B^I^T_^C^O^U^N^T DIV 60;
        ^R^E^M^A^I^N^D^E^R @D= 60 - ( ^B^I^T_^C^O^U^N^T MOD 60 );
        ^C^H^A^R_^O^F^F^S^E^T @D= ( ^W^O^R^D_^C^O^U^N^T * 8 ) + 8 - ( ^R^E^M^A^I^N^D^E^R DIV 7 );
        ^O^R^D^I^N^A^L_^N^D^X @D= 0;
        REPEAT
           ^D^U^M^P_^P^R^O^C^E^D^U^R^E@B(^O^R^D^I^N^A^L_^N^D^X, ^L^E^N^G^T^H, ^C^H^A^R^S,
              ^T^O^T^A^L_^O^R^D^I^N^A^L^S, ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S, ^N^O^D^E_^R^E^T^U^R^N^E^D);
           IF ^N^O^D^E_^R^E^T^U^R^N^E^D THEN
              IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < 12 THEN
                 ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T
              IFEND;
              ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
              ^C^O^M^M^E^N^T @D= '';
              ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^I^N^T^E^G^E^R_^S^T^R^I^N^G, ^I_^S_^L^E^N^G^T^H,
                    ^O^R^D^I^N^A^L_^N^D^X, 10); ^0 ^O^R^D^I^N^A^L ^I^N ^S^T^R^I^N^G ^F^O^R^M^A^T ^2
              STRINGREP(^C^O^M^M^E^N^T, ^S^T^R^I^N^G^R^E^P_^L^E^N,
                    'ORDINAL '@D 8, ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D ^I_^S_^L^E^N^G^T^H);
              ^W^R^I^T^E_^V^F^D(12, ^C^H^A^R_^O^F^F^S^E^T, ^C^O^M^M^E^N^T);
              ^C^H^A^R_^O^F^F^S^E^T @D= ^C^H^A^R_^O^F^F^S^E^T + ^L^E^N^G^T^H;
              ^O^R^D^I^N^A^L_^N^D^X @D= ^O^R^D^I^N^A^L_^N^D^X + 1
           IFEND
        UNTIL NOT ^N^O^D^E_^R^E^T^U^R^N^E^D;
        IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < 12 THEN
           ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T
        IFEND;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^V^F^D(12, ^C^H^A^R_^O^F^F^S^E^T, 'END OF ORDINALS');
        IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D > 0 THEN
           ^R^E^M^A^I^N^D^E^R_^C^H^A^R^S @D= ^R^E^M^A^I^N^D^E^R DIV 7;
           ^F^I^L^L^E^R_^B^I^T^S @D= ^R^E^M^A^I^N^D^E^R - ( ^R^E^M^A^I^N^D^E^R_^C^H^A^R^S * 7 );
           ^W^R^I^T^E_^V^F^D(^F^I^L^L^E^R_^B^I^T^S, 0, 'FILLER')
        IFEND
     PROCEND ^W^R^I^T^E_^O^R^D^I^N^A^L^S;

     ?? OLDTITLE ??
     ?? NEWTITLE @D= '^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S (^D^U^M^P_^P^R^O^C^E^D^U^R^E@D ^D^U^M^P_^P^R^O^C^E^D^U^R^E_^T^Y^P^E);
        VAR
           ^O^R^D^I^N^A^L_^N^D^X@D INTEGER,
           ^L^E^N^G^T^H@D INTEGER,
           ^C^H^A^R^S@D @BSTRING(*),
           ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S,
           ^T^O^T^A^L_^O^R^D^I^N^A^L^S@D INTEGER,
           ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN,
           ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D STRING(6),
           ^I_^S_^L^E^N^G^T^H@D ^O^S^T$^S^T^R^I^N^G_^L^E^N^G^T^H, ^0 ^S^U^B^R^A^N^G^E ^O^F ^I^N^T^E^G^E^R, ^S^T^R-^L^E^N ^2
           ^C^H^A^R_^N^D^X@D INTEGER,
           ^C^O^M^M^E^N^T@D STRING(30);

        ^O^R^D^I^N^A^L_^N^D^X @D= 0;
        REPEAT
           ^D^U^M^P_^P^R^O^C^E^D^U^R^E@B(^O^R^D^I^N^A^L_^N^D^X, ^L^E^N^G^T^H, ^C^H^A^R^S,
              ^T^O^T^A^L_^O^R^D^I^N^A^L^S, ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S, ^N^O^D^E_^R^E^T^U^R^N^E^D);
           IF ^N^O^D^E_^R^E^T^U^R^N^E^D THEN
              IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D = ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E THEN ^0 ^F^I^R^S^T ^W^O^R^D ^O^N^L^Y ^2
                 ^W^R^I^T^E_^V^F^D(4, 0, 'FILLER');
              IFEND;
              ^C^O^M^M^E^N^T @D= '';
              ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^I^N^T^E^G^E^R_^S^T^R^I^N^G, ^I_^S_^L^E^N^G^T^H,
                 ^O^R^D^I^N^A^L_^N^D^X, 10);    ^0 ^O^R^D^I^N^A^L ^I^N ^S^T^R^I^N^G ^F^O^R^M^A^T ^2
              STRINGREP(^C^O^M^M^E^N^T, ^S^T^R^I^N^G^R^E^P_^L^E^N,
                 'ORDINAL '@D 8, ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D ^I_^S_^L^E^N^G^T^H);
              ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
              FOR ^C^H^A^R_^N^D^X @D= 1 TO ^L^E^N^G^T^H DO
                 IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E THEN
                    ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
                    ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
                    ^W^R^I^T^E_^V^F^D(4, 0, 'FILLER')
                 IFEND;
                 ^W^R^I^T^E_^V^F^D(^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E,
                    ORD(^C^H^A^R^S@B(^C^H^A^R_^N^D^X)), ^C^O^M^M^E^N^T);
                 ^C^O^M^M^E^N^T @D= ''
              FOREND;
              ^O^R^D^I^N^A^L_^N^D^X @D= ^O^R^D^I^N^A^L_^N^D^X + 1
           IFEND
        UNTIL NOT ^N^O^D^E_^R^E^T^U^R^N^E^D;
        IF ( ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D > 0 ) AND
           ( ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E ) THEN
           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
           ^W^R^I^T^E_^V^F^D(^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D, 0, 'FILLER')
        IFEND
     PROCEND ^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S;

     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^T^A^B_^P^R^O^T^E^C^T_^P^A^R^M^S' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^T^A^B_^P^R^O^T^E^C^T_^P^A^R^M^S;
        VAR
           ^R^E^S^V_^N^D^X@D INTEGER,
           ^L^O^O^P_^N^D^X@D INTEGER,
           ^P^A^R^M_^N^D^X@D INTEGER;
        ^L^O^O^P_^N^D^X @D= (^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^D^I^V + 1);

        FOR ^P^A^R^M_^N^D^X @D= ^L^O^O^P_^N^D^X TO ^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^M^A^X DO
           IF (ORD(^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^B^E^H^A^V^I^O^R[^P^A^R^M_^N^D^X]) = -1) THEN
             ^W^R^I^T^E_^V^F^D(4, 0, 'CURSOR BEHAVIOR');
           ELSE
             ^W^R^I^T^E_^V^F^D(4, ORD(^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^B^E^H^A^V^I^O^R[^P^A^R^M_^N^D^X]),
                'CURSOR BEHAVIOR');
           IFEND;
        FOREND;

        ^R^E^S^V_^N^D^X @D= 4 * ((^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^M^A^X - ^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^D^I^V)- 1);
        ^W^R^I^T^E_^V^F^D(^R^E^S^V_^N^D^X, 0, 'RESERVED');

     PROCEND ^W^R^I^T^E_^T^A^B_^P^R^O^T^E^C^T_^P^A^R^M^S;

     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^H^E^A^D^E^R' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^H^E^A^D^E^R;
        VAR
           ^J^U^N^K_^N^A^M^E@D STRING(7),
           ^J^U^N^K_^L^E^N@D INTEGER;

        ^D^U^M^P_^P^A^R^A^M^E^T^E^R^S(^P^A^R^M_^R^E^C^O^R^D);
        ^J^U^N^K_^N^A^M^E @D= ' ';             ^0 ^C^O^N^C^A^T^E^N^A^T^E 'Z' ^T^O ^S^T^A^R^T ^O^F ^N^A^M^E ^2
        STRINGREP(^J^U^N^K_^N^A^M^E, ^J^U^N^K_^L^E^N, 'Z', ^0 ^T^O ^E^N^S^U^R^E ^A ^V^A^L^I^D NOS ^N^A^M^E ^2
           ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E(1,^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E_^L^E^N));
        ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E @D= ^J^U^N^K_^N^A^M^E;
        ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E_^L^E^N @D= ^J^U^N^K_^L^E^N;

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= '';
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'IDENT';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E;
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'LCC';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= 'GROUP(VIRTERM)';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '';
        STRINGREP(^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S,^S^T^R^I^N^G^R^E^P_^L^E^N, 'CAPSULE('@D8,
           ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E(1,^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E_^L^E^N),
           ')'@D1 );
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'ENTRY';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E;
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'BSS';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '0';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'HEADER';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'VFD';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '';
        STRINGREP(^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S, ^S^T^R^I^N^G^R^E^P_^L^E^N,
           '42/0L'@D 5,
           ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E(2,6)); ^0 ^W^I^T^H^O^U^T ^L^E^A^D^I^N^G 'Z' ^2
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D @D= ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D - 42;
        ^W^R^I^T^E_^V^F^D(18, ^T^D^U_^V^E^R^S^I^O^N_^N^U^M, 'VERSION NUMBER')
     PROCEND ^W^R^I^T^E_^H^E^A^D^E^R;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^S^U^B_^T^A^B^L^E_^P^O^I^N^T^E^R^S' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^S^U^B_^T^A^B^L^E_^P^O^I^N^T^E^R^S;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'SUB-TABLE POINTERS';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;                ^0 ^C^O^M^M^E^N^T_^T^E^X^T ^W^A^S ^A^U^T^O^M^A^T^I^C^A^L^L^Y ^B^L^A^N^K^E^D^2
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        FOR ^S^U^B^T^A^B^L^E_^I^N^D^E^X @D= 1 TO ^S^U^B^T^A^B^L^E_^C^O^U^N^T DO
           IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < 12 THEN
              ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
           IFEND;
           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
           ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'VFD';
           ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '';
           STRINGREP(^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S, ^S^T^R^I^N^G^R^E^P_^L^E^N,
              '12/',
              ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^I^N^D^E^X].^L^A^B^E^L@D
                 ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^I^N^D^E^X].^L^A^B^E^L_^L^E^N,
              '-',
              ^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E(1,^P^A^R^M_^R^E^C^O^R^D.^M^O^D^E^L_^N^A^M^E_^L^E^N));
           ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
           ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D @D= ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D - 12;
        FOREND;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D > 0 THEN ^0 ^M^A^K^E ^E^X^P^L^I^C^I^T ^F^I^L^L^E^R ^2
           ^W^R^I^T^E_^V^F^D(^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D, 0, 'RESERVED');
        IFEND;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
     ^0  ^W^R^I^T^E_^V^F^D(^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E, 0, 'RESERVED') ^2
        ^W^R^I^T^E_^T^A^B_^P^R^O^T^E^C^T_^P^A^R^M^S;
     PROCEND ^W^R^I^T^E_^S^U^B_^T^A^B^L^E_^P^O^I^N^T^E^R^S;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^P^A^R^A^M^E^T^E^R^S' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^P^A^R^A^M^E^T^E^R^S;
        VAR
           ^P^A^R^M_^N^D^X@D INTEGER;

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'PARAMETERS';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^V^F^D(6, ^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^E^N^C^O^D^I^N^G,
           'CURSOR ADDRESSING TYPE');
        ^W^R^I^T^E_^V^F^D(8, ^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^B^I^A^S, 'CURSOR ADDRESSING BIAS');

      ^0 FOR ^P^A^R^M_^N^D^X @D= 0 TO ^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^M^A^X DO ^2
        FOR ^P^A^R^M_^N^D^X @D= 0 TO ^C^U^R^S^O^R_^B^E^H^A^V^I^O^R_^D^I^V DO
           ^W^R^I^T^E_^V^F^D(4, ORD(^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^B^E^H^A^V^I^O^R[^P^A^R^M_^N^D^X]),
              'CURSOR BEHAVIOR');
        FOREND;

        ^W^R^I^T^E_^V^F^D(1, ORD(^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^P^O^S_^C^O^L^U^M^N_^F^L^A^G),
           'COLUMNS BEFORE ROWS FLAG');
        FOR ^P^A^R^M_^N^D^X @D= 0 TO 1 DO
           ^W^R^I^T^E_^V^F^D(3, ^P^A^R^M_^R^E^C^O^R^D.^C^U^R^S^O^R_^P^O^S_^L^E^N^G^T^H[^P^A^R^M_^N^D^X],
              'NUMBER OF DIGITS IN CURSOR POSITION');
        FOREND;
        ^W^R^I^T^E_^V^F^D(^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D, 0, 'RESERVED');

        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        FOR ^P^A^R^M_^N^D^X @D= 0 TO ^P^A^R^M_^F^L^A^G_^M^A^X DO
           ^W^R^I^T^E_^V^F^D(1, ORD(^P^A^R^M_^R^E^C^O^R^D.^F^L^A^G[^P^A^R^M_^N^D^X]), 'FLAG');
        FOREND;
        ^W^R^I^T^E_^V^F^D(3, ^P^A^R^M_^R^E^C^O^R^D.^F^U^N^C^T^I^O^N_^K^E^Y_^M^A^R^K, 'FUNCTION KEY MARK')
     PROCEND ^W^R^I^T^E_^P^A^R^A^M^E^T^E^R^S;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^S^I^Z^E_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^S^I^Z^E_^T^A^B^L^E;
        VAR
           ^S^I^Z^E_^N^D^X@D INTEGER;

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'SCREEN SIZES';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        FOR ^S^I^Z^E_^N^D^X @D= 0 TO 3 DO
           ^W^R^I^T^E_^V^F^D(8, ^P^A^R^M_^R^E^C^O^R^D.^S^I^Z^E[^S^I^Z^E_^N^D^X].^C^O^L^S, 'X SIZE (COLUMNS)');
           ^W^R^I^T^E_^V^F^D(7, ^P^A^R^M_^R^E^C^O^R^D.^S^I^Z^E[^S^I^Z^E_^N^D^X].^R^O^W^S, 'Y SIZE (ROWS)')
        FOREND
     PROCEND ^W^R^I^T^E_^S^I^Z^E_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^S^U^B^T^A^B^L^E_^S^T^A^R^T' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^S^U^B^T^A^B^L^E_^S^T^A^R^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'START OF SUB-TABLES';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T
     PROCEND ^W^R^I^T^E_^S^U^B^T^A^B^L^E_^S^T^A^R^T;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^O^U^T^P^U^T_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^O^U^T^P^U^T_^T^A^B^L^E;

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'OUTPUT SUB-TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '    OFFSETS BY ORDINAL';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^O^R^D^I^N^A^L^S(@B^D^U^M^P_^O^U^T^P^U^T_^N^O^D^E);

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '    OUTPUT CHARACTER SEQUENCES';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S(@B^D^U^M^P_^O^U^T^P^U^T_^N^O^D^E)
     PROCEND ^W^R^I^T^E_^O^U^T^P^U^T_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^I^N^P^U^T_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^I^N^P^U^T_^T^A^B^L^E;
        VAR
           ^T^A^B^L^E_^S^I^Z^E@D INTEGER,
           ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN;

        ?? NEWTITLE @D= '^W^R^I^T^E_^I^N^P^U^T_^I^T^E^M' ??
        ?? SKIP @D= 4 ??

        PROCEDURE ^W^R^I^T^E_^I^N^P^U^T_^I^T^E^M (^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E);

           ?? NEWTITLE @D= '^W^R^I^T^E_^C^H^A^R' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^C^H^A^R(^C^H^A^R_^V^A^L^U^E@D INTEGER; ^C^O^M^M^E^N^T@D STRING(*));

              ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
              IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D = ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E THEN ^0 ^F^I^R^S^T ^W^O^R^D ^O^N^L^Y ^2
                 ^W^R^I^T^E_^V^F^D(4, 0, 'FILLER');
              IFEND;
              IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E THEN
                 ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
                 ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
                 ^W^R^I^T^E_^V^F^D(4, 0, 'FILLER');
              IFEND;
              ^W^R^I^T^E_^V^F^D(^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E, ^C^H^A^R_^V^A^L^U^E, ^C^O^M^M^E^N^T);
           PROCEND ^W^R^I^T^E_^C^H^A^R;
           ?? OLDTITLE ??

           ?? NEWTITLE @D= '^W^R^I^T^E_^A^C^T^I^O^N' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^A^C^T^I^O^N (^A^C^T^I^O^N@D ^I^N^P^U^T_^A^C^T^I^O^N);
              VAR
                 ^C^O^M^M^E^N^T@D STRING(30),
                 ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D STRING(6),
                 ^I_^S_^L^E^N^G^T^H@D ^O^S^T$^S^T^R^I^N^G_^L^E^N^G^T^H; ^0 ^S^U^B^R^A^N^G^E ^O^F ^I^N^T^E^G^E^R ^2

              IF ^A^C^T^I^O^N.^O^R^D^I^N^A^L = ^N^O_^O^R^D^I^N^A^L THEN ^0 ^O^F^F^S^E^T ^T^O ^N^E^X^T ^I^T^E^M ^2
                 ^C^O^M^M^E^N^T @D= '';
                 ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^I^N^T^E^G^E^R_^S^T^R^I^N^G, ^I_^S_^L^E^N^G^T^H,
                    ^A^C^T^I^O^N.^N^E^X^T_^O^F^F^S^E^T, 10); ^0 ^O^F^F^S^E^T ^I^N ^S^T^R^I^N^G ^F^O^R^M^A^T ^2
                 STRINGREP(^C^O^M^M^E^N^T, ^S^T^R^I^N^G^R^E^P_^L^E^N,
                    'OFFSET '@D 8, ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D ^I_^S_^L^E^N^G^T^H);
                 ^W^R^I^T^E_^C^H^A^R(^A^C^T^I^O^N.^N^E^X^T_^O^F^F^S^E^T DIV 128, ^C^O^M^M^E^N^T); ^0 ^H^I^G^H_^O^R^D^E^R^2
                 ^W^R^I^T^E_^C^H^A^R(^A^C^T^I^O^N.^N^E^X^T_^O^F^F^S^E^T MOD 128, ''); ^0 ^L^O^W-^O^R^D^E^R^2
              ELSE                    ^0 ^O^R^D^I^N^A^L ^2
                 ^C^O^M^M^E^N^T @D= '';
                 ^U^T^P$^C^O^N^V^E^R^T_^I^N^T^E^G^E^R_^T^O_^S^T^R^I^N^G(^I^N^T^E^G^E^R_^S^T^R^I^N^G, ^I_^S_^L^E^N^G^T^H,
                    ^A^C^T^I^O^N.^O^R^D^I^N^A^L, 10); ^0 ^O^R^D^I^N^A^L ^I^N ^S^T^R^I^N^G ^F^O^R^M^A^T ^2
                 STRINGREP(^C^O^M^M^E^N^T, ^S^T^R^I^N^G^R^E^P_^L^E^N,
                    'ORDINAL '@D 8, ^I^N^T^E^G^E^R_^S^T^R^I^N^G@D ^I_^S_^L^E^N^G^T^H);
                 ^W^R^I^T^E_^C^H^A^R((16383-^A^C^T^I^O^N.^O^R^D^I^N^A^L) DIV 128, ^C^O^M^M^E^N^T);
                 ^W^R^I^T^E_^C^H^A^R((16383-^A^C^T^I^O^N.^O^R^D^I^N^A^L) MOD 128, ''); ^0 ^L^O^W-^O^R^D^E^R ^2
              IFEND;
           PROCEND ^W^R^I^T^E_^A^C^T^I^O^N;
           ?? OLDTITLE ??

           ?? NEWTITLE @D= '^W^R^I^T^E_^F^A^I^L_^N^O^D^E' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^F^A^I^L_^N^O^D^E (^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E);
              ^W^R^I^T^E_^C^H^A^R(0, '*****  FAIL  *****');
           PROCEND ^W^R^I^T^E_^F^A^I^L_^N^O^D^E;
           ?? OLDTITLE ??

           ?? NEWTITLE @D= '^W^R^I^T^E_^L^I^S^T_^N^O^D^E' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^L^I^S^T_^N^O^D^E (^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E);
              VAR
                 ^C^H^A^R_^N^D^X@D INTEGER;

              ^W^R^I^T^E_^C^H^A^R(1, '*****  LIST  *****');
              ^W^R^I^T^E_^C^H^A^R(^I^N_^N^O^D^E@B.^L^I^S^T_^C^H^A^R^A^C^T^E^R_^C^O^U^N^T, 'LIST COUNT');
              FOR ^C^H^A^R_^N^D^X @D= 1 ^T^O ^I^N_^N^O^D^E@B.^L^I^S^T_^C^H^A^R^A^C^T^E^R_^C^O^U^N^T DO
                 ^W^R^I^T^E_^C^H^A^R(ORD(^I^N_^N^O^D^E@B.^L^I^S^T_^P^O^I^N^T^E^R@B[^C^H^A^R_^N^D^X].^C^H^A^R^A^C^T^E^R),
                    '');
                 ^W^R^I^T^E_^A^C^T^I^O^N(^I^N_^N^O^D^E@B.^L^I^S^T_^P^O^I^N^T^E^R@B[^C^H^A^R_^N^D^X].^A^C^T^I^O^N);
              FOREND;
           PROCEND ^W^R^I^T^E_^L^I^S^T_^N^O^D^E;
           ?? OLDTITLE ??

           ?? NEWTITLE @D= '^W^R^I^T^E_^R^A^N^G^E_^N^O^D^E' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^R^A^N^G^E_^N^O^D^E (^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E);
              VAR
                 ^C^H^A^R_^N^D^X@D INTEGER;

              ^W^R^I^T^E_^C^H^A^R(2, '*****  RANGE  *****');
              ^W^R^I^T^E_^C^H^A^R(ORD(^I^N_^N^O^D^E@B.^R^A^N^G^E_^L^O^W^E^R_^B^O^U^N^D), 'LOWER BOUND');
              ^W^R^I^T^E_^C^H^A^R(ORD(^I^N_^N^O^D^E@B.^R^A^N^G^E_^U^P^P^E^R_^B^O^U^N^D), 'UPPER BOUND');
              FOR ^C^H^A^R_^N^D^X @D= ORD(^I^N_^N^O^D^E@B.^R^A^N^G^E_^L^O^W^E^R_^B^O^U^N^D) TO
                              ORD(^I^N_^N^O^D^E@B.^R^A^N^G^E_^U^P^P^E^R_^B^O^U^N^D) DO
                 ^W^R^I^T^E_^A^C^T^I^O^N(^I^N_^N^O^D^E@B.^R^A^N^G^E_^P^O^I^N^T^E^R@B[^C^H^A^R_^N^D^X]);
              FOREND;
           PROCEND ^W^R^I^T^E_^R^A^N^G^E_^N^O^D^E;
           ?? OLDTITLE ??

           ?? NEWTITLE @D= '^W^R^I^T^E_^S^A^R_^N^O^D^E' ??
           ?? SKIP @D= 4 ??

           PROCEDURE ^W^R^I^T^E_^S^A^R_^N^O^D^E (^I^N_^N^O^D^E@D @B^I^N^P^U^T_^N^O^D^E);

              ^W^R^I^T^E_^C^H^A^R(3, '*****  SINGLE-ACTION RANGE  *****');
              ^W^R^I^T^E_^C^H^A^R(ORD(^I^N_^N^O^D^E@B.^S^A^R_^L^O^W^E^R_^B^O^U^N^D), 'LOWER BOUND');
              ^W^R^I^T^E_^C^H^A^R(ORD(^I^N_^N^O^D^E@B.^S^A^R_^U^P^P^E^R_^B^O^U^N^D), 'UPPER BOUND');
              ^W^R^I^T^E_^A^C^T^I^O^N(^I^N_^N^O^D^E@B.^S^A^R_^A^C^T^I^O^N);
           PROCEND ^W^R^I^T^E_^S^A^R_^N^O^D^E;
           ?? OLDTITLE ??

           ?? EJECT ??

           CASE ^I^N_^N^O^D^E@B.^O^P^C^O^D^E OF
              = ^F^A^I^L =
                 ^W^R^I^T^E_^F^A^I^L_^N^O^D^E(^I^N_^N^O^D^E);
              = ^L^I^S^T =
                 ^W^R^I^T^E_^L^I^S^T_^N^O^D^E(^I^N_^N^O^D^E);
              = ^R^A^N^G^E =
                 ^W^R^I^T^E_^R^A^N^G^E_^N^O^D^E(^I^N_^N^O^D^E);
              = ^S^I^N^G^L^E_^A^C^T^I^O^N_^R^A^N^G^E =
                 ^W^R^I^T^E_^S^A^R_^N^O^D^E(^I^N_^N^O^D^E);
           CASEND;
        PROCEND ^W^R^I^T^E_^I^N^P^U^T_^I^T^E^M;
        ?? OLDTITLE ??

        ?? EJECT ??

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'INPUT SUB-TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^I^N^P^U^T].^L^A^B^E^L;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'BSS';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '0';
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^R^E^S^E^T_^I^N^P^U^T_^T^A^B^L^E(^T^A^B^L^E_^S^I^Z^E);
        ^D^U^M^P_^I^N^P^U^T_^N^O^D^E(@B^W^R^I^T^E_^I^N^P^U^T_^I^T^E^M); ^0 ^P^A^S^S ^M^Y ^P^R^O^C^E^D^U^R^E ^T^O ^D^U^M^P^E^R ^2
        IF ( ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D > 0 ) AND
           ( ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E ) THEN
           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
           ^W^R^I^T^E_^V^F^D(^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D, 0, 'FILLER');
        IFEND;
     PROCEND ^W^R^I^T^E_^I^N^P^U^T_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^K^E^Y_^N^A^M^E_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^K^E^Y_^N^A^M^E_^T^A^B^L^E;

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'KEY-NAME SUB-TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '     ORDINALS BY KEY';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^N^A^M^E^S].^L^A^B^E^L;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'BSS';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '0';
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^O^R^D^I^N^A^L^S(@B^D^U^M^P_^K^E^Y_^N^A^M^E_^N^O^D^E);

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '     KEY NAMES';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S(@B^D^U^M^P_^K^E^Y_^N^A^M^E_^N^O^D^E)
     PROCEND ^W^R^I^T^E_^K^E^Y_^N^A^M^E_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^I^N^I^T^I^A^L^I^Z^A^T^I^O^N_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^I^N^I^T^I^A^L^I^Z^A^T^I^O^N_^T^A^B^L^E;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'INITIALIZATION SUB-TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '     LINE/SCREEN ORDINALS';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^I^N^I^T].^L^A^B^E^L;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'BSS';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '0';
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^O^R^D^I^N^A^L^S(@B^D^U^M^P_^R^E^S^E^T_^S^E^Q^U^E^N^C^E);

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '     INITIALIZATION SEQUENCES';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^C^H^A^R_^S^E^Q^U^E^N^C^E^S(@B^D^U^M^P_^R^E^S^E^T_^S^E^Q^U^E^N^C^E)
     PROCEND ^W^R^I^T^E_^I^N^I^T^I^A^L^I^Z^A^T^I^O^N_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^A^P^P^S^T^R_^T^A^B^L^E' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^A^P^P^S^T^R_^T^A^B^L^E;
        VAR
           ^L^E^N^G^T^H@D INTEGER,
           ^C^H^A^R^S@D @BSTRING(*),
           ^T^O^T^A^L_^S^E^Q^U^E^N^C^E^S,
           ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S@D INTEGER,
           ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN,
           ^N^A^M^E@D STRING(7);

        ?? NEWTITLE @D= '^W^R^I^T^E_^A^P^P^S^T^R_^N^A^M^E^S' ??
        ?? SKIP @D= 4 ??

        PROCEDURE ^W^R^I^T^E_^A^P^P^S^T^R_^N^A^M^E^S;
           VAR
              ^C^H^A^R_^N^D^X@D INTEGER,
              ^C^O^M^M^E^N^T@D STRING(30);

           ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
           ^C^O^M^M^E^N^T @D= ^N^A^M^E(1,7);
           FOR ^C^H^A^R_^N^D^X @D= 1 TO 7 DO
              ^W^R^I^T^E_^V^F^D(6,
                 ^U^T^V$^C^O^N^V^E^R^T_^A^S^C^I^I_^T^O_^A^S^C^I^I64[^N^A^M^E(^C^H^A^R_^N^D^X)], ^C^O^M^M^E^N^T);
              ^C^O^M^M^E^N^T @D= ''
           FOREND;
           ^W^R^I^T^E_^V^F^D(18, ^L^E^N^G^T^H, '')
        PROCEND ^W^R^I^T^E_^A^P^P^S^T^R_^N^A^M^E^S;
        ?? OLDTITLE ??

        ?? NEWTITLE @D= '^W^R^I^T^E_^A^P^P^S^T^R_^S^E^Q^U^E^N^C^E^S' ??
        ?? EJECT ??

        PROCEDURE ^W^R^I^T^E_^A^P^P^S^T^R_^S^E^Q^U^E^N^C^E^S;
           VAR
              ^C^H^A^R_^N^D^X@D INTEGER,
              ^C^O^M^M^E^N^T@D STRING(30);

           ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
           FOR ^C^H^A^R_^N^D^X @D= 1 TO ^L^E^N^G^T^H DO
              IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D < ^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E THEN
                 ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
                 ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
                 ^W^R^I^T^E_^V^F^D(4, 0, 'FILLER')
              IFEND;
              ^W^R^I^T^E_^V^F^D(^T^A^R^G^E^T_^C^H^A^R_^S^I^Z^E,
                 ORD(^C^H^A^R^S@B(^C^H^A^R_^N^D^X)), '');
           FOREND;
           IF ^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D > 0 THEN
              ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
              ^W^R^I^T^E_^V^F^D(^B^I^T^S_^L^E^F^T_^I^N_^W^O^R^D, 0, 'FILLER')
           IFEND
        PROCEND ^W^R^I^T^E_^A^P^P^S^T^R_^S^E^Q^U^E^N^C^E^S;
        ?? OLDTITLE ??
        ?? EJECT ??

        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'APPLICATION STRING SUB-TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^A^P^P^S^T^R].^L^A^B^E^L;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'BSS';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '0';
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T @D= '';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;

        ^R^E^S^E^T_^A^P^P^S^T^R_^T^A^B^L^E;
        REPEAT
           ^D^U^M^P_^A^P^P^S^T^R_^N^O^D^E(^N^A^M^E, ^L^E^N^G^T^H, ^C^H^A^R^S,
              ^T^O^T^A^L_^S^E^Q^U^E^N^C^E^S, ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S, ^N^O^D^E_^R^E^T^U^R^N^E^D);
           IF ^N^O^D^E_^R^E^T^U^R^N^E^D THEN
              ^W^R^I^T^E_^A^P^P^S^T^R_^N^A^M^E^S;
              ^W^R^I^T^E_^A^P^P^S^T^R_^S^E^Q^U^E^N^C^E^S
           IFEND
        UNTIL NOT ^N^O^D^E_^R^E^T^U^R^N^E^D;
        ^S^T^A^R^T_^W^O^R^D_^O^U^T^P^U^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^W^R^I^T^E_^V^F^D(^T^A^R^G^E^T_^W^O^R^D^S^I^Z^E, 0, 'END OF NAMES')
     PROCEND ^W^R^I^T^E_^A^P^P^S^T^R_^T^A^B^L^E;
     ?? OLDTITLE ??

     ?? NEWTITLE @D= '^W^R^I^T^E_^T^R^A^I^L^E^R' ??
     ?? EJECT ??

     PROCEDURE ^W^R^I^T^E_^T^R^A^I^L^E^R;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^C^O^M^M^E^N^T_^L^I^N^E;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= '';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^C^O^M^M^E^N^T_^T^E^X^T @D= 'END OF TABLE';
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^W^R^I^T^E_^C^O^M^M^E^N^T;
        ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^O^P^C^O^D^E_^L^I^N^E;
        ^O^U^T^R^E^C.^L^A^B^E^L @D= ^S^U^B^T^A^B^L^E_^L^I^S^T[^S^U^B^T^A^B^L^E_^E^N^D].^L^A^B^E^L;
        ^O^U^T^R^E^C.^O^P^C^O^D^E @D= 'END';
        ^O^U^T^R^E^C.^P^A^R^A^M^E^T^E^R^S @D= '';
        ^W^R^I^T^E_^O^P^C^O^D^E_^L^I^N^E;
     PROCEND ^W^R^I^T^E_^T^R^A^I^L^E^R;
     ?? OLDTITLE ??
     ?? EJECT ??

     ^O^P^E^N_^F^I^L^E(^O^U^T^P^U^T_^F^I^L^E_^S^E^L, ^O^U^T^P^U^T_^S^E^L, ^A^S^C^I^I64_^S^E^L);
     ^O^U^T^R^E^C.^L^I^N^E_^T^Y^P^E @D= ^W^H^O^L^E_^L^I^N^E;
     ^O^U^T^R^E^C.^L^I^N^E_^B^U^F^F^E^R @D= '';

     ^W^R^I^T^E_^H^E^A^D^E^R;
     ^W^R^I^T^E_^S^U^B_^T^A^B^L^E_^P^O^I^N^T^E^R^S;
     ^W^R^I^T^E_^P^A^R^A^M^E^T^E^R^S;
     ^W^R^I^T^E_^S^I^Z^E_^T^A^B^L^E;
     ^W^R^I^T^E_^S^U^B^T^A^B^L^E_^S^T^A^R^T;

     ^W^R^I^T^E_^O^U^T^P^U^T_^T^A^B^L^E;
     ^W^R^I^T^E_^I^N^P^U^T_^T^A^B^L^E;
     ^W^R^I^T^E_^K^E^Y_^N^A^M^E_^T^A^B^L^E;
     ^W^R^I^T^E_^A^P^P^S^T^R_^T^A^B^L^E;
     ^W^R^I^T^E_^I^N^I^T^I^A^L^I^Z^A^T^I^O^N_^T^A^B^L^E;
     ^W^R^I^T^E_^T^R^A^I^L^E^R;

     ^C^L^O^S^E_^F^I^L^E(^O^U^T^P^U^T_^F^I^L^E_^S^E^L)
  PROCEND ^W^R^I^T^E_^T^A^B^L^E^S;
  ?? OLDTITLE ??

MODEND ^T^D^U^O^U^T;