CLS
SCREEN 13

DO

A = 320 / 2: B = 200 / 2
C = 320 / 2: D = 200 / 2

FOR I = 1 TO 160
COL% = COL% + 1
IF COL% >= 254 THEN COL% = 16
                                     

LINE (A, B)-(C, D), COL%, B

A = A - 1
B = B - .5 - .25 / 2
C = C + 1
D = D + .5 + .25 / 2

NEXT I

COL% = Z
Z = Z - 3
IF Z <= 15 THEN Z = 255

LOOP WHILE INKEY$ = ""
SCREEN 0







CLS
COLOR 4
LOCATE 3, 28: PRINT "JAM MELODY V.1.0"
COLOR 10
LOCATE 5, 15: PRINT "ESTE ES UN PROGRAMA CON MELODIAS"
COLOR 17
LOCATE 7, 19: PRINT "PRESIONA UNA TECLA PARA CONTINUAR..."
COLOR 0
INPUT "", JKLDFGH

HOLA:
COLOR 12
CLS
PRINT "INTRODUCE 25 CENTIMOS Y ELIGE UNA DE LASDIFERENTES CANCIONES:"
PRINT
PRINT
PRINT " 1.- El igno de ''JAM''"
PRINT " 2.- La familia Addams"
PRINT " 3.- Los Picapiedra"
PRINT " 4.- Leave It To Beaver!"
PRINT " 5.- The Tonight Show"
PRINT " 6.- Beverly Hillbillies"
PRINT " 7.- Final Jeapordy!"
PRINT " 8.- MIX"
PRINT
INPUT "ELIGE ", EL1
ON EL1 GOTO JAM, ADDAMS, PICA, BEAVER, TONI, BEBERLY, JEA, MIX
GOTO HOLA

JAM:

PLAY "O4"
PLAY "T155"
PLAY "MS"
PLAY "L16"
PLAY "GAAGA8A8A8A8GAA8GAAGA8A8"
PLAY "O5"
PLAY "D8C8C8"
PLAY "O4"
PLAY "P8AA.AAP8A8A8A8P8G8G8G8E8GAAGA8P8"
PLAY "L4"
PLAY "O5"
PLAY "C"
PLAY "O4"
PLAY "BAGA8A8P2."
PLAY "L4"
PLAY "O5"
PLAY "C"
PLAY "O4"
PLAY "BAGA8A8P2."
PLAY "O4"
PLAY "L4"
PLAY "O5"
PLAY "C"
PLAY "O4"
PLAY "BAGA8MLA8A1"
PLAY "GB"
PLAY "O5"
PLAY "MSDDE"

GOTO FIN

BEAVER:

PLAY "MS T190"
PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
PLAY "L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
PLAY "L8 C<B>CFD<GE L4 F.. P8"
PLAY "O3 L4 A L8 A L4 G. L8 FGF L4 E- L8 EDE-EFGG+ L4 A.. P8"
PLAY "O1 L4 G L8 G L4 F. L8 EFE L4 D- L8 DDEFG>G<G >C<B-AG. P16"
PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
PLAY "O3 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
PLAY "L8 C<B>CFD<GE L4 F. L8 >F"
GOTO FIN

TONI:

PLAY "O3 MN T170"
PLAY "L4 A L8 G P16 F P16 L4 E P32 D.. P16.. L8 D.F P16 AG... P4"
PLAY "L4 A L8 G P16 F P16 L16 E.DE. L4 D.. P16.. L8 D.F P16 AG... P4"
PLAY "L16 GA>C L8 <G P16 F P16 L16 E.DE. L4 D. P16.. L8 D.F P16 AG... P4"
PLAY "GF P2 GF P2 L16 G. P16 G- L4 F P4 L8 MS F.E.C.E P32 AGF.. P32"
PLAY "MN L8 >D<A P2 >D<G P2"
PLAY "L4 A L8 G P16 F P16 L4 E P32 D. P16."
PLAY "O1 L8 F P16 L16 C.<B.>C. L8 D-.C. P4 L4 O3 EA"
GOTO FIN

