CLS
limit = 20: REM number of conversions coped with!
DIM unitlist$(limit, 3)
RESTORE
FOR count = 1 TO limit
FOR part = 1 TO 3
DATA inches,centimetres,2.54,centimetres,inches,.393701
DATA miles,kilometres,1.60934,kilometres,miles,.621371
DATA feet,metres,.3048,metres,feet,3.28084
DATA ounces,grammes,28.32,grammes,ounces,.0353
DATA pounds,kilogrammes,.453592,kilogrammes,pounds,2.20462
DATA Fahrenheit,Centigrade,.5555555555555555,Centigrade,Fahrenheit,1.8
DATA acre,hectare,.4046863,hectare,acre,2.47105
DATA gallon,litre,4.54609,litre,gallon,.219969
DATA Yen (160),Pounds,.00625,Pounds,Yen,160
DATA Dollars (1.5),Pounds,.66666666666666666,Pounds,Dollars,1.5

READ unitlist$(count, part)
NEXT part
NEXT count

PRINT "CONVERSION PROGRAMME          For other calculations press Ctrl-Shift!"
PRINT "                              (provided you've loaded SideKick first)"
PRINT
FOR count = 1 TO 12
IF count < 10 THEN PRINT " ";
PRINT count; ") "; unitlist$(count, 1); " to "; unitlist$(count, 2)
NEXT count
FOR count = 13 TO limit
LOCATE count - 9, 40
PRINT count; ") "; unitlist$(count, 1); " to "; unitlist$(count, 2)
NEXT count
LOCATE 16, 40: PRINT " 99) QUIT"

loop1:
VIEW PRINT 20 TO 25
CLS
LOCATE 20, 2
INPUT "Code for conversion?", unit
IF unit = 99 THEN SYSTEM

IF unit < 1 OR unit > limit THEN GOTO loop1
bonus = 0
IF unit = 11 THEN bonus = -17.777777#
IF unit = 12 THEN bonus = 32

unit$ = unitlist$(unit, 1)
conv$ = unitlist$(unit, 2)
rate = VAL(unitlist$(unit, 3))
PRINT "How many "; unit$;
INPUT inp1
res1 = inp1 * rate + bonus
VIEW PRINT 18 TO 25
LOCATE 18, 2
PRINT inp1; " "; unit$; " = "; res1; " "; conv$; "                    "
GOTO loop1