home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
library
/
dos
/
vi_si_on
/
majic.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-06-23
|
2KB
|
70 lines
program majic;
uses dos,crt,gentypes,gensubs;
var u:userrec;
f:file of userrec;
udrat,udkrat,pcrat,i:integer;
s:string;
begin
clrscr;
textcolor(15);
writeln('Majic Wonders by The ViSiON Team');
textcolor(7);
writeln;
writeln('This program will go through your user log and set each users');
writeln('Upload/Download Ratios, PCR Ratios, and U/D K ratios to what you');
writeln('Want, but FIRST, we need to ask a few questions... So lets begin:');
writeln;
write('What Upload/Download Ratio do you want:');
readln(s);
if s='' then s:='0';
udrat:=valu(s);
write('What Upload/Download K Ratio do you want:');
readln(s);
if s='' then s:='0';
udkrat:=valu(s);
write('What PCR Do you want:');
readln(s);
if s='' then s:='0';
pcrat:=valu(s);
clrscr;
writeln('Ok, this is what we have:');
textcolor(15);
writeln;
write('Upload/Download Ratio :');
textcolor(14);writeln(udrat);
textcolor(15);
write('Upload/Download K Ratio :');
textcolor(14);writeln(udkrat);
textcolor(15);
write('Post/Call Ratio :');
textcolor(14);
writeln(pcrat);
writeln;
textcolor(7);
write('Press [Return]: to continue:');
readln;
clrscr;
writeln('Processing....');
assign(f,'USERS');
i:=0;
reset(f);
while not eof(f) do begin
seek(f,i);
read(f,u);
u.udratio:=udrat;
u.udkratio:=udkrat;
u.pcratio:=pcrat;
textcolor(11);
writeln(u.handle);
seek(f,i);
write(f,u);
inc(i);
end;
close(f);
textcolor(15);
writeln;
writeln(i,' users converted!');
end.