Free your creativity - IOMBCC

Page 2/29
1 | | 3 | 4 | 5 | 6 | 7

By snout

Ascended (15184)

snout's picture

17-02-2005, 14:07

w000t! Smile

By [D-Tail]

Ascended (8258)

[D-Tail]'s picture

17-02-2005, 14:12

O_o.O Tongue

By Alex Ganzeveld

Expert (89)

Alex Ganzeveld's picture

17-02-2005, 14:28

Great!

By NYYRIKKI

Enlighted (5918)

NYYRIKKI's picture

17-02-2005, 14:29

Wow, this is cool! I have not seen such nice code sculpturing on BASIC before. Smile Way to go: Finland 2-0 Tongue

It is definately good idea to put these to downloads, if more of these start to appear.

By DarQ

Paragon (1038)

DarQ's picture

17-02-2005, 14:40

hahahaha!! that's a good laugh Smile

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

By viejo_archivero

Paragon (1395)

viejo_archivero's picture

17-02-2005, 14:43

impressive!

By jr

Champion (377)

jr's picture

17-02-2005, 15:49

Found the bug... Now it calcs correctly. Also, reduced the size of the code a bit in the process Tongue 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 Wink Should I upload the bas file?

By jr

Champion (377)

jr's picture

17-02-2005, 19:46

if you don't have the patience to wait for the processing, here's what it looks like when it's all done:
personal.inet.fi/private/riihimaki/end.png

By Manuel

Ascended (18732)

Manuel's picture

17-02-2005, 21:29

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.

By Grauw

Ascended (10565)

Grauw's picture

17-02-2005, 22:46

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

Page 2/29
1 | | 3 | 4 | 5 | 6 | 7