home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / fx80_sty.zip / stylus / test / german.cmd < prev    next >
OS/2 REXX Batch file  |  1995-04-10  |  1KB  |  50 lines
  1. /* */
  2. /* Destination */
  3. DEST = "lpt1:"
  4. /*--- EXCLUDED ---
  5. DEST = "stdout:" 
  6.  --- EXCLUDED ---*/
  7. CRLF = d2c(13) || d2c(10)
  8. FFEED = d2c(12)
  9. ESC = d2c(27)
  10.  
  11. /* Reset */
  12. RESET = ESC || '@'
  13. /* Stelle Deutschen Zeichensatz */
  14. GER = ESC || 'R2'
  15. USA = ESC || 'R' d2c(0)
  16. /* Aktivierung PC437 für Zeichen bis 255 */
  17. PC850= ESC || '(t' d2c(0) d2c(1) d2c(0)
  18. PC437= ESC || 't1'
  19.  
  20. /* Initialisierung */
  21. res=CHAROUT(dest,RESET);
  22. /* res=CHAROUT(dest,PC437);
  23. res=CHAROUT(dest,USA); */
  24.  
  25. /* Drucke TestZeilen */
  26. res=charout(dest,"Dies ist ein Test mit Umlauten (äöüÄÖÜß)" || CRLF);
  27. res=charout(dest,"Und jetzt noch einige Sonderzeichen d:\TEST\BLA.blub"|| CRLF);
  28. res=charout(dest,"Noch ein paar: @&%$ (qt und prozent dollar"|| CRLF);
  29. /* res=charout(dest,ffeed); */
  30. /* Schleife aller Zeichen: */
  31.  
  32. res=charout(dest, "Zeichen ab   32:");
  33. do i=32 to 255
  34. if i // 20 = 0 then do
  35.  
  36.   res=charout(dest, crlf || "Zeichen ab " i ":");
  37.   end
  38. res=charout(dest,d2c(i));
  39. end
  40.  
  41. res=charout(dest,crlf||crlf);
  42. res=charout(dest,"Und jetzt die Eingabedatei für diese Daten:" || crlf);
  43.  
  44. file='german.cmd'
  45. do while (lines(file))
  46.   a=linein("german.cmd");
  47.   res=charout(dest,a || crlf);
  48. end
  49. exit
  50.