home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / winlogo / lib / textprin.lg < prev    next >
Text File  |  1990-06-11  |  382b  |  13 lines
  1. to textprint :text
  2. gigimove xcor ycor
  3. type "PpT\(B
  4. if namep "gigitextslope [type "D; type :gigitextslope]
  5. if namep "gigitextsize [type "S; type :gigitextsize]
  6. if namep "gigitextslant [type "D; type :gigitextslant]
  7. if namep "gigitextheight [type "H; type :gigitextheight]
  8. if namep "gigitextitalic [type "I; type :gigitextitalic]
  9. type "\)'
  10. type :text
  11. type "'\(E\)\\
  12. end
  13.