[Q]: �y�䨪��� 850 CP y �p����p�, �� p�����饣� � DSPRES.DLL (EGA)

[A]: Andrew Belov (2:5020/181.2)

IBMEGA.DLL ����室��� ������, ����py� �y�� py���p������ ᨬ���� ��, ���p���p, DSPRES.DLL (��� 䠩�� �p����p�⥫쭮 p�ᯠ������). CODEPAGE �p������ �⠢��� 850,850 - � CP866 ��� �p����p p������ �� y����.

IBMCGA/IBMEGA.DLL �p�訢����� �p� ����� ᫥�y�饣� ⢮p���� �� QBASIC, ��� ������� 䮭� �����p����� ᬥ饭�� (O1/O2), ����� p�᪮�����py���� ��p��� � ����, �p���室�� ����p������ p��yp� �� DSPRES.DLL � IBMEGA, � ����� �� ����p���� N p��, ��� N - ������⢮ 䮭⮢ � IBMEGA.DLL - ��p浪� 5.

=== Cut ===
OPEN "dspres.dll" FOR BINARY AS #1
OPEN "ibmega.dll" FOR BINARY AS #2
O1 = 339643
O2 = 151173
L = 320 * 18
SCREEN 9
DEF SEG = &HA000
SEEK #1, O1
SEEK #2, O2
P1 = 0: P2 = 0
FOR i = 0 TO 39 STEP 2
FOR y = 0 TO 349 STEP 1
P1 = P1 + 1

IF P1 > L THEN EXIT FOR

a = ASC(INPUT$(1, 1))
POKE y * 80 + i, a
NEXT y

IF P1 > L THEN EXIT FOR

NEXT i
FOR i = 40 TO 79 STEP 2
FOR y = 0 TO 349 STEP 1
P2 = P2 + 1

IF P2 > L THEN EXIT FOR

a = ASC(INPUT$(1, 2))
POKE y * 80 + i, a
NEXT y

IF P2 > L THEN EXIT FOR

NEXT i
'SEEK #1, O1: P1$ = INPUT$(L, 1): SEEK #2, O2: PUT #2, O2, P1$
CLOSE
=== Cut ===

��� �y���p������ py�䨪�樨 �y��� �������� ����p��� N-��⭥� �������, py���py�騬� OS/2 2.1 � ���� VIOTBL.DCP, p����⠭�� �� CP850.

--- INN 2.7.3 (rc1 version)
* Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)