diff --git a/lpst.pl b/lpst.pl
index e61eac8..bef1526 100644
--- a/lpst.pl
+++ b/lpst.pl
@@ -205,8 +205,6 @@ sub f_1($$$){
     my $s0;
     
     $p =~ s/($P1|$P2)$DIV//;
-    # $p =~ s/$EMPTY_CELL//;
-    # $p .= "__" if length($p) < 1;
     $p .= "_" if length($p) < 2;
     $s0 = $hex;
 
@@ -215,12 +213,6 @@ sub f_1($$$){
     unless($p eq "__"){
 	substr($s0, 2,2) = $p;
     }
-    # if ($p eq "__"){
-    # 	$s0 =~ s/$ALT_SUB_CHR{1,2}/$SHADE_1_CHR$SHADE_1_CHR/;
-    # }else{
-    # 	# $p =~ s/_/$SHADE_1_CHR/;
-    # 	$s0 =~ s/$ALT_SUB_CHR{1,2}/$p/;
-    # }
 
     if($c0 % 2 == 0){
 	$s0 =~ s/$SUB_CHR/$BLANK_CELL_CHR/g;