{ u_znacka.pas } { Unit pre program krychle.pas } { } { Author: } { Datum:02.02.2008 http://www.trsek.com } {$D-,E-,G+,I-,L-,N-,P+,Q-,R-,S-,T-,V-,Y- exe} Unit U_Znacka; {******************************** * Prida do vysledneho exe codu * * citelnou tabulku pod dosem. * ********************************} Interface Implementation Const MaByt=25509; Je:Word=0; Procedure Secti(S:String); Var a:Byte; Begin For a := 1 to Length(S) do Je := Je + Ord(S[a]); End; Begin {s := '123'; ...cokoliv... napr. s:= 'erza'; s := '123'; ulozi konstantu '123' jen jednou!!! pouzit mezery} {#9 Tabulator #13 Enter, Dalsi radek u Nortona pri cteni (F3) #13#10 Dalsi radek u Nortona pri cteni a zapisovani (F4) Spatne je #10#13 u F3 = 2 radky, u F4 zadny } Secti(#13#10); Secti(#9#9'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'#13#10); Secti(#9#9'³ GET OUT OF MY CODE, YOU SILLY MOTHERFUCKER! ³'#13#10); Secti(#9#9'³ Baruk Khazƒd! Khazƒd ai-mˆnu! ³'#13#10); Secti(#9#9'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'#13#10); IF Je <> MaByt Then Halt; {"a" testuje zda nebyla tabulka zmenena(rucne v nejakem editoru)} End.