10 CLS
20 REM "FRANCAIS EN MUSIQUE"
30 PRINT " "
40 PRINT "               Français en Musique"
50 PRINT "               -------- -- -------"
60 PRINT "              (c) Dominic Smith 2002"
70 PRINT "              BBC Basic Test Version"
80 PRINT " "
90 PRINT " "
100PRINT "           Florent Pagny - Savoir Aimer"
110PRINT " "
120PRINT " "
130PRINT "Ecouter la chanson et remplir les mots qui manquent"
140PRINT "Si tu ne les entendes pas, n'inquietes pas - taper"
150PRINT "[enter] pour continuer et tu auras la chance de les"
160PRINT "tenter / deviner encore à la fin."
170PRINT " "
180PRINT "Taper sur [enter] pour continuer. Bonne Chance!"
190INPUT A$
200CLS
210PRINT "Florent Pagny - Savoir Aimer"
220PRINT " "
230PRINT "Savoir xxxxx"
240INPUT A$
250PRINT "A une inconnue qui passe,"
260PRINT "N'en xxxxx aucune trace"
270INPUT B$
280PRINT "Sinon celle du xxxxx"
290INPUT C$
300PRINT "Savoir xxxxx"
310INPUT D$
320PRINT "sans rien xxxxx en retour"
330INPUT E$
340PRINT "ni égard, ni grand amour"
350PRINT "pas même l'espoir d'xxxxx aimé"
360INPUT F$
370REM "The rest of the song would continue as above"
380REM "If inserting the rest of the song, remember to"
390REM "change subsequent line numbers!"
400CLS
410PRINT "Florent Pagny - Savoir Aimer"
420PRINT " "
430PRINT "Voici vos réponses jusqu'à ici :"
440PRINT " "
450PRINT "Savoir (1) "A$" ,"
460PRINT "A une inconnue qui passe,"
470PRINT "N'en (2) "B$" aucune trace,"
480PRINT "Sinon celle du (3) "C$" ,"
490PRINT "Savoir (4) "D$" ,"
500PRINT "sans rien (5) "E$" en retour,"
510PRINT "ni égard, ni grand amour,"
520PRINT "pas même l'espoir d' (6) "F$" aimé."
530PRINT " "
540PRINT "Pour corriger un mot, entrer le numèro."
550PRINT "Si tu est prêt, entrer 0."
555PRINT " "
560INPUT G
570IF G=1 THEN GOTO 740
580IF G=2 THEN GOTO 770
590IF G=3 THEN GOTO 800
600IF G=4 THEN GOTO 830
610IF G=5 THEN GOTO 860
620IF G=6 THEN GOTO 890
630LET G=0
640IF A$="sourire" THEN LET G=G+1
650IF B$="garder" THEN LET G=G+1
660IF C$="plaisir" THEN LET G=G+1
670IF D$="aimer" THEN LET G=G+1
680IF E$="attendre" THEN LET G=G+1
690IF F$="être" THEN LET G=G+1
700IF F$="etre" THEN LET G=G+1
710PRINT " "
720PRINT "Vous avez "G" /6 points!"
730END
740PRINT "Savoir xxxxx"
750INPUT A$
760GOTO 400
770PRINT "N'en xxxxx aucune trace"
780INPUT B$
790GOTO 400
800PRINT "sinon celle du xxxxx"
810INPUT C$
820GOTO 400
830PRINT "Savoir xxxxx"
840INPUT D$
850GOTO 400
860PRINT "sans rien xxxxx en retour"
870INPUT E$
880GOTO 400
890PRINT "pas même l'espoir d'xxxxx aimé"
900INPUT F$
910GOTO 400