Author
| Small Basic code.
| pitpan
msx master
Posts: 1390 |  Posted: June 10 2004, 23:38 | For MSX with cassette port, this one-liner is really interesting:
0 MOTOR:RUN
pseudo-random remote control switch! Lovely music! It is smoother than Moonsound!
| | Latok
msx master
Posts: 1734 | Posted: June 10 2004, 23:41 | Hehehehe.....I've heard this could in fact physically hurt your MSX  | | [D-Tail]
msx guru
Posts: 3020 | Posted: June 11 2004, 00:06 | Well, it's only the casette relay. Who's using that anyway, nowadays?!
And pitpan, remember this doesn't work on a MSX Turbo R and neither on a FS-A1WSX. Well, it works on your precious MSX1  | | Sonic_aka_T
msx guru
Posts: 2269 | Posted: June 11 2004, 00:38 | Quote:
| Well, it's only the casette relay. Who's using that anyway, nowadays?!
And pitpan, remember this doesn't work on a MSX Turbo R and neither on a FS-A1WSX. Well, it works on your precious MSX1
|
Only a casette relay?!?!?!  That's the most sophisticated piece of technology in an MSX1!!!  | | [D-Tail]
msx guru
Posts: 3020 | Posted: June 11 2004, 06:06 | Just be glad you won't hear the Z-80 or TMS9929A flickering
I think the whole lot could be kinda worse then... | | pitpan
msx master
Posts: 1390 | Posted: June 11 2004, 07:36 | Quote:
| Well, it's only the casette relay. Who's using that anyway, nowadays?!
And pitpan, remember this doesn't work on a MSX Turbo R and neither on a FS-A1WSX. Well, it works on your precious MSX1
|
Please read the first sentence of my post: this is for MSX WITH CASSETTE PORT. Of course, that excludes the Turbo-R models and A1-WSX MSX2+. Anyway, I think that I could be interesting to add real cassette support for this machines...
| | [D-Tail]
msx guru
Posts: 3020 | Posted: June 11 2004, 08:23 | Whoops, my bad Forgot to read that line.. | | Yukio
msx professional
Posts: 824 | Posted: June 13 2004, 00:14 | 10 N=INT(RND(-TIME)*10):PRINT"Guess a Number: ":INPUT GUESS:IF GUESS=N THEN PRINT"Ok, it is the correct Number!" ELSE PRINT"You are wrong!" | | [D-Tail]
msx guru
Posts: 3020 | Posted: June 13 2004, 22:19 | You can make that one shorter:
0 N=INT(RND(-TIME)*10):INPUT"Guess a number",M:IFM=NTHENPRINT"Ok, it is the correct number!"ELSEPRINT"You are wrong!"
| | Yukio
msx professional
Posts: 824 | Posted: June 14 2004, 23:47 |
Cool!
My old one-liner !
0 SCREEN8:FORT=0TO10:FORX=0TO255:LINE(X,0)-(X,211),X:NEXT:FORY=0TO211:LINE(0,Y)-(255,Y),Y:NEXTY,T
| | wolf_
msx legend
Posts: 4781 | Posted: June 15 2004, 00:44 | tried an oneliner.. too bad it didn't stay small
Nonetheless have fun, made it in blueMSX.
fullscreen animation.. but slowish
10 COLOR 15,0,0:SCREEN5:COLOR=(4,0,0,5):COLOR=(14,0,0,2):FORT=0TO3:SETPAGE0,T:CLS:FORX=TTO255STEP4:LINE(X,0)-(X,211),14:NEXTX:NEXTT
20 FOR T%=0 TO 1
30 SETPAGE P%,(P%+1)MOD4
40 F%=F%+1
50 X1%=SIN(F%/31)*70
60 Y1%=COS(F%/31)*70
70 X2%=SIN(F%/13)*30
80 Y2%=COS(F%/15)*20
90 X%=128+X1%+X2%:Y%=106+Y1%+Y2%
100 LINE(X%,Y%-2)-(X%,Y%+2),4
110 LINE(X%-2,Y%)-(X%+2,Y%),4
120 PSET(X%,Y%),15
130 P%=(P%+1)MOD4
140 T%=T%-1:NEXTT%
perhaps I try something again.. smaller... | | [D-Tail]
msx guru
Posts: 3020 | Posted: June 15 2004, 01:09 | Yukio, beware. This is my huge oneliner (for some reason I mustn's use line 0 but line 1 instead. Otherwise, 3 spaces will be added to the line  ). I split it into multiple lines, because if I do otherwise the MRC site's width would be too big
1 IFWTHENFORI=1TO15:
COLOR=(I,7,7,7):COLOR=(I,0,0,0):NEXT:
GOTO1
ELSE
COLOR15,0,0:SCREEN5:
FORY=0TO211STEP2:
FORX=0TO255STEPYMOD7+((CXORY)AND6)+2:
PSET(X,Y),C:
C=(C+1)MOD15+1:
NEXTX,Y:W=1:GOTO1
Have phun copying this one on your MSX or emu. I just now hope I didn't make a copy mistake ...
BTW: the result only looks fine on a MSX2/2+/Turbo R running at 3.579545MHz | | Yukio
msx professional
Posts: 824 | Posted: June 15 2004, 02:16 | [D-Tail] , your oneliner is good.
This is like some older and cooler effect.
I don't know who started to use the zero line over here.
This cause the weird space thing.
| | [D-Tail]
msx guru
Posts: 3020 | Posted: June 15 2004, 08:45 | I did, in first instance. It really matters, because you get one extra byte memory free if you do so. But you get 2 or 3 extra spaces as well. I find it really strange... But my oneliner also works when you use line 0 instead of line 1.
| | BiFi
msx guru
Posts: 3142 | Posted: June 15 2004, 09:30 | 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... | |
| |
| |
