Taken from another forum, thought some were fairly funny
Ada
After correctly packing your foot, you attempt to concurrently load
the gun, pull the trigger, scream, and shoot yourself in the foot.
When you try, however, you discover you can't because your foot is of
the wrong type.
APL
You shoot yourself in the foot, then spend all day figuring out how to
do it in fewer characters.
Access
You try to point the gun at your foot, but it shoots holes in all your
Borland distribution diskettes instead.
ActiveX
Ole_Registration_Error: Cannot find object "ActiveFoot",download the
latest drivers.
Assembler
You try to shoot yourself in the foot, only to discover you must first
invent the gun, the bullet, the trigger, and your foot.
Basic(interpreted)
You shoot yourself in the foot with a water pistol until your foot is
waterlogged and rots off.
Basic(compiled)
You shoot yourself in the foot with a BB using a SCUD missile
launcher.
Visual Basic
You'll really only appear to have shot yourself in the foot, but
you'll
have had so much fun doing it that you won't care.
C
You shoot yourself in the foot.
C++
You accidentally create a dozen instances of yourself and shoot them
all
in the foot. Providing emergency medical care is impossible since you
can't tell which are bitwise copies and which are just pointing at
others and saying, "That's me over there."
Cobol
USE HANDGUN.COLT(45), AIM AT LEG.FOOT, THEN WITH ARM.HAND.FINGER ON
HANDGUN.COLT(TRIGGER) PERFORM.SQUEEZE RETURN HANDGUN.COLT(45) TO
HIP.HOLSTER.
Concurrent Euclid
You shoot yourself in somebody else's foot.
dBase
You buy a gun. Bullets are only available from another company and are
promised to work so you buy them. Then you find out that the next
version of the gun is the one that is scheduled to actually shoot
bullets.
Delphi
MyFoot := TFoot.Create( Self );
Gun := TGun.Create( .45, SOFT_NOSED_BULLETS, 6 );
Gun.Aim( Self.MyFoot);
while Gun.BulletsAvailable do
Gun.Shoot( Self.MyFoot );
FORTH
Foot in yourself shoot.
FORTRAN
You shoot yourself in each toe, iteratively, until you run out of
toes, then you read in the next foot and repeat. If you run out of
bullets, you continue anyway because you have no exception handling
ability.
HTML
Shoot here
HyperTalk
Put the first bullet of the gun into the foot left of leg of you.
Answer
the result.
Java
The gun fires just fine, but your foot can't figure out what the
bullets
are and ignores them.
LISP
You shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds...
Microsoft
>ActiveX Object "Foot" not found.
>"Foot" will possibly be included in the next release.
>You can upgrade for $500.
>Press OK to Retry or Esc to cancel.
Modula2
After realizing that you can't actually accomplish anything in this
language, you shoot yourself in the head.
Motif
You spend days writing a UIL description of your foot, the trajectory,
the bullet, and the intricate scrollwork on the ivory handles of the
gun. When you finally get around to pulling the trigger, the gun jams.
NeXT
We don't sell guns anymore, just ammunition.
Paradox
Not only can you shoot yourself in your foot, your users can, too.
Pascal
The compiler won't let you shoot yourself in the foot.
Perl
1. You go to CPAN and download Geek, Body::Foot, Gadgets:Gun and
Accesories::Bullet modules.
2. Then:
#!/usr/bin/perl -w
use strict;
use Geek;
use Body::Foot;
use Gadgets::Gun;
use Accesories::Bullet;
my $me = Geek->getBorn($ENV{'USER'});
my $foot = $me->{parts}->{feet}->[0];
die "No feet (maybe both were cut off?), stopped"
unless defined $foot;
my $gun = ($me->{money} >= Gadgets:Gun:rice ? Gadgets:Gun->buy() :
Gadgets:Gun->steal);
my @bullets = map { Accesories::Bullet->new() } (0..5);
$gun->load(\@bullets);
while ($gun->{bullets})
{
$gun->shoot($foot);
last if $foot->shot();
}
print "Looser!\n" unless $foot->shot();
PL/1
After consuming all system resources including bullets, the data
processing department doubles its size, acquires 2 new mainframes and
drops the original on your foot.
Prolog
You tell your program that you want to be shot in the foot. The
program figures out how to do it, but the syntax doesn't permit it to
explain it to you.
Smalltalk, Actor, et al
After playing with the graphics for 3 weeks, the programming manager
shoots you in the head.
SNOBOL
If you succeed, shoot yourself in the left foot. If you fail, shoot
yourself in the right foot.
Sun
Just as soon as Solaris gets here, you can shoot yourself anywhere you
want.
Unix
% ls
foot.c foot.h foot.o toe.c toe.o
% rm * .o
rm: .o: No such file or directory
% ls
%
XBase
Shooting yourself is no problem. If you want to shoot yourself in the
foot, you'll have to use Clipper.