Free your creativity - IOMBCC
this contest sound like Nyyrikki domain to me 
11 LOCATE SEARCH,FIND AND DESTROY:KEY LIST
Cool
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! 
I didn't have a clue at first, how the program worked... It's SO great!
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:
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
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
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
Should we add a IOMBCC section to the MRC downloads database and host all BASIC listings posted here?
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...
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
By NYYRIKKI
Prophet (2220)
15-02-2005, 21:42