PROGRAM second;
(* Program to demonstrate variable *)
(* constants translation.          *)

TYPE Skill = (Novice, Moderate, Expert);

CONST (* String constant with control characters *)
      Greeting = 'Hello there'^G^G;
      My_Name : STRING[20] = 'Turbo Translator';
      Version : INTEGER = 1;
      Sub_Version : INTEGER = 0;
      Programming_Skill : ARRAY[Skill] OF STRING[30] =
                     ('New to Modula-2','Familiar','Real Pro');

VAR Answer, I : INTEGER;
    Your_Name : STRING[30];
    Skill_Index : Skill;

BEGIN
    WRITELN(Greeting,' I am the ',My_Name); WRITELN;
    WRITELN('This is version ',Version,'.',Sub_Version);
    WRITELN; WRITE('What is your name? ');
    READLN(Your_Name); WRITELN;
    WRITELN('Hello ',Your_Name,', are you ');
    WRITELN;
    I := 1;
    FOR Skill_Index := Novice TO Expert DO BEGIN
        WRITELN(I,')',Programming_Skill[Skill_Index]);
        I := I + 1;
    END;
    REPEAT
        WRITELN;
        WRITE('Select by number ');
        READLN(Answer);
    UNTIL (Answer > 0) AND (Answer < 4);
    WRITELN; WRITELN;
    WRITE('Very good ',Your_Name,'.');
    IF Answer < 3 THEN WRITELN(' I hope you become a real pro!')
                  ELSE WRITELN(' It is so nice to meet a pro!');
    WRITELN; WRITELN;
END.