home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / EXPLD.CCC < prev    next >
Encoding:
Text File  |  1993-07-26  |  1.1 KB  |  85 lines
  1. %expld.ccc
  2. * explode placed objects of all levels
  3. :a
  4. * check geometric mode activity (c100=' ')
  5. ascii c100 r13
  6. if r13 eq 32 :b
  7. mess illegal command, use \GEOM first !
  8. getwe
  9. goto :a
  10. :b
  11. sbreset
  12. r3=0
  13. i2=0
  14. mess explode: y- first level, n- all levels
  15. getyn r5
  16. mess wish to explode objects from <ARCALIB> ?
  17. getyn r6
  18. :B
  19. mess object to explode
  20. gete i1
  21. mess confirm choice
  22. getyn r1
  23. unshow i1
  24. if r1 eq 0 :B
  25. :C
  26. c1='1'
  27. r1=0
  28. ovl movret
  29. if r1 lt 0 :d
  30. if r1 gt 0 :z
  31. c1='1'
  32. r2=0
  33. ovl dele
  34. :d
  35. c10=c117;c11=c118;c12=c119;c13=c120;c14=c121;c15=c122;c16=c123;c17=c124
  36. c1 8 = '$d$dmret'
  37. r2 = 0
  38. c9='r'
  39. ovl dumb
  40. i49=1
  41. :k
  42. r1 = 1
  43. :q
  44. c1 = c10
  45. c2 = c11
  46. c3 = c12
  47. c4 = c13
  48. c5 = c14
  49. c6 = c15
  50. c7 = c16
  51. c8 = c17
  52. c10 = ' '
  53. c9='u'
  54. ovl rdumb
  55. r1=0
  56. if r5 eq 1 :Z
  57. c1='6'
  58. ovl movret
  59. r1=2
  60. r9=0
  61. ovl i2r
  62. if r2 gt 4 :C
  63. goto :B
  64. :z
  65. if r1 eq 2 :1
  66. if r1 eq 3 :2
  67. if r1 eq 4 :3
  68. if r1 eq 5 :4
  69. :1
  70. mess System error (rc = #r1 )
  71. getwe
  72. goto :Z
  73. :2
  74. mess Error, disk is full
  75. getwe
  76. goto :Z
  77. :3
  78. mess Error, element file is empty
  79. getwe
  80. goto :Z
  81. :4
  82. mess Error, placed element file was not found
  83. getwe
  84. :Z
  85.