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;