Astrobe Forum

Hi, as noticed in Oberon07.Report.pdf: 'The case expression must be of type INTEGER, and all labels must be non-negative integers.' ok, so far so good, but here is my code and problem: PROCEDURE SetOrientation( ort: INTEGER ); VAR lcdOrientation, lcdWidth, lcdHeight: INTEGER; BEGIN CASE ort OF 0: lc...