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.



  • @rc_pinchey said:

    Ack!

    My

    eyes!

    The

    goggles

    do

    nothing!

     

    Least funny quote besides "m'kay".



  • 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. 


Log in to reply
 

Looks like your connection to What the Daily WTF? was lost, please wait while we try to reconnect.