home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / TEXTU.CCC < prev    next >
Encoding:
Text File  |  1993-07-22  |  851 b   |  54 lines
  1. %textu.ccc
  2. * modify texts, check if orthogonal view
  3. *$Header$
  4. *$Log$
  5. *******
  6. :j
  7. * check geometric mode activity (c100=' ')
  8. ascii c100 r13
  9. if r13 eq 32 :m
  10. mess illegal command, use \GEOM first !
  11. getwe
  12. goto :j
  13. :m
  14. ascii c25 r7
  15. if r7 eq 49 :n
  16. mess invalid view, change to orthogonal and press <ENTER> !
  17. getwe
  18. goto :m
  19. :n
  20. sbreset
  21. :a
  22. r2 = 0
  23. mess text to update
  24. gete i1
  25. mess confirm choice
  26. getyn r1; if r1 eq 1 :b; unshow i1 ; goto :a
  27. :b
  28. unshow i1
  29. c1='r'
  30. ovl text
  31. * escape , if no text to update
  32. if r2 eq 0 :s
  33. mess no text found to update , press <ENTER> to continue.
  34. getwe
  35. goto :a
  36. :s
  37. mess new text (1-70 char.)
  38. r37=1
  39. r38=70
  40. r39=211
  41. r1=0
  42. ovl getc
  43. if r1 eq 0 :W
  44. mess Attention please! (1-70 char.) push <ENTER>
  45. getwe
  46. goto :s
  47. :W
  48. * if c211=' ' -> repeat
  49. ascii c211 r7
  50. if r7 eq 32 :s
  51. c1='u'
  52. ovl text
  53. repeat :m
  54.