{ 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긠! Khaz긠 ai-m늧u! '#13#10); Secti(#9#9'읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴'#13#10); IF Je <> MaByt Then Halt; {"a" testuje zda nebyla tabulka zmenena(rucne v nejakem editoru)} End.