Le gros morceau, et ça me donne presque envie d'y jouer.
Voici le listing des 7 programmes, où l'on constatera que les noms des jeux en REM font un peu moins rêver que leur nom dans l'archive
Modérateurs : Papy.G, fneck, Carl
Le gros morceau, et ça me donne presque envie d'y jouer.
Code : Tout sélectionner
10 REM *************************
20 REM * ‚diteur de caractŠres *
30 REM *************************
40 DIM CAR(9,7):CLEAR 2000
50 INIT 3,3:TX4,0,0
60 PRINT "Souhaitez vous:":PRINT
70 PRINT "1:cr‚er un caractŠre"
80 PRINT "2:‚diter un caractŠre"
90 INPUT CHOIX
100 IF CHOIX<>1 AND CHOIX<>2 THEN 50
110 ON CHOIX GOSUB 650, 730
120 REM affichage du caractŠre
130 INIT 3,3:LG=4:CL=3
140 GOSUB 980
150 FOR I=1 TO 9
160 FOR J=0 TO 7
170 CURSORY 5+I:CURSORX 10+J
180 PRINT CHR$(43+84*CAR(I,J))
190 NEXT J:NEXT I
200 TX0,0,0
210 FOR I=1 TO 20 STEP 2
220 CURSORX 21:CURSORY 5+(I-1)/2
230 PRINT MID$(C$,I,2)
240 NEXT I
250 REM modification de caractŠre
260 TX1,0,1
270 CURSORX 10+CL:CURSORY 5+LG
280 U=43+84*CAR(LG,CL)
290 PRINT CHR$(U)
300 TX4,0,0
310 CURSORX 10+CL:CURSORY 5+LG
320 IF STICKX(2)=1 THEN PRINT CHR$(U);:CL=CL+1
330 IF STICKX(2)=255 THEN PRINT CHR$(U);:CL=CL-1
340 IF STICKY(2)=1 THEN PRINT CHR$(U);:LG=LG+1
350 IF STICKY(2)=255 THEN PRINT CHR$(U);:LG=LG-1
360 IF CL<0 THEN CL=0
370 IF CL>7 THEN CL=7
380 IF LG<0 THEN LG=0
390 IF LG>9 THEN LG=9
400 IF KEY(0)<>32 THEN 605
410 CAR(LG,CL)=1-CAR(LG,CL)
420 I=LG*2+INT(CL/4)+1
430 C1$=LEFT$(C$,I-1)
440 C3$=RIGHT$(C$,20-I)
450 C=ASC(MID$(C$,I,1))-48
460 IF C>9 THEN C=C-39
470 C1=CL:IF CL>3 THEN C1=C1-4
480 C1=3-C1:IF CAR(LG,CL)=1 THEN 510
490 C=C AND (255-2^C1)
500 GOTO 520
510 C=C OR 2^C1
520 IF C<10 THEN 550
530 C2$=CHR$(87+C)
540 GOTO 560
550 C2$=RIGHT$(STR$(C),1)
560 C$=C1$+C2$+C3$
570 CURSORY 5+LG:CURSORX 10+CL
580 TX0,0,0
590 PRINT CHR$(32+95*CAR(LG,CL));
600 CURSORX 21:PRINT MID$(C$,2*LG+1,2)
605 R=KEY(0)
610 IF R<>70 AND R<>102 GOTO 260
620 CURSORY 18:CURSORX 4:PRINT C$
630 TX1,0,0
640 END
650 REM caractŠre vide
660 FOR I=0 TO 9
670 FOR J=0 TO 7
680 CAR(I,J)=0
690 NEXT J
700 NEXT I
710 C$="00000000000000000000"
720 RETURN
730 REM lecture des codes h‚xad‚cimaux
740 CURSORX 1:CURSORY 12
750 PRINT "entrez les codes h‚xad‚cimaux du":PRINT "caractŠre … ‚diter"
760 PRINT :INPUT C$
770 IF LEN(C$)>20 THEN 740
780 ERR=0
790 FOR I=1 TO 20
800 C=ASC(MID$(C$,I,1))
810 IF C<48 THEN ERR=0
820 IF C>57 AND C<97 THEN ERR=0
830 IF C>102 THEN ERR=0
840 NEXT I
850 IF ERR=1 THEN 740
860 REM code ok-remplissage du tableau
870 CL=4:FOR I=1 TO 20
880 C=ASC(MID$(C$,I,1))-48
890 IF C>9 THEN C=C-39
900 LG=INT(I-1)/2
910 CL=CL+4:IF CL=8 THEN CL=0
920 CAR(LG,CL)=(C AND 8)/8
930 CAR(LG,CL+1)=(C AND 4)/4
940 CAR(LG,CL+2)=(C AND 2)/2
950 CAR(LG,CL+3)=(C AND 1)
960 NEXT I
970 RETURN
980 REM trac‚ du cadre
990 CURSORY 4:CURSORX 10
1000 PRINT "84218421"
1010 TX7,0,0
1020 FOR I=4 TO 15
1030 CURSORX 9:CURSORY I
1040 PRINT CHR$(127)
1050 CURSORX 18:CURSORY I
1060 PRINT CHR$(127)
1070 NEXT I
1080 CURSORY 4:CURSORX 9
1090 DELIM7,7,0
1100 CURSORY 4:CURSORX 19
1110 DELIM3,3,0
1120 CURSORY 15:CURSORX 9
1130 DELIM7,7,0
1140 CURSORY 15:CURSORX 19
1150 DELIM3,3,0
1160 TX4,0,0
1170 FOR I=5 TO 14
1180 FOR J=10 TO 17
1190 CURSORX J:CURSORY I:PRINT "+";
1200 NEXT J:NEXT I
1210 RETURN
Code : Tout sélectionner
10 REM *************************
20 REM * éditeur de caractères *
30 REM *************************
40 DIM CAR(9,7):CLEAR 2000
50 INIT 3,3:TX4,0,0
60 PRINT "Souhaitez vous:":PRINT
70 PRINT "1:créer un caractère"
80 PRINT "2:éditer un caractère"
90 INPUT CHOIX
100 IF CHOIX<>1 AND CHOIX<>2 THEN 50
110 ON CHOIX GOSUB 650, 730
120 REM affichage du caractère
130 INIT 3,3:LG=4:CL=3
140 GOSUB 980
150 FOR I=1 TO 9
160 FOR J=0 TO 7
170 CURSORY 5+I:CURSORX 10+J
180 PRINT CHR$(43+84*CAR(I,J))
190 NEXT J:NEXT I
200 TX0,0,0
210 FOR I=1 TO 20 STEP 2
220 CURSORX 21:CURSORY 5+(I-1)/2
230 PRINT MID$(C$,I,2)
240 NEXT I
250 REM modification de caractère
260 TX1,0,1
270 CURSORX 10+CL:CURSORY 5+LG
280 U=43+84*CAR(LG,CL)
290 PRINT CHR$(U)
300 TX4,0,0
310 CURSORX 10+CL:CURSORY 5+LG
320 IF STICKX(2)=1 THEN PRINT CHR$(U);:CL=CL+1
330 IF STICKX(2)=255 THEN PRINT CHR$(U);:CL=CL-1
340 IF STICKY(2)=1 THEN PRINT CHR$(U);:LG=LG+1
350 IF STICKY(2)=255 THEN PRINT CHR$(U);:LG=LG-1
360 IF CL<0 THEN CL=0
370 IF CL>7 THEN CL=7
380 IF LG<0 THEN LG=0
390 IF LG>9 THEN LG=9
400 IF KEY(0)<>32 THEN 605
410 CAR(LG,CL)=1-CAR(LG,CL)
420 I=LG*2+INT(CL/4)+1
430 C1$=LEFT$(C$,I-1)
440 C3$=RIGHT$(C$,20-I)
450 C=ASC(MID$(C$,I,1))-48
460 IF C>9 THEN C=C-39
470 C1=CL:IF CL>3 THEN C1=C1-4
480 C1=3-C1:IF CAR(LG,CL)=1 THEN 510
490 C=C AND (255-2^C1)
500 GOTO 520
510 C=C OR 2^C1
520 IF C<10 THEN 550
530 C2$=CHR$(87+C)
540 GOTO 560
550 C2$=RIGHT$(STR$(C),1)
560 C$=C1$+C2$+C3$
570 CURSORY 5+LG:CURSORX 10+CL
580 TX0,0,0
590 PRINT CHR$(32+95*CAR(LG,CL));
600 CURSORX 21:PRINT MID$(C$,2*LG+1,2)
605 R=KEY(0)
610 IF R<>70 AND R<>102 GOTO 260
620 CURSORY 18:CURSORX 4:PRINT C$
630 TX1,0,0
640 END
650 REM caractère vide
660 FOR I=0 TO 9
670 FOR J=0 TO 7
680 CAR(I,J)=0
690 NEXT J
700 NEXT I
710 C$="00000000000000000000"
720 RETURN
730 REM lecture des codes héxadécimaux
740 CURSORX 1:CURSORY 12
750 PRINT "entrez les codes héxadécimaux du":PRINT "caractère à éditer"
760 PRINT :INPUT C$
770 IF LEN(C$)>20 THEN 740
780 ERR=0
790 FOR I=1 TO 20
800 C=ASC(MID$(C$,I,1))
810 IF C<48 THEN ERR=0
820 IF C>57 AND C<97 THEN ERR=0
830 IF C>102 THEN ERR=0
840 NEXT I
850 IF ERR=1 THEN 740
860 REM code ok-remplissage du tableau
870 CL=4:FOR I=1 TO 20
880 C=ASC(MID$(C$,I,1))-48
890 IF C>9 THEN C=C-39
900 LG=INT(I-1)/2
910 CL=CL+4:IF CL=8 THEN CL=0
920 CAR(LG,CL)=(C AND 8)/8
930 CAR(LG,CL+1)=(C AND 4)/4
940 CAR(LG,CL+2)=(C AND 2)/2
950 CAR(LG,CL+3)=(C AND 1)
960 NEXT I
970 RETURN
980 REM tracé du cadre
990 CURSORY 4:CURSORX 10
1000 PRINT "84218421"
1010 TX7,0,0
1020 FOR I=4 TO 15
1030 CURSORX 9:CURSORY I
1040 PRINT CHR$(127)
1050 CURSORX 18:CURSORY I
1060 PRINT CHR$(127)
1070 NEXT I
1080 CURSORY 4:CURSORX 9
1090 DELIM7,7,0
1100 CURSORY 4:CURSORX 19
1110 DELIM3,3,0
1120 CURSORY 15:CURSORX 9
1130 DELIM7,7,0
1140 CURSORY 15:CURSORX 19
1150 DELIM3,3,0
1160 TX4,0,0
1170 FOR I=5 TO 14
1180 FOR J=10 TO 17
1190 CURSORX J:CURSORY I:PRINT "+";
1200 NEXT J:NEXT I
1210 RETURN
Code : Tout sélectionner
10 REM ***********************
20 REM * Morceaux de musique *
30 REM ***********************
40 INIT 3,4:TX0,0,0
50 CURSORX 1:CURSORY 8
60 PRINT"Quelle musique voulez-vous ‚couter:"
70 PRINT"1:Classique"
80 PRINT"2:Folklore"
90 PRINT"3:Chansons enfantines"
100 PRINT"4:Hymnes nationaux"
110 PRINT"0:Fin"
120 INPUT R:IF F<0 OR R>4 THEN 50
130 ON R GOTO 1010, 2010, 3000, 4000
140 END
1000 REM Musique classique
1010 INIT 3,4:TX0,0,0
1020 CURSORX 1:CURSORY 8
1030 PRINT"Quelle morceau voulez-vous ‚couter:"
1040 PRINT"1:Le danube bleu"
1050 PRINT"2:Adagio d'Albinoni"
1060 PRINT"3:La truite de Schubert"
1070 PRINT"4:Valse de Brahms"
1080 PRINT"5:Berceuse de Mozart"
1090 PRINT"0:Autre type de musique"
1100 INPUT R:IF R<0 OR R>5 THEN 1010
1110 ON R GOTO 1130, 1220, 1360, 1450, 1570
1120 GOTO 40
1130 REM Danube bleu
1140 CLEAR 500
1150 A$="T17 O2C20C20E20G20G40 O3G20G40E20E40 O2C20C20E20G20G40 O3G20G40F20F40"
1160 B$="O2D20D20F20 O3A20A40 O4A20A40 O3F20F40 O2D20D20F20 O3A20A40 O4A20A40"
1170 C$="O3E20E40 O2C20C20E20G20 O3C40 O4C20C40 O3G20G40 O2C20C20E20G20 O3C40"
1180 D$="O4C20C40 O3A20A40 O2D20D20F20 O3A20A70 O2F+20G20 O3E80C20"
1190 E$="O2E20E40D20 O3A40 O2G20C60"
1200 PLAY A$:PLAY B$:PLAY C$:PLAY D$:PLAY E$
1210 GOTO 1010
1220 REM Adagio d'Albinoni
1230 CLEAR 500
1240 A$="O2D24C18B-6A18 O1G6G48F+24 O2E-24D18C6B-18A6A48 O1G24 O2G24F12"
1250 B$="G12E-12F12D12E-72F24E-12F12D12E-12C12D72E-24D12E-12C12D12B-12C72D48"
1260 C$="E-24D48R36G12 O3A12B12A12 O2G12F+12G12F+36G+12G18F6E-36C12E-18G6"
1270 D$="D36B-12D18G6C48C3D3E-12D3C3B-48B-3C3D12C3B-3A48A3B-3C12B-3A3 O1G72"
1280 E$="O2R60G12G+6G6F+6G6F+6E-6D6E-6F6E-6D6E-6D6C6B+6C6D24R24G12G+6G6F+6G6"
1290 F$="F+6E-6D6E-6F6E-6D6E-6E-6D6C6B+6C24R48 O1C12E12G12 O2C12 O1E12G12"
1300 G$="O2C12E-12 O1G12 O2C12E-12G12C12E-12G12 O3C24R72R72 O2C12D-6C6"
1310 H$="B+6C6B-6A-6 O1G6 O2A6B-6A6 O1G6 O2A6 O1G6F6E+6F6G24R80 O2C12"
1320 I$="D-6C6B+6C6B-6A-6 O1G6 O2A6B-6A6 O1G6 O2A6A6 O1G6F6E+6F24 O2A-24"
1330 J$="C24 O1F+24 O2A+24D24"
1340 PLAY "T40"+A$+B$:PLAY C$+D$:PLAY E$+F$+G$:PLAY H$+I$+J$:PLAY A$+B$
1350 GOTO 1010
1360 REM La truite de Schubert
1370 CLEAR 500
1371 A$="O1F24 O2B-24B-24D24D24B-48 O1F36F12F48 O2C12B-12A12 O1G12F48"
1372 B$="R24F24 O2B-24B-24D24D24B-48 O1F24 O2B-24A24 O1G12 O2A12B-24 O1"
1380 A$="O1F24 O2B-24B-24D24D24B-48 O1F36F12F48 O2C12B-12A12 O1G12F48"
1390 B$="R24F24 O2B-24B-24D24D24B-48 O1F24 O2B-24A24 O1G12 O2A12B-24 O1"
1400 C$="E+24F48R24F48 O2A24A24B-12A12 O1G12 O2A12B-48 O1 F24 O2B-24A24A24A12"
1410 D$="E-12C12A12B-72B-24 O1G24G24G24 O2B-24B-48 O1F36F12F48 O2C24A24B-72"
1420 E$="B-24A12 O1G12G24G12 O2B-12A12C12B-48 O1F36F12F48 O2C24A24B-48D24B-24"
1430 PLAY "T15"+A$+B$+C$:PLAY D$+E$:PLAY A$+B$+C$:PLAY D$
1440 GOTO 1010
1450 REM Valse de Brahms
1460 CLEAR 500
1470 A$="O2A36 O1F12F12 O2A36 O1F12F12 O2B-24A24 O1G24 O2A36 O1F12F12 O2C12"
1480 B$="D36A12A12C12D36A12A12C12E12D12C24B+24C36 O1E12E12 O2A12"
1490 C$="D36A12A12C12D36A12A12C12E12D12C24B+24C24R12A12A12C12C36 O1G12G12"
1500 D$="O2C12C36A12A12C12F36C12C12F12F36D12D12F12F36D12D12F12F12E12D24C24"
1510 E$="D36A12A12C12D36A12A12C12F12C12B-24 O1G24F24R12 O2A12A12C12C36A12A12"
1520 F$="C12C36A12A12C12F36C12C12F12F36D12D12F12F36D12D12F12F12E12D24C24A36"
1530 G$="O1F12F12 O2A12A36 O1F12F12 O2A12B-24A24 O1G24 O2A36 O1F12F12 O2C12"
1540 H$="D36A12A12C12D36A12A12C12F12C12B-24 O1G24F24"
1550 PLAY "T25"+A$+B$+A$:PLAY C$+D$+A$:PLAY E$+F$+G$+H$
1560 GOTO 1010
1570 REM Berceuse de Mozart
1580 CLEAR 500
1590 A$="O1E12F12E12D12C12D12C36R12C12C12C12F12F12F12G12 O2A12 O1G72D12C+12"
1600 B$="D12D12D12C12D12F72E12E12E12F12E12F12G72 O2A12A12A12A12A-12A12C72 O1"
1610 C$="G12G12G12G12G-12G12 O2C72 O1F+12G12F12E12F12G12R12G12G-12G-12E12D12"
1620 D$="E12F12E12D12C12D12C72 O2E12F12E12D12C12D12C36R12C12C12C12F12F12F12"
1630 E$="G12 O3A12 O2G72D12D-12D12D12C12D12F72E12E12E12F12E12F12G72 O3A12A12"
1640 F$="A12A12A-12A12C12 O2G12G12G12G12G-12G12 O3C72O2G-12G12F12E12F12G12D72"
1650 G$="E12F12E12D12C12D12C36R24E12G36G6G-6G-6E6F6D6C36R24 O1E12G36G36G-6G-6"
1660 H$="E6F6D6C72C24E24C72"
1670 PLAY "T40"+A$+B$+C$:PLAY D$+E$+F$:PLAY G$+H$
1680 GOTO 1010
2000 REM Airs folkloriques
2010 INIT 3,4:TX0,0,0
2020 CURSORX 1:CURSORY 8
2030 PRINT"Quel air folklorique: "
2040 PRINT"1:Oh Suzanna"
2050 PRINT"2:Guantanam‚ra"
2060 PRINT"3:Down by the riverside"
2070 PRINT"4:La Cucaracha"
2080 PRINT"0:Autre type de musique"
2090 INPUT R:IF R<0 OR R>4 THEN 2020
2100 ON R GOTO 2130, 2210, 2300, 2440
2110 GOTO 40
2120 REM Oh!Suzanna
2130 CLEAR 500
2140 A$="O2T35F6G6O3 A12 C12C18D6C12 A12 O2 F18 G6 O3 A12A12 O2 G12F12G36"
2150 B$="F6G6O3 A12 C12C18D6C12 A12 O2 F18 G6 O3 A12A12 O2G12G12F36"
2160 C$="F6G6O3 A12C12C18D6C12A12 O2F18 G6 O3 A12A12O2 G12G12F48"
2170 D$="O3 B-24B-24D12D24D12C12C12A12 O2 F12 G36"
2180 PLAY A$+B$+A$:PLAY C$+D$+B$
2190 GOTO 2010
2200 REM Guantanam‚ra
2210 CLEAR 500
2220 A$="O3A24A12A12A12A36A48R O2F12 O3A12A12 O2G24 O3A12 O2E12G12"
2230 B$="G36G96E24F12G12 O3A48 O2G48G12 O3A12 O2F12D12C24C12B12A48 O1G96"
2240 C$="R48"
2250 D$="G12G12 O2C12C12D12C12D12D36D48RD12E12F12E12C12A12D12D36D48"
2260 E$="O1RG12G12 O2C12C12D12C12D12D36D48RG12G12G12G48G12F12E12D12D48RD12"
2270 F$="E12F12G24G12G12 O3A48 O2G48 O3A12 O2F12D12C24C12B12A48 O1G96"
2280 PLAY "T30"+A$+B$:PLAY A$+B$+C$:PLAY D$+E$+F$:PLAY A$+B$
2290 GOTO 2010
2300 REM Down by the riverside
2310 CLEAR 500
2320 A$="O2E24E24E18C6A24 O1G24 O2A18 O1G6 O2A12C36E-24E24E18C6A24"
2330 B$="D48E+36D+12"
2340 C$="E24 O1G48 O2A24C48D48RE24E36D+12E24D+12"
2350 D$="C12C12G36"
2360 E$="C48D24D12C+6D12F24E12E48D48C96C24C24D24E24F24F24F24F12F12F24F12F12"
2370 F$="F18F6C18D6E24E24E12D24C12C96D36C+12D12F36C+48D48E96E24G24E18D6C24"
2380 G$="D24C24F24C24F12F12F36C24D24E24E24E36C6D24C96D24D48F24E48D48"
2390 H$="C96C24 O1G24 O2A24C24"
2400 I$="C48 O1G18 O2A6C24E-18C6D24C48"
2410 PLAY "T30"+A$+B$:PLAY C$+D$+C$:PLAY E$+F$+G$+H$
2420 PLAY C$+D$+C$:PLAY E$+F$+G$+I$
2430 GOTO 2010
2440 REM La Coucaracha
2450 CLEAR 1000
2460 A$="O2G12G12G12"
2470 B$="O3C36E12E12 O2G12G12G12 O3C36E12E48RC24C12B12B12A12A12 O2G48"
2480 C$="R12G12G12G12 O3B36D12D12 O2G12G12G12B36D12D48R12F24 O4A12 O3"
2490 D$="G12F12E12D12C48R12 O2G12G12G12"
2500 E$="G12F12E12D12C24 O2G12G12 O3C12C12E12E12"
2510 F$="G36E12E24R24R24G12G12 O4A12 O3G12F12E12F36D12D24R24R24 O2G12G12"
2520 G$="O3B12B12D12D12F36D12D24R24R12G24 O4A12 O3G12F12E12D12"
2530 H$="E36C12C24R24R24 O2G12G12 O3C12C12E12E12"
2540 I$="C48R12 O2G12G12G12"
2550 PLAY "T20"+A$
2560 PLAY B$+C$+D$:PLAY B$+C$+E$
2570 PLAY F$+G$+H$:PLAY F$+G$+I$
2580 PLAY B$+C$+D$:PLAY B$+C$+E$
2590 PLAY F$+G$+H$:PLAY F$+G$+I$
2600 GOTO 2010
3000 REM Chansons enfantines
3010 INIT 3,4:TX0,0,0
3020 CURSORX 1:CURSORY 8
3030 PRINT "Quelle chanson:"
3040 PRINT"1:Au clair de la lune"
3050 PRINT"2:FrŠre Jacques"
3060 PRINT"3:La mŠre Michel"
3070 PRINT"4:Cadet Roussel"
3080 PRINT"5:Dansons la capucine"
3090 PRINT"6:Sur le pont d'Avignon"
3100 PRINT"7:Nous n'irons plus au bois"
3110 PRINT"8:Malb'rough s'en va en guerre"
3120 PRINT"9:Le roi Dagobert"
3130 PRINT"0:Autre type de musique"
3140 INPUT R:IF R<0 OR R>9 THEN 3020
3150 ON R GOTO 3170, 3230, 3290, 3380, 3450, 3510, 3580, 3650, 3720
3160 GOTO 40
3170 REM Au clair de la lune
3180 CLEAR 500
3190 A$="O2C24C24C24D24E48D48C24E24D24D24C48C24R"
3200 B$="C24C24C24C24A48A48D24C24B24A24 O1G72F24E24D24 O2"
3210 PLAY "T30"+A$+A$+B$+A$
3220 GOTO 3010
3230 REM FrŠre Jacques
3240 CLEAR 500
3250 A$="O1G24 O2A24B24 O1G24G24 O2A24B24 O1G24 O2B24C24D48B24C24D48"
3260 B$="D18E6D12C12B24 O1G24 O2D18E6D12C12B24 O1G24G24D24G48G24D24G48"
3270 PLAY "T30"+A$+B$:PLAY A$+B$
3280 GOTO 3010
3290 REM La mŠre michel
3300 CLEAR 500
3310 A$="O1F12F12F12F12F12C12F12G12 O2A24 O1G24F36F12E12D12E12F12G12"
3320 B$="O2 A12 O1G12F12E24D24C36C12G12G12G12 O2A12B-36B-12A12 O1F12 O2"
3330 C$="C12A12 O1G36G12 O2B-12B-12B-12 O1G12 O2A12A12A12 O1F24G24 O2"
3340 D$="C24 O1F18F6F12E12D24D18D6D12E12F12G12C24C18C6C36C12F24 O2A24C12B12"
3350 E$="A12 O1G12F24 O2C18C6 O1F24F12RRR"
3360 PLAY "T25"+A$+B$:PLAY C$+D$+E$:PLAY A$+B$:PLAY C$+D$+E$
3370 GOTO 3010
3380 REM Cadet Rousselle
3390 CLEAR 500
3400 A$="O1D12E12F12G24G12G24 O2B12 O1G24R O2A12A12A12A24 O1G12F24E12D24R"
3410 B$="O2A12A12A12A24B12C24D12C24B12A12A12A12A24B12C24D12C24B12"
3420 C$="O1G24RG24RG12F12E12D24RG12F12G12 O2A24A12 O1G24F12G24R"
3430 PLAY "T20"+A$+A$:PLAY B$+C$+C$:PLAY A$+A$:PLAY B$+C$+C$
3440 GOTO 3010
3450 REM Dansons la capucine
3460 CLEAR 500
3470 A$="O1F24G12G12 O2C12C12A12A12 O1F24G12G12 O2C12C12A24"
3480 B$="O2F24R"
3490 PLAY "T25"+A$+A$+B$:PLAY A$+A$+B$
3500 GOTO 3010
3510 REM Sur le pont d'Avignon
3520 CLEAR 500
3530 A$="O1F12F12F24G12G12G24 O2A12B-12C12 O1F12E12F12G12C12F12F12F24"
3540 B$="G12G12G24 O2A12B-12C12 O1F12G12E12F12R"
3550 C$="O1F12F12F12F12F12G24F12RF12F12F12F12G24F12R"
3560 PLAY "T25"+A$+B$+"T35"+C$:PLAY "T25"+A$+B$
3570 GOTO 3010
3580 REM Nous n'irons plus au bois
3590 CLEAR 500
3600 A$="O1F12 O2A12B-12C24F24C18D6C12B-12A24 O1G24F12RF12 O2A12B-12C24"
3610 B$="F24C18D6C12B-12A24 O1G24F24F12RF12F12F12G12F24C12RF12F12F12G12F24"
3620 C$="C12R O2C24A12RC24A12R O1G12 O2A12B-12A12 O1G12 O2C12 O1F12R"
3630 PLAY "T30"+A$+B$+C$:PLAY A$+B$+C$
3640 GOTO 3010
3650 REM Malb'rough s'en va en guerre
3660 CLEAR 500
3670 A$="O1D12 O2B24B12B24A12C36B12C12B12A12A12A12A12 O1G12 O2A12B36"
3680 B$="O1G24D12 O2B24B12B24A12C36B24D12B24 O1G12A24A12 O1G36G24"
3690 C$="O2D12D24B12E24E12D36D24D12D24B12E24E12D36D24R36"
3700 PLAY "T20"+A$+B$+C$:PLAY A$+B$+C$
3710 GOTO 3010
3720 REM Le roi Dagobert
3730 CLEAR 500
3740 A$="O2B12B24A12A24 O1G12G36 O2A36B12C12B12A12 O1G12 O2A12 O1G36R36"
3750 B$="G12 O2A12B24B12C12D12A24A12A12 O1G12 O2A12B24B12B12C12D12A24"
3760 C$="A12A24B12B24A12A24 O1G12G36 O2A36B12C12B12A12 O1G12 O2A12 O1G36"
3770 PLAY "T25"+A$+B$+C$:PLAY A$+B$+C$
3780 GOTO 3010
4000 REM Hymnes nationaux
4010 INIT 3,4:TX0,0,0
4020 CURSORX 1:CURSORY 8
4030 PRINT"Quel hymne national: "
4040 PRINT"1:La Marseillaise"
4050 PRINT"2:God save the Queen"
4060 PRINT"0:Autre type de musique"
4070 INPUT R:IF R<0 OR R>2 THEN 4070
4080 ON R GOTO 4100, 4210
4090 GOTO 40
4100 REM La Marseillaise
4110 CLEAR 500
4120 A$="O1G6G18G6 O2C24C24D24D24G36E12C18C6E18C6A24F48D18B6C48C12RC18D6"
4130 B$="E24E24E24F18E6E24D24D12RD18E6F24F24F24G18F6E48E12RG18G6G25E18C6G24"
4140 C$="E18C6 O1G48G12R6G6G18 O2B6D48F24D18B6D24C24B-48A24C18C6C24B+18C6"
4150 D$="D48D12RD12E-36E12E12E12F12G12D72E-18D6C36C12C12E-12D12C12C24B48R"
4160 E$="G6G48G18G6E18C6D48D12RRG6G48G18G6E18C6D48D12"
4170 F$="R O1G24 O2C72D24E96F48G24 O3A24 O2D48D6R O3A24 O2G48G18E6F18D6"
4180 G$="C24C18C6C12"
4190 PLAY "T30"+A$+B$+C$:PLAY D$+E$+F$+G$
4200 GOTO 4020
4210 REM God save the Queen
4220 CLEAR 500
4230 A$="O2C24C24D24B36B12D24E24E24F24E36D12C24D24C24B24C36D12E12F12G24G24"
4240 B$="G24G36F12E24F24F24F24F36E12D24E24F12E12D12C12E36F12G24 O3A12 O2"
4250 C$="G12F12E24D24C72"
4260 PLAY "T45"+A$+B$+C$:PLAY A$+B$+C$
4270 GOTO 4020