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 high-quality Brainfuck. Here's an equivalent Brainfuck program (the Esolang wiki's public-domain 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.