10 REM-CONVERSIONS MONNAIES----
20 N1.9 
30 DIM Pl(N1),US(N1),R1(N1),R2(N1)
40 FOR J-0 TO N1
50 READ P$(J),U$(J),R1(J),R2(J)
60 NEXT j 
70 GOSUB 400 
r 
80 INPUT "MONNAIE DE DEPART",D
90 IF D<0 OR D>N1 THEN 80 
100 INPUT "MONNAIE D'ARRIVEE ",A
110 IF A<0 OR A>N1 THEN 100 
120 PRINT
130 INPUT "SOMME A CONVERTIR ",S 
140 PRINT S;US(D);" = "1; 
150 R=S*(R2(D)/R1(D))
160 R=R/(R2(A)/R1(A))
170 PRINT INT(R*1000+.5)/1000;UVA)
180 PRINT 
190 PRINT "SUITE (D, A, S, F) ";
200 INPUT R$
300 IF
14--"F" THEN 350
310 IF RI="" OR R$=" S" THEN 120 
320 GOSUB 400 
330 IF R$=" D" THEN 80
340 IF RS="A" THEN 100 
350 REM-FIN PROGRAMME-- 360 END 
400 REM- AFFICHE LES MONNAIES- -- 410 FOR J=0 TO 24
420 PRINT
430 NEXT j
440 FOR j=0 TO N1
450 PRINT J;"- ":14(j);TAB(15);US(j)
460 NEXT j
470 PRINT
480 RETURN
500 REM-DATAS   
510 DATA FRANCE,FF,1,1000
520 DATA E-U,$,1,8104
530 DATA EUROPE,ECU,1,6737
540 DATA ALLEMAGNE,DM,100,304930
550 DATA BELGIQUE,FB,100,15043
560 DATA PAYS-BAS,FL,100,270480
570 DATA DANEMARK,KRD,100,84110
580 DATA NORVEGE,K,100,102450
590 DATA G.B.,L,1,11447
600 DATA ITALIE,L1,1000,4520