--- vt102/vt102	2014/12/01 20:04:11	1.8
+++ vt102/vt102	2014/12/01 20:12:07	1.9
@@ -23,9 +23,9 @@
 # ./vt102 curl http://artscene.textfiles.com/vt100/trekvid.vt
 # ./vt102 curl http://artscene.textfiles.com/vt100/surf.vt # in 3d!
 
-# TODO: ctrl key map
-
-use common::sense;
+use strict;
+use feature qw(state);
+#use common::sense;
 
 $| = 1;
 
@@ -479,13 +479,13 @@
    for my $y (0 .. 25) { # ntsc, two vblank delay lines, up to 24 text lines
       my $prev_sgr;
 
-      $scr .= sprintf "%2d |", ++$y;
+      $scr .= sprintf "%2d \xe2\x94\x82", $y;
 
       for (0..139) {
          my $c = $M[$i];
 
          if ($c == 0x7f) { # also 0xff, but the firmware avoids that
-            $scr .= "\e[m|\e[K\n";
+            $scr .= "\e[m\xe2\x94\x82\e[K\n";
 
             my $a1 = $M[$i + 1];
             my $a0 = $M[$i + 2];