program lcd_serial;
//  13-12-2022
// VBRAY : mettre -1 dans Send File 
var datum: string;
var version1:  string;
var i: integer;
var str: string;
//
//  datum:='17 oct 2021';
//  version1:='Cde_Serial_LCD.tsc';
//  writeln(' ');
begin
  i:=0;
 writeln('Reset');ComSendchr(13);ComSendchr(10);
 ComSendmacro('$7E$02$05$EF'); Delay(100);
 //ComSendchr(13);ComSendchr(10); 
 ComSendmacro('$7E$04$20$00$00$EF');  Delay(500);
 //ComSendchr(13);ComSendchr(10); 


 while i<4 do
  begin
  //StrCpy(str,'Test #x');
  //str[6]:=i+48;
  //writeln(str);//ComSendchr(13);ComSendchr(10);
  //Delay(500);
  writeln('Clear');
  ComSendmacro('$7E$04$20$00$00$EF');  Delay(100);
  ComSendchr(13);//ComSendchr(10);
  writeln('Couleur=Rouge');
  ComSendmacro('$7E$04$02$F8$01$EF');Delay(100);
  ComSendchr(13);  ComSendchr(10); 

  writeln('Print Hello');
  ComSendmacro('$7E$07$11$48$65$6C$6C$6F$EF'); Delay(100);
  ComSendchr(13);ComSendchr(10); 
  
  writeln('New Line ');
  ComSendmacro('$7E$02$10$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);

  writeln('Couleur=Jaune $FF$20 ');
  ComSendmacro('$7E$04$02$FF$20$EF');  Delay(100);
  ComSendchr(13);ComSendchr(10);

 writeln('New Line ');
  ComSendmacro('$7E$02$10$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);

  writeln('Paulfjujo ..10 chars!');
  ComSendmacro('$7E$0B$11$50$61$75$6C$46$6A$75$6A$6F$EF'); Delay(100);
  ComSendchr(13);ComSendchr(10);

  writeln('New Line ');
  ComSendmacro('$7E$02$10$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);


  writeln('Print 12345');
  ComSendmacro('$7E$07$11$31$32$33$34$35$EF'); Delay(100);
  ComSendchr(13);ComSendchr(10); 
  writeln('New Line ');
  ComSendmacro('$7E$02$10$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Couleur=Bleu Cyan  $07$FF ');
  ComSendmacro('$7E$04$02$07$FF$EF');  Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Print 6789z');
  ComSendmacro('$7E$07$11$36$37$38$39$7A$EF'); Delay(100);
  ComSendchr(13);ComSendchr(10); 

  writeln('Fast V x=120 y=0-> 240  Line Jaune');
  ComSendmacro('$7E$0A$22$00$A0$00$00$00$F0$F7$E0$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Fast H Line x->0-320 y=120 Cyan');
  ComSendmacro('$7E$0A$23$00$00$00$78$01$3F$07$FF$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Rectangle jaune');
  ComSendmacro('$7E$0C$25$00$10$00$10$01$00$00$80$FF$F8$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Cercle Rouge dia 100');
  ComSendmacro('$7E$0A$27$00$A0$00$78$00$64$F8$01$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Cercle blanc  dia 16');
  ComSendmacro('$7E$0A$27$00$A0$00$78$00$10$FF$FF$EF');Delay(100);
  ComSendchr(13);ComSendchr(10);


  writeln('Couleur=Vert  $07$E0 ');
  ComSendmacro('$7E$04$02$07$E0$EF');  Delay(100);
  ComSendchr(13);ComSendchr(10);
  writeln('Set cursor ');
  ComSendmacro('$7E$06$01$00$16$00$40$EF'); Delay(100);

  writeln('Print ABCDE at x=160,y=64');
  writeln('Set cursor ');
   ComSendmacro('$7E$06$01$00$A0$00$40$EF'); Delay(100)
  ComSendmacro('$7E$07$11$41$42$43$44$45$EF'); Delay(100);
  ComSendchr(13);ComSendchr(10); 

   writeln('Diagonale 0,0  320,240');
   ComSendmacro('$7E$0C$24$00$00$00$00$01$3F$00$EF$FF$FF$EF');
   Delay(100)
   ComSendchr(13);ComSendchr(10); 


   Delay(2000);
  i:=i+1;
  end;

  
end.