home *** CD-ROM | disk | FTP | other *** search
- %text.ccc
- *$Header$
- *$Log$
- *********
- *18/2/91-Rachel-default direction point is now further
- * check if orthogonal view
- :j
- * check geometric mode activity (c100=' ')
- ascii c100 r13
- if r13 eq 32 :s
- mess illegal command, use \GEOM first !
- getwe
- goto :j
- :s
- ascii c25 r7
- if r7 eq 49 :b
- mess invalid view, change to orthogonal and press <ENTER> !
- getwe
- goto :s
- :b
- mess enter text (1-70 char.)
- r37=0
- r38=70
- r39=211
- r1=0
- ovl getc
- if r1 eq 0 :W
- mess Attention please! (1-70 char.) push <ENTER>
- getwe
- goto :b
- :W
- * if c211=' ' -> repeat
- ascii c211 r7
- if r7 ne 32 :l
- mess press <ENTER> for another text
- getw
- :l
- mess justification point
- getp p1
- p25=p1
- mess point for direction, <ENTER>-for horizontal
- rubber line
- getp+ p2
- if r93 eq 0 :c
- x2=x1+1;y2=y1;z2=z1
- :c
- rubber off
- c1='a'
- ovl text
- repeat :l
-