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