Programa ananeosis thlekarton.......?

[BeCool]

re paidia kserei kaneis kanena programa pou na doulebei me olous tous typous programatistes??

ean kserei kaneis kana programa as me enimerosei PLEASE.....!!! <img border="0" title="" alt="[Confused]" src="images/icons/confused.gif" />

[HdkiLLeR]

Pare ena se Pascal <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">

program PhoneCard;

uses Crt;

const

LPT=$378; {Base addres of LPT}

del=1; {Delay }

(*

LPT:

CN

Clk - data 0 2

Reset - data 1 3

I/O - SLCTD 13

*)

procedure Clk(v:byte);

(*

Clk(1) - Set CLK to High (1)

Clk(0) - Set CLK to Low (0)

*)

var

tmp:byte;

begin

tmp:=Port[LPT];

if v=0 then tmp:=tmp and $FE else tmp:=tmp or 1;

Port[LPT]:=tmp;

end;

procedure Reset(v:byte);

(*

Reset(1) - Set Reset to High (1)

Reset(0) - Set Reset to Low (0)

*)

var

tmp:byte;

begin

tmp:=Port[LPT];

if v=0 then tmp:=tmp and $FD else tmp:=tmp or 2;

Port[LPT]:=tmp;

end;

function GetData:Byte;

var

tmp:Byte;

begin

tmp:=Port[LPT+1];

if tmp=120 then GetData:=1 else GetData:=0;

end;

procedure SetData(v:byte);

var

tmp:byte;

begin

tmp:=Port[LPT];

if v=0 then tmp:=tmp and $FB else tmp:=tmp or 4;

Port[LPT]:=tmp;

end;

var

arr:array[0..1024] of byte;

idx:word;

f:text;

begin

assign(f,'con');

rewrite(f);

idx:=0;

textmode(Font8x8 or CO80);

clrscr;

Clk(0);Reset(0);delay(del);

Reset(1);delay(del);

Clk(1);delay(del);Clk(0);delay(del);Reset(0);delay(del);

repeat

begin

if (idx mod 8)=0 then write(f,#13#10+'Byte ',(idx div 8):2,' :') else

if (idx mod 4)=0 then write(f,' ');

Clk(1);

delay(del);

arr[idx]:=GetData;

Clk(0);

delay(del);

write(f,arr[idx]);

inc(idx);

end;

until idx=1024;

while keypressed do readkey;

writeln(#13#10'Press any key to exit ...');readkey;

close(f);

end.

[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">

[fetas]

DEN TO LES POIO APLA?TI THA TO KANO AUTO?

[adamk]

Φίλε BeCool δες το e-mail σου

[wOOzY]

Φίλε Amdak,αν δεν σε ενοχλούσε μπορείς να μου το στείλεις και εμένα;

[SpY]

File HdkiLLeR an den sou kanei kopo mporeis na to steileis kai se emena

 

tnx prokatavolika.

[kostasdirt9]

Signomi alla tha mporouse kapios na to steilei kai se mena? thanks!!

[christos44]

Ισως γίνεται αστείο, αλλά θα παρακαλούσα να το πάρω κι'εγώ. Ευχαριστώ!!! <img border="0" title="" alt="[Eek!]" src="images/icons/shocked.gif" />

[HdkiLLeR]

Loipon mages esteila se osous mou to zitisan ena proxeiro sxediagramma,ena gif gia to ISO chip,to prog se Pascal kai mia Html me polla infoz gia tis tilekartes genikotera

[christos44]

Φίλε έλαβα ενα αδειο ZIP. Επανέλαβε σε παρακαλώ την αποστολή. ΕΥΧΑΡΙΣΤΩ <img border="0" title="" alt="[Frown]" src="images/icons/frown.gif" />

[HdkiLLeR]

Egeine kapoia m@l@k1a se opoion den to exw stilei swsta as mou pei na tou to xanasteilw <img border="0" title="" alt="[Wink]" src="images/icons/wink.gif" />

[SpY]

kai emena to arxeio itna 0kb plz xsanasteilto HdkiLLeR

[Eagle_IIz]

mporo na to exo kai ego!!!!!!!!!

[wOOzY]

Φίλε HdKiller και εγώ άδειο Zip πήρα...

[HdkiLLeR]

To xanaesteila se osoun mou eipan tora ean pali den exei erthei swsta den ftaiw egw(Hotmail...suckz) pete na sas to steilw apo allo acount.