home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / textprint.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  441 b   |  15 lines
  1. REPLACE THE TWO-CHAR SEQUENCE ^[ WITH AN ESCAPE, TWICE IN THIS FILE
  2. to textprint :text
  3. gigimove xcor ycor
  4. type "^[PpT\(B
  5. if namep "gigitextslope [type "D; type :gigitextslope]
  6. if namep "gigitextsize [type "S; type :gigitextsize]
  7. if namep "gigitextslant [type "D; type :gigitextslant]
  8. if namep "gigitextheight [type "H; type :gigitextheight]
  9. if namep "gigitextitalic [type "I; type :gigitextitalic]
  10. type "\)'
  11. type :text
  12. type "'\(E\)^[\\
  13. end
  14.  
  15.