::slaps thinksnow with glove::
Suh, you have insulted mah honuh. Ah demand satisfaction.
Renderings at 10-paces?
D’oh! You have bested me, sir, as I cannot render worth a damn. Don’t suppose you’d settle for 3-view structural steel equipment stand design? Piping diagrams at dawn?
Then explain those flippin’ plot driver text files. And why in the name of Christ, would anyone ever want so many friggin’ dialog boxes open at once? I spend most of my Microstation time just moved those goddamned things around so I can see my work. And I’m usin’ a two-monitor system.
In my not so fucking humble opinion, you simply can’t beat AutoCAD’s command line. Of course, they’ve fucked up AutoCAD now, too with Release 2002. R14 was the last decent one.
Very well, thank you.
Yeah, in truth, I never cared for all the open windows, either. FWIW, I did like R14, too, but we were saddled with Bentley, so you work with what ya got. Something about inaccurate layering conversions or something…it’s been a while, but I blame the Brits, since they ran the show (until they closed the office, that is.)
Bah. Real designers use CATIA.
Amen. We just switched over to 2002 from R14. I want my R14 back! (Although I do like to be able to have multiple drawings open in one session.)
But I sure do. 
hehehe
May I recommend http://www.ioccc.org?
Your Beerness, that was simply … mindblowing. Huge. Complex. Your parenthesis keys must be worn to tiny little nubbins, barely able to perform their assigned duties.
Here’s mine!
#!/usr/bin/perl -w
use strict;
my $O0O = "I love freedom";
my $OO0 = "I love you!
";
my $nope = "untrue";
# Yeah, the program is patriotic and loving. Or is it?
unless (!($nope)){
if ($O0O =~ /^.\b/){
my $l1 = "Fuck";
if ($OO0 =~ /\b.$/){
my $I1 = "you";
my $O0O = $l1 . I1;
}
print $O0O;
What will it print?
Those variable names were meant to be difficult, not impossible. Read my code in Times New Roman or another typeface that makes clearer the distinction between uppercase Os and zeros and lowercase ls and ones.
(Neat fact: In Perl, variable names can’t start with numbers.)
God I have no life
I am cackling at the coding here and someone came up, looked at it and said “What the hell is so funny?”
Damn. I really should have used some text editor that checked for dumb stuff like leaving out curly brackets.
I really should have been sleeping at 5:30 AM, too, instead of writing really weird Perl.
Here’s my debugged code:
#!/usr/bin/perl -w
use strict;
my $l1;
my $I1;
my $O0O = "I love freedom";
my $OO0 = "I love you!
";
my $nope = "untrue";
# Yeah, the program is patriotic and loving. Or is it?
unless (!($nope)){
if ($O0O =~ /^.\b/){
$l1 = "Fuck";}
if ($OO0 =~ /\b.$/){
$I1 = "you";}
my $O0O = $l1 . I1;
}
print $O0O;
It functions as intended, so Perl freaks, set your scopes on it.
Let’s go back to the BASICs
10 LPRINT "I hate my boss."
20 GOTO 10
Monocracy:
What dialect of Basic are you using? First, I’ve never heard of LPRINT, and second, your program needs a third line: “30 END”, even though control is never passed there.
I used GW-BASIC back when I used Windows 3.1.1. I messed around with Q-Basic, but I’ve never gotten comfortable in it. And, of course, my TI-83 and my Casio both use their own idiomatic Basic dialects. I’ve never heard of LPRINT, and In GW-BASIC, and your code looks like GW-BASIC code, all programs need an END statment, even if it is superfluous.
Derleth:
Monocracy’s code runs fine as is under QBasic. The LPRINT is the line print command, it dumps output to the DOS print device instead of the screen. And QBasic seems to assume the END statement if it isn’t explicitly in the code.
Ugly
.data
msg:
.string "Fuck you!
"
len = . - msg
.text
.global _start
_start:
movl $len,%edx
movl $msg,%ecx
movl $1,%ebx
movl $4,%eax
int $0x80
movl $0,%ebx
movl $1,%eax
int $0x80