#! /usr/bin/perl
#####################################################################
# 
# Test-Programm
# Sende Steuersequenzen zum Oki-Drucker
# 
# OS...: Linux  : > OpenSUSE 10.0, 2.6.13-15-default
# Tools: Perl   : > 5.8.7
# HW...: Drucker: OKI Microline 591
# 
##################################################################ap#

# OKI-Handbuch
# 27 = ESC, 103 =  g >> Seite 14-2, Druckmodi 15 cpi
# 27 = ESC,  14 = SO >> Seite 14-3, Horizontal, doppelte Breite eine Zeile

# 27 = ESC,  45 = -, 49 =   1 = Seite 14-6, Start Unterstreichen
# 27 = ESC,  45 = -, 48 =   0 = Seite 14-6, Stopp Unterstreichen

# Perl-Buch
# sprintf   >> Seite 135, Formatierte Ausgabe
# %c        >> Seite 137, ein Zeichen (ASCII) :: Eine Zahl wird übergeben, %c wandelt daraus ein ASCII = einen Druckerbefehl
# %s        >> Seite 137, ein String          :: Zahlen Text ....
# \n        >> Zeilenschaltung

#$Strg1   = "unterstrichen";
#$Strg2   = "und wieder normal";
#$fett_on = sprintf( "%c%c%c", 27, 45, 49);
#$fett_of = sprintf( "%c%c%c", 27, 45, 48);

#open( LPR, "|lpr -P OKI" );

#print LPR ( "$fett_on$Strg1$fett_of $Strg2\n" );
#print "<$fett_on>\n";
#print "<$fett_of>\n";
#print      ( "$fett_on$Strg1$fett_of $Strg2\n" );
#printf( "<%d>\n", 0x033 );

open( LPR, "|lpr -P OKI" );

for( $i = 0 ; $i < 255 ; $i++ )
   {
   printf "%c ! %c <ESC ! <%d>> wählt diese Kombination\n", 27, $i, $i ;
   #printf "\e!%c <ESC ! <%d>> wählt diese Kombination\n", $i, $i ;
   }
   
close( LPR );

1;
#EOF