Free your creativity - IOMBCC

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

Por snout

Ascended (15187)

Imagen del snout

17-02-2005, 14:07

w000t! Smile

Por [D-Tail]

Ascended (8259)

Imagen del [D-Tail]

17-02-2005, 14:12

O_o.O Tongue

Por Alex Ganzeveld

Expert (89)

Imagen del Alex Ganzeveld

17-02-2005, 14:28

Great!

Por NYYRIKKI

Enlighted (5943)

Imagen del NYYRIKKI

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.

Por DarQ

Paragon (1038)

Imagen del DarQ

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

Por viejo_archivero

Paragon (1395)

Imagen del viejo_archivero

17-02-2005, 14:43

impressive!

Por jr

Champion (377)

Imagen del jr

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?

Por jr

Champion (377)

Imagen del jr

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

Por Manuel

Ascended (18944)

Imagen del Manuel

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.

Por Grauw

Ascended (10619)

Imagen del Grauw

17-02-2005, 22:46

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

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