Thanks Dany !
Also I found in the description MIKROPASCAL VER 7.01 == TRUE (all ones) or FALSE (zero)

Hi ! Interesting BUT not working true <> 0 false = 0; The while statement does not work correctly in some cases. Example program test; var aa:boolean; begin aa:=%10000000; while NOT aa do; end. aa <> 0 means aa=true, ( NOT aa ) means = false. BUT the while loop runs forever. what to do?? Привет ! Ин...

Dear.
You have a license = LICENSE CODE. Allowed for two computers. I put LICENSE CODE at home and in the office. Going on vacation for 3 weeks. What will happen if I put it on a third computer - a notebook? thank

Hi There are many simple solutions. I will show one of them. I hope for a correction Thank you/ program yy; Type ImPP = string [5]; Var i:byte; st:ImPP; const Im: array [1..5] Of ImPP = ('SSSSS','WWWWW','RRRRR','FFFFF','HHHHH'); Function cs(vx:byte):ImPP; Var w:byte; Begin cs:=''; For w:=0 to 5 Do c...

IDE MikroPascal PRO for AVR version 7.0.1 Atmega328P The program does not work correctly if the index is variable. That's right, if the index is constant. program yy; Type ImPP = string [5]; Var i:byte; st:ImPP; const Im: array [1..5] Of ImPP = ('SSSSS','WWWWW','RRRRR','FFFFF','HHHHH'); begin { This...