{ (c) 1998 CREEQ <creeq@web.de> }
program code;
uses Crt;
var pass : string;
    x    : integer;
label 1,2,3;
begin
  x := 0;
  repeat
    x := x+1;
    clrscr;
    textcolor(lightred);
    writeln('                                ACHTUNG !!!');
    writeln;
    textcolor(white);
    writeln('                           CODE wird ben”tigt !!!');
    writeln;
    writeln;
    write('CODE (Turbo):  ');
    textcolor(black);
    readln(pass);
    if Pass = 'Turbo' then goto 1 else goto 2;
    1:textcolor(white);
    writeln;
    writeln('Das von Ihnen eingegebene Passwort ist RICHTIG !!!');
    delay(1000);
    goto 3;
    2:textcolor(white);
    writeln;
    writeln('Das von Ihnen eingegebene Passwort ist FALSCH !!!');
    repeat;
    until false;
  until false;
  3:
end.