home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / logo / part01 / library / textprint.lg < prev    next >
Encoding:
Text File  |  1987-06-23  |  442 b   |  16 lines
  1.  
  2. REPLACE THE TWO-CHAR SEQUENCE ^[ WITH AN ESCAPE, TWICE IN THIS FILE
  3. to textprint :text
  4. gigimove xcor ycor
  5. type "^[PpT\(B
  6. if namep "gigitextslope [type "D; type :gigitextslope]
  7. if namep "gigitextsize [type "S; type :gigitextsize]
  8. if namep "gigitextslant [type "D; type :gigitextslant]
  9. if namep "gigitextheight [type "H; type :gigitextheight]
  10. if namep "gigitextitalic [type "I; type :gigitextitalic]
  11. type "\)'
  12. type :text
  13. type "'\(E\)^[\\
  14. end
  15.  
  16.