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;
        J18C14Z;
        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;