home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
CNBSRC.ZIP
/
ANSIMONY.INC
next >
Wrap
Text File
|
1996-01-12
|
6KB
|
133 lines
Procedure ANSI4MONEY;
begin
xline[1] := ' ';
xline[2] := ' -= I Can''t Do It So No One Should =- ';
xline[3] := ' ';
xline[4] := ' I''d like to address those pinheads who sit around on IRC ';
xline[5] := ' complaining and criticising those individuals who sell and buy';
xline[6] := ' ansis. They''d like you to believe that they''re of the pious ';
xline[7] := ' sort that have high virtues and morals. They say selling ansis';
xline[8] := ' is "stupid" or "dumb" and the people that buy them are "stupid"';
xline[9] := ' or "lame" or "dumb" as well. My OH my, such big words from a ';
xline[10] := ' bunch of teenagers. I''m thoroughly impressed. ';
xline[11] := ' ';
xline[12] := ' I personally think that buying a Nissan (whatever the make or ';
xline[13] := ' model) is stupid, but that won''t stop the world from buying ';
xline[14] := ' them, will it? No. If making money doing something you enjoy ';
xline[15] := ' is dumb, then fucking call me the dumbest mutherfucker alive, ';
xline[16] := ' please. The arguement goes, you can''t make a living selling ';
xline[17] := ' ansis; but you can''t make a living sitting on IRC spewing your ';
xline[18] := ' worthless opinions either. You can''t make a living mowing your';
xline[19] := ' neighbor''s lawn or running a lemonade stand or a million other ';
xline[20] := ' trivial endeavors that people indulge themselves in, but they ';
xline[21] := ' do it anyways, sometimes just for the fun of it and sometimes ';
xline[22] := ' for the extra cash that it brings in. I bet all those morons ';
xline[23] := ' spending all their free time putting people down who can sell ';
xline[24] := ' ansis or buy them would be better off dead, because I find it ';
xline[25] := ' astounding that they have nothing better to contribute to the ';
xline[26] := ' world than a mouth full of shit and a brain full of narrow ';
xline[27] := ' fucking ideas. ';
xline[28] := ' ';
xline[29] := ' The world revolves around art, even ansi art (though to a ';
xline[30] := ' lesser degree). Everything we see is art. Art is the product ';
xline[31] := ' of someone''s imagination, and if they happen to sell it then ';
xline[32] := ' more power to them. Without art, even the simplest form of it,';
xline[33] := ' the world would be a visual dumpsite. So be grateful for every';
xline[34] := ' little piece of art, no matter how it got here or what it looks';
xline[35] := ' like, that we have in the world, for it makes this pathetic ';
xline[36] := ' mudball of a planet, infested with overopinionated and fantasti-';
xline[37] := ' cally misinformed and misguided cocksuckers, a much nicer place ';
xline[38] := ' to live on. ';
xline[39] := ' ';
xline[40] := ' Of course, maybe if all those negative fucks that say selling ';
xline[41] := ' and buying ansis is stupid could draw then they wouldn''t be so ';
xline[42] := ' down on those of us who can. Don''t tell me that if someone ';
xline[43] := ' waved a $20--or even a $10--bill in your face to doodle for them';
xline[44] := ' that you wouldn''t take it, you''d be a lying sack of shit if you ';
xline[45] := ' did. And if you must be so headstrong as to say that you''d ';
xline[46] := ' NEVER buy an ansi then fine; but the fact is that your retarded ';
xline[47] := ' BBS or Web Page will always look like it was decorated by an ';
xline[48] := ' 8-year-old. Your loss. ';
xline[49] := ' ';
xline[50] := ' Stone the Crow ';
xend := 50;
{Read selected text}
textbackground(0);
textcolor(9);
clrscr;
T_HDRimg{Display the text header ansi};
window(4,5,76,21);
gotoxy(1,1);
xch := ' ';
for x := 1 to 16 do
writeln(xline[x]);
while (xch <> (#13)) and (xch <> (#27)) do begin
xch := ' ';
xch := readkey;
case xch of
(#80) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#72) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#81) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#73) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#77) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#75) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
end;
end;
window(1,1,80,25){Return screen to normal size};
end;