BEBERLY:

PLAY "O2 MS T190"
PLAY "L8 CCFCFGAAFF L4 G P32 G P32 C. P16"
PLAY "L8 C L4 E L8 EF L4 G L8 FEFGFD L4 C. P16"
PLAY "L8 C L4 FFA L8 GFB-AB->C L4 D. P16"
PLAY "L8 D L4 C L8 CC L4 C L8 CC<CD L4 EF..."
GOTO FIN

PICA:

PLAY "L8 MS O3 T170"
PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDE P8 <D.G> P32."
PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDC... P4"
PLAY "L4 BE P8. L8 >C.<BBAABA.. P4 L4 AD P8. L8 B.AAGGAG L16 >G.G..G.G.<"
PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CD P4 "
PLAY "L8 <EFG L4 CD P4 L8 >EFG L4 >CDC..."
PLAY "L4 <G. L8 EDC P8 L4 >>C. L8 C<BA P4 L4 <<G P4 C P4 >G P4 F P4."
PLAY "L4 >EFG L2 >CDC.."
GOTO FIN

ADDAMS:

PLAY "O3 T220 L8 CDEF P4 O0 L4 F P8 F P8"
PLAY "O3 L8 DEF#G P4 O1 L4 G P8 G P8"
PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8"
PLAY "P4 T187"
PLAY "O3 L8 CF.AF.D O2 B-. O3 G P4"
PLAY "FE.GE.C O2 A. O3 F P4"
PLAY "CF.AF.D O2 B-. O3 G P4"
PLAY "F L64EF L8 E.CD.EF P4"
GOTO FIN

JEA:

PLAY "DGD <G >DGD P4"
PLAY "DGDG MS B P8 MN L8 AGF#EE- L4"
PLAY "DGD <G >DGD P4"
PLAY "MS G P8 L8 E L4 DC MN <BA L4 G"
PLAY "P4"
PLAY "O3 L4"
PLAY "EAE <A >EAE P4"
PLAY "EAEA MS >C# P8 MN L8 <BAG#F#F L4"
PLAY "EAE <A >EAE P4"
PLAY "MS A P8 L8 F# L4 ED MN L2 MS C#<B L4 MN A"
PLAY "O1 L4 AA"
GOTO FIN


MIX:
PLAY "MB T180o2P2P8L8GGGL2E-P24P8L8FFFL2DMBo3L8ED+ED+Eo2Bo3DCL2o2AMB L8 MS O3 T170MB L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDE P8  MB P4 T187MB O3 L8 CF.AF.D O2 B-. O3 G P4MB FE.GE.C O2 A. O3 F P4MB CF.AF.D O2 B-. O3 G P4MB F L64EF L8 E.CD.EF P4MB O2 MS T190MB L8 CCFCFGAAFF L4 G P32 G P32 C. P16MB MS T190MB O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >DMB L8 C<B>CF L4 D L8 <B- L4 G.. P16MB L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >DMB L8 C<B>CFD<GE L4 F.. P8"
PLAY "MB O3 L4 A L8 A L4 G. L8 FGF L4 E- L8 EDE-EFGG+ L4 A.. P8MB O1 L4 G L8 G L4 F. L8 EFE L4 D- L8 DDEFG>G<G >C<B-AG. P16MB O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >DMB L8 C<B>CF L4 D L8 <B- L4 G.. P16MB O3 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >DMB L8 C<B>CFD<GE L4 F. L8 >F"

FIN:
COLOR 13
INPUT "¨ CONTINUAR S/N "; PRE$
IF PRE$ = "S" OR PRE$ = "s" THEN GOTO HOLA
IF PRE$ = "N" OR PRE$ = "n" THEN COLOR 0: END

