" " ... Subj: " " ... -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - X-RealName: Ignatov U & , , , ! " " , , - -, , . , 32 . . 22-23/1994 : : + ( ? ) ! ! . : . . ....... 2 . . . . ... 6 . . , , ...... 12 . . ( " ") 20 . . !....... 21 . . . " "... 26 . . , ..... 27 . . ?...... 30 . . ! ( . . " ")...... 32 _________________________________ - . - - art. qwerty - . -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - " " , , - . , -, (). ? -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - " " ! --------------------------------------------------------------------- . ( ) . : - ... - ... - ... - ... - ... . . . . . , . , . . - , ? - , . . , . 8- -- . 1. . : - , ... : - , - . 2. . . : - , , , . 3. . . - ? - , - , ! 4. - : - , , , . - ? - . ____________________________________________________________________ , . ! , . - ... 12 . ... , , , . . : - ", ! , , ! . - ? " : - "! ! " - ", ! " . , . : - ? - ! - ? - "" ""! - ? - ... - - ? - , ... * Subj: ============================================================================= MM> , " MM> ! " MM> : MM> ", ! ! " , , - . , , - , , : ( ): " , ! " ( ): "-, , ! " ; -) ============================================================================= 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, ============================================================================= : ... (-, -, -) . . (-, -, -) . . ... ... ... , . : . - ! ! - ! - , ? : "-" . ? " " - "" . - , ! . ? ? , ... : " , ? " . . : - , , : - , - . ! - . ! - ( ) . . [} > - , >. , , , >, , > . . > , . . - . , . , XT. , : ? - ? - . P. S. ... * Subj: -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - Hallo, ALL! -, . - - , , ( : ) . , TT> - ; ) () TT> ; ) ? - !; ) - NC , , , - - - - , , - - , (, ), - ; ) - , . squish. cfg, , badwazoo no carrier , , You are clever, I am idiot, Carrier lost, connect 300 baud, Zoom ZyXEL , , , , , CM , , . . , , fidonet. . , , , . imho , " ". - by the way - RTFM , , . , , . , " " - . , -, , , , , , , , , fidonet , , : " - ! " Igor ; ) ; ) . -! - , , ! ! " !!!! " , ? ; - " - , " or ? " " . " . " ... " Reset - .... . ( ) . . - . , , : " C H $ 5 0 0" ( ~50) : " H ??? " -- . : " -=8-[] H - ??? " ML> , , - . , : , , : - . Sincerely, Vadim Tkachenko PS: : -) Hello All! ..... . : - , ; - , ; - . , , , , . , . , , - . , , . , . - - . , . , , . , , , , . , , , , , - , . , . , , , . , . , - , , . - . I , . , ? RU. KSP. TEXTS , , . Boris - , . - : . - , , -: , ! - ? . ! - , ? - ! . : , ? . , , . . , , . - , , - , - ! ( : " ! " ) - , , - , - ! ( - . ) - , , - , - ! : - ! , . -, . . , : , . . , : . "" . , : , . -16 . , . . : : - ! , , . , , . - . - . - . - . , , . : , , !.. , , : - ? ... . . . : , , / , . , , , - . , , , . , . , , . , , . , . : , , . , , , . , ( ). . , . : ! . , : . , : . - , : . : ! : 17. 000. 000 . : - . - - . 35. 000. 000 , , , . 5. 000. 000. 000 - , . N% 9. 845. 321 , , , , , N% 12. 328. 506 N% 3. 235. 472 N% 9. 845. 321 , , , , . . : , . , . . . . . , . . , "" . . , . - , - . - ? - . - ! - . - , - . - : , - . - : , - . : - ! - . - ! - , . , , , : " - 3 ". : . . . . . : . . 600 / . . - : - - , - , - , - , , - . , . , , - . . . : - . : - - . : - - , - , , . , - , : . , : " ". - , , - : , . . : . , . 6 - 1 1990 - : - ? - ... - ! . ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : - ? - ? ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Subj: -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - X-RealName: Dmitry A. Kolganov . - : - ! ( ) - ? - ... - ? - , ... - ? - , ... - . . - , , - , , "...! ", , "...! ". , , , . - , , ! . : ? - , , - . - , . " ? " - , - ". - . " - , , "...! ", , "...! " . , , , -. - ? - . - , - . - , ? - . - , - . - , ? - . - , - . - ? - . - , ? - . - , - . - , - , . , , , . - , , ! - , - . : ? - , - . - , - , . - , - . - , - . - , - . - , - . - , - . - , - . - , - . - , - . - , - . - , - , , , - . - ! !.. . . , , . , ? [Wednesday June 29 1994] Nicolas Rodionov  Dmitry Sbruev: DS>> , ?; -) DS>> : ? NR> , . . : "- , . 100% ". , , , . - , , /..... - . y ( ). p : " , . y . . - , . . - y , . - - y . "; ))) - . . . ( ) 3- . - 1- . - 3- . , - ( - ). .....; ) - .....; )) - , ....; ))) . : " - 12 , - 14, - 16, - 17 , - 21... " - ! ! . - : - , . : - , ?? - Hy ? - . : - - , - , - ... - y ? - --... y ... : - , - , - , - , y - . - ??? - ! - y - , y - !!! . - . - . - ... - . , . . . .