Paid by the Line

DIM ARRAY(9999)
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
WHILE (ARRAY(MEMP) <> 0)
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP  1
PRINT CHR$(ARRAY(MEMP));
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
WHILE (ARRAY(MEMP) <> 0)
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
WHILE (ARRAY(MEMP) <> 0)
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
WHILE (ARRAY(MEMP) <> 0)
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP  1
PRINT CHR$(ARRAY(MEMP));
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
WHILE (ARRAY(MEMP) <> 0)
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP)  1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
ARRAY(MEMP) = ARRAY(MEMP)  1
PRINT CHR$(ARRAY(MEMP));
WHILE (ARRAY(MEMP) <> 0)
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
WHILE (ARRAY(MEMP) <> 0)
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
MEMP = MEMP + 1
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
MEMP = MEMP  1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
WHILE (ARRAY(MEMP) <> 0)
ARRAY(MEMP) = ARRAY(MEMP)  1
WEND
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
ARRAY(MEMP) = ARRAY(MEMP) + 1
PRINT CHR$(ARRAY(MEMP));
ARRAY(MEMP) = ASC(INPUT$(1))Worst. Code. Ever.

what does it do?

What does it.... do?

Ack!
My
eyes!
The
goggles
do
nothing!

Did someone decompile an executable to BASIC or what ... ?
Anyway (checks calendar) it's 2008 ...
WEND already

I just ran it. It prints "Hello world!" and then waits for a keystroke. I think it is rather wonderful.

I actually know what's happened here. This is clearly code compiled from Brainfuck (http://esolangs.org/wiki/Brainfuck). The Brainfuck source would have been pretty sane for Brainfuck, but the compiler has done absolutely no optimisation at all, which is the real WTF
Brainfuck only has 8 commands, and it should be obvious what they've all been compiled to, so you should be able to reconstruct the original easily enough.


I've done the decompilation:
>+++++++++[<++++++++>]<.>+++++++[<++++>]<+.+++++++..+++.[]>++++++++[<++++>]<.>+++++++++++[<++++++++>]<..+++...[]>++++++++[<++++>]<+.[]++++++++++.,
That isn't actually particularly highquality Brainfuck. Here's an equivalent Brainfuck program (the Esolang wiki's publicdomain Hello, world!, with a comma at the end to make it wait for a character):
>+++++++++[<++++++++>]<.>+++++++[<++++>]<+.+++++++..+++.>>>++++++++[<++++>]<.>>>++++++++++[<+++++++++>]<.<<<<.+++...>>+.,
That's considerably shorter, because it isn't wasting CPU cycles and code length by clobbering its own constants. It does use slightly more memory, though.

@Soviut said:
@rc_pinchey said:
Ack!
My
eyes!
The
goggles
do
nothing!
Least funny quote besides "m'kay".
You are wrong.
Best quote ever.