Free your creativity - IOMBCC

Enlighted (6067)

15-02-2005, 21:42

I got yet another bad idea, so here it is: International Obfuscated MSX-BASIC Code Contest! Starting now, right here...

In short the idea is here: Take MSX-BASIC. Write the most Obscure/Obfuscated program as possible under the rules. Key phrase is: Try to be original.

Rules:

- Program must fit to 80*24 screen

- Code must be working when loaded from text file. (No binary patched BAS files)

- Bonus points are given to programs, that have also weird content.

- Any MSX (BASIC) version is allowed, please tell system requirements with the source.

- Minus points will be given, if program does not work from other than default address. (Typically &H8001)

- No X-BASIC or loaded/inserted BASIC extensions are allowed unless the program is one it self.

- You can send multiple entrys.

If you like the rules, please feel free to express yourself when ever you are ready. You can post the results to this forum thread. At the moment there is no schedule or voting system. This might change...

Stupid example:

1 DEFSTRI
2 YOU=NOT ME:ITEM="EXAMPLE CODE
3 IF YOU WANT YOU CAN THEN PRINT IT

By NYYRIKKI

Enlighted (6067)

16-02-2005, 01:26

Ok, first example was so bad, that I give you a new one:

1 ' Character zoom for IOMBCC 2005
2 ' Made By: NYYRIKKI
3 ON ERROR GOTO 5 OR 8
4 DEFINTA-Z:DEFFNN(N)=PEEK(N)+PEEK(N+1)*256:DEFUSR=ASC(">"):DEFFNF(N)=(1+((PEEK(AD)AND2^N)=0))*&O117:DEFSTRR:DEFFNC(N)=FNN(-1760)+N:GOTO6
5 K=K+1:X=ERR:RESUME NEXT
6 N=RK+K:KEYOFF:CLS:KEYK,"DEL to exit"
7 X=X+(K/N):REMOTE:RESUME NEXT
8 IFKMODXTHENKEYK,R:GOTO 7
9 IFADTHENAD=FNC(ASC(INPUT$(1))*8)+(AD>N)ELSEAD=K:GOTO11
10 FOR P=0TOERL:AD=AD-NOTE:FORI=0TOK-4:POKE-1882-I+P*16,FNF(I):NEXTI,P
11 LOCATE SEARCH,FIND AND DESTROY:KEY LIST
12 IF K=X=AD-FNC(2^(X-1))THENPRINTCHR$(USR(12));ELSE9

By snout

Ascended (15187)

16-02-2005, 01:28

this contest sound like Nyyrikki domain to me

By Vincent van Dam

Hero (513)

16-02-2005, 09:53

11 LOCATE SEARCH,FIND AND DESTROY:KEY LIST

Cool

By [D-Tail]

Ascended (8263)

16-02-2005, 11:00

X=X+(K/N):REMOTE:RESUME NEXT

What's the 'RESUME NEXT' doing here as they're preceded with REMote (remark sign)?

By [D-Tail]

Ascended (8263)

16-02-2005, 11:12

Very cool program, NYYRIKKI. And notice the increase on my respect-o-meter I didn't have a clue at first, how the program worked... It's SO great!

By NYYRIKKI

Enlighted (6067)

16-02-2005, 14:59

D-Tail: 90% of the stuff in there is in there just to make it as uncomfortable as possible to read.

There were few minor things in the source, that started to bother me, so here is ver 1.1:

1 ' Character zoom for IOMBCC 2005 ver 1.1
2 ' Made By: NYYRIKKI
3 ON ERROR GOTO 5 OR 8
4 DEFINTA-Z:DEFFNN(N)=PEEK(N)+PEEK(N+1)*256:DEFUSR=ASC(">"):DEFFNF(N)=(1+((PEEK(A)AND2^N)=0))*&O117:DEFSTRR:DEFFNC(N)=FNN(-1760)+N:GOTO6
5 K=K+1:X=ERR:RESUME NEXT
6 N=RK+K:KEYOFF:CLS:KEYK,"DEL to exit"
7 X=X+(K/N):REMOTE=RK:RESUME NEXT
8 IFKMODXTHENKEYK,RE:GOTO 7
9 IFATHENA=FNC(ASC(INPUT$(1))*8)+(A>N)ELSEA=K:GOTO11
10 FORP=NTOERL:A=A-NOTE:FORI=XXORKTOK-4:POKEP*16-1882-I,FNF(I):NEXTI,P
11 LOCATE SEARCH, FIND AND DESTROY: KEY LIST
12 IF K=X=A-FNC(2^(X-1))THENPRINTCHR$(USR(12));ELSE8

By DarQ

Paragon (1038)

16-02-2005, 18:22

cool... im coding something right now too.. although im not sure it will fit 80*24. It aint deliberatly obfuscated either, though my msx basic coding style is obfuscated..

what if i remove a few comments and don't tell what the code is about.. will it be worthy for this contest then? i don't think many will immediately know what its about if they only run it..

ah well, it's far from finished anyway.. it's tough mathematical matter which i don't yet understand completely.

EDIT
i checked your code... i like it

By snout

Ascended (15187)

16-02-2005, 18:28

Should we add a IOMBCC section to the MRC downloads database and host all BASIC listings posted here?

By DarQ

Paragon (1038)

16-02-2005, 18:35

only if you make one big .dsk with all lists...
if someone feels to post a source anyway...

i do, but i might not finish whatever im coding the next few days/weeks

tough matter, little time, cannot only code in freetime, codes more than basic... you know the drill

By jr

Champion (379)

17-02-2005, 13:54

What about this It's not exactly an original idea or THAT obfuscated, but I thought having some "code sculpturing" would be applicable to this arena... I forgot the original author of the algorithm (it was non-sculptured C code) but credits for the algorithm go to its original author It's not working 100% on MSX due to the accuracy of the floating point numbers I guess but it's good enough. The purpose of the program is to calculate the value of pi, and it should be able to go up to 800 digits. But like I said, it makes some errors on some of the digits and it's damn slow Anyway, it should fit nicely on a 80x24 text screen but note that most of the lines wrap and I've broken the lines here to make it look like it does on the MSX screen when you type it in... if the formatting stays correct, that is...

1           DEFINTA                -C,F-G:                DEFDBLD
         -E:A=   10^4:          C=28*   100::          DIMF(   C+1):
        FOR         B=0        TOC         :F(        B)=         A/5
2      NEXT          B::      REM           7*A      MOD           SQR
3     D=0             :G=    C*2             :IF    G=0            THEN
     END              ELSE  B=C               'OR  AND               NOT
4    D=D               +F(  B)*               A:G  =G-               1:F
     (B)               =D-  G *               INT  (D/               G):
    :D=                 INT(D/                 G):G=G                 -1:
5   B=B                 -1:IFB                 THEND=                 D*B
    :::                 GOTO4:                 REM<>5                 SIN
6   E=E                 +D/A::                 IF C =                 28*
    100                 THEN::                 :PRINT                STR$
     (E/               1000 );:               GOTO 8:'               LOG
7    :::               PRINTMID$              ((( STR$               (((
     (E-               INT  (E)               )))  *A)               )),
      2);             :::    REM             XOR    127             OUT
8      C=C           -14      :E=           D -      A *           INT
        (D/         A):        GOTO        3'G        RUN         END
         (XXX)   (XXX)          (XXX)   (XXX)          (XXX)   (XXX)
9           'PIcalc                'by'jr'                /IOMBCC