|
var
f:real;
mm:array[0..7]of byte absolute f;
port_init(0,207);
writeln(' “ЊЊЂ =');
sport(0,84); { T }
delay(100);
sport(0,48); /* 0 */
delay(100);
sport(0,70);/* F */
for i:=0 to 7 do mm[i]=rport(0);
delay(1000);
for i:=1 to 4 do write ('<',mm[i,'>']);
writeln(f:0:2) ;
end.
E-mail: info@telesys.ru