| /programs/develop/cedit/SRC/Clipboard.ob07 |
|---|
| 1,5 → 1,5 |
| (* |
| Copyright 2021 Anton Krotov |
| Copyright 2021, 2022 Anton Krotov |
| This file is part of CEdit. |
| 24,7 → 24,6 |
| CONST |
| TTEXT = 0; |
| lenEOL* = 2; |
| TAB = 9X; |
| TYPE |
| tBuffer* = POINTER TO RECORD |
| 60,11 → 59,14 |
| ptr := buffer.dataPtr; |
| WHILE cnt > 0 DO |
| SYSTEM.GET(ptr, wch); |
| IF wch # Lines.TAB1 THEN |
| IF wch = Lines.TAB1 THEN |
| DEC(size) |
| ELSIF wch = Lines.NUL THEN |
| SYSTEM.PUT(pchar, 0X); |
| INC(pchar) |
| ELSE |
| SYSTEM.PUT(pchar, CHR(E.UNI[ORD(wch), E.CP866] MOD 256)); |
| INC(pchar) |
| ELSE |
| DEC(size); |
| END; |
| INC(ptr, 2); |
| DEC(cnt) |