nonsense

>> Matrix


[MÖÖÖÖÖZ]

>> Der Quelltext und das Programm

program der_echte_millionaer;

{ (C) Amadeus Erlemann (AmA@famicom.org)
Leif Weispfennig (p@super-fami.com)
[Retro-Projekt] }

uses crt,dos;

var
geld:integer;
mem:integer;
pass:string;
username:string;
disk:integer;


begin
clrscr;
mem:=0;
delay(2000);
TextColor(7);
writeln('RP System 1.33');
sound(720);
delay(50);
nosound;
delay(500);
writeln('(C) 1997-2002 RP System Works Inc.');
writeln;
repeat

inc(mem);
gotoxy(1,4);
delay(10);
write('Memorytest: ',mem);
until mem=512;
DiskSize(1);
delay(600);
clrscr;
writeln('Checking Disk-Drives');
delay(700);
writeln('found: A - FDD Floppy 1,44" - MEMOREX_FD');
delay(700);
writeln('found: D - CDROM/ATAPI at IDE HOST - PLEXTOR_PD7200');
delay(749);
writeln('found: E - CDROM/ATAPI at IDE HOST - YAMAHA_ZH32X');
delay(200);
writeln('found boot-partition: C - HDD/DISCDRIVE at IDE HOST - SAMSUNG80_SD');
DiskSize(3);
delay(150);
write('Booting up the partition');
delay(1000);
write('.');
delay(900);
write('.');
delay(800);
write('.');
delay(700);
write('.');
delay(800);
write('.');
delay(700);
write('.');
delay(800);
clrscr;
writeln('RP-OPERATING SYSTEM 1.2');
writeln('-----------------------');
write('KERNEL CHECK');
write('.');
delay(900);
write('.');
delay(800);
write('.');
delay(700);
write('.');
delay(400);
textcolor(green);
writeln('OK');
textcolor(7);
delay(600);
write('DEVICE CHECK');
write('.');
delay(900);
write('.');
delay(800);
write('.');
delay(700);
write('.');
delay(400);
textcolor(green);
writeln('OK');
textcolor(7);
delay(600);
clrscr;



write('Enter user-name: ');
read(username);
write('Enter password for: ',username,'@root: ');
Disk:=DiskFree(1);
if (disk=******) then
begin
delay(500);
textcolor(green);
writeln('Access allowed!');
delay(700);
textcolor(7);
writeln('Now connecting to local.matrix');
write('.');
delay(900);
write('.');
delay(800);
write('.');
delay(700);
write('.');
delay(400);
clrscr;
writeln('Danger! You are entering the matrix');
writeln('Press Enter-Key to continue');
readln;
readln;
clrscr;
repeat
{Sound(220);
Delay(5);
NoSound;}
Textcolor(Green);
geld:=random(2);
write(geld);
Textcolor(Lightgreen);
geld:=random(2);
write(geld);
until Keypressed;
NormVideo;
end
else
begin
clrscr;
Textcolor(Red);
writeln('Security-Disk Error');
writeln;
NormVideo;
writeln('Press Enter-Key to continue');
readln;
readln;
exit;
end
end.