lpst.pl - added code to trim some more characters

lpst.pl

@@ -257,9 +257,9 @@ sub disp_row($){
     $r0 = shift;
 
     $row = disp_0($r0);
-    # Trim the start of the first line
-    $row =~ s/$TRAIL_1/ /;
     if($r0 % 2 == 1){
+	# Trim the start of the first line
+	$row =~ s/$TRAIL_1/ /;
 	# Trim the end of the first line
 	$row =~ s/\n/$TRAIL_3\n/
     }else{
@@ -277,8 +277,11 @@ sub disp_board(){
 	$b .= disp_row($i);
     }
     $b =~ s/$TRAIL_1$TRAIL_3\n/\n/m;
+
+    for my $i (1..11-1){
+	substr($b, 2+6*$i, 2) = "  ";
+    }
     printf("%s", $b);
-    
 }
 
 sub cell_index($){