; Orange programmer module v4.0
; (c) 2006 CnCLab
; HPL Text convert example
; Пример демонстрирует конвертирование текста в другую кодировку


ALLPINS=0

@DOSWIN={0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,0x20,0x21,0x20,0x20,0x20,0x20,0x20,0x20, 0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27, 0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37, 0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47, 0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57, 0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67, 0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77, 0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7, 0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7, 0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7, 0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x2B, 0x2B,0x20,0x20,0x2B,0x2B,0x2B,0x2B,0x2B,0x2B,0x97,0x97,0x2B,0x97,0x2B,0x20,0x20, 0x2B,0x2B,0x97,0x97,0x20,0x97,0x2B,0x97,0x97,0x97,0x97,0x2B,0x2B,0x2B,0x2B,0x2B, 0x2B,0x2B,0x2B,0x20,0x20,0x20,0x20,0x20,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7, 0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF,0xA8,0xB8,0xAA,0xBA,0xAF,0xBF,0xA1,0xA2, 0xB0,0x95,0xB7,0x2D,0xB9,0xA4,0x2A,0x2A}
@WINDOS={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,129,131,44,163,34,95,197,216,32,37,74,60,156,138,104,150,156,96,39,34,34,4,45,196,32,42,236,62,236,170,104,230,32,227,147,74,254,131,124,21,240,252,71,34,191,45,148,73,248,241,73,105,163,109,113,249,241,78,95,34,106,83,115,105,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239}


[#!DOS2WIN]
ADR=0
LOOP($SIZE){
R0=DATA
R1=@DOSWIN[R0]
DATA=R1
ADR=+1
}

[#!WIN2DOS]
ADR=0
LOOP($SIZE){
R0=DATA
R1=@WINDOS[R0]
DATA=R1
ADR=+1
}