Архив конференции Fidonet HUMOR.FILTERED,
нагло упертый мной с http://hf.kru.to/
(координатор - Евгений Плисс), и переведенный в html :-)
- HUMOR.FILTERED ---------------------------------------------- HUMOR.FILTERED - From : Dmitry Zavalishin 2:5020/32 28 Jun 94 16:56:36 Subj : Имя каталога! -------------------------------------------------------------------------------- Hello All. I think, this message from area NICE.SOURCES seems to be interesting: --------------------------- Start Cut ------------------------- From : Vova Patryshev, 2:5030/119 (22 Jun 94 09:24) To : All Subj : Имя каталога! --------------------------------------------------------------- ============================================================================= * Forwarded by Vova Patryshev (2:5030/119) * Area : SPB.HUMOR * From : Kirill Shirokov, 2:5030/31 (20 Jun 94 17:23) * To : Nicolas Rodionov * Subj : Имя каталога! ============================================================================= Saluton, Nicolas! a hacked msg from Nicolas Rodionov to World: ES>> Гораздо клевее создавать русские названия латинскими ES>> буквами, как то директории: PA3BPAT, CEKC, HAPKOTA, TPABKA и т.д. HD> ДЕРЬМО NR> ^ ^ NR> И где вы нашли такие латинские буквы, молодой человек? Получите, ежели не видовали еще: {*********************************************************** Program : OH TOPMO3 Version : 1.1 Released: 25 May 1993 Author : Kirill Shirokov The Future Hackers Co. CoAuthor: Dmitry Moskovich This program illustrates visual effect, when english combinations of characters looks like russian text. Original idea was researched by Viacheslav Slavinsky (Some years ago he wrote genius line: KACEKOB - TOPMO3). Copyright by The Future Hackers Co., 1993 All rights reserved. ************************************************************} program OH_TOPMO3; uses CRT; const MHOrO_TEKCTOB = 15; nPOPEXA = nil; type A_KTO_EBO_3HAET = (HO_KTO_TO_BEgb_3HAET, BCE_ETO_BECbMA_CTPAHHO); HyMEP = Byte; CTPOKA = String[15]; TEKCTuK = record OHA: CTPOKA; TOPMO3: HyMEP; end; TAM_ABTOMAT = ^ABTOMAT; ABTOMAT = object MOE_X, MOE_Y: HyMEP; TEKCTOB_BCEBO: HyMEP; TEKCTbl: array[1..MHOrO_TEKCTOB] of TEKCTuK; KAKOE: HyMEP; TOPMO3uM: HyMEP; XPEH_EMy: TAM_ABTOMAT; constructor BOT_EBOHOE_MECTO(X, Y: HyMEP); procedure BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT); procedure ETO_CTPOKA(OHA_CAMA: CTPOKA; EE_TOPMO3: HyMEP); procedure BblBOg; end; XMblPb = object HE_KACEKOB: A_KTO_EBO_3HAET; KTO_TAM_CAMOE_TAKOE: TAM_ABTOMAT; constructor Hy_HuKAK_MHE_EBO_HE_HA3BATb; procedure B_nyTb; procedure u_EBO_TO3E (uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT); end; procedure BAM_TEMHO; begin ClrScr; end; procedure TOPMO3HyTb(CKOKO: HyMEP); begin Delay(CKOKO); end; procedure rge_EMy_KBACuTb(EBO_X, EBO_Y: HyMEP); begin GoToXY(EBO_X, EBO_Y); end; function WyXEP: Boolean; begin WyXEP := KeyPressed; end; constructor ABTOMAT.BOT_EBOHOE_MECTO(X, Y: HyMEP); begin MOE_X := X; MOE_Y := Y; TEKCTOB_BCEBO := 0; KAKOE := 0; TOPMO3uM := 0; end; procedure ABTOMAT.BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT); begin XPEH_EMy := KOMy_XPEH; end; procedure ABTOMAT.ETO_CTPOKA(OHA_CAMA: CTPOKA; EE_TOPMO3: HyMEP); begin if TEKCTOB_BCEBO < MHOrO_TEKCTOB then begin Inc(TEKCTOB_BCEBO); with TEKCTbl[TEKCTOB_BCEBO] do begin OHA := OHA_CAMA; TOPMO3 := EE_TOPMO3; end; end; end; procedure ABTOMAT.BblBOg; begin if TEKCTOB_BCEBO > 0 then begin if TOPMO3uM = 0 then begin Inc(KAKOE); if KAKOE > TEKCTOB_BCEBO then KAKOE := 1; rge_EMy_KBACuTb(MOE_X, MOE_Y); with TEKCTbl[KAKOE] do begin Write(OHA); TOPMO3uM := TOPMO3; end; end; Dec(TOPMO3uM); end; end; constructor XMblPb.Hy_HuKAK_MHE_EBO_HE_HA3BATb; begin KTO_TAM_CAMOE_TAKOE := nPOPEXA; HE_KACEKOB := BCE_ETO_BECbMA_CTPAHHO; end; procedure XMblPb.u_EBO_TO3E(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT); begin if KTO_TAM_CAMOE_TAKOE = nPOPEXA then begin KTO_TAM_CAMOE_TAKOE := uMEHHO_ETO_MOXHATOE_OHO_CAMOE; uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy := uMEHHO_ETO_MOXHATOE_OHO_CAMOE; end else begin uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy := KTO_TAM_CAMOE_TAKOE^.XPEH_EMy; KTO_TAM_CAMOE_TAKOE^.XPEH_EMy := uMEHHO_ETO_MOXHATOE_OHO_CAMOE; end; end; procedure XMblPb.B_nyTb; var ETOT_PAXuT: TAM_ABTOMAT; begin ETOT_PAXuT := KTO_TAM_CAMOE_TAKOE; while not WyXEP do with ETOT_PAXuT^ do begin BblBOg; ETOT_PAXuT := XPEH_EMy; rge_EMy_KBACuTb(1, 10); TOPMO3HyTb(10); end; end; procedure BAM_XOPOWO; begin BAM_TEMHO; WriteLN('OH TOPMO3 v1.0 Copyright The Future Hackers, 1993'); WriteLN(' . Written by Kirill Shirokov and Dmitry Moskovich, May 93'); WriteLN; end; var EBO_3EHKu, EBO_HOC, EBO_POT, EBO_XBOCT : ABTOMAT; KACEKOB : XMblPb; begin with KACEKOB do begin Hy_HuKAK_MHE_EBO_HE_HA3BATb; with EBO_3EHKu do begin BOT_EBOHOE_MECTO(1, 1); ETO_CTPOKA('- -', 20); ETO_CTPOKA('o o', 3); ETO_CTPOKA('O O', 16); ETO_CTPOKA('0 0', 23); ETO_CTPOKA('O O', 14); ETO_CTPOKA('o o', 5); end; u_EBO_TO3E(@EBO_3EHKu); with EBO_HOC do begin BOT_EBOHOE_MECTO(1, 2); ETO_CTPOKA(' .. ', 21); ETO_CTPOKA(' oo ', 16); end; u_EBO_TO3E(@EBO_HOC); with EBO_POT do begin BOT_EBOHOE_MECTO(1, 3); ETO_CTPOKA(' -- ', 22); ETO_CTPOKA(' == ', 4); ETO_CTPOKA('-==-', 6); ETO_CTPOKA('/--\\', 19); ETO_CTPOKA('----', 16); ETO_CTPOKA('\\==/', 21); ETO_CTPOKA('----', 3); end; u_EBO_TO3E(@EBO_POT); BAM_TEMHO; B_nyTb; BAM_XOPOWO; end; end. {***********************************************************} . Take it as it comes, SHQ -+- + Origin: the eternal decades (2:5030/31) ============================================================================= Dear All, Best wishes, Vova ^-^ edlin 2.42.G1218+ $ MolchiGin: SWAP drop, SPB, Russia (2:5030/119) --------------------------- Final Cut ------------------------- Dmitry --- * Origin: Silent Infinity Surrounds Your Mind (2:5020/32)
