PROGRAM PW;


VAR I,Y              : BYTE;
    LOGON,CODE       : STRING;

BEGIN
  i:=0;
  WRITELN;
  WRITELN ("CN04 % CONNECTED WITH $DIALOG,4/1;IND-C KS$37.175 WB$37.67");
  WRITE ("CN05 % JMS0150 WORKSTATION O-SYSTEM 2.04 A2000 HD  `PW2.7`");
  WRITE   (chr($9b),"34;44m");

  REPEAT
    GOTOXY (60,5);
    READLN  (LOGON);
    IF (LOGON)=("d") THEN i:=5
  UNTIL   (i)=(5);

  WRITE (chr($9b),"31;44m");
  WRITE ("CN06 % OK, WELCOME SIR");
  WRITE (chr($9b),"34;44m");

  REPEAT
    GOTOXY (60,6);
    READLN  (CODE);
  UNTIL   (CODE)=("852");

  WRITE (chr($9b),"31;44m");
  WRITELN ("CN07 % CONNECTED");
END.