Musica de Star War en la COCO Basic

Avatar de Usuario
luiscoco
Mensajes: 2328
Registrado: 15 May 2011 04:23
Ubicación: Caracas, Venezuela
Agradecido : 30 veces
Agradecimiento recibido: 44 veces
Contactar:

Musica de Star War en la COCO Basic

Mensajepor luiscoco » 09 Feb 2016 06:39

Hola Amigos les traigo algo que encontré
Claro nada del otro mundo, el tema de STAR WAR con simples PLAY, nada de 4 voces que puede hacer la coco y mas, y sin chips de sonido, jaja

https://chadkluck.net/2016/01/star-wars-theme-programmed-on-a-tandy-color-computer-2/

https://youtu.be/jp5BP-P2Drg

Código: Seleccionar todo

5 CLS
8 X$ = "**********"
10 PRINT X$X$X$"** "
15 PRINT "            STAR WARS"
20 PRINT "          (MAIN THEME)"
25 PRINT " "
30 PRINT "        BY JOHN WILLIAMS"
35 PRINT "            (C) 1977"
36 PRINT " "
40 PRINT X$X$X$"** "
50 PRINT "PROGRAMMED BY CHAD LEIGH KLUCK"
55 PRINT "       JANUARY 30, 2016"
60 PRINT "ON A TANDY 64K COLOR COMPUTER 2"
200 A$ = "O3;L8;DDD"
210 B$ = "O3;L2GO4;L2;D"
224 C$ = "L8;O4;C;O3;B;A;O4;L2;G;L4;D"
240 D$ = "L8;O4;C;O3;B;O4;C;O3;L2;A"
250 E$ = "O3;L4;D;L8;D"
260 F$ = "O3;L4.;E;L8;E;O4;C;O3;BAG"
270 G$ = "O3;L8;GAB;L4;A;L8;E;L4;F#"
280 H$ = "XB$;XC$;XC$;XD$;"
900 PLAY "P1;P1;P1"
1000 PLAY "XA$;XH$;XE$;XH$;"
1020 PLAY "XE$;XF$;XG$;XE$;XF$;"
1030 PLAY "O4;L4;D;O3;L2;A"
1040 PLAY "XE$;XF$;XG$;"
1050 PLAY "O4;L4;D;L8;D"
1060 PLAY "L8;O4;G;F;E-;D;C"
1070 PLAY "L8;O3;B-;A;G;O4;L3;D"
1080 PLAY "XA$;XH$;XE$;XH$;"
110O PLAY "O4;L4;D;L1.;G"
1110 FOR N = 1 TO 4
1120 PLAY "P255;O4;L8;G"
1130 NEXT N

Volver a “Tandy CoCo”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados