home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / CLIBI.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  2.4 KB  |  177 lines
  1. %clibi.ccc
  2. *$Header$
  3. *$Log$
  4. **************
  5. *10-JUN-90
  6. * continous macro (from clib.ccc)
  7. :a
  8. mess select/deselect combination in square OR pick option
  9. sbreset
  10. gete i1
  11. unshow i1
  12. c9='i'
  13. :A
  14. ovl clibinp
  15. if r1 eq 0   :a
  16. :x
  17. if r1 eq 1 :1
  18. if r1 eq 2 :2
  19. if r1 eq 3 :3
  20. if r1 eq 4 :4
  21. if r1 eq 6 :6
  22. if r1 eq 7 :7
  23. if r1 eq 99 :v
  24. if r1 eq 901 :q
  25. if r1 eq 902 :s
  26. if r1 eq 903 :d
  27. if r1 eq 904 :$
  28. if r1 eq 905 :c
  29. if r1 eq 906 :e
  30. if r1 eq 907 :j
  31. if r1 eq 908 :+
  32. if r1 eq 910 :a
  33. :X
  34. mess System Error (CLIBINP, option ' #c9 1 ', rc= #r1 )
  35. getwe
  36. goto :z
  37. :1
  38. mess Error in entity indication
  39. getwe
  40. goto :a
  41. :2
  42. mess Error reading $C$LIB
  43. getwe
  44. goto :z
  45. :3
  46. mess Error in $C$LIB data
  47. getwe
  48. goto :z
  49. :4
  50. mess Error marking selection in $C$LIB
  51. getwe
  52. goto :z
  53. :6
  54. mess cannot unselect a default - reassign it first
  55. getwe
  56. goto  :a
  57. :7
  58. mess cannot delete a default - reassign it first
  59. getwe
  60. goto  :a
  61. :v
  62. mess Error, no valid end-condition in this square - cannot be selected
  63. getwe
  64. goto :a
  65. :q
  66. mess confirm quitting ? <n>
  67. r1=0;def 'n'
  68. getyn r1
  69. if r1 eq 0 :a
  70. goto :Z
  71. :c
  72. *Add a square
  73. mess confirm accepting the combination ?
  74. getyn r1
  75. if r1 eq 0 :a
  76. :D
  77. c211 40 = ' '
  78. mess Combination description (1-40 char., no spaces), <ENTER>-no description
  79. *getc c211 40
  80. r37=0
  81. r38=40
  82. r39=211
  83. r1=0
  84. ovl getc
  85. if r1 ne 0 :D
  86. if z24 ne 2 :W
  87. c9='a'
  88. ovl clibinp
  89. if r1 ne 0 :X
  90. :W
  91. c9='a'
  92. r1=0
  93. ovl clibmake
  94. if r1 ne 0 :E
  95. if z24 eq 2 :S
  96. z24=0
  97. goto :a
  98. :E
  99. mess System Error (CLIBMAKE, option ' #c9 1 ', rc= #r1 )
  100. getwe
  101. goto :z
  102. :$
  103. mess default combination
  104. sbreset
  105. gete i1
  106. mess confirm choice ?
  107. getyn r1
  108. unshow i1
  109. if r1 eq 0 :$
  110. c9='$'
  111. ovl clibinp
  112. if r1 gt 99 :a
  113. if r1 ne 0 :x
  114. goto :a
  115. :d
  116. mess combination to delete
  117. sbreset
  118. gete i1
  119. mess confirm choice ?
  120. getyn r1
  121. unshow i1
  122. if r1 eq 0 :d
  123. c9='D'
  124. ovl clibinp
  125. if r1 gt 99 :a
  126. if r1 ne 0 :x
  127. goto :a
  128. :s
  129. mess confirm saving ? <y>
  130. r1=1;def 'y'
  131. getyn r1
  132. if r1 eq 0 :a
  133. if z24 eq 0 :S
  134. mess last changes will be lost, accept them ?
  135. getyn r1
  136. if r1 eq 0 :S
  137. z24 = 2
  138. goto :D
  139. :S
  140. ovl clibsave
  141. if r1 eq 0 :Z
  142. mess System Error (CLIBSAVE, rc= #r1 )
  143. getwe
  144. goto :z
  145. :e
  146. macro clibe
  147. :j
  148. macro clibj
  149. :+
  150. if i9 eq 0 :n
  151. macro clibw
  152. :n
  153. macro clibn
  154. :Z
  155. c1='*'
  156. ovl open
  157. mess edit combinations for another opening ?
  158. getyn r1
  159. if r1 eq 0 :z
  160. r6=0
  161. r7=0
  162. r8=0
  163. r9=0
  164. r3=101
  165. r1 =r1-2
  166. c10=c150
  167. c11=c151
  168. c12=c152
  169. c13=c153
  170. c14=c154
  171. c15=c155
  172. c16=c156
  173. c17=c157
  174. macro clib
  175. :z
  176. macro rslib
  177.