10 REM convertisseur francs->euros et euros->francs 
20 MODE 2 : INK 0,13 : INK 1,26 : BORDER 0
30 PRINT"Convertisseur Franc<->Euro"
40 PRINT"1. Francs en Euros"
50 PRINT"2. Euros en Francs"
60 INPUT"Votre choix ";choix
70 ON choix GOSUB 80,160
80 CLS:PRINT"Convertisseur Francs -> Euros"
90 INPUT"Valeur en francs";franc
100 euro=franc/6.55957
110 CLS
120 PRINT franc; " Francs donnent " ; euro ; " Euros"
130 CALL &BB18
140 INPUT"Voulez-vous continuer? O/N";quitte$
150 IF (quitte$="o") OR (quitte$="O") THEN GOTO 10 ELSE CLS:STOP
160 CLS:PRINT"Convertisseur Euros -> Francs"
170 INPUT"Valeur en Euros";euro
180 franc=euro*6.55957
190 CLS:PRINT euro;" Euros donnent ";franc;" Francs"
200 GOTO 130