Ok, last Friday I already told you, what I was working on, so I think, that it is time to get my "monster" out of closet. It is not best (or actually worst) possible program, but it should keep D-tail, DarQ and all you other BASIC freaks busy for a while.

Name: Sourcered Forces

System requiremets: MSX

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.

Are you ready?

Here it is:

10 '3LR2n+RtOMo6HU98tn16F2w8ZjiLXMJsB51oF5gTnAHmOA-DUgz2HcldV10qF5gT7LRmA9IJ
20 '4xjGEDJKHxTEE1EnjEJtB51oVbQnYlItB1xNyBWLXMJ6kjj6uDzu4+kHbWW+h1PvHVzwVbA
30 SCREEN0,,0:KEYOFF:WIDTH40:U=-189:PRINT"Please wait, generating thoughts...":P
OKEU,201:DEFFNA(N)=PEEK(N)+PEEK(N+1)*256:T$="+-":POKEU+1,V:READE:FORI=0TO61
40 T$=T$+CHR$(48+I-(I>35)*6-(I>9)*7):NEXT:POKE &HFBB1,1:M=&HD000:A=FNA(&HF676)+6
:DEFUSR=17+RND(-TIME):POKEU+2,208:FORO=NOT0TO0:POKEO-3142,PEEK(O-2441):NEXT
50 A=A+1:P=PEEK(A):D=INSTR(T$,CHR$(P))-1:IFD=>0THENPOKEM,(DAND(4^C-1))*4^(4-C)+B
:B=D\4^C:M=M-(C>0):C=(C+1)AND3:GOTO50ELSEIFP=0ANDPEEK(A+6)=143THENA=A+7:GOTO50
60 POKEU,195:SYS65:PRINTCHR$(12);CHR$(10);CHR$(49);STRING$(7,39):PRINT"GOTO80"
70 PRINTCHR$(11);:KEYBUFSTRING$(2,13):END'     --== Sourcered Forces 1.0 ==--
80 POKEBASE(3)+2,2:FORI=7TO9:POKEBASE(3)+I,8:NEXT
90 X=PEEK(-3174)-1:POKE-3174,X:IFX>0THENIFX>ETHENFORI=10TO12:POKEBASE(3)+I,32:NE
XT:PRINTCHR$(27);"Y!#";STRING$(28,39):GOTO70ELSE70ELSEREADD:KEYBUF"RENUM10,110"+
CHR$(13)+"RUN"+CHR$(13):P=ATN(1)/32'            Made By: NYYRIKKI 2005
100 FOR I=0 TO 255:POKE &HD100+I,SIN(P*I)*D+128:NEXTI:DELETE 10-100
110 DEFINTA-Z:DEFFNP(U,S)=PEEK(53504!+(R(U*2)+(S*R(U*2+1)\32)AND255)):DIML(15)
120 READJ:FORB=ETOJ:READL(B):NEXT:B=BXOR26:POKE&HF3B1,26:CLS
130 C=B:U=E:GOSUB150:SYS &H44:ONINTERVAL=60GOSUB150:INTERVALON:FORI=0TO5:R(I)=RN
D(1)*200+55:NEXT:FORU=0TOJ:U1=FNP(E,U):FORC=BTO35:Z=((U1+FNP(1,C)+FNP(2,C+U))AND
15):POKEBASE(3)+C+U*&H25,L(Z):NEXTC,U:INTERVALOFF:GOSUB150:DATA15,32,32,58,45
140 IFINKEY$=""THENSYS&O101:KEYBUF CHR$(11)+"GOTO30"+CHR$(13):PRINTCHR$(27);"Y& 
":LIST2ELSECLS:POKE-3151,24:END:DATA43,61,112,42,35,42,113,61,43,45,58,32
150 PRINTCHR$(11);INT((C+U*26-B)/.442)/B;CHR$(8);"%    ":RETURN: FOR IOMBCC

Wow, this is really cool!

Ah, where have them days gone... Those days when you had to write these listings out of a magazine, and after you hit [Return], you would get a checksum to see whether you 'done it alright

Subtle hint, btw

I can only say: AWESOME.

Nyyrikki... you are insane!

(take that one as a compliment, please ;P)

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

Quote:

Ah, where have them days gone... Those days when you had to write these listings out of a magazine, and after you hit [Return], you would get a checksum to see whether you 'done it alright

Who needs that with the "Type" feature of openMSX Catapult?

Manuel, for your relief: in a few days (maybe even tomorrow), I'll get my PC upgrade set complete: an Intel Pentium 4 2.4GHz w/ 1MB Cache and all, and some MBs RAM. Motherboard's already here. Rest assured, I will commence playing openMSX as soon as I can

Meanwhile, I'll just have to do with NLMSX... Which is quiet good too, even for low-spec computers (like my Pentium III 600 ).

Snout: Thanx, it feels good to see, someone understands this kind of art as well.

Manuel: Isn't it just easyer to copy/paste the stuff into text file and use BASIC LOAD command?

Comments from the author after returning from trance:

80*24 screen is suprisingly big space to fill and at least I was bit surprised to see how much code you can squeese into it. It was also a bit surprise, how much time you can put to make one little BASIC program as you always seem to find another twisted way to make things wrong. Maybe the size limit is even too large(?) What you think, is it still interesting to read such a big programs?

Now that I read the source again, I think that line 50 is propably the most lovely one. It is the decoder part, that writes KEYBUF and SYS command support code to memory. Back in time when people really wrote listings from magazines this routine could have had more than just entertaining value. It can get double amount of information out of fixed size data when compared to traditional hex number system. At a same time the line is pain in the a** to read and pretty optimal in size.

Now a little question for you: Is Finland only place in earth, where there are twisted enough people to make something like these entrys?

no, we have scary freaks here in NL as well

Some of them do shit like this with Moonsounds...

(and didn't you do an 'analyzer scroller' once in RMF Music Disk 1?)

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 )

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 ;-)

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

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?

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)