SHARE
TWEET

Untitled

a guest Dec 7th, 2014 338 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Lbl AA
  2. 0->K
  3. ClrHome
  4. Output(1,1,"----------------"
  5. Output(2,1,"1.Weight/Force"
  6. Output(3,1,"2.Length/Distances"
  7. Output(4,1,"3.Pressure"
  8. Output(5,1,"----------------"
  9. Output(8,1,"By edi.the.raven"
  10. Repeat Ans
  11. getKey->K
  12. End
  13. If K=45
  14. Then
  15. Goto EX
  16. End
  17. If K!=92 and K!=93 and K!=94
  18. Then
  19. Goto AA
  20. End
  21. If K=92
  22. Then
  23. Lbl AB
  24. ClrHome
  25. 0->A
  26. 0->B
  27. 0->C
  28. 0->T
  29. Output(1,1,"----------------"
  30. Output(2,1,"Kg"
  31. Output(3,1,"----------------"
  32. Output(4,1,"Lb"
  33. Output(5,1,"----------------"
  34. Output(6,1,"Tf"
  35. Output(7,1,"----------------"
  36. Repeat X
  37. getKey->X
  38. End
  39. If X=25
  40. Then
  41. Goto AA
  42. End
  43. If X=25
  44. Then
  45. Goto AA
  46. End
  47. If X!=92 and X!=93 and X!=94
  48. Then
  49. Goto AB
  50. End
  51. If X=45
  52. Then
  53. Goto EX
  54. End
  55. If X=92
  56. Then
  57. Lbl AC
  58. ClrHome
  59. Output(1,1,"----------------"
  60. Output(3,1,"----------------"
  61. Disp ""
  62. Input "Kg ",A
  63. ClrHome
  64. Output(1,1,"----------------"
  65. Output(2,1,"Kg"
  66. Output(2,4,A
  67. Output(3,1,"----------------"
  68. Output(4,1,"Lb"
  69. Output(4,4,A*2.20462262
  70. Output(5,1,"----------------"
  71. Output(6,1,"Tf"
  72. Output(6,4,A*9.80665002864*0.0001019716
  73. Output(7,1,"----------------"
  74. Repeat Ans
  75. getKey
  76. End
  77. Ans->L
  78. If L=25
  79. Then
  80. Goto AB
  81. End
  82. If L=45
  83. Then
  84. Goto EX
  85. End
  86. If L!=45
  87. Then
  88. Goto AC
  89. End
  90. End
  91. If X=93
  92. Then
  93. Lbl BA
  94. ClrHome
  95. Disp ""
  96. Disp ""
  97. Output(3,1,"----------------"
  98. Disp ""
  99. Output(5,1,"----------------"
  100. Input "Lb ",B
  101. Lbl ZZ
  102. ClrHome
  103. Output(1,1,"----------------"
  104. Output(2,1,"Kg"
  105. Output(2,4,B*0.45359237
  106. Output(3,1,"----------------"
  107. Output(4,1,"Lb"
  108. Output(4,4,B
  109. Output(5,1,"----------------"
  110. Output(6,1,"Tf"
  111. Output(6,4,B*4.448221628254617*0.0001019716
  112. Output(7,1,"----------------"
  113. T+(B*0.45359237)->T
  114. Repeat Ans
  115. getKey
  116. End
  117. Ans->L
  118. If L=34
  119. Then
  120. ClrHome
  121. Output(2,1,"Total BOM Weight"
  122. Output(3,1,"----------------"
  123. Output(4,1,T
  124. Output(6,1,"----------------"
  125. Output(5,6,"lb/-kg"
  126. Pause
  127. Goto ZZ
  128. End
  129. If L=25
  130. Then
  131. Goto AB
  132. End
  133. If L=45
  134. Then
  135. Goto EX
  136. End
  137. If L!=45
  138. Then
  139. Goto BA
  140. End
  141. End
  142. If X=94
  143. Then
  144. Lbl BB
  145. ClrHome
  146. Disp ""
  147. Disp ""
  148. Disp ""
  149. Disp ""
  150. Output(5,1,"----------------"
  151. Disp ""
  152. Output(7,1,"----------------"
  153. Input "Tf ",C
  154. ClrHome
  155. Output(1,1,"----------------"
  156. Output(2,1,"Kg"
  157. Output(2,4,C*1000
  158. Output(3,1,"----------------"
  159. Output(4,1,"Lb"
  160. Output(4,4,C*1000*2.20462262
  161. Output(5,1,"----------------"
  162. Output(6,1,"Tf"
  163. Output(6,4,C
  164. Output(7,1,"----------------"
  165. Repeat Ans
  166. getKey
  167. End
  168. Ans->L
  169. If L=25
  170. Then
  171. Goto AB
  172. End
  173. If L=45
  174. Then
  175. Goto EX
  176. End
  177. If L!=45
  178. Then
  179. Goto BB
  180. End
  181. End
  182. End
  183. If K=93
  184. Then
  185. Lbl CA
  186. ClrHome
  187. 0->A
  188. 0->B
  189. 0->C
  190. 0->X
  191. Output(1,1,"----------------"
  192. Output(2,1,"mm"
  193. Output(3,1,"----------------"
  194. Output(4,1,"in"
  195. Output(5,1,"----------------"
  196. Output(6,1,"Ft"
  197. Output(7,1,"----------------"
  198. Repeat X
  199. getKey->X
  200. End
  201. If X=25
  202. Then
  203. Goto AA
  204. End
  205. If X!=92 and X!=93 and X!=94
  206. Then
  207. Goto CA
  208. End
  209. If X=45
  210. Then
  211. Goto EX
  212. End
  213. If X=92
  214. Then
  215. Lbl CB
  216. ClrHome
  217. Output(1,1,"----------------"
  218. Output(3,1,"----------------"
  219. Disp ""
  220. Input "mm ",A
  221. ClrHome
  222. Output(1,1,"----------------"
  223. Output(2,1,"mm"
  224. Output(2,4,A
  225. Output(3,1,"----------------"
  226. Output(4,1,"in"
  227. Output(4,4,A/25.4
  228. Output(5,1,"----------------"
  229. Output(6,1,"Ft"
  230. Output(6,4,A*0.003280839895013
  231. Output(7,1,"----------------"
  232. Repeat Ans
  233. getKey
  234. End
  235. Ans->L
  236. If L=25
  237. Then
  238. Goto CA
  239. End
  240. If L=45
  241. Then
  242. Goto EX
  243. End
  244. If L!=45
  245. Then
  246. Goto CB
  247. End
  248. End
  249. If X=93
  250. Then
  251. Lbl CC
  252. ClrHome
  253. Disp ""
  254. Disp ""
  255. Output(3,1,"----------------"
  256. Disp ""
  257. Output(5,1,"----------------"
  258. Input "in ",B
  259. ClrHome
  260. Output(1,1,"----------------"
  261. Output(2,1,"mm"
  262. Output(2,4,B*25.4
  263. Output(3,1,"----------------"
  264. Output(4,1,"in"
  265. Output(4,4,B
  266. Output(5,1,"----------------"
  267. Output(6,1,"Ft"
  268. Output(6,4,B*0.0833333333
  269. Output(7,1,"----------------"
  270. Repeat Ans
  271. getKey
  272. End
  273. Ans->L
  274. If L=25
  275. Then
  276. Goto CA
  277. End
  278. If L=45
  279. Then
  280. Goto EX
  281. End
  282. If L!=45
  283. Then
  284. Goto CC
  285. End
  286. End
  287. If X=94
  288. Then
  289. Lbl CD
  290. ClrHome
  291. Disp ""
  292. Disp ""
  293. Disp ""
  294. Disp ""
  295. Output(5,1,"----------------"
  296. Disp ""
  297. Output(7,1,"----------------"
  298. Input "Ft ",C
  299. ClrHome
  300. Output(1,1,"----------------"
  301. Output(2,1,"mm"
  302. Output(2,4,C*304.8
  303. Output(3,1,"----------------"
  304. Output(4,1,"in"
  305. Output(4,4,C*12
  306. Output(5,1,"----------------"
  307. Output(6,1,"Ft"
  308. Output(6,4,C
  309. Output(7,1,"----------------"
  310. Repeat Ans
  311. getKey
  312. End
  313. Ans->L
  314. If L=25
  315. Then
  316. Goto CA
  317. End
  318. If L=45
  319. Then
  320. Goto EX
  321. End
  322. If L!=45
  323. Then
  324. Goto CD
  325. End
  326. End
  327. End
  328. If K=94
  329. Then
  330. Lbl DA
  331. ClrHome
  332. 0->A
  333. 0->B
  334. 0->C
  335. 0->X
  336. Output(1,1,"----------------"
  337. Output(2,1,"MPa"
  338. Output(3,1,"----------------"
  339. Output(4,1,"Atm"
  340. Output(5,1,"----------------"
  341. Output(6,1,"Psi"
  342. Output(7,1,"----------------"
  343. Repeat X
  344. getKey->X
  345. End
  346. If X=25
  347. Then
  348. Goto AA
  349. End
  350. If X!=92 and X!=93 and X!=94
  351. Then
  352. Goto DA
  353. End
  354. If X=45
  355. Then
  356. Goto EX
  357. End
  358. If X=92
  359. Then
  360. Lbl DB
  361. ClrHome
  362. Output(1,1,"----------------"
  363. Output(3,1,"----------------"
  364. Disp ""
  365. Input "MPa ",A
  366. ClrHome
  367. Output(1,1,"----------------"
  368. Output(2,1,"MPa"
  369. Output(2,5,A
  370. Output(3,1,"----------------"
  371. Output(4,1,"Atm"
  372. Output(4,5,A*9.86923266716
  373. Output(5,1,"----------------"
  374. Output(6,1,"Psi"
  375. Output(6,5,A*145.03773773
  376. Output(7,1,"----------------"
  377. Repeat Ans
  378. getKey
  379. End
  380. Ans->L
  381. If L=25
  382. Then
  383. Goto DA
  384. End
  385. If L=45
  386. Then
  387. Goto EX
  388. End
  389. If L!=45
  390. Then
  391. Goto DB
  392. End
  393. End
  394. If X=93
  395. Then
  396. Lbl DC
  397. ClrHome
  398. Disp ""
  399. Disp ""
  400. Output(3,1,"----------------"
  401. Disp ""
  402. Output(5,1,"----------------"
  403. Input "Atm ",B
  404. ClrHome
  405. Output(1,1,"----------------"
  406. Output(2,1,"MPa"
  407. Output(2,5,B*0.101325
  408. Output(3,1,"----------------"
  409. Output(4,1,"Atm"
  410. Output(4,5,B
  411. Output(5,1,"----------------"
  412. Output(6,1,"Psi"
  413. Output(6,5,B*14.69594877549
  414. Output(7,1,"----------------"
  415. Repeat Ans
  416. getKey
  417. End
  418. Ans->L
  419. If L=25
  420. Then
  421. Goto DA
  422. End
  423. If L=45
  424. Then
  425. Goto EX
  426. End
  427. If L!=45
  428. Then
  429. Goto DC
  430. End
  431. End
  432. If X=94
  433. Then
  434. Lbl DD
  435. ClrHome
  436. Disp ""
  437. Disp ""
  438. Disp ""
  439. Disp ""
  440. Output(5,1,"----------------"
  441. Disp ""
  442. Output(7,1,"----------------"
  443. Input "Psi ",C
  444. ClrHome
  445. Output(1,1,"----------------"
  446. Output(2,1,"MPa"
  447. Output(2,5,C*0.006894757293177
  448. Output(3,1,"----------------"
  449. Output(4,1,"Atm"
  450. Output(4,5,C*0.06804596390996
  451. Output(5,1,"----------------"
  452. Output(6,1,"Psi"
  453. Output(6,5,C
  454. Output(7,1,"----------------"
  455. Repeat Ans
  456. getKey
  457. End
  458. Ans->L
  459. If L=25
  460. Then
  461. Goto DA
  462. End
  463. If L=45
  464. Then
  465. Goto EX
  466. End
  467. If L!=45
  468. Then
  469. Goto DD
  470. End
  471. End
  472. End
  473. Lbl EX
  474. ClrDraw
  475. ClrHome
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top