home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / fx80_sty.zip / stylus / test / size.cmd < prev   
OS/2 REXX Batch file  |  1995-04-17  |  2KB  |  89 lines
  1. /* */
  2.  
  3. file='size.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(0) ); /* Courier */
  19.  
  20. res=charout(dest,"Test der ESC X m n1 n2 - Fontgrößeneinstellung des Stylus " || CRLF|| CRLF );
  21.  
  22. /* Pitch - Test, Fontgröße 10.5 */
  23. /*--- EXCLUDED ---
  24. res=pri(0,21,0)
  25. res=pri(1,21,0)
  26. res=pri(18,21,0)
  27. res=pri(21,21,0)
  28. res=pri(24,21,0)
  29. res=pri(30,21,0)
  30.  
  31. res=charout(dest,CRLF );
  32. res=pri(1,52,0)
  33.  
  34. res=charout(dest,CRLF );
  35. res=pri(0,16,0)
  36. res=pri(1,16,0)
  37. res=pri(10,16,0)
  38. res=pri(18,16,0)
  39. res=pri(21,16,0)
  40. res=pri(24,16,0)
  41. res=pri(30,16,0)
  42.  
  43. res=charout(dest,CRLF );
  44. res=pri(18,0,0)
  45. res=pri(18,1,0)
  46. res=pri(18,2,0)
  47. res=pri(18,4,0)
  48. res=pri(18,8,0)
  49. res=pri(18,16,0)
  50.  
  51. res=charout(dest,CRLF );
  52. res=pri(1,0,1)
  53.  
  54. res=charout(dest,CRLF );
  55.  --- EXCLUDED ---*/
  56.  
  57. res=charout(dest,RESET||ESC||"k"||d2c(3)||ESC||"X"||d2c(18)||d2c(16)||d2c(0)||ESC || "3" || d2c(18) ||ESC||"l"||d2c(5)|| CRLF );
  58. res=charout(dest,"Und nun der 'realtest' " || CRLF );
  59. res=charout(dest,"Die nächste Zeile ist eine laengere Testzeile äöüßÄÖÜ 01293" ||CRLF );
  60. res=charout(dest,"012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789abcdefghijklmnopqq" ||CRLF );
  61. res=charout(dest,"Das waren 160 Zahlen und ein teil des alphabets" ||CRLF );
  62.  
  63. exit
  64.  
  65.  
  66. /* Drucke TestZeile in bestimmter Größe */
  67. pri:
  68. parse arg m, n1, n2
  69. res=charout(dest,ESC || "X" || d2c(m)|| d2c(n1)|| d2c(n2) );
  70. res=charout(dest,"Größe für Code (m="||m||", n1="||n1||", n2="||n2||")"||CRLF);
  71. return 0
  72. end
  73.  
  74.  
  75. /*
  76.  
  77.  
  78. res=charout(dest,crlf||crlf);
  79. res=charout(dest,"Und jetzt die Eingabedatei für diese Daten:" || crlf);
  80.  
  81. do while (lines(file))
  82.   a=linein("fonts.cmd");
  83.   res=charout(dest,a || crlf);
  84. end
  85.  
  86.  
  87. res=charout(dest,"Dies ist eine sher lange Zeile in der aktuellen font um dann auch noch testen zu könenn, wie es mit den Zeilenumbruch ist. Jaja, das ist wirklich richtig..." || CRLF);
  88. */
  89.