31
Eventos / Re:Ru MSX Badalona.
« en: Diciembre 03, 2023, 13:21:09 »
Que local tan grande para tan poca gente
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
10 printchr$(147+a);:a=58.5+rnd(.):goto10
0 a=1-a*(a<41):printchr$(149+(aand7))chr$(205+(aand3));:poke199,a:goto
0 a=781:b=1024:c=59923:d=999:g=29:fori=0tod:pokea,peek(b+i):sysc:printchr$(g);:next:goto
10 REM01377764
20 REM #bbcmicrobot =
30 MODE2
40 B=HIMEM
50 H=300
60 FORi=0TO7
70 VDU5,19,i,i?(PAGE+5)-48;0;
80 NEXT
90 FORi=0TOH
100 B!RND(B*2)=1285
110 NEXT
120 FORj=0TOB
130 X=RND(1):Y=RND(1)
140 IFRND(9)>5THENC=-RND(2):Y=-(Y^4)ELSEC=1:Y=-LN(Y^.3)
150 A=.2:S=4
160 FORk%=0TO2
170 X=X+FNN(X+Y*3)+FNN(Y)
180 Y=Y+FNN(Y+X*3)+FNN(X)
190 S=S+S
200 A=A/2
210 NEXT
220 Y=Y+.5
230 X=X*PI*2
240 s=650+SINX*Y*H
250 t=650+COSX*Y*H-s/4
260 GCOL0,C+POINT(s,t)AND7
270 PLOT69,s,t
280 NEXT
290 FORj=0TOH
300 X=RND(1):Y=RND(1)
310 IFRND(9)>5THENY=-(Y^4)ELSEY=-LN(Y^.3)
320 A=.2:S=4
330 FORk%=0TO2
340 X=X+FNN(X+Y*3)+FNN(Y)
350 Y=Y+FNN(Y+X*3)+FNN(X)
360 S=S+S
370 A=A/2
380 NEXT
390 X=RND(6)/6:Y=Y/3
400 X=X*PI*2
410 s=650+SINX*Y*H
420 t=650+COSX*Y*H-s/4
430 GCOL0,4
440 PLOT69,s,t
450 NEXT
460 REPEATUNTIL0
470 DEFFNN(x)
480 x=x*S
490 f=x-INTx
500 i=99*INTx
510 a=SINi
520 b=SIN(i+99)
530 =((a-INTa)*(1-f)+(b-INTb)*f)*A
Para C16:10 graphic3,1:color0,1:color3,2:rem colores negro y blanco
20 c$=”743837”:l$=”463734”:remazul,cyan,rojo,amarillo,rojo,azul
30 ba=10000:ha=300
40 fori=0to250
45 xi=rnd(1)*160:yi=rnd(1)*200
50 draw3,xi,yitoxi,yi+1:next
60 forj=99toba
70 xa=rnd(1):ya=rnd(1)
80 ifrnd(1)>0.555thenzo=1:pi=1+int(rnd(1)*2):ya=-(ya^4):elsezo=3:pi=1:ya=-log(ya^.3)
85 ifzo=3andya<0.2thenzo=5
90 gosub220
100 ya=ya+0.5
110 gosub410
120 next
130 pi=3:zo=1
140 forj=0toha
150 xa=rnd(1):ya=rnd(1)
160 ifrnd(1)>0.555thenya=-(ya^4):elseya=-log(ya^.3)
170 gosub220
180 xa=int(1+rnd(1)*6)/6:ya=ya/3
190 gosub410
200 next
210 end:do:loopwhile1
220 remdefproccalc
230 aa=.2:sa=4
240 fork8=0to2
250 par=xa+ya*3
260 gosub500
270 xa=xa+re
280 par=ya
290 gosub500
300 xa=xa+re
310 par=ya+xa*3
320 gosub500
330 ya=ya+re
340 par=xa
350 gosub500
360 ya=ya+re
370 sa=sa+sa
380 aa=aa/2
390 next
400 return
410 remdefprocpunto
420 xa=xa*6.2832
430 s=80+sin(xa)*ya*ha/8
440 t=60+cos(xa)*ya*ha/4+s/2
450 g0=asc(mid$(c$,zo))-48:h0=asc(mid$(l$,zo))-48
460 g1=asc(mid$(c$,zo+1))-48:h1=asc(mid$(l$,zo+1))-48
470 color1,g0,h0:color2,g1,h1
475 ifzo=3orpi=2thenlocates,t:ifrdot(2)=pithenpi=3-pi
480 drawpi,s,t
490 return
500 remdeffnfunci
510 par=par*sa
520 f=par-int(par)
530 i=99*int(par)
540 a=sin(i)
550 b=sin(i+99)
560 re=((a-int(a))*(1-f)+(b-int(b))*f)*aa
570 return
Recordar que se puede copiar y pegar en VICE tal cual, por eso lo pongo en minusculas, menos la linea 20, que las comillas se escoñan y hay que volver a escribir o editar esa línea20 c$=”743837”:remazul,cyan,rojo,amarillo,rojo,azul
450 g0=asc(mid$(c$,zo))-48
460 g1=asc(mid$(c$,zo+1))-48
470 color1,g0:color2,g1
Recordar que en C64 es necesario cargar el CBM BASIC3.5 antes de entrar este programa