10 REM Calcul de surfaces
20 CLS
30 PRINT"Voulez-vous calculer l'aire d'un"
40 PRINT"0 - Carr8"
50 PRINT"1 - Rectangle"
60 PRINT"2 - Triangle"
70 PRINT"3 - Trapeze"
80 PRINT"4 - Losange"
90 PRINT"5 - Cercle"
100 PRINT"Tapez Is chiffre de votre choix ";:INPUT CH
110 CLS
120 IF CH=0 THEN 180
130 IF CH=1 THEN 220
140 IF CH=2 THEN 270
150 IF CH=3 THEN 320
160 IF CH=4 THEN 380
170 IF CH=5 THEN 430
180 PRINT"Donnez-moi la longueur du cote"
190 INPUT CO
200 S=CO*CO
210 GOTO 480
220 PRINT"Donnez-moi la longueur et la largeur"
230 INPUT LA
240 INPUT LO
250 S=LA*LO
260 GOTO 480
270 PRINT"Donnez-moi la base et la hauteur"
280 INPUT BA
290 INPUT HA 
500 S=BA*HA/2
310 GOTO 480
320 PRINT"Donnez-moi la grande base, la petite base et la hauteur"
330 INPUT GB
340 INPUT PB
350 INPUT HA
360 S=(GB+PB)*HA/2
370 GOTO 480
380 PRINT"Donnez-moi la grande diagonals et la petite diagonals"
390 INPUT GD
400 INPUT PD
410 S=GD*PD/2
420 GOTO 480
430 PRINT"Donnez-moi le rayon"
440 INPUT R
450 PI=3.14159
460 S=PI*R*R
470 GOTO 480
480 PRINT"Surface=";8;"m2"
490 PRINT "Voulez-vous recommencer"
500 PRINT"10 - Oui"
510 PRINT"11 - Non"
520 INPUT T
530 CLS
540 IF T=10 THEN 40
550 IF T=11 THEN 560
560 END