10 REM CONVERT
30 PRINT TAB(20) "CONVERT"
40 PRINT TAB(17) "BY RON FORSYTHE"
50 PRINT
60 PRINT "I AM A NUMBER CONVERTER.  MY PURPOSE IS TO CONVERT"
70 PRINT "METRIC MEASURE TO SAE STANDARD AND CENTIGRADE TO"
75 PRINT "FARENHEIT."
77 PRINT
80 PRINT "I WILL ASK YOU QUESTIONS REGARDING TYPES AND UNITS"
90 PRINT "OF CONVERSION.  WHEN YOU ANSWER A QUESTION, END THE"
100 PRINT "ANSWER YOU GIVE ME BY PRESSING THE RETURN KEY."
105 FOR X=1 TO 13
107 PRINT
108 NEXT X
110 INPUT "PRESS RETURN TO CONTINUE";R$
120 PRINT
130 PRINT "   LINEAR MEASURE","   WEIGHT"
135 PRINT "   --------------","   ------"
140 PRINT
150 PRINT "A = MILLIMETERS","F = MILLIGRAMS"
160 PRINT
170 PRINT "B = CENTIMETERS","G = CENTIGRAMS"
180 PRINT
190 PRINT "C = DECIMETERS","H = DECIGRAMS"
200 PRINT
210 PRINT "D = METERS    ","I = GRAMS"
220 PRINT
230 PRINT "E = KILOMETERS","J = KILOGRAMS"
240 PRINT
250 PRINT TAB(10) "M= MORE SELECTIONS"
260 PRINT
270 PRINT TAB(10) "Q = QUIT"
275 FOR X2=1 TO 5
278 PRINT
280 NEXT X2
290 PRINT "PLEASE SELECT THE LETTER THAT CORRESPONDS TO"
300 PRINT "THE UNIT OF MEASURE YOU WISH TO HAVE CONVERTED."
310 INPUT;I$
315 PRINT
320 IF I$="Q" THEN END
330 IF I$="M" GOTO 1000
340 GOSUB 5000
350 IF I$<"F" THEN I=N1*39.37 ELSE O=N1*.035274
490 F=I/12
500 Y=F/3   
502 M=F/5280
504 P1=O/16
510 T=P1/5280
520 IF I$="A" THEN I$=" MILLIMETERS"
530 IF I$="B" THEN I$=" CENTIMETERS"
540 IF I$="C" THEN I$=" DECIMETERS"
550 IF I$="D" THEN I$=" METERS"
560 IF I$="E" THEN I$=" KILOMETERS"
570 IF I$>"E" THEN 700
580 PRINT
590 PRINT N2;I$; " CONVERTS TO:"
595 PRINT
600 PRINT "INCHES: ";I
610 PRINT "FEET: ";F
620 PRINT "YARDS: ";Y
630 PRINT "MILES: ";M
640 FOR X4=1 TO 16
645 PRINT
646 NEXT X4
650 PRINT:INPUT "WOULD YOU LIKE ANOTHER CONVERSION (Y/N)";Y$
660 IF Y$="Y" GOTO 120
670 END
700 IF I$="F" THEN I$=" MILLIGRAMS"
710 IF I$="G" THEN I$=" CENTIGRAMS"
720 IF I$="H" THEN I$=" DECIGRAMS"
730 IF I$="I" THEN I$=" GRAMS"
740 IF I$="J" THEN I$=" KILOGRAMS"
750 PRINT
760 PRINT N2;I$;" CONVERTS TO:"
765 PRINT
770 PRINT "OUNCES: ";O
780 PRINT "POUNDS: ";P1
790 PRINT "SHORT TONS ";T
792 FOR X5=1 TO 17
794 PRINT
796 NEXT X5
800 GOTO 650
1000 PRINT
1005 PRINT TAB(20) "MENU 2"
1007 PRINT TAB(20) "======"
1010 PRINT
1020 PRINT "  LIQUID MEASURE","  TEMPERATURE"
1025 PRINT "  --------------","  -----------"
1030 PRINT
1040 PRINT "A = MILLILITERS","F = CENTIGRADE"
1050 PRINT
1060 PRINT "B = CENTILITERS"
1070 PRINT
1080 PRINT "C = DECILITERS"
1090 PRINT
1100 PRINT "D = LITERS"
1110 PRINT
1120 PRINT "E = KILOLITERS"
1130 FOR X3=1 TO 6
1133 PRINT
1135 NEXT X3
1140 PRINT "PLEASE SELECT THE LETTER THAT CORRESPONDS TO"
1150 PRINT "THE UNIT OF MEASURE YOU WISH TO HAVE CONVERTED"
1160 INPUT I$
1170 PRINT
1180 IF I$="R" THEN 120
1190 IF I$="Q" THEN END
1200 IF I$="F" THEN 2000
1210 GOSUB 5000
1220 P2=N1*2.113
1230 C=P2*2
1240 Q=P2/2
1250 G=Q/4
1260 IF I$="A" THEN I$=" MILLILITERS"
1270 IF I$="B" THEN I$=" CENTILITERS"
1280 IF I$="C" THEN I$=" DECILITERS"
1290 IF I$="D" THEN I$=" LITERS"
1300 IF I$="E" THEN I$=" KILOLITERS"
1310 PRINT
1320 PRINT N2;I$;" CONVERTS TO:"
1325 PRINT
1330 PRINT "CUPS: ";C
1340 PRINT "PINTS: ";P2
1350 PRINT "QUARTS: ";Q
1360 PRINT "GALLONS: ";G
1370 FOR X6=1 TO 17
1372 PRINT
1374 NEXT X6
1380 INPUT "WOULD YOU LIKE ANOTHER CONVERSION (Y/N)";Y$
1390 IF Y$="Y" THEN 120
1400 END
2000 INPUT "NUMBER OF DEGREES CENTIGRADE TO BE CONVERTED";N1
2010 N2=N1
2020 N1=N1*1.8+32
2030 PRINT
2040 PRINT N2;" DEGREES CENTIGRADE IS EQUAL TO"
2050 PRINT N1;" DEGREES FARENHEIT"
2052 FOR X7=1 TO 3
2054 PRINT
2056 NEXT X7
2060 GOTO 1370
5000 REM GOSUB 5000 MODULE TO CONVERT VALUES
5002 PRINT
5005 PRINT "NUMBER OF UNITS TO BE CONVERTED"
5010 INPUT "(-99.99 TO QUIT)";N1
5020 N2=N1
5030 IF N1=-99.99 THEN 650
5040 IF I$="A" THEN N1=N1*.001 ELSE IF I$="F" THEN N1=N1*.001
5050 IF I$="B" THEN N1=N1*.01 ELSE IF I$="G" THEN N1=N1*.01
5060 IF I$="C" THEN N1=N1*.1 ELSE IF I$="H" THEN N1=N1*.1
5070 IF I$="E" THEN N1=N1*1000 ELSE IF I$="J" THEN N1=N1*1000
5080 RETURN
I$="C" THEN N1=N1*.1 ELSE IF I$="H" THEN N1=N1*.1
5070 IF I$="E" THEN N1=N1*1000 ELSE IF I$="J" THEN