Syntax check

[nancylebov]

10 HEADDESK
20 GOTO 10
30 END


This is a potential button slogan, but is the syntax right? Should it be GO TO?

Comments

[batwrangler.livejournal.com]

IANA computer programmer, but since that's a go to loop that can't ever reach 30, do you need to include the end command line?

[chatworthy.livejournal.com]

HEADDESK? As in "Bash your head on the desk?"

The GOTO 10 is spelled correctly for most BASICs.
Line 30 will never get executed, but it's kinda cute.

[nancylebov.livejournal.com]

The last line makes it look more like a program. It also, imho, adds a sense of despair.

[laughing-fox.livejournal.com]

y'all are definately not programmers - The fact that the head never stops banging on the desk *IS* the punchline! As anyone trying to debug a script knows all too well ;)

[dcseain.livejournal.com]

t also, imho, adds a sense of despair.

I concur.

[autopope.livejournal.com]

Hmm.

Howsabout:

#!/bin/perl

use Despair;
use Self qw(in service of fuckwits);

my $angst = Despair->new();
my $head = new Self;

while ($angst->complete()) {
$head->desk();
}

die;

[cellio]

Cute, but harder to fit on a button.

The original is correct for BASIC as best I recall. As others have said, the last line will never be reached and I think that adds to it.

[bibliotrope.livejournal.com]

I miss Basic.

OTOH, I love userpics.

[dominicflandry.livejournal.com]

Looks right to me, (and finally I get to use my "work"icon).

[mneme]

That's too c-like and objecty; not idiomatically perl at all. It could be python or ruby, and wouldn't change much at all.

Try:

PROBLEM: {
$head->bang_onto($desk);
0 or redo PROBLEM
}

Or more simply

HEADDESK:
goto HEADESK;
exit 0

[mneme]

It's fine, though most versons of BASIC have labels, and the numbers as optional instead of manditory.

[dcseain.livejournal.com]

the numbers as optional instead of manditory.

Yeah, today they're optional, but without linenumbers, it's not really BASIC, now is it?

[nancylebov.livejournal.com]

That's very poetic. It's a shame if it's not perl-like enough. Can you get "dies" in any other language?

[jducoeur]

Dear lord -- that userpic is brilliant...