home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / ELIBO.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  1.3 KB  |  91 lines
  1. %elibo.ccc
  2. *$Header$
  3. *$Log$
  4. **************
  5. *7-6-90
  6. r35=0
  7. r32=0
  8. r33=4
  9. c9 1 ='f'
  10. ovl elibsave
  11. if r1 eq 0 :B
  12. mess System Error (ELIBSAVE, option 'f', rc= #r1 )
  13. getwe;goto :z
  14. :B
  15. r2=1
  16. mess end-condition file name (1-8 char.)
  17. :w
  18. getc c1 8
  19. ascii c1 r3
  20. if r3 eq 32 :p
  21. c80=' '
  22. c81 3 ='iii'
  23. c85 ='A'
  24. r80=0
  25. r82=0
  26. r83=0
  27. r88=1
  28. command chkfil
  29. if r83 ne 0 :p
  30. if r80 eq 1 :I
  31. mess file for end-cond. " #c1 8 " not found, add another end-cond.?
  32. goto :P
  33. :p
  34. mess " #c1 8 " is invalid end-condition name, add another end-cond.?
  35. goto :P
  36. :I
  37. mess end-cond. description (1-40 char.,no spaces), <ENTER>-no descr.
  38. getw
  39. *getc c211 40
  40. r37=0
  41. r38=40
  42. r39=211
  43. r1=0
  44. ovl getc
  45. if r1 ne 0 :I
  46. :i
  47. r1=r2
  48. ovl inclib
  49. if r1 ne 0 :E
  50. r35=r35+1
  51. :A
  52. mess add another end-condition ?
  53. :P
  54. getyn r1
  55. if r1 eq 0 :Q
  56. goto :B
  57. :Q
  58. if r35 eq 0 :a
  59. c9='f'
  60. ovl elibedit
  61. if r1 ne 0 :Z
  62. *Set view plane to XY
  63. c111 = 'x'
  64. c112 = '0'
  65. c113 = '0'
  66. c114 = '0'
  67. i40 = 4;ovl zzref
  68. goto :a
  69. :Z
  70. mess System Error (ELIBEDIT, option 'f', rc= #r1 )
  71. getwe
  72. goto :z
  73. :E
  74. if r1 eq 1 :R
  75. if r1 eq 5 :F
  76. mess System Error (INCLIB, rc= #r1 ), add another end-cond.?
  77. goto :P
  78. :R
  79. mess Error reading " #c1 8 " (bad or empty file), add another end-cond.?
  80. goto :P
  81. :F
  82. mess " #c1 8 " is already in the library, overwrite ?
  83. getyn r2
  84. if r2 eq 0 :A
  85. r2=2
  86. goto :i
  87. :z
  88. macro rslib
  89. :a
  90. macro elibi
  91.