_WELCOMETO Radioland

Top50  











.




.








.














> >

: 7/7

 

setcolor(0);

outtextxy(540,50,'___________');

 

setcolor(11);

str(visir_f:5:3,s);

outtextxy(540,50,s+' GHz');

 

setwritemode(COPYput);

Result;

 

end;

'.': begin

an2;

setwritemode(XORput);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

visir_4:=visir_4+1;

line(visir_4,ygmin,visir_4,ygmax);

visir_f1:=(visir_4-xgmin)*(xmax- xmin)/(xgmax-xgmin);

 

setcolor(0);

outtextxy(540,60,'___________');

 

setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');

 

setwritemode(COPYput);

Result;

 

end;

'0': begin

an2;

setwritemode(XORput);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

visir_4:=visir_4-1;

line(visir_4,ygmin,visir_4,ygmax);

visir_f1:=(visir_4-xgmin)*(xmax- xmin)/(xgmax-xgmin);

 

setcolor(0);

outtextxy(540,60,'___________');

 

setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');

 

setwritemode(COPYput);

Result;

 

end;

' ':begin

goto 2;

end;

end;

until (c='q');

end. { -= EOF =- }

 

.

 

[1] : P=10 , I=270 , R=3-20 ., L=1.7 ., U=8.5 ., f=13 .

[2] : U=30 ., I=10 ., U=2.5 ., I/=0.02/0.2 ., f=350 .



Copyright © Radioland. .
: 2004-09-01 (961 )