Измерительно-вычислительные комплексы (канал общего пользования). Петросьянц В.В. - 147 стр.

         {строка программирования вольтметра}
   Str_Vol:string=#$14#$21#$00#$46#$32#$42#$36#$44#$30#$45#$00#$41#$00;
         {строка программирования генератора}
   Str_Gen:string=#$14#$22#$00#$47#$46#$20#$20#$44#$00;
         {адреса портов}
         Port_A=$300;
         Port_B=$301;
         Port_C=$302;
         Port_M=$303;
         {системные константы}
         CRY1=$80;
         CRY2=$40;
         CRY3=$00;
         Type
   Tp_l=Array[1..13] of String[30];
   Tp_2=Array[1..9] of String[30];
   CL =Array[1..14] of Integer;
Var
    Corp:C; {массив измеренных значений сопротивления}
    Gd,gm,i,Item,col,Yl :Integer;
    RR:real;
Done: Boolean;
Tmpl:T;
c,sim:Byte;
m:Char;
S,Sl,S_old:String;
state:Tp_l;
St:Tp_2;
Tmpr:T; {массив определенных значений температуры}
Function Rl(S:String;var R:Real):Boolean;
{преобразование формата данных}
var
C:Word;
begin
    S:=Copy(S,3,Length(S)-3);
    Val(S,RR,C);
    R1:=C=0;
end;
Procedure SOut(S:String;var Ch:Byte);
    {организация управления выводом}
var
     I,M:Byte;
begin
     Source_l;

                              146