home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / fx80_sty.zip / stylus / test / fixed.cmd next >
OS/2 REXX Batch file  |  1995-04-10  |  1KB  |  46 lines
  1. /* */
  2.  
  3. file='fixed.cmd'
  4. /* Destination */
  5. /*--- EXCLUDED ---
  6. DEST = "stdout:"
  7.  --- EXCLUDED ---*/
  8. DEST = "lpt1:"
  9.  
  10. CRLF = d2c(13) || d2c(10)
  11. FFEED = d2c(12)
  12. ESC = d2c(27)
  13. /* Reset */
  14. RESET = ESC || '@'
  15. /* Initialisierung */
  16. res=CHAROUT(dest,RESET);
  17.  
  18. res=charout(dest,ESC || "k" || d2c(2) ); /* Courier */
  19.  
  20.  
  21. res=charout(dest,"Dies ist die normale Courier - Schrift" || crlf);
  22.  
  23. res=charout(dest,ESC || "gDies ist 10,5 Punkte, 15 cpi" || crlf);
  24. res=charout(dest,ESC || "MDies ist 10,5 Punkte, 12 cpi" || crlf);
  25. res=charout(dest,ESC || "PDies ist 10,5 Punkte, 10 cpi" || crlf);
  26.  
  27.  
  28. res=charout(dest,d2c(14)||"Breitdruck für eine Zeile" || crlf);
  29. res=charout(dest,ESC || "w" || d2c(1) || "Doppelte Höhe"||ESC || "w" || d2c(0)|| crlf);
  30. res=charout(dest,d2c(15)|| "Schmaldruck"||d2c(18)  || crlf);
  31. res=charout(dest,ESC || "q" || d2c(1) || "Umrißdruck"|| crlf);
  32. res=charout(dest,ESC || "q" || d2c(2) || "Schattendruck"|| crlf);
  33. res=charout(dest,ESC || "q" || d2c(3) || "Umriß- und Schattendruck"|| crlf);
  34. res=charout(dest,ESC || "q" || d2c(0) || "...und wieder normal"|| crlf);
  35. res=charout(dest,ESC || "-" || d2c(1) || "Diese Zeile ist unterstrichen"||ESC || "-" || d2c(0)|| crlf);
  36.  
  37. res=charout(dest,crlf||crlf);
  38. res=charout(dest,"Und jetzt die Eingabedatei für diese Daten:" || crlf);
  39.  
  40. do while (lines(file))
  41.   a=linein("fonts.cmd");
  42.   res=charout(dest,a || crlf);
  43. end
  44.  
  45. exit
  46.