home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / STRCS.CCC < prev    next >
Encoding:
Text File  |  1993-04-27  |  3.0 KB  |  163 lines
  1. %strcs.ccc
  2. :J
  3. if y41 eq 9999 :0
  4. if x8 eq 121212 :0
  5. ascii c100 r13;if r13 eq 32 :I
  6. mess illegal command, use \GEOM first !
  7. getwe;goto :J
  8. :I
  9. y41=0;x8=0
  10. mess stairs type: 1-linear, 2-winding, 3-spiral, <ENTER>-graphic lib.
  11. getr+ z41
  12. if r93 ne 0 :L
  13. if z41 eq 2 :V
  14. if z41 ne 3 :S
  15. z41=14
  16. macro spirl
  17. :S
  18. if z41 ne 1 :I
  19. mess flight: 1-single, 2-parallel, 3-three, 4-four, 5-two(90°)
  20. goto :R
  21. :V
  22. mess flight type: single-6,7,8,9, double-10,11,12, triple-13
  23. :R
  24. getr z41
  25. goto :K
  26. :L
  27. r81=0;mess user3@-l$stairs;ovl popmnu
  28. if r81 le 0 :I
  29. z41=r81
  30. if z41 lt 14 :K
  31. macro spirl
  32. :K
  33. mess staircase starting point
  34. getp p1
  35. mess staircase direction
  36. rubber line;getp p2;rubber off
  37. :b
  38. mess width of flight (greater than 0) <1.1>
  39. z7=1.1;def fl z7;getrd z7
  40. if z7 le 0 :b
  41. :0
  42. y41=0;x8=0
  43. if z41 eq 1 :X
  44. mess 1st param.: 1-Rise, 2-Tread, 3-Height, 5-End pt., 6-No.
  45. goto :P
  46. :X
  47. mess 1st param.: 1-Rise, 2-Tread, 3-Height, 4-Length, 5-End pt., 6-No.
  48. :P
  49. getr r10
  50. if r10 eq 1 :[
  51. if r10 eq 2 :A
  52. if r10 eq 3 :B
  53. if r10 eq 4 :C
  54. if r10 eq 5 :D
  55. if r10 eq 6 :E
  56. goto :0
  57. :[;c209='r'
  58. mess rise of stair (R)
  59. getrd r1;c209=' '
  60. if r10 ne 1 :z
  61. :1
  62. if z41 eq 1 :F
  63. mess second parameter: 3-Height, 5-End pt., 6-No.
  64. goto :O
  65. :F
  66. mess second parameter: 3-Height, 4-Length, 5-End pt., 6-No.
  67. :O
  68. getr r9
  69. if r9 eq 3 :B
  70. if r9 eq 4 :C
  71. if r9 eq 5 :D
  72. if r9 eq 6 :E
  73. goto :1
  74. :A;c209='t'
  75. mess tread of stair (T)
  76. getrd r2;c209=' '
  77. if r10 ne 2 :z
  78. goto :1
  79. :B
  80. mess total height (floor to floor) (H)
  81. getrd r3
  82. if r10 ne 3 :z
  83. :3
  84. if z41 eq 1 :M
  85. mess second parameter: 1-Rise, 2-Tread, 5-End pt., 6-No.
  86. goto :N
  87. :M
  88. mess second parameter: 1-Rise, 2-Tread, 4-Length, 5-End pt., 6-No.
  89. :N
  90. getr r9
  91. if r9 eq 1 :[
  92. if r9 eq 2 :A
  93. if r9 eq 4 :C
  94. if r9 eq 5 :D
  95. if r9 eq 6 :E
  96. goto :3
  97. :C
  98. mess total length (first stair to floor) (L)
  99. getrd r4
  100. if r10 ne 4 :z
  101. :4
  102. mess second parameter: 1-Rise, 2-Tread, 3-Height, 5-End pt., 6-No.
  103. getr r9
  104. if r9 eq 1 :[
  105. if r9 eq 2 :A
  106. if r9 eq 3 :B
  107. if r9 eq 5 :D
  108. if r9 eq 6 :E
  109. goto :4
  110. :D
  111. mess flight end point
  112. getp p3
  113. if r10 ne 5 :z
  114. :5
  115. mess second parameter: 1-Rise, 2-Tread, 6-No.
  116. getr r9
  117. if r9 eq 1 :[
  118. if r9 eq 2 :A
  119. if r9 eq 6 :E
  120. goto :5
  121. :E;c209='n'
  122. mess total number of stairs (N)
  123. getr r5;c209=' '
  124. if r10 ne 6 :z
  125. :6
  126. if z41 eq 1 :W
  127. mess second parameter: 1-Rise, 2-Tread, 3-Height, 5-End pt.
  128. goto :Q
  129. :W
  130. mess second parameter: 1-Rise, 2-Tread, 3-Height, 4-Length, 5-End pt.
  131. :Q
  132. getr r9
  133. if r9 eq 1 :[
  134. if r9 eq 2 :A
  135. if r9 eq 3 :B
  136. if r9 eq 4 :C
  137. if r9 eq 5 :D
  138. goto :6
  139. :z
  140. i50=1;ovl sprlpr;i50=0
  141. x41=r1;y41=9999;ovl ermes;y41=0;r1=x41
  142. if r7 gt 0 :Y
  143. if r12 eq 1 :u
  144. if z41 eq 1 :H
  145. mess R- fl #x9 T- fl #y9 H- fl #z9 N- #r5 2h+b= fl #r6 , confirm ?
  146. goto :]
  147. :H
  148. mess R- fl #x9 T- fl #y9 H- fl #z9 L- fl #r4 N- #r5 2h+b= fl #r6 , confirm?
  149. goto :]
  150. :u
  151. if z41 eq 1 :G
  152. mess ~ R- fl #x9 T- fl #y9 H- fl #z9 N- #r5 2h+b= fl #r6 , confirm ?
  153. goto :]
  154. :G
  155. mess ~ R- fl #x9 T- fl #y9 H- fl #z9 L- fl #r4 N- #r5 2h+b= fl #r6 , confirm?
  156. :]
  157. getyn r8
  158. if r8 eq 0 :0
  159. p2=p4;r12=r5;x5=r1;y5=r2;z5=r6
  160. macro strdr
  161. :Y
  162. macro strer
  163.