| 
- HUMOR.FILTERED ---------------------------------------------- HUMOR.FILTERED -
From : Boris Paleev 2:5020/113 24 Dec 94 11:18:28
Subj : На фильтрацию, если еще не было
--------------------------------------------------------------------------------
=============================================================================
* Forwarded by Boris Paleev (2:5020/113)
* Area : BORIS_IN (Incoming mail)
* From : Max Klochkov, 2:5020/99 (Friday December 23 1994 00:39)
* To : Boris Paleev
* Subj : а фильтрацию, если еще не было
=============================================================================
Hello Boris!
Happy to contact you!
/* CHINESE.C -- European to Chinese translator system v0.0.1a *\\
concept by A.Varin (AVV) (2:5020/157.44@fidonet)
coding by A.Varin & A.Aristov (AAV) (2:5030/31.23@fidonet)
project management by D.Morozovsky (D.Marck) (2:5020/268@fidonet)
program style concept by K.Shirokov (SHQ) (2:5030/31.666@fidonet)
getting started 21-Dec-94
last revised 22-Dec-94
\\* */
#include <stdio.h>
#include <process.h>
#define XPEHOTA (0)
#define PA3 (1)
#define BOCEMb (8)
#define MACKA (0x80)
#define CKA3ATb exit
#define KPyTO XPEHOTA
#define OCHOBHOE main
#define OTBET return
#define KPyTu for
#define nOKA while
#define BOnPOC if
#define BbIBECTu_3HAK fputchar
#define BBECTu_3HAK getc
#define BbIBECTu_CTPOKy fputs
#define BbIX_nOTOK stdout
#define BX_nOTOK stdin
#define nyCTO (' ')
#define HAXPEH ('\\n')
#define KOHEu (EOF)
#define HA3OBEM typedef
HA3OBEM void X3;
HA3OBEM int HOMEP;
HA3OBEM char _3HAK;
_3HAK *CTPOKA = "
1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЖЗИЙКЛМОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
_3HAK *CTPOKA_BEPX = "
1234567890abcdefghijklmnopqrstuvwxyzабвгдежзийклмнопрстуфхцчшщъыьэюя";
_3HAK *COBCEM_nyCTO = " ";
_3HAK *COBCEM_MHOrO = "\\xDB\\xDB";
HOMEP HAW_HOMEP(HOMEP OHO_CAMOE) {
HOMEP OHO_3ABETHOE = XPEHOTA;
_3HAK *OHO;
KPyTu(OHO = CTPOKA; *OHO != XPEHOTA; OHO++, OHO_3ABETHOE++)
BOnPOC(*OHO == OHO_CAMOE) OTBET(OHO_3ABETHOE);
KPyTu(OHO = CTPOKA_BEPX, OHO_3ABETHOE = XPEHOTA;
*OHO != OHO_CAMOE; OHO++, OHO_3ABETHOE++)
BOnPOC(*OHO == XPEHOTA) OTBET(XPEHOTA);
OTBET(OHO_3ABETHOE);
}
X3 OCHOBHOE(X3) {
HOMEP nPABOE, LEBOE, XPEHb, HOMEP_buTA;
nOKA((XPEHb = BBECTu_3HAK(BX_nOTOK)) != KOHEu) {
nPABOE = LEBOE = HAW_HOMEP(XPEHb);
KPyTu(HOMEP_buTA = XPEHOTA; HOMEP_buTA<BOCEMb; HOMEP_buTA++, nPABOE <<= PA3)
BbIBECTu_CTPOKy(nPABOE & MACKA ? COBCEM_MHOrO : COBCEM_nyCTO, BbIX_nOTOK);
KPyTu(HOMEP_buTA = XPEHOTA; HOMEP_buTA<BOCEMb; HOMEP_buTA++, LEBOE >>= PA3)
BbIBECTu_CTPOKy(LEBOE & PA3 ? COBCEM_MHOrO : COBCEM_nyCTO, BbIX_nOTOK);
BbIBECTu_3HAK(nyCTO);
BbIBECTu_3HAK(XPEHb);
BbIBECTu_3HAK(HAXPEH);
}
CKA3ATb(KPyTO);
}
Sincerely yours, Max
=== Edlin for Windows 2.42.G0614+
+ Origin: Hам не страшен 37, 37, 37 (2:5020/99)
=============================================================================
Hello All!
Best regards, Boris
--- Ручка шариковая, цена 2.42.G0614+
* Origin: Minas Anor (2:5020/113)
| |
