home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / TEXT.CCC < prev    next >
Encoding:
Text File  |  1993-07-22  |  834 b   |  51 lines

  1. %text.ccc
  2. *$Header$
  3. *$Log$
  4. *********
  5. *18/2/91-Rachel-default direction point is now further
  6. * check if orthogonal view
  7. :j
  8. * check geometric mode activity (c100=' ')
  9. ascii c100 r13
  10. if r13 eq 32 :s
  11. mess illegal command, use \GEOM first !
  12. getwe
  13. goto :j
  14. :s
  15. ascii c25 r7
  16. if r7 eq 49 :b
  17. mess invalid view, change to orthogonal and press <ENTER> !
  18. getwe
  19. goto :s
  20. :b
  21. mess enter text (1-70 char.)
  22. r37=0
  23. r38=70
  24. r39=211
  25. r1=0
  26. ovl getc
  27. if r1 eq 0 :W
  28. mess Attention please! (1-70 char.) push <ENTER>
  29. getwe
  30. goto :b
  31. :W
  32. * if c211=' ' -> repeat
  33. ascii c211 r7
  34. if r7 ne 32 :l
  35. mess press <ENTER> for another text
  36. getw
  37. :l
  38. mess justification point
  39. getp p1
  40. p25=p1
  41. mess point for direction, <ENTER>-for horizontal
  42. rubber line
  43. getp+ p2
  44. if r93 eq 0 :c
  45. x2=x1+1;y2=y1;z2=z1
  46. :c
  47. rubber off
  48. c1='a'
  49. ovl text
  50. repeat :l
  51.