home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / EDCOM.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  1.5 KB  |  96 lines
  1. %edcom.ccc
  2. *$Header$
  3. *$Log$
  4. *********
  5. *Ilana 27/10/91
  6. :j
  7. ascii c100 r13
  8. if r13 eq 32 :w
  9. mess illegal command, use \GEOM first !
  10. getwe
  11. goto :j
  12. :w
  13. c148 8 = '        '
  14. c2  8 = '        '
  15. :i
  16. mess 2D/3D library name (1-8 char.)
  17. :a
  18. def c148 8
  19. getc c148 8
  20. c80=' '
  21. c81 3 ='iii'
  22. c85 ='A'
  23. r80=0
  24. r82=0
  25. r83=0
  26. r88=148
  27. command chkfil
  28. if r83 eq 0 :A
  29. mess Error, invalid file name, enter name again :
  30. goto :i
  31. :A
  32. if r80 eq 1 :x
  33. mess library " #c148 8 " not found, enter another name:
  34. goto :a
  35. :x
  36. r81=0
  37. mess library object name [<ENTER> for graphic lib.]
  38. getc+ c2 8
  39. if r93 eq 0 :I
  40. c141 7 = 'user3@-'
  41. mess #c141 15
  42. ovl popmnu
  43. if r81 eq 0 :x
  44. * Selected object name is in c221-c228
  45. c2=c221
  46. c3=c222
  47. c4=c223
  48. c5=c224
  49. c6=c225
  50. c7=c226
  51. c8=c227
  52. c9=c228
  53. * object name is in c2:c9
  54. :I
  55. * get comment from element into c211:250
  56. c1='g'
  57. ovl editcomm
  58. if r1 eq 0 :O
  59. if r1 eq 1 :1
  60. if r1 eq 2 :2
  61. mess System Error (editcomm, option 'g', rc= #r1 )
  62. getwe
  63. goto :q
  64. :O
  65. mess enter new comment for " #c2 8 " (1-40 char., no spaces)
  66. *def c211 40
  67. *c49='t'
  68. *getc c211 40
  69. r37=1
  70. r38=40
  71. r39=211
  72. r1=0
  73. ovl getc
  74. if r1 ne 0 :O
  75. * put comment from c211:250 into element
  76. c1 = 'p'
  77. ovl editcomm
  78. if r1 ne 0 :3
  79. mess update comment in another object ?
  80. goto :m
  81. :1
  82. mess " #c2 8 " not in library, update comment in another object ?
  83. :m
  84. getyn r1
  85. if r1 eq 0 :i
  86. goto :x
  87. :2
  88. mess error reading comment from " #c2 8 "
  89. getwe
  90. goto :q
  91. :3
  92. mess error ( rc = #r1 ) updating comment in " #c2 8 "
  93. getwe
  94. goto :q
  95. :q
  96.