10 DIM a$(20),a%(20),a(20):x$=CHR$(27):cl$=x$+"E"+x$+"H":WIDTH 255:PRINT cl$;"Please select:"
20 RESTORE 30:READ x,y,n,w:FOR a=1 TO n:READ a$(a):NEXT:GOSUB 210
30 DATA 5,5,5,12,Lengths,Area,Weight,Capacity,Finish Using
35 IF z=5 THEN PRINT x$"e";x$"E";x$"HThank you for your assistance.":GOTO 25000:END
40 ON z GOSUB 310,320,330,340
50 PRINT cl$;"Convert from which measurement:"
60 READ r1,r2,x,y,n,w:FOR a=1 TO n:READ a$(a),a(a),a%(a):NEXT:GOSUB 210
70 DATA 0.6214,1.6093,5,3,12,15,inches,63360,1,feet,5280,1,yards,1760,1,rods,320,1,chains,80,1,furlongs,8,1,miles,1,1
80 DATA millimetres,1000000,2,centimeters,100000,2,decimetres,10000,2,meters,1000,2,kilometers,1,2
90 z1=z:PRINT x$;"H";"Convert into which measurement:":x=18:y=4:GOSUB 210
100 PRINT x$"Y0KConvert from "a$(z1);x$"Y1Kinto "a$(z);x$"Y2K"UPPER$(a$(z1));:INPUT amount
110 GOTO 170
120 DATA 0.386,2.5899,5,3,7,15,roods,2560,1,acres,640,1,sq. miles,1,1,sq. meters,1000000,2,ares,10000,2,hectares,100,2,sq. kilometers,1,2
130 DATA 0.984213,1.01604,5,3,9,15,drams,573440,1,ounces,35840,1,pounds,2240,1,stones,160,1,hundredweights,20,1,tons,1,1
140 DATA grams,1000000,2,kilograms,1000,2,tonnes,1,2
150 DATA 0.22021,4.541,5,3,8,15,gills,32,1,pints,8,1,quarts,4,1,gallons,1,1,millilitres,1000,2,centilitres,100,2,litres,1,2,kilolitres,0.001,2
170 IF a%(z)=a%(z1) THEN total=(amount*a(z))/a(z1):PRINT x$"Y3KAnswer: "total;a$(z)
180 IF a%(z)=1 AND a%(z1)=2 THEN total=(amount*a(z))/a(z1)*r1:PRINT x$"Y3KAnswer: "total;a$(z):
190 IF a%(z)=2 AND a%(z1)=1 THEN total=(amount*a(z))/a(z1)*r2:PRINT x$"Y3KAnswer: "total;a$(z):
192 x=43:y=25:n=1:a$(1)="Please press ENTER to continue.":w=LEN(a$(1)):GOSUB 210:RUN
200 READ x,y,n,w:FOR a=1 TO n:READ a$(a):NEXT:DATA 40,0,12,19,Edit all files,Analyse data,Consolidate file,Close,Finish using,Sort,Enter,Exit,Run,Adapt,Control,Edit this one file only,
210 'ENTER with x & y of start;n for number of options, options in a$(), w is width of options.  Answer is z 
220 z=1:x$=CHR$(27):WIDTH 255:PRINT x$"f";
230 FOR a=1 TO n:a$(a)=LEFT$(a$(a)+SPACE$(w),w):NEXT
240 FOR a=1 TO n:IF a=1 THEN yy=y:z$=CHR$(134)+STRING$(w,CHR$(138))+CHR$(140):ELSE yy=y-2+(a*2):z$=CHR$(130)+STRING$(w,CHR$(154))+CHR$(136)
250 GOSUB 300:yy=y-1+(a*2):IF a<>z THEN z$=CHR$(133)+a$(a)+CHR$(133):ELSE z$=CHR$(133)+x$+"p"+a$(a)+x$+"q"+CHR$(133)
260 GOSUB 300:NEXT:yy=y-2+(a*2):z$=CHR$(131)+STRING$(w,CHR$(138))+CHR$(140):GOSUB 300
270 z$=INPUT$(1):IF z$=CHR$(31) THEN z$=CHR$(133)+a$(z):yy=y-1+(z*2):GOSUB 300:GOSUB 400:z$=CHR$(133)+x$+"p"+a$(z)+x$+"q":yy=y-1+(z*2):GOSUB 300:GOTO 270
280 IF z$=CHR$(30) THEN z$=CHR$(133)+a$(z):yy=y-1+(z*2):GOSUB 300:GOSUB 410:z$=CHR$(133)+x$+"p"+a$(z)+x$+"q":yy=y-1+(z*2):GOSUB 300:GOTO 270
290 PRINT x$"e":RETURN
300 PRINT x$+"Y"+CHR$(32+yy)+CHR$(32+x)+z$;:RETURN
310 RESTORE 70:RETURN
320 RESTORE 120:RETURN
330 RESTORE 130:RETURN
340 RESTORE 150:RETURN
400 IF z>1 THEN z=z-1:RETURN:ELSE RETURN
410 IF z<n THEN z=z+1:RETURN:ELSE RETURN
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main me