home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / CARPET.TK next >
Encoding:
Text File  |  1988-03-01  |  1.2 KB  |  151 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.        ****   Carpet   ****
  10. #2
  11. :n
  12. n
  13. :v
  14. 56
  15. :s
  16. i
  17. :c
  18. number of "rings" on the roll
  19. #3
  20. :n
  21. ic
  22. :v
  23. 14.125
  24. :s
  25. i
  26. :u
  27. in
  28. :d
  29. in
  30. :c
  31. inner circumference (of the core)
  32. #4
  33. :n
  34. id
  35. :s
  36. b
  37. :u
  38. in
  39. :d
  40. in
  41. :c
  42. inner diameter (of the core)
  43. #5
  44. :n
  45. oc
  46. :v
  47. 35.5
  48. :s
  49. i
  50. :u
  51. in
  52. :d
  53. in
  54. :c
  55. outer circumference
  56. #6
  57. :n
  58. od
  59. :s
  60. b
  61. :u
  62. in
  63. :d
  64. in
  65. :c
  66. outer diameter
  67. #7
  68. :n
  69. length
  70. :s
  71. b
  72. :u
  73. in
  74. :d
  75. ft
  76. :c
  77. length of remaining linoleum or carpet
  78. #8
  79. :n
  80.  
  81. :s
  82. b
  83. :c
  84.  Type  ;  to move the cursor to the
  85. #9
  86. :n
  87.  
  88. :s
  89. b
  90. :c
  91.            other window
  92. =u
  93. #1
  94. :f
  95. ft
  96. :t
  97. in
  98. :m
  99. 12
  100. #2
  101. :f
  102. yd
  103. :t
  104. ft
  105. :m
  106. 3
  107. #3
  108. :f
  109. in
  110. :t
  111. cm
  112. :m
  113. 2.54
  114. #4
  115. :f
  116. m
  117. :t
  118. cm
  119. :m
  120. 100
  121. =r
  122. #1
  123. :r
  124. "      ****  LENGTH OF LINOLEUM OR CARPET REMAINING ON A ROLL  ****
  125. :s
  126. C
  127. #3
  128. :r
  129. length = n * (ic + oc) / 2              " rule using circumferences
  130. #4
  131. :r
  132. length = n * pi() * (id + od) / 2       " rule using diameters
  133. #5
  134. :r
  135. ic = pi() * id
  136. #6
  137. :r
  138. oc = pi() * od
  139. #8
  140. :r
  141. "  The number of "rings" is counted and multiplied by the average length
  142. :s
  143. C
  144. #9
  145. :r
  146. "  (circumference) of the "rings".  Thickness of the material doesn't matter.
  147. :s
  148. C
  149. %Tv,f,0,5,0,1,0
  150. %Or,f,0,1,0,1,0
  151.