program teleinfo;
//teleinfo_SMG_190113.tsc
// voir Telefinfo_log_trame_hexadecimal.jpg
// space et checksum deja inclus dans la chaine ascii
var datum: string;
var version1:  string;

var i: integer;
var k: integer;
var str: string;
var checksum : char ;
//
begin
  datum:='05 janv 2019';
  version1:='teleinfo_SMG_190113.tsc';
  writeln('Teleinfo SMG : envoi trame typique');
  writeln('Date: ' + datum);
  writeln('avec IINST Amps evoluant de 0 à 9');
  writeln('*');

begin
  i:=0;
  while (i<10) do
   begin
	// checksum pour 000 => 87 
     checksum :=chr(i+87);
     str:= 'IINST 00' + chr(i+48) + chr(32) + checksum;
	ComSendChr(2);	//STX
	ComSendChr(10); // LF
    	ComSendStr('ADCO 050222059498 E');ComSendChr(13);
        ComSendChr(10);ComSendStr('OPTARIF BASE 0');ComSendChr(13);
	ComSendChr(10);ComSendStr('ISOUSC 60 <');ComSendChr(13);
	ComSendChr(10);ComSendStr('BASE  053285000');ComSendChr(13);
	ComSendChr(10);ComSendStr('PTEC TH.. $');ComSendChr(13);
	//ComSendChr(10);ComSendStr('IINST 003 Z');ComSendChr(13);
        ComSendChr(10);ComSendStr(str);ComSendChr(13);
 	ComSendChr(10);ComSendStr('IMAX 017 G');ComSendChr(13);
        ComSendChr(10);ComSendStr('PAPP 00600 Q');ComSendChr(13);
	ComSendChr(10);ComSendStr('MOTDETAT 000000 B');ComSendChr(13);
      ComSendChr(3);
     i:= i+1;
   if (i>9) then  i:=1;
  Delay(120);
 end;
end;
end.

//ADCO 050222059498 E
//OPTARIF BASE 0
//ISOUSC 60 <
//BASE 049517379 8
//PTEC TH.. $
//IINST 003 Z
//IMAX 017 G
//PAPP 00600 '
//MOTDETAT 000000 B
//