31
Mercadillo / Re:Cambio / Compro revistas
« en: Diciembre 08, 2023, 17:41:04 »
Tagealo sino igual no le llega
@Rodrigo
@Rodrigo
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