hahahaha!! that's a good laugh

EDIT!
BAH!! openmsx-catapult can't seem to type the source into the emulator.. getting syntax errors in certain lines..

impressive!

Found the bug... Now it calcs correctly. Also, reduced the size of the code a bit in the process Now it doesn't show the place of the decimal point though but I suppose everyone here knows where it belongs...

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
     :::               GOTO 4::               REM  <>5               SIN
6    :E=               INT  (E+               D/A  )::             PRINT
      MID$            (((    STR$            (E)    )),             2);
7      C=C           -14      :E=           D -      A *           INT
        (D/         A):        GOTO        3'G        RUN         END
         (XXX)   (XXX)          (XXX)   (XXX)          (XXX)   (XXX)
8           'PIcalc                'by'jr'                /IOMBCC

Yeah it's a pain in the ass to type it in Should I upload the bas file?

if you don't have the patience to wait for the processing, here's what it looks like when it's all done:

Quote:

BAH!! openmsx-catapult can't seem to type the source into the emulator.. getting syntax errors in certain lines..

That's because it contains End-Of-Line characters after each line. If the program would have one basic line per text line, it would work... So, you'll have to paste it a bit carefully to enter it with the help of Catapult.

Impressive! Though I’m missing a comma there right after the first ‘3’ ...

Quote:

Now it doesn't show the place of the decimal point though but I suppose everyone here knows where it belongs...

quoted especially for grauw

I like the idea nice listings

Totally sick duuuude

@manuel:
ok, but how about using turbo-r emulation? most characters will go wrong because of its weird keymap.

DarQ: yes, use the IPS patch to let it have a European keyboard when openMSX 0.5.1 comes out

Of course we should fix this once for real.

Looking for: Japanese PC-keyboards!

For the few that are not aware of the C variant (which started in 1984) of this contest, the website (www.ioccc.org) of the IOCCC contains a lot of inspiring code. It's C, but that doesn't mean some of the concepts can't be applied to MSX Basic.

Usually first program to write on any language is "Hello World"... Here is my version for MSX-BASIC

1 DEFSTRO:O="Obkkh'Phukc&":POKE-189,&HEE:KA=KA+1TOLEN(O):XCHR$(ASC(MID$(O,A,-NOTE))XOR7);:J:Q-&O275,201

did I tell you're all scary?

I must agree, that I have currently exceeded a bit even my own expectations of writing MSX-BASIC all wrong!

... but scary? Heck, this is not even close to scary yet! Other fraction of my mind is currently working with entry, that is capable of expanding it's command set, self modifying and progressive evolveing. I hope, it will finish it's job next week.

At first stage the code will start expanding the BASIC command set to be able to take over the development, then it will start adding and deleting parts of it's source untill it gains the final basic stucture. After that it starts to modify and run it self in a loop without clear preprogrammed pattern, so after this point you will not be able to know when it was started or how many generations it has "lived".

The current version has already tools to modify it self and basic understanding of it's structure, at the moment it anyway has also pretty bad self destruction habits, that slow down the development. Anyway, back to the topic... I think, that when it is released, it might be a bit scary.