REM convertisseur francs->euros et euros->francs 
label debut
PRINT "Convertisseur Franc<->Euro"
PRINT"1. Francs en Euros"
PRINT"2. Euros en Francs"
INPUT"Votre choix " choix
switch choix
case 1 :
 PRINT"Convertisseur Francs -> Euros"
 INPUT"Valeur en francs" franc
 euro=franc/6.55957
 PRINT str$(franc) + " Francs donnent " + str$(euro) + " Euros"
break
case 2:
PRINT"Convertisseur Euros -> Francs"
INPUT"Valeur en Euros" euro
franc=euro*6.55957
PRINT str$(euro) + " Euros donnent " + str$(franc) + " Francs"
break
end switch
INPUT"Voulez-vous continuer? O/N" quitte$
IF (quitte$="o") OR (quitte$="O") THEN GOTO debut ELSE goto fin
endif
label fin
print "that's all folks"