### Appears on

Cassette to accompany the April 1983 issue of Synchro-Sette.

### Source Code

10 LET A$="MEASUREMENT CONVERSION" 20 CLS 30 FOR N=1 TO 22 40 PRINT AT N-1,29;"\: ";A$(N);"\ :" 50 NEXT N 60 PRINT AT 0,0;"INCHES","- 1","FEET","- 2","YARDS","- 3","MILES","- 4","MILLIMETERS","- 5","CENTIMETERS","- 6","METERS","- 7","KILOMETERS","- 8","TSP","- 9","TBS","-10","CUPS","-11","PINTS","-12","QUARTS","-13","GALLONS","-14","MILLILITERS","-15","LITERS","-16","OUNCES","-17","POUNDS","-18","TONS","-19","GRAMS","-20","KILOGRAMS","-21" 70 INPUT A 80 IF A<1 OR A>21 THEN GOTO 70 85 CLS 90 GOTO A*100 100 PRINT ,,"HOW MANY INCHES? "; 110 INPUT A 120 PRINT A 130 PRINT ,,"= ",,,,A/12," FT",A/36," YDS",A/63360," MILES",A*25.4," MM",A*2.54," CM",A*.0254," MTRS",A*.0000254," KM" 140 INPUT A$ 150 RUN 200 PRINT ,,"HOW MANY FEET? "; 210 INPUT A 220 PRINT A 230 PRINT ,,"=",,,,A*12,"IN",A/3,"YDS",A/5280,"MILES",A*304.8,"MM",A*30.48,"CM",A*.3048,"MTRS",A*.0003048,"KM" 240 INPUT A$ 250 RUN 300 PRINT ,,"HOW MANY YARDS? "; 310 INPUT A 320 PRINT A 330 PRINT ,,"=",,,,A*36,"IN",A*3,"FT",A/1760,"MILES",A*914.4,"MM",A*91.44,"CM",A*.9144,"MTRS",A*.0009144,"KM" 340 INPUT A$ 350 RUN 400 PRINT ,,"HOW MANY MILES? "; 410 INPUT A 420 PRINT A 430 PRINT ,,"=",,,,A*63360,"IN",A*5280,"FT",A*1760,"YARDS",A*1609344,"MM",A*160934.4,"CM",A*1609.344,"MTRS",A*1.609344,"KM" 440 INPUT A$ 450 RUN 500 PRINT ,,"HOW MANY MILLIMETERS? "; 510 INPUT A 520 PRINT A 530 PRINT ,,"=",,,,A/25.4,"IN",A/304.8,"FT",A/914.4,"YARDS",A/1609344,"MILES",A*.1,"CM",A*.001,"MTRS",A*.000001,"KM" 540 INPUT A$ 550 RUN 600 PRINT ,,"HOW MANY CENTIMETERS? "; 610 INPUT A 620 PRINT A 630 PRINT ,,"=",,,,A/2.54,"IN",A/30.48,"FT",A/91.44,"YARDS",A/160934.4,"MILES",A*10,"MM",A*.01,"MTRS",A*.00001,"KM" 640 INPUT A$ 650 RUN 700 PRINT ,,"HOW MANY METERS? "; 710 INPUT A 720 PRINT A 730 PRINT ,,"=",,,,A/.0254,"IN",A/.3048,"FT",A/.9144,"YARDS",A/1609.344,"MILES",A*1000,"MM",A*100,"CM",A*.001,"KM" 740 INPUT A$ 750 RUN 800 PRINT ,,"HOW MANY KILOMETERS? " 810 INPUT A 820 PRINT A 830 PRINT ,,"=",,,,A/.0000254,"IN",A/.0003048,"FT",A/.0009144,"YARDS",A/1.609344,"MILES",A*1000000,"MM",A*100000,"CM",A*1000,"METERS" 840 INPUT A$ 850 RUN 900 PRINT ,,"HOW MANY TEASPOONS? "; 910 INPUT A 920 PRINT A 930 PRINT ,,"=",,,,A/3,"TABLESPOONS",A/48,"CUPS",A/96,"PINTS",A/192,"QUARTS",A/768,"GALLONS",4.9288665*A,"MILLILITERS",.0049288665*A,"LITERS" 940 INPUT A$ 950 RUN 1000 PRINT ,,"HOW MANY TABLESPOONS? "; 1010 INPUT A 1020 PRINT A 1030 PRINT ,,"=",,,,A*3,"TEASPOONS",A/16,"CUPS",A/32,"PINTS",A/64,"QUARTS",A/256,"GALLONS",14.786598*A,"MILLILITERS",.014786598*A,"LITERS" 1040 INPUT A$ 1050 RUN 1100 PRINT ,,"HOW MANY CUPS? "; 1110 INPUT A 1120 PRINT A 1130 PRINT ,,"=",,,,A*48,"TEASPOONS",A*16,"TABLESPOONS",A/2,"PINTS",A/4,"QUARTS",A/16,"GALLONS",236.58557*A,"MILLILITERS",.23658557*A,"LITERS" 1140 INPUT A$ 1150 RUN 1200 PRINT ,,"HOW MANY PINTS? "; 1210 INPUT A 1220 PRINT A 1230 PRINT ,,"=",,,,A*96,"TEASPOONS",A*32,"TABLESPOONS",A*2,"CUPS",A/2,"QUARTS",A/8,"GALLONS",473.17115*A,"MILLILITERS",.47317115*A,"LITERS" 1240 INPUT A$ 1250 RUN 1300 PRINT ,,"HOW MANY QUARTS? "; 1310 INPUT A 1320 PRINT A 1330 PRINT ,,"=",,,,A*192,"TEASPOONS",A*64,"TABLESPOONS",A*4,"CUPS",A*2,"PINTS",A/4,"GALLONS",946.3423*A,"MILLILITERS",.9463423*A,"LITERS" 1340 INPUT A$ 1350 RUN 1400 PRINT ,,"HOW MANY GALLONS? "; 1410 INPUT A 1420 PRINT A 1430 PRINT ,,"=",,,,A*768,"TEASPOONS",A*256,"TABLESPOONS",A*16,"CUPS",A*8,"PINTS",A*4,"QUARTS",3785.3692*A,"MILLILITERS",3.7853692*A,"LITERS" 1440 INPUT A$ 1450 RUN 1500 PRINT ,,"HOW MANY MILLILITERS? "; 1510 INPUT A 1520 PRINT A 1530 PRINT ,,"=",,,,A/4.9288665,"TEASPOONS",A/14.786599,"TABLESPOONS",A/236.58558,"CUPS",A/473.17116,"PINTS",A/946.3423,"QUARTS",A/3785.369,"GALLONS",A/1000,"LITERS" 1540 INPUT A$ 1550 RUN 1600 PRINT ,,"HOW MANY LITERS? "; 1610 INPUT A 1620 PRINT A 1630 PRINT ,,"=",,,,A/.0049288665,"TEASPOONS",A/.014786599,"TABLESPOONS",A/.23658558,"CUPS",A/.47317116,"PINTS",A/.9463423,"QUARTS",A/3.785369,"GALLONS",A*1000,"MILLILITERS" 1640 INPUT A$ 1650 RUN 1700 PRINT ,,"HOW MANY OUNCES? "; 1710 INPUT A 1720 PRINT A 1730 PRINT ,,"=",,,,A/16,"POUNDS",A/32000,"TONS",A*28.35,"GRAMS",A*.02835,"KILOGRAMS" 1740 INPUT A$ 1750 RUN 1800 PRINT ,,"HOW MANY POUNDS? "; 1810 INPUT A 1820 PRINT A 1830 PRINT ,,"=",,,,A*16,"OUNCES",A/2000,"TONS",A*453.6,"GRAMS",A*.4536,"KILOGRAMS" 1840 INPUT A$ 1850 RUN 1900 PRINT ,,"HOW MANY TONS? "; 1910 INPUT A 1920 PRINT A 1930 PRINT ,,"=",,,,A*32000,"OUNCES",A*2000,"POUNDS",A*907200,"GRAMS",A*907.2,"KILOGRAMS" 1940 INPUT A$ 1950 RUN 2000 PRINT ,,"HOW MANY GRAMS? "; 2010 INPUT A 2020 PRINT A 2030 PRINT ,,"=",,,,A/28.35,"OUNCES",A/453.6,"POUNDS",A/907200,"TONS",A/1000,"KILOGRAMS" 2040 INPUT A$ 2050 RUN 2100 PRINT ,,"HOW MANY KILOGRAMS? "; 2110 INPUT A 2120 PRINT A 2130 PRINT ,,"=",,,,A/.02835,"OUNCES",A/.453597,"POUNDS",A/907.200,"TONS",A*1000,"GRAMS" 2140 INPUT A$ 2150 RUN 9998 SAVE "MEASUREMENT CONVERSIO%N" 9999 RUN