Autor
| Small Basic code.
| [D-Tail]
msx guru
Mensajes: 2994 |  Publicado: Junio 15 2004, 13:48 | But BiFi, that is mixed ASM! I did the trick in pure BASIC! Don't you think that deserves some credit?  | | BiFi
msx guru
Mensajes: 3142 | Publicado: Junio 15 2004, 14:24 | Sure, but you don't know what it does until you try it... | | [D-Tail]
msx guru
Mensajes: 2994 | Publicado: Junio 15 2004, 14:56 | I guess so... I'm not an opcode guru | | wolf_
msx legend
Mensajes: 4663 | Publicado: Junio 15 2004, 15:17 | 1 COLOR15,0,0:SCREEN 7:DEFINTA-Z:LINE(0,0)-(511,211),9,BF:COLOR=(8,7,7,7):FORT=0TO7:COLOR=(T,T,T,T):FOR X=0 TO 63:FORY=0TO211:C=T:C=C-((RND(1)*63)<X):PSET(T*64+X,Y),C:NEXTY:NEXTX:NEXTT:A$=INPUT$(1)
erhm.. make sure you do these 3 things:
- run an emu at 1000% orso
- get some coffee
- have additional patience 
I hope it all works btw.. it did, but I used notepad to make a oneliner out of the multiple lines.. | | MagMar
msx friend
Mensajes: 7 | Publicado: Junio 15 2004, 16:27 | Quote:
| This one is fun too:
10 MC$="":FORI=0TO54:READA$:MC$=MC$+CHR$(VAL("&H"+A$)):NEXTI
:DEFUSR=PEEK(VARPTR(MC$)+1)+256*PEEK(VARPTR(MC$)+2):DUMY=USR
(0)
20 DATA 3A,2D,00,B7,C8,3D,28,08,CD,7A,01,CB,BF,CD,7D,01,AF,D
3,99,3E,97,D3,99,21,02,00,3A,F8,FA,F5,CD,0C,00,5F,F1,23,D5,C
D,0C,00,D1,57,D5,DD,E1,CD,5F,01,DD,21,85,01,C3,5F,01
I wanted to make it a one-liner but it turned out too long for that... Ahwell...
|
HI bifi.
It seem that it can be done in one line like this.
5 X$="3A2D00B7C83D2808CD7A01CBBFCD7D01AFD3993E97D3992102003AF8FAF5CD0C005FF123D5CD0C00D157D5DDE1CD5F01DD218501C35F01":
MC$="":
FORI=0TO54:
MC$=MC$+CHR$(VAL("&H"+MID$(X$,I*2+1,2))):
NEXTI:
DEFUSR=PEEK(VARPTR(MC$)+1)+256*PEEK(VARPTR(MC$)+2):
DUMY=USR(0)
I splitted it up so it could be vieuwed easier.
| | BiFi
msx guru
Mensajes: 3142 | Publicado: Junio 15 2004, 17:04 | Hmm... Bug in MRC? a code fragment can't be quoted? Weird... Anyway. I could've done it that way indeed. This piece of code wasn't made recently though. Thanks for this solution. I guess you have seen what it does, right?
I hope you enjoy the result.
btw... This thread is going way to wide! | | NYYRIKKI
msx master
Mensajes: 1503 | Publicado: Junio 27 2004, 17:36 | Bifi: You are not trying hard enough... I fixed your code a bit more and now it fits to one line and also works correctly on MSX1 computers (Yes, before you ask, on Gradiente as well)
1 KEYOFF:X$="3A2D00B7201021E17C1100D0D5013300EDB0EB36C9C93D2808CD7A01CBBFCD7D01AFD3993E97D3992102003AF8FAF5CD0C005FF123D5CD0C00D157D5DDE1CD5F01DD218501C35F01":FORI=0TO72:POKE&HC000+I,VAL("&H"+MID$(X$,I*2+1,2)):NEXTI:DEFUSR=&HC000:D$=USR(""):SCREEN0
| | Yukio
msx professional
Mensajes: 778 | Publicado: Septiembre 17 2005, 05:28 |
1 KEYOFF:SCREEN0:WIDTH40:FORT%=0TO255:COL=INT(RND(1)*40):ROW=INT(RND(1)*24):LOCATE COL,ROW:PRINT"*";:NEXT
| |
| |
| |
