• API
• FAQ
• Tools
• Archive
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.
Top