|Portada|Blog|Space|

[Índice] > Demo en BASIC

Como le estaba mostrando a CMA la potencia de las antiguas computadoras
me pareció interesante compartir con ustedes un pequeño videito donde
muestro esta demo.

El programa como se imaginarán no me llevó más que unos cinco minutos
escribirlo (lo bueno de basic)

http://video.google.es/videoplay?docid=4676003370098889210&hl=es

El código queda licenciado como GPLv3:

10 GRAPHICS 19
20 COLOR 1
30 DIM X1(10),Y1(10),X2(10),Y2(10)
30 P=1
50 XS1=20:YS1=10:XS2=10:YS2=10
60 FOR I=1 TO 10:X1(I)=0:Y1(I)=0:X2(I)=0:Y2(I)=0:NEXT I
70 N=P+1:IF N>10 THEN N=1
80 COLOR 0:PLOT X1(N),Y1(N):DRAWTO X2(N),Y2(N)
100 X1(N)=X1(P)+XS1
110 X2(N)=X2(P)+XS2
120 Y1(N)=Y1(P)+YS1
130 Y2(N)=Y2(P)+YS2
135 P=N
140 IF X1(P)>39 THEN X1(P)=39:XS1=-5-RND(0)*2
150 IF X2(P)>39 THEN X2(P)=39:XS2=-5-RND(0)*2
160 IF X1(P)<0 THEN X1(P)=0:XS1=5-RND(0)*2
170 IF X2(P)<0 THEN X2(P)=0:XS2=5-RND(0)*2
180 IF Y1(P)>23 THEN Y1(P)=23:YS1=-5-RND(0)*2
190 IF Y2(P)>23 THEN Y2(P)=23:YS2=-5-RND(0)*2
200 IF Y1(P)<0 THEN Y1(P)=0:YS1=5-RND(0)*2
210 IF Y2(P)<0 THEN Y2(P)=0:YS2=5-RND(0)*2
220 COLOR INT(RND(0)*3)+1:PLOT X1(P),Y1(P):DRAWTO X2(P),Y2(P)
230 GOTO 70

---------
Los documentos en este sitio se encuentran licenciados bajo la GFDL.
Ver comentarios: [Hay i comentarios]
Para agregar un comentario: agregue a la URL: ?do=show_comment_form (explicación)