home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / TEXTB.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  984 b   |  68 lines
  1. %textb.ccc
  2. * 8.1.92 by DORIT
  3. * insertion of text blocks
  4. *$Header$
  5. *$Log$
  6. ******
  7. :a
  8. * check geometric mode activity (c100=' ')
  9. ascii c100 r13
  10. if r13 eq 32 :b
  11. mess illegal command, use \GEOM first !
  12. getwe
  13. goto :a
  14. :b
  15. r5=0
  16. mess distance between lines (factor of text size)
  17. r2=0.5;def r2
  18. getr r2
  19. if r2 le 0 :b
  20. :c
  21. c1='n'
  22. c2='n'
  23. mess location of block (current justification)
  24. getp p1
  25. mess direction point (ENTER along X)
  26. rubber line
  27. getp+ p2
  28. rubber off
  29. if r93 eq 0 :d
  30. p2=p1
  31. x2=x1+10
  32. :d
  33. mess text: (max 70 chars per line) <ENTER> for next line
  34. getw
  35. r37=0
  36. r38=70
  37. r39=211
  38. r1=0
  39. ovl getc
  40. if r1 ne 0 :d
  41. ascii c211 r1
  42. if r1 eq 32 :e
  43. i50=0
  44. ovl textblk
  45. c211=' '
  46. c2='c'
  47. goto :d
  48. :e
  49. mess place same text block?
  50. getyn r1
  51. r5=0
  52. if r1 eq 0 :c
  53. c1='s'
  54. mess location of block (current justification)
  55. getp p1
  56. mess direction point (ENTER along X)
  57. rubber line
  58. getp+ p2
  59. rubber off
  60. if r93 eq 0 :D
  61. p2=p1
  62. x2=x1+10
  63. :D
  64. c2='n'
  65. i50=0
  66. ovl textblk
  67. goto :e
  68.