10 CLS
20 PRINT "ANGLO TO METRIC" 
30 DEFDBL A-Z : DEFSNG N
40 PRINT 
50 DIM C(17) 
60 FOR N=1 TO 17 
70 READ C(N) 
80 NEXT N 
90 DATA 2.540,30.400,.3048,.9144,1.609,4.929,14.788,.2366,.4732
100 DATA .9463,3.785,35.24,8.809,28.3495,.4536,907.2,.6214
110 PRINT "(TO END PROGRAM ENTER 0)"
120 PRINT "WHICH CONVERSION DO YOU NEED";
130 INPUT N 
140 IF N=0 THEN 560  
150 IF N>17 THEN 120  
160 PRINT "VALUE TO BE CONVERTED"; 
170 INPUT I 
180 R=I*C(N) 
190 ON N GOTO 200  ,220  ,240  ,260  ,280  ,300  ,320  ,340  ,360  ,380  ,400  ,420  ,440  ,460  ,480  ,500  ,520  
200 PRINT I,"INCHES =";R;"CENTIMETERS" 
210 GOTO 540  
220 PRINT I;"FEET =";R;"CENTIMETERS" 
230 GOTO 540  
240 PRINT I;"FEET =";R;"METERS" 
250 GOTO 540  
260 PRINT I;"YARDS =;R;"METERS" 
270 GOTO 540  
280 PRINT I;"MILES =";R;"KILOMETERS" 
290 GOTO 540  
300 PRINT I;"TSP.=";R;"CUBIC CENTIMETERS" 
310 GOTO 540  
320 PRINT I;"TBSP. =";R;"CUBIC CENTIMETERS" 
330 GOTO 540  
340 PRINT I;"CUPS ="R;"LITERS" 
350 GOTO 540  
360 PRINT I;"PINTS =";R;"LITERS" 
370 GOTO 540  
380 PRINT I;"QUARTS =";R;"LITERS" 
390 GOTO 540  
400 PRINT I;"GALLONS =";R;"LITERS" 
410 GOTO 540  
420 PRINT I;"BUSHELS =";R;"LITERS" 
430 GOTO 540  
440 PRINT I;"PECKS =";R;"LITERS" 
450 GOTO 540  
460 PRINT I;"OUNCES =";R;"GRAMS" 
470 GOTO 540  
480 PRINT I;"POUNDS =";R;"KILOGRAMS" 
490 GOTO 540  
500 PRINT I;"TONS =";R;"KILOGRAMS" 
510 GOTO 540  
520 R=(I-32)*5/9 
530 PRINT I;"DEGREES FAHRENNHEIT =";R;"CELSIUS" 
540 PRINT 
550 GOTO 120  
560 END