Autor
| Free your creativity - IOMBCC
|
wolf_
msx legend
Mensajes: 4559 |  Publicado: Marzo 09 2005, 23:31 |
no, we have scary freaks here in NL as well  |
|
snout
msx legend
Mensajes: 4991 | Publicado: Marzo 09 2005, 23:34 |
Some of them do shit like this with Moonsounds...
(and didn't you do an 'analyzer scroller' once in RMF Music Disk 1?)
|
|
NYYRIKKI
msx master
Mensajes: 1474 | Publicado: Marzo 10 2005, 09:11 |
I just found a fraction of very old BASIC program written by Paul something (very nerd looking guy), but I just don't get it:
1969 LET IT=BE:LET IT=BE:LET IT=BE:LET IT=BE:WHISPER=WORDS OF WISDOM:LET IT=BE
(No this is not an entry, just fits here perfectly ) |
|
manuel
msx guru
Mensajes: 3307 | Publicado: Marzo 10 2005, 09:43 |
D-Tail: um, I think openMSX should run pretty well on a PIII 600. Just don't use the more CPU intensive stuff like hq2x scalers etc. The performance tips section of the manual gives enough ideas to normally use it on such systems, I think. (16bpp is an important one...)
NYYRIKKI: yes, that's also possible, but it's more work ;-)
|
|
mth
msx freak
Mensajes: 189 | Publicado: Marzo 12 2005, 05:21 |
Name: Tri
System: MSX2
5 O=42!
13 XXX=OXOR11ORO
21 SCREENSQR(O):'MtH2005
29 LINE(&O377,O)-STEP(X^X,X^XXX)
37 COPY(XXXORX,O)-(456,O)TO(X,XX+O),,XOR
45 O=X+O:X=XXORXX:IFO<13^2GOTO37ELSEI$=INPUT$(1)
I hope you enjoy this little graphical treat. Long-time MSX mailinglist subscribers may recognise the image, but not the code 
|
|
BiFi
msx guru
Mensajes: 3142 | Publicado: Marzo 12 2005, 12:44 |
Quote:
| Quote:
| DISCLAIMER: This program contains minute electrical particles moving at velocities in excess of five hundred million miles per hour. The subatomic particles of this program are exactly the same in every measurable respect as those used in programs of other coders, and no claim to the contrary is expressed or implied. This is a 100% matter program made of 100% recycled electrons. In the unlikely event that this program should contact antimatter in any form, a catastophic explosion will result. The entire physical universe, including this program, may one day collapse back into an infinitesimally small space. Should another universe subsequently re-emerge, the existence of this program in that universe cannot be guaranteed. According to the Grand Unified Theory, the primary particles constituting this program may decay to nothingness within the next four hundred million years. No software testers were abused in the production of this program. Any similarity to real persons, living or dead, is purely coincidental. If rash, irritation, redness, or swelling develops, discontinue use. Some assembly required. Contents may settle during shipment. May be too intense for some viewers. No batteries included. Freshest if eaten before date on carton. Not recommended for children.
|
ROFLMAO 
|
Has your A returned already? |
|
NYYRIKKI
msx master
Mensajes: 1474 | Publicado: Marzo 12 2005, 20:33 |
Quote:
| I hope you enjoy this little graphical treat. Long-time MSX mailinglist subscribers may recognise the image, but not the code
|
Yup, it's the Sierpinski triangle. You must be refering the MSX-BASIC oneliner contest back in 1998? I remember, that you sent a version of this triangle to that compo as well... After that I also ported this code to BrainFuck ( esoteric.sange.fi/brainfuck/bf-source/prog/triangle.bf)
|
|
AuroraMSX
msx master
Mensajes: 1216 | Publicado: Marzo 14 2005, 10:47 |
Quote:
| Has your A returned already?
|
/me checks hind...
Yup. Everything in place
Thanx for your concern |
|
dvik
msx master
Mensajes: 1299 | Publicado: Marzo 15 2005, 06:47 |
Name: Worm
System: MSX1
1 SCREEN1:KEYOFF:FORW=0TO9:COLOR5,1,1:S=-10:LOCATE8,11:PRINT"'s' to start":W=0
2 M=32:D=736:IFINKEY$<>"s"THENNEXTELSECLS:F=6176:V=4096:H=6480:T=H-V:FORX=0TOD
3 VPOKEX+F,7:X=X+15*(X-30AND30AND31<XANDX<D-M):NEXT:FORZ=ATOM:S=S+10:FORC=ATOH
4 L=F+RND(1)*D:IFVPEEK(L)<>MTHENNEXTELSEFORK=ATOM: W=3AND(W+(J$="z")-(J$="x"))
5 R=R-(S>R):LOCATE1,0:VPOKEL,215: U=(2+62*(WAND1))*((W>1)+.5):Z=0:VPOKEH-V,U+M
6 PRINT"SCORE:"S,"HIGH:"R: H=H+U: O=VPEEK(H):VPOKEH,9:IFO<>MANDO<>215THENNEXTW
7 J$=INKEY$:K=0:IFO=215THENNEXTZELSEVPOKET+V,M: T=T+VPEEK(T)-M:VPOKEV*2,6:NEXT
I made a little old school game. Its been a while (like 15 years) since I wrote an MSX Basic program so I hope it is readable.
To run it press 's' to start and 'z' and 'x' to control the thing. Enjoy |
|
dvik
msx master
Mensajes: 1299 | Publicado: Marzo 15 2005, 10:32 |
And a little one liner (although I don't really think it qualifies for one since it is quite long....) Its pretty obvious what it does maybe...
0 DEFINTA-Z:A=1:FORX=0TO0STEP0:A=A+2:B=-1:C=B:D=A:FORT=OTO0STEP0:IFD=0THENIF(C-B)=2THENPRINTA:NEXTXELSENEXTXELSEIFD>0THENC=C+2:D=D-C:NEXTELSEB=B+2:D=D+B:NEXT
|
|
dvik
msx master
Mensajes: 1299 | Publicado: Marzo 16 2005, 01:18 |
I made a more entertaining version of the prime number generator. This one is a lot slower but more interesting. It doesn't contain any branches except a goto (anyone have any ideas on how to get rid of this one. I tried run but that clears the variables?). It does however use multiplications which the other one didn't.
Since I just posted a similar entry I guess this one can be left outside IOMBCC but I wanted to show you it since it looks pretty fun. So once again, enjoy
1 A=A-2*(D=0)-(A=0):B=(D=0)-(D<>0)*B:C=(D=0)-(D<>0)*C:D=D-A*(D=0):C=C-2*(D>0):B=B-2*(D<0):D=D+C*(D>0)-B*(D<0):PRINTCHR$(-30*(D<>0OR(C-B)<>2))A:GOTO1
|
|
Grauw
msx professional
Mensajes: 1002 | Publicado: Marzo 16 2005, 18:19 |
Great entries! ^_^ I’ve enjoyed them!
|
|
dvik
msx master
Mensajes: 1299 | Publicado: Marzo 16 2005, 18:25 |
Kindof. I used that in the first prime number version but its not very obfuscated (and the goto isn't either). I was thinking if there is a way to restart the program (some kind of jump) without clearing the variables.
Btw, a bit more obscure infinite for loop is (all numbers are zero):
FOR I=0 TO 0 STEP 0: NEXT
Hey Grauw, Were did your last post go?
|
|
dvik
msx master
Mensajes: 1299 | Publicado: Marzo 16 2005, 22:33 |
Snout, I actually like the new one liner better, so if you don't mind I'd like to change the prime number entry to this one instead (I just moved the print statement to the beginning):
1 PRINTCHR$(-30*(D<>0OR(C-B)<>2))A:A=A-2*(D=0)-(A=0):B=(D=0)-(D<>0)*B:C=(D=0)-(D<>0)*C:D=D-A*(D=0):C=C-2*(D>0):B=B-2*(D<0):D=D+C*(D>0)-B*(D<0):GOTO1
|
|
snout
msx legend
Mensajes: 4991 | Publicado: Marzo 16 2005, 22:35 |
I'll add it as an extra entry, as I find the other one to be quite interesting as well |
|
|
|
|
