'comment' library A14 -- interim written by DH;
'procedure' copy text(in device,outdev,fromto);
        'value' in device,outdev; 'integer' in device,outdev;
        'string' from to;
        'KDF9' 12/9/14/1;
        V0=B4322406415237071;
        V1=B1243647147200000;
        {fromto}; {outdev}; {indevice};
        (copy text);
        JS4P295;
        JS12P295;
        =M15; M0M15; ZERO; SHLD+8;
        SETB215; NEV; J5#Z;
        ZERO; SHLD+8; REV; SHL-40; SETB235;
        J2=; REV;           ( J if just one symbol );
1;      JS6P295;
        J5;          ( fail if end message reached );
        J1#;         ( starter symbol found );
2;      ERASE;       ( stopper in N1 );

22;     JS6P295;
        J5;
        DUP;
        JS14P295;    ( output symbol );
        J22#; ERASE; ( terminator found );
        V1P295;      ( only works with Holdsworth P295 );
        SETB235; SHLD-8; ERASE; SHC+8;
        =V1P295;     ( P700 needs closing string quote terminator );
        JS8P295;
        JS16P295;
        'EXIT';

5;      SET1; SETAV0; {indevice};; CAB; JP299;

'ALGOL';
**** Genuine version follows

'comment' library A14 -- genuine from KQX;
'procedure' copy text(in device,outdev,fromto);
        'value' in device,outdev; 'integer' in device,outdev;
        'string' from to;
        'KDF9' 12/9/14/1;
        V0=B4322406415237071;
        V1=B1243647147200000;
        {fromto}; {outdev}; {indevice};
        (copy text);
        JS4P295;
        JS12P295;
        =M15; M0M15; ZERO; SHLD+8;
        SETB215; NEV; J5#Z;
        ZERO; SHLD+8; REV; SHL-40; SETB235;
        J2=; REV; DUP;
6;      ERASE;
1;      JS6P295;
        J6;
        J1#;
        DUP;
26;     ERASE;
2;      ERASE;
3;      JS6P295;
        J2;
        DUPD; NEV; J4=Z;
        SETB215; J7=;
        SETB216; J27#;
        SETB20; OR;
        J25;
27;     SETB236; J2=;
        SETB240; J2=;
        SETB256; J2=;
25;     JS14P295;
        J3;
4;      JS10P295;
        ERASE; JS8P295;
        JS16P295;
        'EXIT';
5;      SET1; J16;
7;      SHL-8; DUP;
8;      ERASE;
9;      JS6P295;
        J8;
        DUP; SET10; -; J10<Z;
        SETB50; J11=;
        SETB70; J12=;
        SETB65; J13=;
        SETB66; J14=;
        SETB72; J15=;
        SETB235; J26=;
        SETB236; J8=;
        SETB240; J8=;
        SETB256; J8=;
        JS16P295;
        SET2;
16;     SETAV0; {indevice};; CAB; JP299;
10;     REV; SET10; *D; CONT; +;
        J9;
11;     SET2;
17;     CAB; =C14; DUP; JS18P295;
        J16C14Z;
        J19;
20;     DUP; JS18P295;
19;     DC14; J20C14NZ;
18;     ERASE; J7;
12;     ZERO; J17;
13;     SET3; J17;
14;     SETB215;
21;     CAB; =C14; DUP; JS14P295;
        J22C14Z;
        J23;
24;     DUP; JS14P295;
23;     DC14; J24C14NZ;
22;     ERASE; J7;
15;     SETB235; J21;

        'ALGOL';