(HP50g) HpPascal and contrast of the screen

[Gilles59]

(10-28-2017 12:00 PM)DavidM Wrote:  

(10-28-2017 11:53 AM)Gilles59 Wrote:  That' perfect, it works. Thank you David !

You're welcome Gilles! Using GetContrast, you should now be able to validate the Contraste procedure. Does it successfully set contrast values >15? If not, you may want to have your own version of that routine as well.

Hummmm, No... Value >15 give a very low contrast ... It looks to works fine only with values between 10-15. Perhaps a difference between the 49-50g and 48 ? Or a problem with the initial Contrast program wich don't works fine ?

Code:

Program Test;

Uses CrtHPmini_49,SysHP;
Var i,c,ci : Byte;
    k : Char;

Begin
 ci:=GetContrast; c:=ci;
 For i:=1 To 10 Do WriteLn('ABCDEFGHIKLMNO');
 Write('Contrast F1- F2+ F3 to exit');
 Repeat 
  k:=ReadKey;
  If k='A' And c>0  Then c:=c-1;
  If k='B' And c<20 Then c:=c+1;
  Contraste(c); GOTOXY(1,11); Write(c); Write('  ');
 Until k='C';
 Contraste    (ci);
End.