home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / fx80_sty.zip / stylus / test / fonts.cmd < prev    next >
OS/2 REXX Batch file  |  1995-04-10  |  820b  |  39 lines
  1. /* */
  2.  
  3. file='fonts.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. f.0="Roman"
  18. f.1="Sans Serif"
  19. f.2="Courier"
  20. f.3="Prestige"
  21. f.4="Skript" /* 5 bis 9 gibts nicht... */
  22. f.10="Roman T"
  23. f.11="Sans Serif H"
  24. /* Drucke TestZeilen */
  25. do i= 0 to 11
  26. if (i=5) then i=10
  27. res=charout(dest,ESC || "k" || d2c(i) );
  28. res=charout(dest,"FONT: " f.i " - Test: Hallo dies ist ein Test (äöüÄÖÜß\)" || CRLF);
  29. end
  30. /* Drucke Datei selbst */
  31. res=charout(dest,crlf||crlf);
  32. res=charout(dest,"Und jetzt die Eingabedatei für diese Daten:" || crlf);
  33. do while (lines(file))
  34.   a=linein(file);
  35.   res=charout(dest,a || crlf);
  36. end
  37. exit
  38.  
  39.