Metric Conversion

Source Code

   10 REM   METRIC CONVERSION     An original Programby    G. F. Chambers
   20 POKE 23658,8
   30 PAPER 6: INK 0: BORDER 4
   40 PRINT "\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::..............................\::\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::\::.\::..........................\::.\::\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::\::.\::.\::......................\::.\::.\::\::.\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::.\::\::.\::.\::.\::..................\::.\::.\::.\::\::.\::.\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::.\::.\::\::.\::.\::.\::.\::\::\::\::\::METRIC\::\::\::\::\::.\::.\::.\::.\::\::.\::.\::.\::.\::\::\::CONVERSION\::\::\::.\::.\::.\::.\::\::.\::.\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::.\::.\::\::.\::.\::.\::.\::BY GF CHAMBERS\::.\::.\::.\::.\::\::.\::.\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::.\::.\::\::.\::.\::.\::..................\::.\::.\::.\::\::.\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::.\::\::.\::.\::......................\::.\::.\::\::.\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::.\::\::.\::..........................\::.\::\::.\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::.\::\::..............................\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::"
  270 DIM C(17)
  280 LET T=1100
  290 LET A$="2.54,30.48,.3048,.9144,1.609,4.929,14.788,.2366,.5676,.9463,4.537,35.24,8.809,28.3495,.4536,907.2,.6214,"
  320 LET X=1: LET Y=X
  340 FOR N=1 TO 17
  350 GO SUB 1160
  360 LET C(N)=A: NEXT n
  380 GO SUB 1210
  400 PRINT ,,"  THIS  PROGRAM  WILL  GIVE  THEMETRIC EQUIVALENT TO MANY COMMONIMPERIAL MEASURES" 
  410 PRINT ,," TO  USE  THE  PROGRAM  YOU  MUSTFIRST ENTER THE NUMBER  OPPOSITETHE TYPE OF CONVERSION  REQUIRED",,"  AND THEN ENTER THE QUANTITY"
  420 PRINT ,,,,"   PRESS ANY KEY TO CONTINUE"
  430 PAUSE 0: CLS 
  450 PRINT "       CONVERSION OPTIONS"
  460 PRINT "       \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
  470 PRINT " 1. INCHES TO CENTIMETRES"
  480 PRINT " 2. FEET TO CENTIMETRES"
  490 PRINT " 3. FEET TO METRES"
  500 PRINT " 4. YARDS TO METRES"
  510 PRINT " 5. MILES TO KILOMETRES"
  520 PRINT " 6. TEASPOONS TO CU.CENTIMETRES"
  530 PRINT " 7. TABLESP. TO CU.CENTIMETRES"
  540 PRINT " 8. CUPS TO LITRES"
  550 PRINT " 9. PINTS TO LITRES"
  560 PRINT "10. QUARTS TO LITRES"
  570 PRINT "11. GALLONS TO LITRES"
  580 PRINT "12. BUSHELS TO LITRES"
  590 PRINT "13. PECKS TO LITRES"
  600 PRINT "14. OUNCES TO GRAMS"
  610 PRINT "15. POUNDS TO KILOGRAMS"
  620 PRINT "16. TONS TO KILOGRAMS"
  630 PRINT "17. DEGREES F.TO DEGREES CELSIUS"
  640 PRINT ,,"ENTER NO. OF CONVERSION REQUIRED"
  660 INPUT N: IF N<1 OR N>17 THEN GO TO 660
  680 PRINT INK 2;AT 20,0;"ENTER THE VALUE TO BE CONVERTED",,,
  690 INPUT I
  700 LET R=I*C(N)
  710 GO SUB 1250
  720 CLS 
  730 PRINT AT 10,0;I;
  740 GO TO 750+(N*20)
  750 PRINT " INCHES = ";Z;" CENTIMETRES"
  760 GO TO T
  770 PRINT " INCHES = ";Z;" CENTIMETRES"
  780 GO TO T
  790 PRINT " FEET = ";Z;" CENTIMETRES"
  800 GO TO T
  810 PRINT " FEET = ";Z;" METRES"
  820 GO TO T
  830 PRINT " YARDS = ";Z;" METRES"
  840 GO TO T
  850 PRINT " MILES = ";Z;" KILOMETRES"
  860 GO TO T
  870 PRINT " TSP. = ";Z;" CU. CENTIMETRES"
  880 GO TO T
  890 PRINT " TBSP.= ";Z;" CU. CENTIMETRES"
  900 GO TO T
  910 PRINT " CUPS = ";Z;" LITRES"
  920 GO TO T
  930 PRINT " PINTS = ";Z;" LITRES"
  940 GO TO T
  950 PRINT " QUARTS = ";Z;" LITRES"
  960 GO TO T
  970 PRINT " GALLONS = ";Z;" LITRES"
  980 GO TO T
  990 PRINT " BUSHELS = ";Z;" LITRES"
 1000 GO TO T
 1010 PRINT " PECKS = ";Z;" LITRES"
 1020 GO TO T
 1030 PRINT " OUNCES = ";Z;" GRAMS"
 1040 GO TO T
 1050 PRINT " POUNDS = ";Z;" KILOGRAMS"
 1060 GO TO T
 1070 PRINT " TONS = ";Z;" KILOGRAMS"
 1080 GO TO T
 1090 GO SUB 1280
 1095 PRINT " DEGREES F. = ";Z;" DEGREES",,"     CELSIUS"
 1110 PRINT AT 19,2;"DO YOU HAVE MORE CONVERSIONS?"
 1120 PRINT ,,TAB 10;"PRESS Y/N"
 1130 PAUSE 0
 1140 LET I$=INKEY$: IF I$="Y" THEN GO TO 440
 1150 GO TO 1330
 1160 LET Y=Y+1
 1170 IF A$(Y)<>"," THEN GO TO 1160
 1180 LET A=VAL A$(X TO Y-1)
 1190 LET X=Y+1: RETURN 
 1220 CLS : PRINT " IMPERIAL TO METRIC CONVERSION   \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''": RETURN 
 1250 LET D=10^2
 1260 LET Z=INT (R*D)/D: RETURN 
 1280 LET R=(I-32)*5/9
 1290 GO SUB 1250: RETURN 
 1310 STOP 
 1320 CLS : PRINT AT 10,6;"MAKING OUT IN METRIC"
 1330 PRINT ,,TAB 7;"THE ONLY WAY TO GO"
 1340 PRINT ,,TAB 11;"YOU BETCHA": STOP 
 1350 SAVE "METRIC" LINE 10: GO TO 1320