Free your creativity - IOMBCC

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

By Manuel

Ascended (18732)

Manuel's picture

25-02-2005, 21:35

NYYRIKKI: you rule...

_o_

By NYYRIKKI

Enlighted (5918)

NYYRIKKI's picture

25-02-2005, 21:57

Snout:

I think yes... I was trying to show that even a very short program can be totally unreadable. Tongue

BTW If you like, I don't mind at all, if you make this MRC offical competition. If we give people for example this year to make their programs, I think, that no one is privileged. I started same time I suggested this idea and I think, that this can be great fun. The point is, that you can participate with very little effort! If you like, you can also exclude my entrys from the offical results as I made the rules.

By poke-1,170

Paragon (1768)

poke-1,170's picture

25-02-2005, 22:02

hehehe it seems like a lot of fun though Smile comepletely undecipherable code and seemingly puposeless programs... one day,when AI is advanced enough,it will swap all existing programs one by one into these scary little programs...

STARTING IN FINLAND !!!!

By poke-1,170

Paragon (1768)

poke-1,170's picture

26-02-2005, 03:35

basically Nyyrikki you have no idea what you're doing... the future of the world is in your hands and you're playing with it as if it's a cheap toy !
PERKELE !!!

By NYYRIKKI

Enlighted (5918)

NYYRIKKI's picture

26-02-2005, 10:16

There is escape sequence, that should be impossible for the program to take over, but even if that fails, you always have power switch, so don't worry about world domination Tongue

PERKELE !!!

Yup, the same guy, seen my mail address? Tongue

By AuroraMSX

Paragon (1902)

AuroraMSX's picture

28-02-2005, 10:33

don't worry about world domination Tongue

Why do I suddenly feel this urge to (re)play Day of the Tentacle? ;)

By NYYRIKKI

Enlighted (5918)

NYYRIKKI's picture

08-03-2005, 17:53

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

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

By Manuel

Ascended (18732)

Manuel's picture

08-03-2005, 19:49

Wow, this is really cool! Smile

By [D-Tail]

Ascended (8258)

[D-Tail]'s picture

08-03-2005, 23:25

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 Wink

Subtle hint, btw Wink

By snout

Ascended (15184)

snout's picture

08-03-2005, 23:32

I can only say: AWESOME.

Nyyrikki... you are insane! Smile

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

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