Free your creativity - IOMBCC

Página 1/29
| 2 | 3 | 4 | 5 | 6

Por NYYRIKKI

Enlighted (5889)

Imagen del NYYRIKKI

15-02-2005, 21:42

I got yet another bad idea, so here it is: International Obfuscated MSX-BASIC Code Contest! Tongue 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. Tongue

- 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

Login sesión o register para postear comentarios

Por NYYRIKKI

Enlighted (5889)

Imagen del NYYRIKKI

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

Por snout

Ascended (15184)

Imagen del snout

16-02-2005, 01:28

this contest sound like Nyyrikki domain to me Wink

Por Vincent van Dam

Hero (513)

Imagen del Vincent van Dam

16-02-2005, 09:53

11 LOCATE SEARCH,FIND AND DESTROY:KEY LIST

Cool Smile

Por [D-Tail]

Ascended (8254)

Imagen del [D-Tail]

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)?

Por [D-Tail]

Ascended (8254)

Imagen del [D-Tail]

16-02-2005, 11:12

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

Por NYYRIKKI

Enlighted (5889)

Imagen del NYYRIKKI

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

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

Por DarQ

Paragon (1038)

Imagen del DarQ

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 Smile

Por snout

Ascended (15184)

Imagen del snout

16-02-2005, 18:28

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

Por DarQ

Paragon (1038)

Imagen del DarQ

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

Por jr

Champion (375)

Imagen del jr

17-02-2005, 13:54

What about this Smile 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 Smile 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 Smile 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

Página 1/29
| 2 | 3 | 4 | 5 | 6