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