10 DATA angstrom, 1.000000e-10
20 DATA arpentcan, 4.428915e+04
30 DATA arpentlin, 5.847131e+01
40 DATA astronomicalunit, 1.495979e+11
50 DATA au, 1.495979e+11
60 DATA barleycorn, 8.466667e-03
70 DATA bolt, 3.657600e+01
80 DATA bottommeasure, 6.350000e-04
90 DATA cable, 2.194560e+02
100 DATA caliber, 2.540000e-04
110 DATA chain, 2.011680e+01
120 DATA cm, 1.000000e-02
130 DATA cubit, 4.572000e-01
140 DATA ell, 1.143000e+00
150 DATA engineerschain, 3.048000e+01
160 DATA engineerslink, 3.048000e-01
170 DATA fathom, 1.828800e+00
180 DATA feet, 3.048000e-01
190 DATA fermi, 1.000000e-15
200 DATA finger, 2.222500e-02
210 DATA foot, 3.048000e-01
220 DATA ft, 3.048000e-01
230 DATA furlong, 2.011680e+02
240 DATA geodeticfoot, 3.048006e-01
250 DATA geographicalmile, 1.852000e+03
260 DATA gunterschain, 2.011680e+01
270 DATA hand, 1.016000e-01
280 DATA in, 2.540000e-02
290 DATA inch, 2.540000e-02
300 DATA km, 1.000000e+03
310 DATA league, 4.828032e+03
320 DATA lightyear, 9.460530e+15
330 DATA line, 2.116667e-03
340 DATA link, 2.011680e-01
350 DATA m, 1.000000e+00
360 DATA marineleague, 5.556000e+03
370 DATA meter, 1.000000e+00
380 DATA mi, 1.609344e+03
390 DATA micron, 1.000000e-06
400 DATA mil, 2.540000e-04
410 DATA mile, 1.609344e+03
420 DATA mm, 1.000000e-03
430 DATA nail, 5.715000e-02
440 DATA nauticalmile, 1.852000e+03
450 DATA nm, 1.000000e-09
460 DATA nmile, 1.852000e+03
470 DATA pace, 9.144000e-01
480 DATA palm, 7.620000e-02
490 DATA parasang, 5.632704e+03
500 DATA parsec, 3.085678e+16
510 DATA pc, 3.085678e+16
520 DATA perch, 5.029200e+00
530 DATA pica, 4.233333e-03
540 DATA point, 3.527778e-04
550 DATA pole, 5.029200e+00
560 DATA quarter, 2.286000e-01
570 DATA rd, 5.029200e+00
580 DATA rod, 5.029200e+00
590 DATA rood, 1.106424e+03
600 DATA rope, 6.096000e+00
610 DATA skein, 1.097280e+02
620 DATA span, 2.286000e-01
630 DATA spindle, 1.316736e+04
640 DATA surveyfoot, 3.048006e-01
650 DATA surveyorschain, 2.011680e+01
660 DATA surveyorslink, 2.011680e-01
670 DATA yard, 9.144000e-01
680 DATA yd, 9.144000e-01
700 DIM U$(70),M(70)
710 FOR I=1TO68:READU$(I),M(I):NEXTI
720 CLS:PRINT"           ";CHR$(27)+"p";" UNIT CONVERSION ";CHR$(27)+"q"
730 INPUT"Units to be converted";T1$:GOSUB 910:U1$=T2$
740 INPUT"How many";N
750 PRINT"Dimension (1,2, or 3)? ";
755 D$=INKEY$:IF D$<>"1"AND D$<>"2" AND D$<>"3" THEN 755 ELSE PRINT D$:D=VAL(D$)
760 INPUT"Units wanted";T1$:GOSUB 910:U2$=T2$
770 M1=0:M2=0
780 FOR I=1 TO 68
790 IF U1$=U$(I) THEN M1=M(I)
800 IF U2$=U$(I) THEN M2=M(I)
810 IF M1*M2 <> 0 GOTO 850
820 NEXT I
830 IF M1=0 THEN PRINT U1$;" IS NOT A LISTED UNIT":GOTO 890
840 IF M2=0 THEN PRINT U2$;" IS NOT A LISTED UNIT":GOTO 890
850 A=N*(M1/M2)^D
860 IF D=1 THEN PRINT N;U1$;"==>";A;U2$
870 IF D=2 THEN PRINT N;"square ";U1$;"==>";A;"square ";U2$
880 IF D=3 THEN PRINT N;"cubic ";U1$;"==>";A;"cubic ";U2$
890 PRINT"Make another conversion?";
895 YN$=INKEY$:IF YN$="" THEN 895
900 IF INSTR("Yy",YN$)<>0 GOTO 720 ELSE END
910 T2$=""
920 FOR I=1 TO LEN(T1$)
930 IF MID$(T1$,I,1)<"a" THEN T2$=T2$+CHR$(ASC(MID$(T1$,I,1))+32) ELSE T2$=T2$+MID$(T1$,I,1)
940 NEXT I
950 RETURN