Lines Matching refs:ch
12 while ( read(STDIN, $ch, 1) > 0 ) {
13 if ( $ch eq "\x1A" ) { # <SUB> <Ctrl-Z> EOF
15 } elsif ( $ch eq "\x0C" ) { # <FF> <Ctrl-L> Clear screen
17 } elsif ( $ch eq "\x0F" ) { # <SI> <Ctrl-O> Attribute change
36 } elsif ( $ch eq "\x18" ) { # <CAN> <Ctrl-X> Display image
40 } elsif ( (ord($ch) & ~07) == 0x10 ) { # Mode controls
41 $enable = (ord($ch) & 0x01); # Emulate the text screen
42 } elsif ( $ch eq "\x0D" ) { # <CR> <Ctrl-M> Carriage return
44 } elsif ( $ch eq "\x0A" ) { # <LF> <Ctrl-J> Line feed
48 print $ch if ( $enable );
51 print $ch if ( $enable && !$getting_file );
