10REM Metric Converter
20REM R.Pashby
30REM April 1990
31REM Refined October 1990
36*KEY0*FX3,6|M*AC.METRIC|MSA."METRIC
"|M*AC.METRIC L|MOLD|M*FX3,0|MRUN|M
38*KEY10OLD|MRUN|M
39*FX200,1
40GOSUB1040
80VDU23;8202;0;0;0;
90PRINT''TAB(4)"Which conversion do y
ou require?"
100PRINT'TAB(4)" 1 - Miles to Kilometr
es"
110PRINT'TAB(4)" 2 - Kilometres to Mil
es"
120PRINT'TAB(4)" 3 - Pounds to Kilogra
mmes"
130PRINT'TAB(4)" 4 - Kilogrammes to Po
unds"
140PRINT'TAB(4)" 5 - Litres to Gallons
"
150PRINT'TAB(4)" 6 - Gallons to Litres
"
155PRINT:PRINT
159VDU132,157,131
160PRINTTAB(5)"Press the appropriate k
ey"
161A=GET
165IF INKEY(-49) THEN GOTO 200
166IF INKEY(-50) THEN GOTO 250
167IF INKEY(-18) THEN GOTO 300
168IF INKEY(-19) THEN GOTO 350
169IF INKEY(-20) THEN GOTO 400
170IF INKEY(-53) THEN GOTO 450
171IFA<0 OR A>6 THEN GOTO 161
200REM A - MILES TO KILOMETRES
201REM 1m=1.609344km
202GOSUB1040
210PRINT'TAB(7)CHR$141" MILES TO KILOM
ETRES"
215PRINTTAB(7)CHR$141" MILES TO KILOME
TRES"
218PRINT''
219VDU132,157,131
220INPUT"Number of miles",M
230K=M*1.609344
238PRINT''
239VDU135,157,132
240PRINT"That is equal to ";K;" kilome
tres"
248GOSUB 1000
249A$=GET$:GOTO40
250REM B - KILOMETRES TO MILES
251REM 1km=0.621371m
252GOSUB1040
255PRINT'TAB(7)CHR$141" KILOMETRES TO
MILES"
260PRINTTAB(7)CHR$141" KILOMETRES TO M
ILES"
268PRINT''
269VDU132,157,131
270INPUT"Number of kilometres",K
280M=K*0.621371
288PRINT''
289VDU129,157,135
290PRINT"That is equal to ";M;" miles"
298GOSUB 1000
299A$=GET$:GOTO40
300REM C - POUNDS TO KILOGRAMMES
301REM 1lb=0.45kg
302GOSUB1040
305PRINT'TAB(6)CHR$141" POUNDS TO KILO
GRAMMES"
310PRINTTAB(6)CHR$141" POUNDS TO KILOG
RAMMES"
318PRINT''
319VDU132,157,131
320INPUT"Number of pounds",P
330K=P*0.45
338PRINT''
339VDU135,157,132
340PRINT"That is equal to ";K;" kilogr
ammes"
348GOSUB 1000
349A$=GET$:GOTO40
350REM D - KILOGRAMMES TO POUNDS
351REM 1kg=2.20lbs
352GOSUB1040
355PRINT'TAB(6)CHR$141" KILOGRAMMES TO
POUNDS"
360PRINTTAB(6)CHR$141" KILOGRAMMES TO
POUNDS"
368PRINT''
369VDU132,157,131
370INPUT"Number of kilogrammes",K
380P=K*2.20
388PRINT''
389VDU135,157,132
390PRINT"That is equal to ";P;" pounds
"
398GOSUB 1000
399A$=GET$:GOTO40
400REM E - LITRES TO GALLONS
401REM 1l=0.22gal
402GOSUB1040
405PRINT'TAB(8)CHR$141" LITRES TO GALL
ONS"
410PRINTTAB(8)CHR$141" LITRES TO GALLO
NS"
418PRINT''
419VDU132,157,131
420INPUT"Number of litres",L
430G=L*0.22
438PRINT''
439VDU135,157,132
440PRINT"That is equal to ";G;" gallon
s"
448GOSUB 1000
449A$=GET$:GOTO40
450REM F - GALLONS TO LITRES
451REM 1gal=4.5l
452GOSUB1040
455PRINT'TAB(8)CHR$141" GALLONS TO LIT
RES"
460PRINTTAB(8)CHR$141" GALLONS TO LITR
ES"
468PRINT''
469VDU132,157,131
470INPUT"Number of gallons",G
480L=G*4.5
488PRINT''
489VDU135,157,132
490PRINT"That is equal to ";L;" litres
"
498GOSUB 1000
499A$=GET$:GOTO40
1000PRINT''''TAB(7)" Press any key for
menu"
1001RETURN
1040CLS
1050PRINTTAB(10)CHR$141" Metric Convert
er"
1055PRINTTAB(10)CHR$141" Metric Convert
er"
1060PRINTTAB(10)CHR$141" **************
**"
1070PRINTTAB(10)CHR$141" **************
**"
1080RETURN