home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 114 / CMDX200.ZIP / CONVERT.UTL < prev    next >
Encoding:
Text File  |  1993-10-26  |  35.2 KB  |  1,552 lines

  1.  
  2. | CONVERT.UTL file
  3.   Copyright 1993 by
  4.   David W. Denker  |
  5.  
  6. Z=INFO:y=int((z-int(z/1e4)*1e4)/1e3):if y<>4}500
  7. Y=INT(Z*.0001):IF Y<110}501
  8. BC7,FC0,CLS
  9. TITLE= CONVERSION PROGRAM 
  10. hoff
  11. windd bb4bf15b14f0;─ * * N O T E * * * N O T E * * * N O T E * * 
  12.  DISCLAIMER:
  13.     Even though I have tested all calculations 
  14.  and  believe them to be accurate,  I  do  not
  15.  guarantee their accuracy.   Your  use  of the
  16.  information  provided  by  this program is at
  17.  your own risk.  If you are using this program
  18.  to make important calculations, I suggest you
  19.  check the degree of accuracy with a different
  20.  source.
  21. ;f4;  Press any key or mouse button to continue.;X
  22. wait50
  23. $Y="   PAGE UP   "
  24. $z="  PAGE DOWN  "
  25. f=0
  26. boff:cls:digl6:digr5:xon:wlcc f14b0:go110
  27.  
  28. #70
  29. hoff:QUIT
  30.  
  31. #80
  32. $v=;° Fahrenheit;
  33. if t<3}81
  34. $v=;° Celsius;
  35. if t<5}81
  36. $v=;° Kelvin;
  37. #81
  38. n=data t{0,5*(n-32)/9,5*(n-32)/9+273
  39. ,9*n/5+32,n+273,n-273,(n-273)*9/5+32}:m=1:digr2:xoff
  40. $w=;° Fahrenheit;
  41. if t=3}r:if t=6}r
  42. $w=;° Celsius;
  43. if t=1}r:if t=5}r
  44. $w=;° Kelvin;:ret
  45.  
  46. #90:moff:woff:n=0
  47. dsp n$v"  to "$wn" Number to be converted: ":n=inp
  48. i=n:if m=0}c80
  49. dsp n" "u^!(i)$v" = "(n*m)$wn:digr5:xon
  50. head b0f14; "C"onvert,  else QUIT ;
  51.  
  52. #91:mset80:mon2
  53. gos400:if r=4}}if k=2}110:IF r=5}}if i<10011}110:go70
  54.  
  55. #92
  56. windd wr(x)wc(y)r3c20" FROM: "nnnnnnnnnnnnnnnnnnnnn
  57. wdsp l1$an$bn$cn$dn$en$fn$gn$hn$in$jn$kn$ln$mn$nn$on$pn$qn$rn$sn$tn
  58. gos100:$v=$(j):ret
  59.  
  60. #93
  61. windd wr(x)wc(y)r3c40" TO: "nnnnnnnnnn
  62. wdsp l1$an$bn$cn$dn$en$fn$gn$hn$in$jn$kn$ln
  63. gos100:$w=$(j):ret
  64.  
  65. #99:j=data k{1,1,2,3,0,4,5,6,6,6,7,7,8,8,9,9,10,10,11,12,0,0,12,0,12,0}
  66. r=0:ret
  67.  
  68. #100
  69. i=mlin:if i>99}100
  70. #101:k=kyck:if k<>0}102
  71. i=mlin:if i=0}101:if i>99}104:if i>x-2}101:if i=j}101:j=i:go103
  72. #102:if k=13}105:if k=27}70:if k=273}106:if k=281}107:if k=275}108
  73. if k=259}114:if k=272}}if j>0}}j=j-1:if k=280}}if j<x-2}}j=j+1:if f=0}103
  74. if k>64}}if k<91}}k=k+32:if k>96}}if k<123}109
  75. #103:wlcc L(j):goto101
  76. #104:i=i-int(i/100)*100:j=i
  77. #105:r=0:ret
  78. #106:r=1:ret:|page up|
  79. #107:r=2:ret:|page down|
  80. #108:r=3:j=1:ret:|<--|
  81. #109:r=4:k=k-97:ret:|A to Z|
  82. #114:r=5:ret
  83.  
  84. #110:mon2:head b0f14; Pick by the LETTER or use  CURSOR keys or MOUSE. 
  85.   Press ESC to quit.;
  86. j=0:x=16:windd wr(x)wc13r3c5bb1bf15b3f0" GROUP: 
  87.  "!A", "!B"
  88.  "!C"
  89.  "!D"
  90.  "!F"
  91.  "!G"
  92.  "!H", "!I", "!J"
  93.  "!K", "!L"
  94.  "!M", "!N"
  95.  "!O", "!P"
  96.  "!Q", "!R"
  97.  "!S"
  98.  "!T", "!W", "!Y"
  99.    [ESC]
  100.  HELP [F1]"
  101. #111:f=1:gos100:f=0:if r=5}450:if r=4}c99:if j=0}110
  102. if r=0}112:if r=4}112:go110
  103. #112
  104. head b0f14; Pick using  CURSOR keys or MOUSE. 
  105.   Press ESC to quit.;
  106. on(j)g{115,130,150,165,180,200,220,240,260,280,300,320,70,450}:go70
  107.  
  108. #115
  109. $a=" Acres"
  110. $b=" Acre-feet"
  111. $c=" Ares"
  112. $d=" Atmospheres"
  113. $e=" Barrels-oil"
  114. $f=" Barrels-cement"
  115. $g=" Bags-cement"
  116. $h=" B.T.U."
  117. $i=" B.T.U./min."
  118. $j=" Bushels"
  119. $k=" Bushels (Imp.)"
  120. $l=$z
  121. j=0:x=14:y=18:gos92:if r=2}130:if r=3}110
  122. on(j)g{117,118,127,119,120,121,122,123,124,126,125,130}:go110
  123.  
  124. #117:|acres|
  125. $a=" Square feet"
  126. $b=" Hectares"
  127. $c=" Square meters"
  128. $d=" Square miles"
  129. $e=" Square rods"
  130. $f=" Square yards"
  131. j=0:x=8:y=17:gos93:if j=0}115:if r=3}115
  132. m=data j{0,43560,.4046849,4046.8564,.001562,160,4840}:goto90
  133.  
  134. #118:|acre-feet|
  135. $a=" Cubic feet"
  136. $b=" Gallons"
  137. $c=" Cubic meters"
  138. j=0:x=5:y=16:gos93:if j=0}115:if r=3}115
  139. m=data j{0,43560,325851.426,1233.48186}:goto90
  140.  
  141. #119:|atmospheres|
  142. $a=" Cms. of mercury (0°C)"
  143. $b=" Inches of mercury (32°F)"
  144. $c=" Feet of water (60°F)"
  145. $d=" Kgs./sq.meter"
  146. $e=" Lbs./sq.inch"
  147. $f=" Tons/sq.ft."
  148. j=0:x=8:y=28:gos93:if j=0}115:if r=3}115
  149. m=data j{0,76,29.921307,33.933965,10332.3,14.696,1.05811}:goto90
  150.  
  151. #120:|barrels-oil|
  152. $a=" Gallons-oil"
  153. $b=" Liters-oil"
  154. j=0:x=4:y=15:gos93:if j=0}115:if r=3}115
  155. m=data j{0,42,158.982852}:goto90
  156.  
  157. #121:|barrels-cement|
  158. $a=" Bags-cement"
  159. $b=" Pounds-cement"
  160. $c=" Kgs-cement"
  161. j=0:x=5:y=17:gos93:if j=0}115:if r=3}115
  162. m=data j{0,4,376,170.550742}:goto90
  163.  
  164. #122:|bags-cement|
  165. $a=" Pounds-cement"
  166. $b=" Kgs-cement"
  167. j=0:x=4:y=17:gos93:if j=0}115:if r=3}115
  168. m=data j{0,94,42.637686}:goto90
  169.  
  170. #123:|B.T.U.|
  171. $a=" Kilogram-calories"
  172. $b=" Foot-lbs."
  173. $c=" Horsepower-hrs."
  174. $d=" Joules"
  175. $e=" Kilogram-meters"
  176. $f=" Kilowatt-hrs."
  177. j=0:x=8:y=21:gos93:if j=0}115:if r=3}115
  178. m=data j{0,.252,777.649,.000392752,1054.35,107.514,.000292875}:goto90
  179.  
  180. #124:|B.T.U./min|
  181. $a=" Foot-lbs./sec."
  182. $b=" Horsepower"
  183. $c=" Kilowatts"
  184. $d=" Watts"
  185. j=0:x=6:y=18:gos93:if j=0}115:if r=3}115
  186. m=data j{0,12.960817,.02355556,.0175725,17.5725}:goto90
  187.  
  188. #125:|bushels (imp)|
  189. $a=; Cubic inches;
  190. $b=; Cubic meters;
  191. $c=; Gallons;
  192. $d=; Pecks;
  193. j=0:x=6:y=16:gos93:if j=0}115:if r=3}115
  194. m=data j{0,2219.36,.036,8,4}:goto90
  195.  
  196. #126:|bushels|
  197. $a=; Cubic feet;
  198. $b=; Cubic inches;
  199. $c=; Cubic meters;
  200. $d=; Liters;
  201. $e=; Pecks;
  202. $f=; Pints (dry);
  203. $g=; Quarts (dry);
  204. j=0:x=9:y=16:gos93:if j=0}115:if r=3}115
  205. m=data j{0,1.244456,2150.42,.03523907,35.23808,4,64,32}:goto90
  206.  
  207. #127:|ares|
  208. $a=; Centare;
  209. $b=; Hectare;
  210. $c=; Square meters;
  211. $d=; Square yards;
  212. j=0:x=6:y=17:gos93:if j=0}115:if r=3}115
  213. m=data j{0,100,.001,100,119.599}:goto90
  214.  
  215. #130
  216. $a=$y
  217. $b=; Centares (Centiares);
  218. $c=; Centigrams;
  219. $d=; Centiliters;
  220. $e=; Centimeters;
  221. $f=; Centimeters of mercury (0°C);
  222. $g=; Centimeters/sec.;
  223. $h=; Cubic centimeters;
  224. $i=; Cubic feet;
  225. $j=; Cubic feet/min.;
  226. $k=; Cubic feet/sec.;
  227. $l=; Cubic inches;
  228. $m=; Cubic meters;
  229. $n=; Cubic yards;
  230. $o=; Cubic yards/min.;
  231. $p=$z
  232. j=0:x=18:y=32:gos92:if r=1}115:if r=2}150:if r=3}110
  233. on(j)g{115,132,133,134,135,136,137,139,140,141,142,143,144,145,146,150}
  234. go110
  235.  
  236. #132:|centares|
  237. $a=; Ares;
  238. $b=; Square feet;
  239. $c=; Square meters;
  240. j=0:x=5:y=17:gos93:if j=0}130:if r=3}130
  241. m=data j{0,.001,10.7639,1}:goto90
  242.  
  243. #133:|centigrams|
  244. $a=; Grams;
  245. $b=; Grains;
  246. j=0:x=4:y=10:gos93:if j=0}130:if r=3}130
  247. m=data j{0,.01,.1543236}:goto90
  248.  
  249. #134:|centiliters|
  250. $a=; Cubic inches;
  251. $b=; Fluidounces;
  252. $c=; Liters;
  253. j=0:x=5:y=16:gos93:if j=0}130:if r=3}130
  254. m=data j{0,.610254,.3381497,.01}:goto90
  255.  
  256. #135:|centimeters|
  257. $a=; Inches;
  258. $b=; Meters;
  259. $c=; Millimeters;
  260. j=0:x=5:y=15:gos93:if j=0}130:if r=3}130
  261. m=data j{0,1/2.54,.01,10}:goto90
  262.  
  263. #136:|cms of mercury|
  264. $a=; Atmospheres;
  265. $b=; Feet of water (60°F);
  266. $c=; Kgs./sq.meter;
  267. $d=; Lbs./sq.ft.;
  268. $e=; Lbs./sq.inch;
  269. j=0:x=7:y=24:gos93:if j=0}130:if r=3}130
  270. m=data j{0,.0131579,.4461,135.951,27.845,.193368}:goto90
  271.  
  272. #137:|cms/sec|
  273. $a=; Feet/min.;
  274. $b=; Feet/sec.;
  275. $c=; Kilometers/hr.;
  276. $d=; Meters/min.;
  277. $e=; Miles/hr.;
  278. $f=; Miles/min.;
  279. j=0:x=8:y=18:gos93:if j=0}130:if r=3}130
  280. m=data j{0,1.968504,.0328084,.036,.6,.02236936,.0003728227}:goto90
  281.  
  282. #139:|cubic cms|
  283. $a=; Cubic feet;
  284. $b=; Cubic inches;
  285. $c=; Cubic meters;
  286. $d=; Cubic yards;
  287. $e=; Gallons;
  288. $f=; Liters;
  289. $g=; Pints (liq.);
  290. $h=; Quarts (liq.);
  291. j=0:x=10:y=17:gos93:if j=0}130:if r=3}130
  292. m=data j{0,3.5314667E-5,.06102374,1E-6,1.3079506E-6,2.6417205E-4,.001,
  293. .002113376,.001056688}
  294. goto90
  295.  
  296. #140:|cubic feet|
  297. $a=; Cubic centimeters;
  298. $b=; Cubic inches;
  299. $c=; Cubic meters;
  300. $d=; Cubic yards;
  301. $e=; Gallons;
  302. $f=; Liters;
  303. $g=; Pints (liq.);
  304. $h=; Quarts (liq.);
  305. j=0:x=10:y=22:gos93:if j=0}130:if r=3}130
  306. m=data j{0,28320,1728,.02831685,.03704,7.48052,28.31605,59.844156,29.922078}
  307. goto90
  308.  
  309. #141:|cubic ft/min|
  310. $a=; Cubic cms./sec.;
  311. $b=; Gallons/sec.;
  312. $c=; Liters/sec.;
  313. $d=; Lbs.of water/min.;
  314. j=0:x=6:y=22:gos93:if j=0}130:if r=3}130
  315. m=data j{0,471.94744,.1246753,.471934,62.4262}:goto90
  316.  
  317. #142:|cubic ft/sec|
  318. $a=; Millions gals./day;
  319. $b=; Gallons/min.;
  320. j=0:x=4:y=22:gos93:if j=0}130:if r=3}130
  321. m=data j{0,.646317,448.831}:goto90
  322.  
  323. #143:|cubic inches|
  324. $a=; Cubic centimeters;
  325. $b=; Cubic feet;
  326. $c=; Cubic meters;
  327. $d=; Cubic yards;
  328. $e=; Gallons;
  329. $f=; Liters;
  330. $g=; Pints (liq.);
  331. $h=; Quarts (liq.);
  332. j=0:x=10:y=21:gos93:if j=0}130:if r=3}130
  333. m=data j{0,16.38706,5.787E-4,1.638706E-5,2.143347E-5,.004329,.01638661,
  334. .03463,.01732}
  335. goto90
  336.  
  337. #144:|cubic meters|
  338. $a=; Cubic centimeters;
  339. $b=; Cubic feet;
  340. $c=; Cubic inches;
  341. $d=; Cubic yards;
  342. $e=; Gallons;
  343. $f=; Liters;
  344. $g=; Pints (liq.);
  345. $h=; Quarts (liq.);
  346. j=0:x=10:y=21:gos93:if j=0}130:if r=3}130
  347. m=data j{0,1E6,35.314666,61023.743,1.3079506,264.17205,1E3,2113,1057}:goto90
  348.  
  349. #145:|cubic yards|
  350. $a=; Cubic centimeters;
  351. $b=; Cubic feet;
  352. $c=; Cubic inches;
  353. $d=; Cubic meters;
  354. $e=; Gallons;
  355. $f=; Liters;
  356. $g=; Pints (liq.);
  357. $h=; Quarts (liq.);
  358. j=0:x=10:y=21:gos93:if j=0}130:if r=3}130
  359. m=data j{0,764554.87,27,46656,.7645.5487,201.974,764.65335,1616,807.9}:goto90
  360.  
  361. #146:|cubic yards/min|
  362. $a=; Cubic feet/sec.;
  363. $b=; Gallons/sec.;
  364. $c=; Liters/sec.;
  365. j=0:x=5:y=19:gos93:if j=0}130:if r=3}130
  366. m=data j{0,.45,3.366234,12.74222}:goto90
  367.  
  368. #150
  369. $a=$y
  370. $b=; Decigrams;
  371. $c=; Deciliters;
  372. $d=; Decimeters;
  373. $e=; Degrees (angle);
  374. $f=; Degrees/sec.;
  375. $g=; Dekagrams;
  376. $h=; Dekaliters;
  377. $i=; Dekameters;
  378. $j=; Drams;
  379. $k=$z
  380. j=0:x=13:y=19:gos92:if r=1}130:if r=2}165:if r=3}110
  381. on(j)g{130,152,153,154,155,156,157,158,159,160,165}:go110
  382.  
  383. #152:|decigrams|
  384. $w=; Grams;:m=.1:goto90
  385.  
  386. #153:|deciliters|
  387. $w=; Liters;:m=.1:goto90
  388.  
  389. #154:|decimeters|
  390. $w=; Meters;:m=.1:goto90
  391.  
  392. #155:|degrees|
  393. $a=; Grads;
  394. $b=; Minutes (angle);
  395. $c=; Radians;
  396. $d=; Seconds (angle);
  397. j=0:x=6:y=19:gos93:if j=0}150:if r=3}150
  398. m=data j{0,100/90,60,pi/180,3600}:goto90
  399.  
  400. #156:|degrees/sec|
  401. $a=; Radians/sec.;
  402. $b=; Revolutions/min.;
  403. $c=; Revolutions/sec.;
  404. j=0:x=5:y=20:gos93:if j=0}150:if r=3}150
  405. m=data j{0,.01745,.16666667,.002777778}:goto90
  406.  
  407. #157:|dekagrams|
  408. $w=; Grams;:m=10:goto90
  409.  
  410. #158:|dekaliters|
  411. $w=; Liters;:m=10:goto90
  412.  
  413. #159:|dekameters|
  414. $w=; Meters;:m=10:goto90
  415.  
  416. #160:|drams|
  417. $a=; Grains;
  418. $b=; Ounces;
  419. $c=; Grams;
  420. j=0:x=5:y=10:gos93:if j=0}150:if r=3}150
  421. m=data j{0,27.34375,.0625,1.771845}:goto90
  422.  
  423. #165
  424. $a=$y
  425. $b=; Fathoms;
  426. $c=; Feet;
  427. $d=; Feet of water (60°F);
  428. $e=; Feet/min.;
  429. $f=; Feet/sec.;
  430. $g=; Fluidounces;
  431. $h=; Fluidounces (Imp.);
  432. $i=; Fluidrams;
  433. $j=; Fluidrams (Imp.);
  434. $k=; Foot-pounds;
  435. $l=; Foot-pounds/min.;
  436. $m=; Foot-pounds/sec.;
  437. $n=; Furlongs;
  438. $o=$z
  439. j=0:x=17:y=24:gos92:if r=1}150:if r=2}180:if r=3}110
  440. on(j)g{150,167,168,169,170,171,176,177,178,179,173,174,175,172,180}:go110
  441.  
  442. #167:|fathoms|
  443. $a=; Feet;
  444. $b=; Meters;
  445. $c=; Yards;
  446. j=0:x=5:y=10:gos93:if j=0}165:if r=3}165
  447. m=data j{0,6,1.8288,2}:goto90
  448.  
  449. #168:|feet|
  450. $a=; Centimeters;
  451. $b=; Inches;
  452. $c=; Meters;
  453. $d=; Yards;
  454. j=0:x=6:y=15:gos93:if j=0}165:if r=3}165
  455. m=data j{0,30.48,12,.3048,1/3}:goto90
  456.  
  457. #169:|ft of water|
  458. $a=; Atmospheres;
  459. $b=; Inches of mercury (32°F);
  460. $c=; Kgs./sq.meter;
  461. $d=; Lbs./sq.ft.;
  462. $e=; Lbs./sq.inch;
  463. j=0:x=7:y=28:gos93:if j=0}165:if r=3}165
  464. m=data j{0,.029469,.882646,304.791,62.4262,.433515}:goto90
  465.  
  466. #170:|ft/min|
  467. $a=; Centimeters/sec.;
  468. $b=; Feet/sec.;
  469. $c=; Kilometers/hr.;
  470. $d=; Meters/min.;
  471. $e=; Miles/hr.;
  472. j=0:x=7:y=20:gos93:if j=0}165:if r=3}165
  473. m=data j{0,.508,.01666667,.018288,.3048,.01136363}:goto90
  474.  
  475. #171:|ft/sec|
  476. $a=; Centimeters/sec.;
  477. $b=; Kilometers/hr.;
  478. $c=; Knots;
  479. $d=; Meters/min.;
  480. $e=; Miles/hr.;
  481. $f=; Miles/min.;
  482. j=0:x=8:y=20:gos93:if j=0}165:if r=3}165
  483. m=data j{0,30.48,1.09728,.05924838,18.288,.6818182,.01136363}:goto90
  484.  
  485. #172:|furlongs|
  486. $a=; Miles;
  487. $b=; Rods;
  488. j=0:x=4:y=9:gos93:if j=0}165:if r=3}165
  489. m=data j{0,.125,40}:goto90
  490.  
  491. #173:|ft-lbs|
  492. $a=; B.T.U.;
  493. $b=; Horsepower-hrs.;
  494. $c=; Joules;
  495. $d=; Kilogram-calories;
  496. $e=; Kilogram-meters;
  497. $f=; Kilowatt-hrs.;
  498. j=0:x=8:y=21:gos93:if j=0}165:if r=3}165
  499. m=data j{0,.00128593,1/198E4,1.35582,3.24048E-4,.138255,3.76617E-7}:goto90
  500.  
  501. #174:|ft-lbs/min|
  502. $a=; B.T.U./min.;
  503. $b=; Foot-pounds/sec.;
  504. $c=; Horsepower;
  505. $d=; Kg.-calories/min.;
  506. $e=; Kilowatts;
  507. j=0:x=7:y=21:gos93:if j=0}165:if r=3}165
  508. m=data j{0,.00128593,1/60,1/33000,3.24048E-4,2.2597E-5,}:goto90
  509.  
  510. #175:|ft-lbs/sec|
  511. $a=; B.T.U./min.;
  512. $b=; Horsepower;
  513. $c=; Kg.-calories/min.;
  514. $d=; Kilowatts;
  515. j=0:x=6:y=21:gos93:if j=0}165:if r=3}165
  516. m=data j{0,.0771558,1/550,.01944288,.00135582}:goto90
  517.  
  518. #176:|fluidounces|
  519. $a=; Cubic inches;
  520. $b=; Fluidrams;
  521. $c=; Milliliters;
  522. j=0:x=5:y=16:gos93:if j=0}165:if r=3}165
  523. m=data j{0,1.804,8,29.573}:goto90
  524.  
  525. #177:|fluidounces (imp)|
  526. $a=; Cubic centimeters;
  527. $b=; Cubic inches;
  528. $c=; Fluidrams;
  529. j=0:x=5:y=21:gos93:if j=0}165:if r=3}165
  530. m=data j{0,28.416,1.7339,8}:goto90
  531.  
  532. #178:|fluidrams|
  533. $a=; Cubic inches;
  534. $b=; Milliliters;
  535. $c=; Minims;
  536. j=0:x=5:y=16:gos93:if j=0}165:if r=3}165
  537. m=data j{0,.225,3.696,60}:goto90
  538.  
  539. #179:|fluidrams (imp)|
  540. $a=; Cubic centimeters;
  541. $b=; Cubic inches;
  542. $c=; Minims;
  543. j=0:x=5:y=21:gos93:if j=0}165:if r=3}165
  544. m=data j{0,3.5516,.216734,60}:goto90
  545.  
  546. #180
  547. $a=$y
  548. $b=; Gallons;
  549. $c=; Gallons (Imperial);
  550. $d=; Gallons water;
  551. $e=; Gallons/min.;
  552. $f=; Gallons water/min.;
  553. $g=; Gills;
  554. $h=; Gills (Imperial);
  555. $i=; Grads;
  556. $j=; Grains (troy);
  557. $k=; Grains/gallon;
  558. $l=; Grains/Imp.gallon;
  559. $m=; Grams;
  560. $n=; Grams/centimeter;
  561. $o=; Grams/cu.centimeter;
  562. $p=; Grams/liter;
  563. $q=$z
  564. j=0:x=19:y=23:gos92:if r=1}165:if r=2}200:if r=3}110
  565. on(j)g{165,182,183,184,185,186,194,195,196,187,188,189,190,191,192,193,200}
  566. go110
  567.  
  568. #182:|gallons|
  569. $a=; Cubic centimeters;
  570. $b=; Cubic feet;
  571. $c=; Cubic inches;
  572. $d=; Cubic meters;
  573. $e=; Cubic yards;
  574. $f=; Liters;
  575. $g=; Pints (liq.);
  576. $h=; Quarts (liq.);
  577. $i=; Imperial gallons;
  578. j=0:x=11:y=21:gos93:if j=0}180:if r=3}180
  579. m=data j{0,3785.306,.1336.80555,231,.003785306,.004951132,3.785306,8,4,.83267}
  580. goto90
  581.  
  582. #183:|gallons (imp)|
  583. $a=; Cubic inches;
  584. $b=; Liters;
  585. $c=; Quarts (Imp);
  586. $d=; U.S. Gallons;
  587. j=0:x=6:y=16:gos93:if j=0}180:if r=3}180
  588. m=data j{0,277.42,4.545,4,1.20095}:goto90
  589.  
  590. #184:|gallons water|
  591. $w=; Pounds of water;:m=8.3453:goto90
  592.  
  593. #185:|gallons/min|
  594. $a=; Cubic feet/sec.;
  595. $b=; Liters/sec.;
  596. $c=; Cu.ft./hr.;
  597. j=0:x=5:y=19:gos93:if j=0}180:if r=3}180
  598. m=data j{0,.002228009,.06308842,8.020832}:goto90
  599.  
  600. #186:|gallons water/min|
  601. $w=; Tons water/24 hrs.;:m=6.0086:goto90
  602.  
  603. #187:|grains (troy)|
  604. $a=; Grams;
  605. $b=; Pennyweights (troy);
  606. $c=; Ounces (troy);
  607. j=0:x=5:y=23:gos93:if j=0}180:if r=3}180
  608. m=data j{0,.0647989,.04166667,.0020833}:goto90
  609.  
  610. #188:|grains/gallon|
  611. $a=; Parts/million;
  612. $b=; Lbs./million gal.;
  613. j=0:x=4:y=21:gos93:if j=0}180:if r=3}180
  614. m=data j{0,17.118,142.86}:goto90
  615.  
  616. #189:|grains/imp gallon|
  617. $w=; Parts/million;:m=14.254:goto90
  618.  
  619. #190:|grams|
  620. $a=; Dynes;
  621. $b=; Grains;
  622. $c=; Kilograms;
  623. $d=; Milligrams;
  624. $e=; Ounces;
  625. $f=; Ounces (troy);
  626. $g=; Pounds;
  627. j=0:x=9:y=17:gos93:if j=0}180:if r=3}180
  628. m=data j{0,980.7,15.43,.001,1000,.03527396,.03215074,.0022046226}:goto90
  629.  
  630. #191:|grams/cm|
  631. $w=; Pounds/inch;:m=.00559974:goto90
  632.  
  633. #192:|grams/cubic cm|
  634. $a=; Pounds/cubic foot;
  635. $b=; Pounds/cubic inch;
  636. j=0:x=4:y=21:gos93:if j=0}180:if r=3}180
  637. m=data j{0,62.427961,.036127292}:goto90
  638.  
  639. #193:|grams/liter|
  640. $a=; Grains/gal.;
  641. $b=; Pounds/1000 gals.;
  642. $c=; Pounds/cubic foot;
  643. $d=; Parts/million;
  644. j=0:x=6:y=21:gos93:if j=0}180:if r=3}180
  645. m=data j{0,58.417,8.345,.062427,1000}:goto90
  646.  
  647. #194:|gills|
  648. $a=; Cubic inches;
  649. $b=; Fluidounces;
  650. $c=; Milliliters;
  651. j=0:x=5:y=16:gos93:if j=0}180:if r=3}180
  652. m=data j{0,7.218,4,118.291}:goto90
  653.  
  654. #195:|gills (imp)|
  655. $a=; Cubic centimeters;
  656. $b=; Cubic inches;
  657. $c=; Fluidounces;
  658. j=0:x=5:y=21:gos93:if j=0}180:if r=3}180
  659. m=data j{0,142.066,8.669,5}:goto90
  660.  
  661. #196:|grads|
  662. $a=; Degrees;
  663. $b=; Radians;
  664. j=0:x=4:y=11:gos93:if j=0}180:if r=3}180
  665. m=data j{0,90/100,90/100*pi/180}:goto90
  666.  
  667. #200
  668. $a=$y
  669. $b=; Hectares;
  670. $c=; Hectograms;
  671. $d=; Hectoliters;
  672. $e=; Hectometers;
  673. $f=; Hectowatts;
  674. $g=; Horsepower;
  675. $h=; Horsepower (boiler);
  676. $i=; Horsepower-hours;
  677. $j=; Inches;
  678. $k=; Inches of mercury (32°F);
  679. $l=; Inches of water (60°F);
  680. $m=; Joules;
  681. $n=$z
  682. j=0:x=16:y=28:gos92:if r=1}180:if r=2}220:if r=3}110
  683. on(j)g{180,202,203,204,205,206,207,208,209,210,211,212,213,220}:go110
  684.  
  685. #202:|hectares|
  686. $a=; Acres;
  687. $b=; Square feet;
  688. j=0:x=4:y=15:gos93:if j=0}200:if r=3}200
  689. m=data j{0,2.471,1.076391E5}:goto90
  690.  
  691. #203:|hectograms|
  692. $w=; Grams;:m=100:goto90
  693.  
  694. #204:|hectoliters|
  695. $w=; Liters;:m=100:goto90
  696.  
  697. #205:|hectometers|
  698. $w=; Meters;:m=100:goto90
  699.  
  700. #206:|hectowatts|
  701. $w=; Watts;:m=100:goto90
  702.  
  703. #207:|horsepower|
  704. $a=; B.T.U./hr.;
  705. $b=; Foot-lbs./min.;
  706. $c=; Foot-lbs./sec.;
  707. $d=; Horsepower (metric);
  708. $e=; Kg.-calories/min.;
  709. $f=; Kilowatts;
  710. $g=; Watts;
  711. j=0:x=9:y=23:gos93:if j=0}200:if r=3}200
  712. m=data j{0,2546.136,33000,550,1.01427,10.6979,.745702,745.702}:goto90
  713.  
  714. #208:|horsepower (boiler)|
  715. $a=; B.T.U./hr.;
  716. $b=; Kilowatts;
  717. j=0:x=4:y=14:gos93:if j=0}200:if r=3}200
  718. m=data j{0,33445.7,9.8095}:goto90
  719.  
  720. #209:|horsepower-hrs|
  721. $a=; B.T.U.;
  722. $b=; Foot-pounds;
  723. $c=; Joules;
  724. $d=; Kilogram-calories;
  725. $e=; Kilogram-meters;
  726. $f=; Kilowatt-hours;
  727. j=0:x=8:y=21:gos93:if j=0}200:if r=3}200
  728. m=data j{0,2546.136,1980002,2684520,641.616,2.73745E5,.745702}:goto90
  729.  
  730. #210:|inches|
  731. $a=; Centimeters;
  732. $b=; Millimeters;
  733. j=0:x=4:y=15:gos93:if j=0}200:if r=3}200
  734. m=data j{0,2.54,25.4}:goto90
  735.  
  736. #211:|inches of mercury|
  737. $a=; Atmospheres;
  738. $b=; Feet of water (60°F);
  739. $c=; Kgs./sq.meter;
  740. $d=; Lbs./sq.ft.;
  741. $e=; Lbs./sq.inch;
  742. j=0:x=7:y=24:gos93:if j=0}200:if r=3}200
  743. m=data j{0,.033421,1.132957,345.316,70.7262,.491154}:goto90
  744.  
  745. #212:|inches of water|
  746. $a=; Atmospheres;
  747. $b=; Inches of mercury (32°F);
  748. $c=; Kgs./sq.meter;
  749. $d=; Ounces/sq.inch;
  750. $e=; Lbs./sq.ft.;
  751. $f=; Lbs./sq.inch;
  752. j=0:x=8:y=28:gos93:if j=0}200:if r=3}200
  753. m=data j{0,.002458,.0735539,25.3993,.57802,5.20218,.0361263}:goto90
  754.  
  755. #213:|joules|
  756. $a=; B.T.U.;
  757. $b=; Calories;
  758. $c=; Foot-pounds;
  759. $d=; Hoursepower-hours;
  760. $e=; Kilogram-calories;
  761. $f=; Watt-hours;
  762. j=0:x=8:y=21:gos93:if j=0}200:if r=3}200
  763. m=data j{0,9.48452E-4,1/4.184,.737561,3.725061E-7,2.38662E-4,2.77777778E-4}:goto90
  764.  
  765. #220
  766. $a=$y
  767. $b=; Kilograms;
  768. $c=; Kilogram-calories;
  769. $d=; Kilogram-cal./min.;
  770. $e=; Kilograms/meter;
  771. $f=; Kilograms/sq.centimeter;
  772. $g=; Kilograms/sq.meter;
  773. $h=; Kiloliters;
  774. $i=; Kilometers;
  775. $j=; Kilometers/hr.;
  776. $k=; Kilowatts;
  777. $l=; Kilowatt-hours;
  778. $m=; Knots;
  779. $n=; Liters;
  780. $o=; Liters/min.;
  781. $p=$z
  782. j=0:x=18:y=27:gos92:if r=1}200:if r=2}240:if r=3}110
  783. on(j)g{200,222,223,224,225,227,226,228,229,230,232,233,236,234,235,240}
  784. go110
  785.  
  786. #222:|kilograms|
  787. $a=; Dynes;
  788. $b=; Pounds;
  789. $c=; Pounds (troy);
  790. $d=; Tons (short);
  791. $e=; Grams;
  792. j=0:x=7:y=17:gos93:if j=0}220:if r=3}220
  793. m=data j{0,980665,2.2046226,2.6792289,.0011023113,1000}:goto90
  794.  
  795. #223:|kilogram-calories|
  796. $a=; B.T.U;
  797. $b=; Foot-pounds;
  798. $c=; Horsepower-hrs.;
  799. $d=; Kilowatt-hours;
  800. $e=; Kilogram-meters;
  801. j=0:x=7:y=19:gos93:if j=0}220:if r=3}220
  802. m=data j{0,3.968254,3085.9626,.0015585,.0011637,427.263}:goto90
  803.  
  804. #224:|kilogram-cal/min|
  805. $a=; Foot-pounds/sec.;
  806. $b=; Horsepower;
  807. $c=; Kilowatts;
  808. j=0:x=5:y=20:gos93:if j=0}220:if r=3}220
  809. m=data j{0,51.4327,.09351,.0697333}:goto90
  810.  
  811. #225:|kilograms/meter|
  812. $w=; Pounds/foot;:m=.671969:goto90
  813.  
  814. #226:|kilograms/sq meter|
  815. $a=; Atmospheres;
  816. $b=; Feet of water (60°F);
  817. $c=; Inches of mercury (32°F);
  818. $d=; Pounds/sq.foot;
  819. $e=; Pounds/sq.inch;
  820. j=0:x=7:y=28:gos93:if j=0}220:if r=3}220
  821. m=data j{0,9.678387E-5,.003280937,.002895898,.20481614,.0014223343}:goto90
  822.  
  823. #227:|kilograms/sq centimeter|
  824. $w=; Pounds/sq.inch;:m=14.223343:goto90
  825.  
  826. #228:|kiloliters|
  827. $a=; Gallons;
  828. $b=; Liters;
  829. j=0:x=4:y=11:gos93:if j=0}220:if r=3}220
  830. m=data j{0,264.1794,1E3}:goto90
  831.  
  832. #229:|kilometers|
  833. $a=; Centimeters;
  834. $b=; Feet;
  835. $c=; Meters;
  836. $d=; Miles;
  837. $e=; Nautical miles;
  838. $f=; Yards;
  839. j=0:x=8:y=18:gos93:if j=0}220:if r=3}220
  840. m=data j{0,1E5,3280.8399,1E3,.62137119,.5399568,1093.6133}:goto90
  841.  
  842. #230:|kilometers/hr|
  843. $a=; Centimeters/sec.;
  844. $b=; Feet/min.;
  845. $c=; Feet/sec.;
  846. $d=; Knots;
  847. $e=; Meters/min.;
  848. $f=; Miles/hour;
  849. j=0:x=8:y=20:gos93:if j=0}220:if r=3}220
  850. m=data j{0,27.777778,54.680665,.9113444,.5399568,16.6666667,.62137119}
  851. goto90
  852.  
  853. #232:|kilowatts|
  854. $a=; B.T.U./min.;
  855. $b=; B.T.U./hour;
  856. $c=; Foot-lbs./hour;
  857. $d=; Foot-lbs./min.;
  858. $e=; Foot-lbs./sec.;
  859. $f=; Horsepower;
  860. $g=; Kilogram-cal./min.;
  861. $h=; Kilogram-meters/hr.;
  862. $i=; Watts;
  863. j=0:x=11:y=23:gos93:if j=0}220:if r=3}220
  864. m=data j{0,56.9071,3414.426,2655220,44253.662,737.561,1.34102,
  865. 14.34035,367098,1000,}
  866. goto90
  867.  
  868. #233:|kilowatt-hrs|
  869. $a=; B.T.U.;
  870. $b=; Foot-pounds;
  871. $c=; Horsepower-hours;
  872. $d=; Joules;
  873. $e=; Kilogram-calories;
  874. $f=; Kilogram-meters;
  875. j=0:x=8:y=21:gos93:if j=0}220:if r=3}220
  876. m=data j{0,3414.426,2655220,1.34102,3.6E6,860.42,367098}:goto90
  877.  
  878. #234:|liters|
  879. $a=; Cubic centimeters;
  880. $b=; Cubic feet;
  881. $c=; Cubic inches;
  882. $d=; Cubic meters;
  883. $e=; Cubic yards;
  884. $f=; Gallons;
  885. $g=; Pecks;
  886. $h=; Pints (dry);
  887. $i=; Pints (liq.);
  888. $j=; Quarts (dry);
  889. $k=; Quarts (liq.);
  890. j=0:x=13:y=21:gos93:if j=0}220:if r=3}220
  891. m=data j{0,1E3,.03531566,61.025435,.001,.001307782,.2641794,.1135136,
  892. 1.816217,2.113436,.9081084,1.056718}:goto90
  893.  
  894. #235:|liters/min|
  895. $a=; Cubic ft./sec.;
  896. $b=; Gallons/sec.;
  897. j=0:x=4:y=18:gos93:if j=0}220:if r=3}220
  898. m=data j{0,5.885943E-4,.00440299}:goto90
  899.  
  900. #236:|knots|
  901. $a=; Feet/second;
  902. $b=; Kilometers/hour;
  903. $c=; Meters/second;
  904. $d=; Miles/hour;
  905. j=0:x=6:y=19:gos93:if j=0}220:if r=3}220
  906. m=data j{0,1.68781,1.852,.51444445,1.1507794}:goto90
  907.  
  908. #240
  909. $a=$y
  910. $b=; Meters;
  911. $c=; Meters/min.;
  912. $d=; Meters/sec.;
  913. $e=; Microns;
  914. $f=; Miles;
  915. $g=; Miles/hour;
  916. $h=; Miles/min.;
  917. $i=; Milliers;
  918. $j=; Milligrams;
  919. $k=; Milliliters;
  920. $l=; Millimeters;
  921. $m=; Milligrams/liter;
  922. $n=; Million gals./day;
  923. $o=; Miner's inches;
  924. $p=; Minims;
  925. $q=; Minims (Imp.);
  926. $r=; Minutes (angle);
  927. $s=; Nautical miles;
  928. $t=$z
  929. j=0:x=22:y=21:gos92:if r=1}220:if r=2}260:if r=3}110
  930. on(j)g{220,242,243,244,245,246,247,248,249,250,251,252,253,254,255,257,258,
  931. 256,259,260}:go110
  932.  
  933. #242:|meters|
  934. $a=; Centimeters;
  935. $b=; Feet;
  936. $c=; Inches;
  937. $d=; Kilometers;
  938. $e=; Millimeters;
  939. $f=; Yards;
  940. j=0:x=8:y=15:gos93:if j=0}240:if r=3}240
  941. m=data j{0,100,3.28084,39.370079,.001,1000,1.0936133}:goto90
  942.  
  943. #243:|meters/min|
  944. $a=; Centimeters/sec.;
  945. $b=; Feet/min.;
  946. $c=; Feet/sec.;
  947. $d=; Kilometers/hr.;
  948. $e=; Miles/hour;
  949. j=0:x=7:y=20:gos93:if j=0}240:if r=3}240
  950. m=data j{0,1.66666667,3.28084,.0546807,.06,.03728227}:goto90
  951.  
  952. #244:|meters/sec|
  953. $a=; Feet/min.;
  954. $b=; Feet/sec.;
  955. $c=; Kilometers/hr.;
  956. $d=; Kilometers/min.;
  957. $e=; Miles/hour;
  958. $f=; Miles/min.;
  959. j=0:x=8:y=19:gos93:if j=0}240:if r=3}240
  960. m=data j{0,196.85039,3.2808398,3.6,.06,2.2369363,.03728227}:goto90
  961.  
  962. #245:|microns|
  963. $a=; Inches;
  964. $b=; Meters;
  965. $c=; Millimeters;
  966. j=0:x=5:y=15:gos93:if j=0}240:if r=3}240
  967. m=data j{0,3.9370079E-5,1E-6,1E-3}:goto90
  968.  
  969. #246:|miles|
  970. $a=; Centimeters;
  971. $b=; Feet;
  972. $c=; Furlongs;
  973. $d=; Kilometers;
  974. $e=; Nautical miles;
  975. $f=; Yards;
  976. j=0:x=8:y=18:gos93:if j=0}240:if r=3}240
  977. m=data j{0,160934.4,5280,8,1.609344,.8689763,1760}:goto90
  978.  
  979. #247:|miles/hr|
  980. $a=; Centimeters/sec.;
  981. $b=; Feet/min.;
  982. $c=; Feet/sec.;
  983. $d=; Kilometers/hr.;
  984. $e=; Knots;
  985. $f=; Meters/min.;
  986. j=0:x=8:y=20:gos93:if j=0}240:if r=3}240
  987. m=data j{0,44.704,88,1.4666667,1.609344,.8689763,26.8224}:goto90
  988.  
  989. #248:|miles/min|
  990. $a=; Centimeters/sec.;
  991. $b=; Feet/sec.;
  992. $c=; Kilometers/min.;
  993. $d=; Miles/hour;
  994. j=0:x=6:y=20:gos93:if j=0}240:if r=3}240
  995. m=data j{0,2682.24,88,1.609344,60}:goto90
  996.  
  997. #249:|milliers|
  998. $w=; Kilograms;:m=1000:goto90
  999.  
  1000. #250:|milligrams|
  1001. $w=; Grams;:m=.001:goto90
  1002.  
  1003. #251:|milliliters|
  1004. $w=; Liters;:m=.001:goto90
  1005.  
  1006. #252:|millimeters|
  1007. $a=; Centimeters;
  1008. $b=; Inches;
  1009. $c=; Mils;
  1010. j=0:x=5:y=15:gos93:if j=0}240:if r=3}240
  1011. m=data j{0,.1,1/25.4,1/.0254}:goto90
  1012.  
  1013. #253:|milligrams/liter|
  1014. $w=; Parts/million;:m=1:goto90
  1015.  
  1016. #254:|million gal/day|
  1017. $w=; Cubic ft./sec.;:m=1.54723:goto90
  1018.  
  1019. #255:|miners inches|
  1020. $w=; Cubic ft./min.;:m=1.5:goto90
  1021.  
  1022. #256:|minutes (angle)|
  1023. $w=; Radians;:m=2.909E-4:goto90
  1024.  
  1025. #257:|minims|
  1026. $a=; Cubic inches;
  1027. $b=; Fluidrams;
  1028. $c=; Milliliters;
  1029. j=0:x=5:y=16:gos93:if j=0}240:if r=3}240
  1030. m=data j{0,.003759,1/60,.06161}:goto90
  1031.  
  1032. #258:|minims imp|
  1033. $a=; Cubic centimeters;
  1034. $b=; Cubic inches;
  1035. j=0:x=4:y=21:gos93:if j=0}240:if r=3}240
  1036. m=data j{0,.059194,.003612}:goto90
  1037.  
  1038. #259:|nautical miles|
  1039. $a=; Feet;
  1040. $b=; Miles;
  1041. $c=; Kilometers;
  1042. j=0:x=5:y=14:gos93:if j=0}240:if r=3}240
  1043. m=data j{0,6076.115,1.1507794,1.852}:goto90
  1044.  
  1045. #260
  1046. $a=$y
  1047. $b=; Ounces;
  1048. $c=; Ounces (troy);
  1049. $d=; Ounces (fluid);
  1050. $e=; Ounces/sq.inch;
  1051. $f=; Parts/million;
  1052. $g=; Pecks;
  1053. $h=; Pecks (Imp.);
  1054. $i=; Pennyweights (troy);
  1055. $j=; Pounds;
  1056. $k=; Pounds (troy);
  1057. $l=; Pounds of water;
  1058. $m=; Pounds of water/min.;
  1059. $n=; Pounds/cubic foot;
  1060. $o=; Pounds/cubic inch;
  1061. $p=; Pounds/foot;
  1062. $q=; Pounds/inch;
  1063. $r=; Pounds/sq.foot;
  1064. $s=; Pounds/sq.inch;
  1065. $t=$z
  1066. j=0:x=22:y=24:gos92:if r=1}240:if r=2}280:if r=3}110
  1067. on(j)g{240,262,263,264,265,266,279,278,267,268,269,270,271,272,273,274,275,
  1068. 276,277,280}:go110
  1069.  
  1070. #262:|ounces|
  1071. $a=; Drams;
  1072. $b=; Grains;
  1073. $c=; Grams;
  1074. $d=; Ounces (troy);
  1075. $e=; Pounds;
  1076. $f=; Tons (long);
  1077. $g=; Tons (metric);
  1078. j=0:x=9:y=17:gos93:if j=0}260:if r=3}260
  1079. m=data j{0,16,437.5,28.349527,.9115,.0625,2.79E-5,2.835E-5}:goto90
  1080.  
  1081. #263:|ounces (troy)|
  1082. $a=; Grains;
  1083. $b=; Grams;
  1084. $c=; Ounces (avoir.);
  1085. $d=; Pennyweights (troy);
  1086. $e=; Pounds (troy);
  1087. j=0:x=7:y=23:gos93:if j=0}260:if r=3}260
  1088. m=data j{0,480,31.103481,1.09714,20,.08333333}:goto90
  1089.  
  1090. #264:|ounces (fluid)|
  1091. $a=; Cubic inches;
  1092. $b=; Liters;
  1093. j=0:x=4:y=16:gos93:if j=0}260:if r=3}260
  1094. m=data j{0,1.8046875,.029572702}:goto90
  1095.  
  1096. #265:|ounces/sq in|
  1097. $a=; Feet of mercury (32°F);
  1098. $b=; Feet of water (60°F);
  1099. $c=; Inches of mercury (32°F);
  1100. $d=; Lbs./sq.inch;
  1101. j=0:x=6:y=28:gos93:if j=0}260:if r=3}260
  1102. m=data j{0,.010604,.14417,.12725,.0625}:goto90
  1103.  
  1104. #266:|parts/million|
  1105. $a=; Grains/gallon;
  1106. $b=; Grains/Imp. gal.;
  1107. $c=; Lbs./million gal.;
  1108. j=0:x=5:y=21:gos93:if j=0}260:if r=3}260
  1109. m=data j{0,.0584,.07016,8.345}:goto90
  1110.  
  1111. #267:|pennyweights (troy)|
  1112. $a=; Grains;
  1113. $b=; Grams;
  1114. $c=; Ounces (troy);
  1115. $d=; Pounds (troy);
  1116. j=0:x=6:y=17:gos93:if j=0}260:if r=3}260
  1117. m=data j{0,24,1.555174,.05,.004166667}:goto90
  1118.  
  1119. #268:|pounds|
  1120. $a=; Drams;
  1121. $b=; Grains;
  1122. $c=; Grams;
  1123. $d=; Kilograms;
  1124. $e=; Ounces;
  1125. $f=; Ounces (troy);
  1126. $g=; Pounds (troy);
  1127. $h=; Quintals;
  1128. $i=; Tons (short);
  1129. j=0:x=11:y=17:gos93:if j=0}260:if r=3}260
  1130. m=data j{0,256,7000,453.5924,.4535924,16,14.5833,1.21528,.004536,.0005}
  1131. goto90
  1132.  
  1133. #269:|pounds (troy)|
  1134. $a=; Grains;
  1135. $b=; Grams;
  1136. $c=; Ounces (troy);
  1137. $d=; Ounces (avoir.);
  1138. $e=; Pennyweights (troy);
  1139. $f=; Pounds (avoir.);
  1140. $g=; Tons (long);
  1141. $h=; Tons (short);
  1142. $i=; Tons (metric);
  1143. j=0:x=11:y=23:gos93:if j=0}260:if r=3}260
  1144. m=data j{0,5760,373.24177,12,13.1657,240,.822857,3.6735E-4,4.1143E-4,
  1145. 3.7324E-4}:goto90
  1146.  
  1147. #270:|pounds of water|
  1148. $a=; Cubic feet;
  1149. $b=; Cubic inches;
  1150. $c=; Gallons;
  1151. j=0:x=5:y=16:gos93:if j=0}260:if r=3}260
  1152. m=data j{0,.0160189,27.6807,.11983}:goto90
  1153.  
  1154. #271:|pounds of water/min|
  1155. $w=; Cubic ft./sec.;:m=2.67E-4:goto90
  1156.  
  1157. #272:|lbs/cu ft|
  1158. $a=; Grams/cubic. cm.;
  1159. $b=; Kgs./cubic meter;
  1160. $c=; Lbs./cubic inch;
  1161. j=0:x=5:y=20:gos93:if j=0}260:if r=3}260
  1162. m=data j{0,.01602,16.02,5.787037E-4}:goto90
  1163.  
  1164. #273:|lbs/cu in|
  1165. $a=; Grams/cubic. cm.;
  1166. $b=; Kgs./cubic meter;
  1167. $c=; Lbs./cubic foot;
  1168. j=0:x=5:y=20:gos93:if j=0}260:if r=3}260
  1169. m=data j{0,27.68,27680,1728}:goto90
  1170.  
  1171. #274:|lbs/ft|
  1172. $w=; Kgs./meter;:m=1.488:goto90
  1173.  
  1174. #275:|lbs/in|
  1175. $w=; Grams/centimeter;:m=178.6:goto90
  1176.  
  1177. #276:|lbs/sq ft|
  1178. $a=; Feet of water (60°F);
  1179. $b=; Feet of mercury (32°F);
  1180. $c=; centimeters of mercury (0°C);
  1181. $d=; Kilograms/sq.meter;
  1182. $e=; Pounds/sq.inch;
  1183. j=0:x=7:y=32:gos93:if j=0}260:if r=3}260
  1184. m=data j{0,.016019,.0011782,.035913,4.88242,.006944445}:goto90
  1185.  
  1186. #277:|lbs/sq in|
  1187. $a=; Atmospheres;
  1188. $b=; Feet of water (60°F);
  1189. $c=; Inches of mercury (32°F);
  1190. $d=; Kilograms/sq.meter;
  1191. j=0:x=6:y=28:gos93:if j=0}260:if r=3}260
  1192. m=data j{0,.068046,2.3067,2.036,703.069}:goto90
  1193.  
  1194. #278:|pecks (imp)|
  1195. $a=; Cubic inches;
  1196. $b=; Gallons;
  1197. $c=; Liters;
  1198. j=0:x=5:y=16:gos93:if j=0}260:if r=3}260
  1199. m=data j{0,554.84,2,9.09}:goto90
  1200.  
  1201. #279:|pecks|
  1202. $a=; Cubic inches;
  1203. $b=; Gallons;
  1204. $c=; Liters;
  1205. $d=; Quarts;
  1206. j=0:x=6:y=16:gos93:if j=0}260:if r=3}260
  1207. m=data j{0,537.605,2,8.809,8}:goto90
  1208.  
  1209. #280
  1210. $a=$y
  1211. $b=; Quadrants (angle);
  1212. $c=; Quarts (dry);
  1213. $d=; Quarts (liq.);
  1214. $e=; Quarts (Imperial);
  1215. $f=; Quintal (metric);
  1216. $g=; Quires;
  1217. $h=; Radians;
  1218. $i=; Radians/sec.;
  1219. $j=; Reams;
  1220. $k=; Revolutions;
  1221. $l=; Revolutions/min.;
  1222. $m=; Revolutions/sec.;
  1223. $n=; Rods;
  1224. $o=$z
  1225. j=0:x=17:y=21:gos92:if r=1}260:if r=2}300:if r=3}110
  1226. on(j)g{260,282,283,284,297,285,286,287,288,290,291,292,294,296,300}:go110
  1227.  
  1228. #282:|Quadrants (angle)|
  1229. $a=; Degrees;
  1230. $b=; Grads;
  1231. $c=; Minutes;
  1232. $d=; Radians;
  1233. j=0:x=6:y=11:gos93:if j=0}280:if r=3}280
  1234. m=data j{0,90,100,5400,1.571}:goto90
  1235.  
  1236. #283:|quarts (dry)|
  1237. $a=; Cubic inches;
  1238. $b=; Liters;
  1239. $c=; Pints;
  1240. j=0:x=5:y=16:gos93:if j=0}280:if r=3}280
  1241. m=data j{0,67.2006,1.10119,2}:goto90
  1242.  
  1243. #284:|quarts liq|
  1244. $a=; Cubic inches;
  1245. $b=; Liters;
  1246. $c=; Pints;
  1247. j=0:x=5:y=16:gos93:if j=0}280:if r=3}280
  1248. m=data j{0,57.75,.946326,2}:goto90
  1249.  
  1250. #285:|Quintal (metric)|
  1251. $w=; Pounds;:m=220.46:goto90
  1252.  
  1253. #286:|quires|
  1254. $w=; Sheets;:m=25:goto90
  1255.  
  1256. #287:|radians|
  1257. $a=; Degrees;
  1258. $b=; Minutes;
  1259. $c=; Quadrants;
  1260. j=0:x=5:y=13:gos93:if j=0}280:if r=3}280
  1261. m=data j{0,57.2958,3437.747,.63662}:goto90
  1262.  
  1263. #288:|radians/sec|
  1264. $a=; Degrees/sec.;
  1265. $b=; Revolutions/sec.;
  1266. $c=; Revolutions/min.;
  1267. j=0:x=5:y=20:gos93:if j=0}280:if r=3}280
  1268. m=data j{0,57.2958,.159155,9.5493}:goto90
  1269.  
  1270. #290:|reams|
  1271. $a=; Quires;
  1272. $b=; Sheets;
  1273. j=0:x=4:y=10:gos93:if j=0}280:if r=3}280
  1274. m=data j{0,20,500}:goto90
  1275.  
  1276. #291:|revolutions|
  1277. $a=; Degrees;
  1278. $b=; Quadrants;
  1279. $c=; Radians;
  1280. j=0:x=5:y=13:gos93:if j=0}280:if r=3}280
  1281. m=data j{0,360,4,6.283185}:goto90
  1282.  
  1283. #292:|rev/min|
  1284. $a=; Degrees/sec.;
  1285. $b=; Radians/sec.;
  1286. $c=; Revolutions/sec.;
  1287. j=0:x=5:y=20:gos93:if j=0}280:if r=3}280
  1288. m=data j{0,6,.1047,.01666667}:goto90
  1289.  
  1290. #294:|rev/sec|
  1291. $a=; Degrees/sec.;
  1292. $b=; Radians/sec.;
  1293. $c=; Revolutions/min.;
  1294. j=0:x=5:y=20:gos93:if j=0}280:if r=3}280
  1295. m=data j{0,360,6.283185,60}:goto90
  1296.  
  1297. #296:|rods|
  1298. $a=; Feet;
  1299. $b=; Kilometers;
  1300. $c=; Meters;
  1301. $d=; Miles;
  1302. $e=; Yards;
  1303. j=0:x=7:y=14:gos93:if j=0}280:if r=3}280
  1304. m=data j{0,16.5,.0050292,5.0292,1/320,5.5}:goto90
  1305.  
  1306. #297:|quarts (imp)|
  1307. $a=; Cubic inches;
  1308. $b=; Gills;
  1309. $c=; Liters;
  1310. $d=; Pints;
  1311. j=0:x=6:y=16:gos93:if j=0}280:if r=3}280
  1312. m=data j{0,69.355,8,1.136,2}:goto90
  1313.  
  1314. #300
  1315. $a=$y
  1316. $b=; Seconds (angle);
  1317. $c=; Square centimeters;
  1318. $d=; Square feet;
  1319. $e=; Square inches;
  1320. $f=; Square kilometers;
  1321. $g=; Square meters;
  1322. $h=; Square miles;
  1323. $i=; Square millimeters;
  1324. $j=; Square rods;
  1325. $k=; Square yards;
  1326. $l=; Steres;
  1327. $m=$z
  1328. j=0:x=15:y=22:gos92:if r=1}280:if r=2}320:if r=3}110
  1329. on(j)g{280,303,304,305,306,307,308,309,310,313,311,312,320}:go110
  1330.  
  1331. #303:|seconds (angle)|
  1332. $a=; Degrees;
  1333. $b=; Minutes (angle);
  1334. $c=; Radians;
  1335. j=0:x=5:y=19:gos93:if j=0}300:if r=3}300
  1336. m=data j{0,1/3600,1/60,4.848137E-6}:goto90
  1337.  
  1338. #304:|sq centimeters|
  1339. $a=; Square feet;
  1340. $b=; Square inches;
  1341. $c=; Square meters;
  1342. $d=; Square millimeters;
  1343. j=0:x=6:y=22:gos93:if j=0}300:if r=3}300
  1344. m=data j{0,.001076391,.155,1E4,100}:goto90
  1345.  
  1346. #305:|sq ft|
  1347. $a=; Acres;
  1348. $b=; Square centimeters;
  1349. $c=; Square inches;
  1350. $d=; Square meters;
  1351. $e=; Square miles;
  1352. $f=; Square yards;
  1353. j=0:x=8:y=22:gos93:if j=0}300:if r=3}300
  1354. m=data j{0,2.295684E-5,929.03,144,.092903,3.587E-8,1/9}:goto90
  1355.  
  1356. #306:|sq in|
  1357. $a=; Square centimeters;
  1358. $b=; Square feet;
  1359. $c=; Square millimeters;
  1360. j=0:x=5:y=22:gos93:if j=0}300:if r=3}300
  1361. m=data j{0,6.4516,1/144,645.16}:goto90
  1362.  
  1363. #307:|sq kilometers|
  1364. $a=; Acres;
  1365. $b=; Square feet;
  1366. $c=; Square meters;
  1367. $d=; Square miles;
  1368. $e=; Square yards;
  1369. j=0:x=7:y=17:gos93:if j=0}300:if r=3}300
  1370. m=data j{0,247.105,1.07639E7,1E7,.386102,1.196E6}:goto90
  1371.  
  1372. #308:|sq meters|
  1373. $a=; Acres;
  1374. $b=; Square feet;
  1375. $c=; Square miles;
  1376. $d=; Square yards;
  1377. j=0:x=6:y=16:gos93:if j=0}300:if r=3}300
  1378. m=data j{0,.000247105,10.7639,3.86102E-7,1.196}:goto90
  1379.  
  1380. #309:|sq miles|
  1381. $a=; Acres;
  1382. $b=; Square feet;
  1383. $c=; Square kilometers;
  1384. $d=; Square yards;
  1385. j=0:x=6:y=21:gos93:if j=0}300:if r=3}300
  1386. m=data j{0,640,27878400,2.59,3097600}:goto90
  1387.  
  1388. #310:|sq millimeters|
  1389. $a=; Square centimeters;
  1390. $b=; Square inches;
  1391. j=0:x=4:y=22:gos93:if j=0}300:if r=3}300
  1392. m=data j{0,.01,.00155}:goto90
  1393.  
  1394. #311:|sq yards|
  1395. $a=; Acres;
  1396. $b=; Square feet;
  1397. $c=; Square meters;
  1398. $d=; Square miles;
  1399. $e=; Square rods;
  1400. j=0:x=7:y=17:gos93:if j=0}300:if r=3}300
  1401. m=data j{0,.000206612,9,.836127,3.2283E-7,.033058}:goto90
  1402.  
  1403. #312:|steres|
  1404. $a=; Cubic meters;
  1405. $b=; Cubic yards;
  1406. $c=; Decasteres;
  1407. $d=; Decisteres;
  1408. j=0:x=6:y=16:gos93:if j=0}300:if r=3}300
  1409. m=data j{0,1,1.31,.1,10}:goto90
  1410.  
  1411. #313:|sq rods|
  1412. $a=; Acres;
  1413. $b=; Square feet;
  1414. $c=; Square meters;
  1415. $d=; Square yards;
  1416. j=0:x=6:y=17:gos93:if j=0}300:if r=3}300
  1417. m=data j{0,.00625,272.25,25.29285,30.25}:goto90
  1418.  
  1419. #320
  1420. $a=$y
  1421. $b=; Temp. Celsius;
  1422. $c=; Temp. Fahrenheit;
  1423. $d=; Temp. Kelvin;
  1424. $e=; Tons (long);
  1425. $f=; Tons (metric);
  1426. $g=; Tons (short);
  1427. $h=; Tons of water/24 hrs.;
  1428. $i=; Watts;
  1429. $j=; Watt-hours;
  1430. $k=; Yards;
  1431. j=0:x=13:y=25:gos92:if r=1}300:if r=3}110
  1432. on(j)g{300,322,323,324,325,326,327,328,329,330,331}:go110
  1433.  
  1434. #322:|celsius|
  1435. $a=; Fahrenheit;
  1436. $b=; Kelvin;
  1437. j=0:x=4:y=14:gos93:if j=0}320:if r=3}320
  1438. m=0:t=j+2:goto90
  1439.  
  1440. #323:|fahrenheit|
  1441. $a=; Celsius;
  1442. $b=; Kelvin;
  1443. j=0:x=4:y=11:gos93:if j=0}320:if r=3}320
  1444. m=0:t=j:goto90
  1445.  
  1446. #324:|kelvin|
  1447. $a=; Celsius;
  1448. $b=; Fahrenheit;
  1449. j=0:x=4:y=14:gos93:if j=0}320:if r=3}320
  1450. m=0:t=j+4:goto90
  1451.  
  1452. #325:|tons (long)|
  1453. $a=; Kilograms;
  1454. $b=; Pounds;
  1455. $c=; Tons (metric);
  1456. $d=; Tons (short);
  1457. j=0:x=6:y=17:gos93:if j=0}320:if r=3}320
  1458. m=data j{0,1016.047,2240,1.015873,1.12}:goto90
  1459.  
  1460. #326:|tons (metric)|
  1461. $a=; Kilograms;
  1462. $b=; Pounds;
  1463. $c=; Tons (long);
  1464. $d=; Tons (short);
  1465. j=0:x=6:y=16:gos93:if j=0}320:if r=3}320
  1466. m=data j{0,1000,22046.2,.983929,1.1025}:goto90
  1467.  
  1468. #327:|tons (short)|
  1469. $a=; Kilograms;
  1470. $b=; Pounds;
  1471. $c=; Pounds (troy);
  1472. $d=; Ounces;
  1473. $e=; Ounces (troy);
  1474. $f=; Tons (long);
  1475. $g=; Tons (metric);
  1476. j=0:x=9:y=17:gos93:if j=0}320:if r=3}320
  1477. m=data j{0,907.18486,2000,2430.56,32000,29166.66,.89287,.90718}:goto90
  1478.  
  1479. #328:|tons of water/24 hrs|
  1480. $a=; Cubic feet/hr.;
  1481. $b=; Gallons/min.;
  1482. $c=; Pounds water/hr.;
  1483. j=0:x=5:y=20:gos93:if j=0}320:if r=3}320
  1484. m=data j{0,1.3349,.16643,83.333}:goto90
  1485.  
  1486. #329:|watts|
  1487. $a=; B.T.U./min.;
  1488. $b=; B.T.U./hour;
  1489. $c=; Foot-pounds/min.;
  1490. $d=; Foot-pounds/sec.;
  1491. $e=; Horsepower;
  1492. $f=; Kg.-calories/min.;
  1493. $g=; Kilowatts;
  1494. j=0:x=9:y=21:gos93:if j=0}320:if r=3}320
  1495. m=data j{0,.0568833,3.41443,44.2537,.737562,.001341,.014197,.001}:goto90
  1496.  
  1497. #330:|watt-hrs|
  1498. $a=; B.T.U.;
  1499. $b=; Foot-pounds;
  1500. $c=; Horsepower-hours;
  1501. $d=; Kg.-calories;
  1502. $e=; Kg.-meters;
  1503. $f=; Kilowatt-hours;
  1504. j=0:x=8:y=20:gos93:if j=0}320:if r=3}320
  1505. m=data j{0,3.41443,2655.22,.001341,.859184,367.098,.001}:goto90
  1506.  
  1507. #331:|yards|
  1508. $a=; Centimeters;
  1509. $b=; feet;
  1510. $c=; Inches;
  1511. $d=; Meters;
  1512. $e=; Rods;
  1513. j=0:x=7:y=15:gos93:if j=0}320:if r=3}320
  1514. m=data j{0,91.44,3,36,.9144,1/5.5}:goto90
  1515.  
  1516. #400
  1517. i=mlin:if i>99}400
  1518. #401:k=kyck:if k<>0}402
  1519. I=MLOC:IF I>10000}}IF I<10081}406
  1520. #402:if k=13}405:if k=27}70
  1521. if k>64}}if k<91}}k=k+32:if k>96}}if k<123}409
  1522. goto401
  1523. #405:r=0:ret
  1524. #406:r=5:ret:|mouse on header line|
  1525. #409:r=4:k=k-97:ret:|A to Z|
  1526.  
  1527. #450:hoff
  1528. wind ; CONVERT HELP INFORMATION: 
  1529.  
  1530.      This is the MATH EXTRA data conversion utility.  There are over 500  
  1531.   different conversions available in this utility.  The first window you
  1532.   will see on the screen will be the GROUP: window.  For example, if you
  1533.   want to convert the Temperature from Fahrenheit to Celsius,  press the
  1534.   "T" key or select the line with T on it using the mouse or cursor keys.
  1535.   The next window you will see on the screen will be the  FROM:   window. 
  1536.   Now select what you are converting from using the mouse or cursor keys.
  1537.   Now the TO: window will be displayed on the screen.  (If there is more
  1538.   then one selcetion.)   Select what you want to convert to.   Next  you
  1539.   will be asked what number you want converted.   Enter the number to be
  1540.   converted and press the enter key.  The answer will then be displayed.
  1541.  
  1542.      Press any key to continue.;x
  1543. wait120:go110
  1544.  
  1545. #500
  1546. DSP N" SORRY, THIS FILE CAN ONLY BE RUN ON COMMAND EXTRA!"N
  1547. BEEP:WAIT10:QUIT
  1548. #501
  1549. DSP n;
  1550.  Sorry, this file must be used with COMMANDX Version 1.10 or greater!;n
  1551. BEEP:wait10:quit
  1552.