home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / OLIBO.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  1.6 KB  |  106 lines
  1. %olibo.ccc
  2. *$Header$
  3. *$Log$
  4. **************
  5. *7-6-90
  6. r35=0
  7. c9 1 ='f'
  8. ovl olibsave
  9. if r1 eq 0 :B
  10. mess System Error (OLIBSAVE, option 'f', rc= #r1 )
  11. getwe ;goto :z
  12. :B
  13. r2=1
  14. mess object file name (1-8 char.)
  15. :w
  16. getc c1 8
  17. ascii c1 r3
  18. if r3 eq 32 :p
  19. c80=' '
  20. c81 3 ='iii'
  21. c85 ='A'
  22. r80=0
  23. r82=0
  24. r83=0
  25. r88=1
  26. command chkfil
  27. if r83 ne 0 :p
  28. if r80 eq 1 :A
  29. mess file for object " #c1 8 " not found, add another object ?
  30. goto :P
  31. :p
  32. mess " #c1 8 " is invalid object name, add another object ?
  33. goto :P
  34. :A
  35. if r33 eq 0 :J
  36. mess is opening stretchable ?
  37. getyn r33
  38. r33=r33+1
  39. if r33 eq 1 :J
  40. mess stretchable in 2 directions (n-only along the wall) ?
  41. getyn r1
  42. r33=r33+r1
  43. :J
  44. mess object description (1-40 char.,no spaces), <ENTER>-no descr.
  45. getw
  46. *getc c211 40
  47. r37=0
  48. r38=40
  49. r39=211
  50. r1=0
  51. ovl getc
  52. if r1 ne 0 :J
  53. :j
  54. r1=r2
  55. ovl inclib
  56. if r1 ne 0 :E
  57. if r2 eq 2 :T
  58. r35=r35+1
  59. :T
  60. mess add another object ?
  61. :P
  62. getyn r1
  63. if r1 eq 0 :Q
  64. goto :B
  65. :Q
  66. if r35 ne 0 :C
  67. if r2 ne 2 :a
  68. :C
  69. c9='f'
  70. ovl olibedit
  71. if r1 ne 0 :Z
  72. *Set view plane to XY
  73. c111 = 'x'
  74. c112 = '0'
  75. c113 = '0'
  76. c114 = '0'
  77. i40 = 4;ovl zzref
  78. goto :a
  79. :Z
  80. mess System Error (OLIBEDIT, option 'f', rc= #r1 )
  81. getwe;goto :z
  82. :E
  83. if r1 eq 1 :1
  84. if r1 eq 5 :5
  85. if r1 eq 999 :9
  86. mess System Error (INCLIB, rc= #r1 ),add another object ?
  87. goto :P
  88. :1
  89. mess Error reading " #c1 8 " (bad or empty file), add another object ?
  90. goto :P
  91. :5
  92. mess " #c1 8 " is already in the library, overwrite ?
  93. getyn r1
  94. if r1 eq 0 :T
  95. r2=2
  96. goto :j
  97. :9
  98. r35=r35+1
  99. mess Truncated the element to maximum allowed size (press <ENTER>)
  100. getw
  101. goto :T
  102. :z
  103. macro rslib
  104. :a
  105. macro olibi
  106.